FSRCFIC IF F 92 DISK
E TBL 9999 80
ISRCFIC NS
I 1 12 FILLER
I 13 92 DATA
IOPTDS DS
I B 1 20OPTNB2
I 3 178 OPTLST
IOPTDSB DS
I B 1 40OPTNB4
ILGDS DS
I B 1 40LGTBL
IPRTFDS DS
I I 'QSYSPRT *LIBL ' 1 20 PRTF
IPAGDS DS
I I 1 B 1 40PAGNBR
IERRCOD DS
I I 15 B 1 40ERRLG
I B 5 80RTNLG
I 9 15 ERRID
C *ENTRY PLIST
C PARM PGMLIB 20
C PARM TEXT 50
C PARM SRCF 20
C PARM SRCM 10
C PARM SRCDT 13
C PARM AUT 10
C PARM OPTDS
C PARM RTNID 7
C Z-ADD0 NP 50
C READ SRCFIC 01
C *IN01 IFEQ *OFF
C *IN01 DOUEQ*ON
C ADD 1 NP
C MOVE DATA TBL,NP
C READ SRCFIC 01
C ENDDO
C NP MULT 80 LGTBL
C Z-ADDOPTNB2 OPTNB4
C CALL 'QPRCRTPG'
C PARM TBL
C PARM LGTBL
C PARM PGMLIB
C PARM TEXT
|
| 
| 