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

IDS

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 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 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-6System API Programming V4R1

Page 212
Image 212
IBM Version 4 Jobnbr, Jobid, Jstat, Jtype, Jsubt, Resrv, Ispcnam Spcname, 13INTVAL, SET UP to Accept Exceptions ADD\ZEROS