I 13 2ð USRNAM .5/
I 21 26 JOBNBR
I 27 42 JOBID
I 43 52 JSTAT
I 53 53 JTYPE
I 54 54 JSUBT
I 55 56 RESRV
\\
ISPCNAM DS
I I 'SPCNAME ' 1 1ð SPC
I I 'QTEMP ' 11 2ð LIB
\\ OTHER ASSORTED VARIABLES
I DS
I I 2ððð B 1 4ðSIZ
I I B 5 8ðSTART
I I B 9 12ðLENDTA
I I X'ðð' 13 13INTVAL
\
\ SET UP TO ACCEPT EXCEPTIONS
C Z-ADD\ZEROS QUSBNB
\
\ 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 'JOBLð1ðð'FORMAT 8
C PARM JOBNAM
C PARM '\ACTIVE 'STAT
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 THE FIRST LIST ENTRY
C QUSBPQ ADD 1 START
C Z-ADD56 LENDTA
C CALL 'QUSRTVUS'
C PARM SPCNAM
C PARM START
C PARM LENDTA
9-6 System API Programming V4R1