F\
F\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
F\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
F\
FQPRINT O F 132 PRINTER OFLIND(\INOF)
D\
D\ Error Code parameter include
D\
D/COPY QSYSINC/QRPGLESRC,QUSEC
D\
DSPC_NAME S INZ('ADOPTS QTEMP ')
DSPC_SIZE S 9B ð INZ(1)
DSPC_INIT S 1 INZ(X'ðð')
DLSTPTR S \
DSPCPTR S \
DARR S 1 BASED(LSTPTR) DIM(32767)
DRCVVAR S 8
DRCVVARSIZ S 9B ð INZ(8)
D\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
D\
D\ The following QUSGEN include from QSYSINC is copied into
D\ this program so that it can be declared as BASED on SPCPTR
D\
D\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
DQUSHð1ðð DS BASED(SPCPTR)
D\ Qus Generic Header ð1ðð
D QUSUA 1 64
D\ User Area
D QUSSGH 65 68B ð
D\ Size Generic Header
D QUSSRL 69 72
D\ Structure Release Level
D QUSFN 73
D\ Format Name
D QUSAU 81
D\ API Used
D QUSDTC 91 1ð3
D\ Date Time Created
D QUSIS 1ð4 1ð4
D\ Information Status
D QUSSUS 1ð5 1ð8B ð
D\ Size User Space
D QUSOIP 1ð9 112B ð
D\ Offset Input Parameter
D QUSSIP 113 116B ð
D\ Size Input Parameter
D QUSOHS 117 12ðB ð
D\ Offset Header Section
D QUSSHS 121 124B ð
D\ Size Header Section
D QUSOLD 125 128B ð
D\ Offset List Data
D QUSSLD 129 132B ð
D\ Size List Data
D QUSNBRLE 133 136B ð
D\ Number List Entries
D QUSSEE 137 14ðB ð
D\ Size Each Entry
Appendix B. Original Examples in Additional Languages B-107