\\ OTHER ASSORTED VARIABLES

IDS

I I

2ððð

B

1

4ðSIZ

I

 

B

5

8ðSTART

I

 

B

9

12ðLENDTA

I I

X'ðð'

 

13

13 INTVAL

 

\

 

 

 

 

 

 

\ 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 SPAC￿E

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 LIST

ENTRIES

 

 

 

C

QUSBPQ

ADD

1

START

 

 

C

\

Z-ADD6ð

LENDTA

 

.8/

\

 

C

Z-ADD1

X

 

 

 

C

X

DOWLEQUSBPS

 

 

 

C

 

CALL

'QUSRTVUS'

 

 

C

 

PARM

 

SPCNAM

 

 

C

 

PARM

 

START

 

 

C

 

PARM

 

LENDTA

 

 

C

 

PARM

 

RECVR

.7/

C

\

PARM

 

QUSBN

 

 

C

DSPLY

 

QUSBN

 

 

\

 

 

 

C

ADD

QUSBPT

START

 

 

 

 

 

C

 

ADD

1

X

 

 

C

 

END

 

 

 

 

 

 

 

 

Chapter

9.

Common API Programming Errors 9-11

Page 217
Image 217
IBM Version 4 manual Qusbn \ Call the API to List the Active Jobs Qusljob, Qusbn \ Retrieve the Offset, ADD1 Start