\ 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 INFORMATION ABOUT THE USER SPACE AND ITS CONTENTS
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 BASED ON THE LIST ENTRY OFFSET
\ FOUND IN THE SPACE HEADER
C QUSBPQ ADD 1 START
C Z-ADD52 LENDTA
C Z-ADD1 X
C X DOWLEQUSBPS
C CALL 'QUSRTVUS'
C PARM SPCNAM
C PARM START
C PARM LENDTA
C PARM QUSDD
C PARM QUSBN
\
\ RETRIEVE THE NEXT LIST ENTRY (SPECIFYING LIST ENTRY LENGTH
\ RETRIEVED FROM THE SPACE HEADER)
C ADD QUSBPT START .11/
\
\ DISPLAY THE INFORMATION RETURNED
C MOVELQUSDD RECVR 52
C DSPLY RECVR
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-17