I

I

'SPCNAME

'

1

1ð

SPC

I

I

'QTEMP

'

11

2ð

LIB

 

\\ 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

1ð

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 LIST ENTRIES

 

 

 

C

QUSBPQ

ADD

1

START

 

C

 

Z-ADD52

LENDTA

 

C

 

Z-ADD1

X

9ð

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 LAST RELEASE'S

\FORMAT LENGTH AS THE AMOUNT TO BUMP THE POINTER - THIS

\WILL RESULT IN "GARBAGE" IN THE RECEIVER VARIABLE BECAUS￿E THE

\FORMAT IS NOW 56 BYTES LONG)

\

Chapter 9. Common API Programming Errors 9-15

Page 220 Page 222
Page 221
Image 221
IBM Version 4 manual Qusbn \ Call the API to List the Active Jobs, ADD1 Dowlequsbps
Page 220 Page 222
Top Page Image Contents