This is a part of Easytrieve variable Declaration. you can read it here
Declaring a working storage variable
----+----1----+----2----+----3----+----4----+----5----+----6----+----7-- WS-VAR1 W 8 A WS-VAR2 W 8 A VALUE 'KARTHIK ' WS-VAR2 W 9 N VALUE ZEROES WS-VAR3 W 7 N 2 WS-VAR4 W 9 P 0 WS-VAR5 W 9 P 2
Use this code 