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 int￿o

 

D\ this program so that it can be declared as BASED on SPCPT￿R

 

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 BLanguages-107

Page 385
Image 385
IBM Version 4 manual Inzadopts Qtemp Dspcsize, Dlstptr Dspcptr Darr Basedlstptr DIM32767 Drcvvar