Hello
Below is the existing structure of the copybook
01 WRKFL2-REC.
03 WF2-CL PIC 9(4) COMP-3.
03 WF2-IT13 PIC X(6).
03 WF2-PERCWS PIC S999V9 COMP-3.
Modified one is
01 WRKFL2-REC.
03 WF2-CL PIC 9(5) COMP-3.
03 WF2-IT13 PIC X(6).
03 WF2-PERCWS PIC S999V9 COMP-3.
This structure is read by a Rexx program , here in the parse do we need to make
any changes ?
DO A = 1 TO DATA.0
PARSE VAR DATA.A CLUB +4 ITEM +6 PCT +3 .
IF SYMBOL('INFO.ITEM.1') \= 'VAR' THEN DO
INFO.ITEM.1=0
INFO.ITEM.2=0
ITEMPTR = ITEMPTR + 1
LIST.ITEMPTR = ITEM
END
PARSE VALUE C2X(PCT) WITH PCT +5 SIGN
IF SIGN = 'D' THEN PCT = PCT * -1
ELSE PCT = PCT + 0
INFO.ITEM.1 = INFO.ITEM.1 + PCT
INFO.ITEM.2 = INFO.ITEM.2 + 1
END
Thanks
Ron T
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN
