Filter
Top Products
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
Cᑍ
Cᑍ Get a resolved pointer to the user space for performance
Cᑍ
C CALL 'QUSPTRUS'
C PARM SPC_NAME
C PARM SPCPTR
C PARM QUSEC
Cᑍ
Cᑍ Check for errors on QUSPTRUS
Cᑍ
C QUSBAVL IFGT
C MOVEL 'QUSPTRUS' APINAM 1
C EXSR APIERR
C END
C ENDSR
Cᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍ
C APIERR BEGSR
Cᑍ
Cᑍ Log any error encountered, and exit the program
Cᑍ
C APINAM DSPLY QUSEI
C EXSR DONE
C ENDSR
Cᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍ
C DONE BEGSR
Cᑍ
Cᑍ Exit the program
Cᑍ
C EVAL ᑍINLR = '1'
C RETURN
C ENDSR
9-50 System API Programming V4R1