Filter
Top Products
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
C PARM 'ᑍUSER' SPC_DOMAIN 1
Cᑍ
Cᑍ Check for errors on QUSCRTUS
Cᑍ
C QUSBAVL IFGT
C MOVEL 'QUSCRTUS' APINAM 1
C EXSR APIERR
C END
Cᑍ
Cᑍ Else, an error occurred accessing the user space
Cᑍ
C ELSE
C MOVEL 'QUSROBJD' APINAM 1
C EXSR APIERR
C END
C END
Cᑍ
Cᑍ Set QSYLOBJP (using GETLST) to start a new list
Cᑍ
C MOVE ᑍBLANKS CONTIN_HDL
C EXSR GETLST
9-42 System API Programming V4R1