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 2 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ᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍ
DQUSH1 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 8
Dᑍ Format Name
D QUSAU 81 9
Dᑍ API Used
D QUSDTC 91 13
Dᑍ Date Time Created
D QUSIS 14 14
Dᑍ Information Status
D QUSSUS 15 18B
Dᑍ Size User Space
D QUSOIP 19 112B
Dᑍ Offset Input Parameter
D QUSSIP 113 116B
Dᑍ Size Input Parameter
D QUSOHS 117 12B
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 14B
Dᑍ Size Each Entry
Appendix B. Original Examples in Additional Languages B-107