Filter
Top Products
ᑍ CREATE THE SPACE TO HOLD THE DATA
C CALL 'QUSCRTUS'
C PARM SPCNAM
C PARM 'EXT_ATTR'EXTATR 1
C PARM SIZ
C PARM INTVAL
C PARM 'ᑍALL 'PUBAUT 1
C PARM 'TEXT DSC'TXTDSC 5
C PARM 'ᑍYES 'REPLAC 1
C PARM QUSBN
ᑍ
ᑍ CALL THE API TO LIST THE ACTIVE JOBS
C CALL 'QUSLJOB'
C PARM SPCNAM
C PARM 'JOBL1'FORMAT 8
C PARM JOBNAM
C PARM 'ᑍACTIVE 'STAT 1
C PARM QUSBN
ᑍ
ᑍ RETRIEVE THE OFFSET OF THE FIRST LIST ENTRY FROM THE SPACE
C Z-ADD1 START
C Z-ADD14 LENDTA
C CALL 'QUSRTVUS'
C PARM SPCNAM
C PARM START
C PARM LENDTA
C PARM QUSBP
C PARM QUSBN
ᑍ
ᑍ RETRIEVE LIST ENTRIES
C QUSBPQ ADD 1 START
ᑍ
C Z-ADD6 LENDTA 8
ᑍ
C Z-ADD1 X 9
C X DOWLEQUSBPS
C CALL 'QUSRTVUS'
C PARM SPCNAM
C PARM START
C PARM LENDTA
C PARM RECVR 6 9
C PARM QUSBN
ᑍ
C MOVELRECVR QUSDD
C ADD QUSBPT START
C ADD 1 X
C END
ᑍ DELETE THE SPACE THAT HELD THE DATA
C CALL 'QUSDLTUS'
C PARM SPCNAM
C PARM QUSBN
ᑍ
C SETON LR
ᑍ
Chapter 9. Common API Programming Errors 9-13