Filter
Top Products
Cᑍ List entries
Cᑍ
C MOVE QSYCV CONTIN_HDL 2
C EXSR GETLST
C MOVE QUSIS LST_STATUS
C END
C END
C ELSE
Cᑍ
Cᑍ And if an unexpected status, log an error (not shown) and exit
Cᑍ
C EXSR DONE
C END
C END
C ENDSR
Cᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍ
C GETLST BEGSR
Cᑍ
Cᑍ Call QSYLOBJP to generate a list
Cᑍ The continuation handle is set by the caller of this
Cᑍ subroutine.
Cᑍ
C CALL QSYLOBJP
C PARM SPC_NAME
C PARM 'OBJP2' MBR_LIST 8
C PARM USR_PRF
C PARM OBJ_TYPE
C PARM CONTIN_HDL 2 3
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 not to use exceptions
Cᑍ
C Z-ADD 16 QUSBPRV
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' SPC_TYPE 1
C PARM QUSEC
Cᑍ
Cᑍ Check for errors on QUSROBJD
B-110 System API Programming V4R1