D QUSSIDLE 141 144B ð
D\ CCSID List Ent
D QUSCID 145 146
D\ Country ID
D QUSLID 147 149
D\ Language ID
D QUSSLI 15ð 15ð
D\ Subset List Indicator
D QUSERVEDðð 151 192
D\ Reserved
D\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
D\
D\ The following QSYLOBJP include from QSYSINC is copied into
D\ this program so that it can be declared as BASED on LSTPTR
D\
D\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
D QSYLOBJP C 'QSYLOBJP'
D\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
D\Header structure for QSYLOBJP
D\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
DQSYOBJPH DS BASED(LSTPTR)
D\ Qsy OBJP Header
D QSYUNðð 1 1ð
D\ User name
D QSYCVðð 11 3ð
D\ Continuation Value
D\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
D\Record structure for OBJPð2ðð format
D\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
DQSYð2ððLð2 DS BASED(LSTPTR)
D\ Qsy OBJPð2ðð List
D QSYNAMEð6 1 1ð
D\ Name
D QSYBRARYð6 11 2ð
D\ Library
D QSYOBJT13 21 3ð
D\ Object Type
D QSYOBJIUðð 31 31
D\ Object In Use
D QSYOBJA11 32 41
D\ Object Attribute
D QSYOBJT14 42 91
D\ Object Text
C\
C\ Start of mainline
C\
C \ENTRY PLIST
C PARM USR_PRF 1ð
C PARM OBJ_TYPE 1ð
C EXSR INIT
C EXSR PROCES
C EXSR DONE
C\
C\ Start of subroutines
C\
C\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
C PROCES BEGSR
C\
B-108 System API Programming V4R1