C\

 

 

 

 

 

C\ Call QSYLOBJP to generate a list

 

 

C\ The continuation

handle is

set by the caller of this sub￿routine.

C\

 

 

 

 

 

C

 

CALL

QSYLOBJP

 

 

C

 

PARM

 

SPC_NAME

 

C

 

PARM

'OBJPð1ðð'

MBR_LIST

8

C

 

PARM

'\CURRENT'

USR_PRF

1ð

C

 

PARM

'\ALL'

OBJ_TYPE

1ð

C

 

PARM

 

CONTIN_HDL

2ð

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 to not use exceptions

 

C\

 

 

 

 

 

C

 

EVAL

QUSBPRV = %SIZE(QUSEC)

 

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'

OBJ_TYPE

1ð

C

 

PARM

 

QUSEC

 

C\

 

 

 

 

 

C\ Check for errors on QUSROBJD

 

 

C\

 

 

 

 

 

C

QUSBAVL

IFGT

ð

 

 

C\

 

 

 

 

 

C\ If CPF98ð1, then user space was not found

 

C\

 

 

 

 

 

C

QUSEI

IFEQ

'CPF98ð1'

 

 

C\

 

 

 

 

 

C\ So create a user space for

the list generated by QSYLOBJ￿P

C\

 

 

 

 

 

C

 

CALL

'QUSCRTUS'

 

 

C

 

PARM

 

SPC_NAME

 

C

 

PARM

'QSYLOBJP ' EXT_ATTR

1ð

C

 

PARM

 

SPC_SIZE

 

C

 

PARM

 

SPC_INIT

 

C

 

PARM

'\ALL'

SPC_AUT

1ð

C

 

PARM

\BLANKS

SPC_TEXT

5ð

C

 

PARM

'\YES'

SPC_REPLAC

1ð

C

 

PARM

 

QUSEC

 

 

 

 

Chapter

9. Common API

Programming Errors 9-49

Page 254 Page 256
Page 255
Image 255
IBM Version 4 manual Call Qsylobjp Parm Spcname, Mbrlist Parm \CURRENT Usrprf, Objtype Parm, Parm Qusec, Init Begsr
Page 254 Page 256
Top Page Image Contents