C\ Two parameters are being passed into this program.

C\

 

 

 

C

\ENTRY

PLIST

 

C

 

PARM

USRPRF 1ð

C

 

PARM

OBJTYP 1ð

C\

 

 

 

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

C

 

EXSR INIT

 

C

 

EXSR PROCES

 

C

 

EXSR DONE

 

C\

 

 

 

C\ End of MAINLINE

 

 

C\

 

 

 

C\

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

C\ Function:

 

getlst

C\

 

 

C\ Description:

This function calls QSYLOBJP to build a list.

C\

 

 

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

C\

 

 

C

GETLST

BEGSR

C

 

MOVEL'OBJPð2ðð'MBRLST

C\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ C\ Call QSYLOBJP API to generate a list. The continuation handle

C\ is set by the caller of

this function.

 

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

C

 

CALL

'QSYLOBJP'

 

 

C

 

PARM

 

SPCNAM

User space/lib

C

 

PARM

 

MBRLST

Member list

C

 

PARM

 

USRPRF

User profile

C

 

PARM

 

OBJTYP

Object type sc

C

 

PARM

 

CONHDL

Continuation ha (.3/

C

 

PARM

 

QUSBN

Error Code

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

C\ Check for errors on QSYLOBJP.

 

 

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

C

QUSBNC

IFGT

ð

 

 

C

 

MOVEL'QSYLOBJP'APINAM

 

C

 

EXSR

APIERR

 

 

C

 

ENDIF

 

 

 

C

 

ENDSR

 

 

 

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

C\ Function:

 

INIT

 

 

 

C\

 

 

 

 

 

C\ Description:

This function does all the necessary

 

C\

 

initialization for this program and the

C\

 

rest is done in the I specs.

 

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

C

INIT

BEGSR

 

 

 

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

C

 

Z-ADD1ðð

QUSBNB

 

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

C\ Call QUSROBJD to see if

the user space was previously cr￿eated

C\ in QTEMP. If it was, simply reuse

it.

 

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

C

CALL

'QUSROBJD'

 

 

C

PARM

 

RCVVAR

Receiver Var

Chapter 5. List APIs5-7

Page 119
Image 119
IBM Version 4 ENTRY Plist Parm, Exsr Init Exsr Proces Exsr Done, Begsr, Call Qsylobjp, Spcnam, Mbrlst, Usrprf, Objtyp