\ 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 CONTEN￿TS

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 OFF￿SET

\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 LENG￿TH

\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

Page 223
Image 223
IBM Version 4 manual Add\Zeros