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(%SIZE(RCVVAR))
Dᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍ
Dᑍ
Dᑍ The following QUSGEN include is copied into this program so
Dᑍ that it can be declared as BASED on SPCPTR (shown at 21
Dᑍ in the incorrect and correct programs on pages
Dᑍ 9-37 and 9-45, respectively)
Dᑍ
Dᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍ
Dᑍ
DᑍHeader File Name: H/QUSGEN
Dᑍ
DᑍDescriptive Name: Format structures for User Space for ILE/C
Dᑍ
Dᑍ5763-SS1 (C) Copyright IBM Corp. 1994, 1994
DᑍAll rights reserved.
DᑍUS Government Users Restricted Rights -
DᑍUse, duplication or disclosure restricted
Dᑍby GSA ADP Schedule Contract with IBM Corp.
Dᑍ
DᑍDescription: Contains the Generic Record format headers
Dᑍ for the user space.
Dᑍ
DᑍHeader Files Included: none.
Dᑍ
DᑍMacros List: none.
Dᑍ
DᑍStructure List: Qus_Generic_Header_1
Dᑍ Qus_Generic_Header_3
Dᑍ
DᑍFunction Prototype List: none.
Dᑍ
DᑍChange Activity:
Dᑍ
DᑍCFD List:
Dᑍ
DᑍFLAG REASON LEVEL DATE PGMR CHANGE DESCRIPTION
Dᑍ---- ------------ ----- ------ --------- ----------------------
Dᑍ$A= D2862 3D1 94213 LUPA: New Include
DᑍEnd CFD List.
Dᑍ
DᑍAdditional notes about the Change Activity
DᑍEnd Change Activity.
Dᑍᑍᑍ END HEADER FILE SPECIFICATIONS ᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍ
Dᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍ
DᑍType Definition for the User Space Generic Header.
Dᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍ
DQUSH1 DS BASED(SPCPTR) 21
Chapter 9. Common API Programming Errors 9-37