C\ List entries

 

 

 

C\

 

 

 

C

MOVE

QSYCVðð

CONTIN_HDL .2/

C

EXSR

GETLST

 

C

MOVE

QUSIS

LST_STATUS

C

END

 

 

C

END

 

 

C

ELSE

 

 

C\

C\ And if an unexpected status, log an error (not shown) and e￿xit

C\

 

 

 

 

 

C

 

EXSR

DONE

 

 

C

 

END

 

 

 

C

 

END

 

 

 

C

 

ENDSR

 

 

 

C\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\

C

GETLST

BEGSR

 

 

 

C\

 

 

 

 

 

C\ Call QSYLOBJP to generate a list

 

 

C\ The continuation

handle is set by the caller of this

 

C\ subroutine.

 

 

 

 

C\

 

 

 

 

 

C

 

CALL

QSYLOBJP

 

 

C

 

PARM

 

SPC_NAME

 

C

 

PARM

'OBJPð2ðð'

MBR_LIST

8

C

 

PARM

 

USR_PRF

 

C

 

PARM

 

OBJ_TYPE

 

C

 

PARM

 

CONTIN_HDL

2ð .3/

C

 

PARM

 

QUSEC

 

C\

 

 

 

 

 

C\ Check for errors on QSYLOBJP

 

 

C\

 

 

 

 

 

C

QUSBAVL

IFGT

ð

 

 

C

 

MOVEL

'QSYLOBJP'

APINAM

1ð

C

 

EXSR

APIERR

 

 

C

 

END

 

 

 

C

 

ENDSR

 

 

 

C\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\

C

INIT

BEGSR

 

 

 

C\

 

 

 

 

 

C\ One time initialization code for this program

 

C\

 

 

 

 

 

C\ Set Error Code structure not to use exceptions

 

C\

 

 

 

 

 

C

 

Z-ADD

16

QUSBPRV

 

C\

 

 

 

 

 

C\ Check to see if the User Space was previously created in￿

 

C\ QTEMP. If it was, simply reuse it.

 

 

C\

 

 

 

 

 

C

 

CALL

'QUSROBJD'

 

 

C

 

PARM

 

RCVVAR

 

C

 

PARM

 

RCVVARSIZ

 

C

 

PARM

'OBJDð1ðð'

ROBJD_FMT

8

C

 

PARM

 

SPC_NAME

 

C

 

PARM

'\USRSPC'

SPC_TYPE

1ð

C

 

PARM

 

QUSEC

 

C\

 

 

 

 

 

C\ Check for errors on QUSROBJD

B-110System API Programming V4R1

Page 387 Page 389
Page 388
Image 388
IBM Version 4 manual Exsr Getlst Move Qusis Lststatus END Else, Mbrlist Parm Usrprf Objtype Continhdl Qusec
Page 387 Page 389
Top Page Image Contents