Filter
Top Products
Cᑍ
Cᑍ Call QSYLOBJP to generate a list
Cᑍ The continuation handle is set by the caller of this subroutine.
Cᑍ
C CALL QSYLOBJP
C PARM SPC_NAME
C PARM 'OBJP1' 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 'OBJD1' 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 CPF981, then user space was not found
Cᑍ
C QUSEI IFEQ 'CPF981'
Cᑍ
Cᑍ So create a user space for the list generated by QSYLOBJP
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