IDATA DS
I P 1 10PK01
I P 1 20PK02
I P 1 30PK03
I P 1 40PK04
I P 1 50PK05
I P 1 60PK06
I P 1 70PK07
I P 1 80PK08
I P 1 90PK09
I P 1 100PK10
I P 1 110PK11
I P 1 120PK12
I P 1 130PK13
IRETOUR DS
I 1 240ZONED
C *ENTRY PLIST
C PARM LEN 50
C PARM DATA
C PARM RETOUR
C SELEC
C LEN WHEQ 1
C Z-ADDPK01 ZONED
C LEN WHLE 3
C Z-ADDPK02 ZONED
C LEN WHLE 5
C Z-ADDPK03 ZONED
C LEN WHLE 7
C Z-ADDPK04 ZONED
C LEN WHLE 9
C Z-ADDPK05 ZONED
C LEN WHLE 11
C Z-ADDPK06 ZONED
C LEN WHLE 13
C Z-ADDPK07 ZONED
C LEN WHLE 15
C Z-ADDPK08 ZONED
C LEN WHLE 17
C Z-ADDPK09 ZONED
C LEN WHLE 19
C Z-ADDPK10 ZONED
C LEN WHLE 21
C Z-ADDPK11 ZONED
C LEN WHLE 23
| 
| 
| 