~
00314
D00221
01
PRIM-KEYl.
0
N
00315
000222
02
PRIM.KEY-l
PIC 9(1).
N
(,C)
00316
000223
02
PRIM-KEY-2
PIC
q(5).
foi::o..
0
00311
DOO224
01
PRIM-KEY REDEFINES PRIM-KEYI PIC 9(12).
0
00318
000225
01
PSR-KEY1.
00319
060226
02
PSR-KEY-l
PIC 9(1).
00320
000221
02
PSR-KEY-2
PIC 9(5).
00321
066228
01
PSR-KEY REDEFINES PSR-KEYl PIC 9 (12).
00322
006229
01
NU~-KEY1.
00323
D00230
02
NUM-KEY-l
PIC 9(7).
00324
000231
f)2
NUM-KEY-2
PIC 9(5).
00325
000232
01
NUM-KEY REDEFINES NUM-KEY1 PIC 9(12).
00326
060233
01
HEAOER-HECORO-STORAGE.
00327
006234
o~
EMPTY-HEAIJ-REC
PIC
9(12).
00326
000235
02
PLH-SAK
pIC
9 (12) •
00329
006236
02
PRltv1-EXPA"'O
pIC
9(12).
00330
000231
02
H-H-S
pIC
X (34,).
00331
060 238
02
H-R-S-SAK
pIC
9(12) •
00332
000239
01
PSR-FILE.HEADER-STCRAGE.
00333
000240
02
EMPTY-PSR-FILE
PIC
9(12).
00334
000241
02
FIHST-PSR-ENT
pIC
9(12).
00335
000242
02
PSR-EXPANIJ
pIC
9(12).
00336
066243
02
P-f'"-H-S-H
pIC
X(476).
00337
000244
01
NUMBER-FILE-STORAGE.
00338
000245
02
NUM-EXPANIJ
pIC
9 (7) •
00339
OQQ246
02
BIAS
pIC
9 (5) •
00340
OQQ247
01
PSR-EQT.
00341
000248
02
EQUAL-PSRS
PIC
9(5)
OCCURS 9 TIMES
00342
INDEXED RY
PSR-INOEX.
00343
066250
01
HEADER-RECCROT.
00344
060251
02
FORWARD-LINKT
pIC 9(12, •
00345
000252
02
BACKWAHO-LINKT
pIC 9 (12) •
00346
D00253
02
HEADEH-LINKT
pIC
9(12).
00347
D00254
02
SUPP-LEvELT
PIC
x.
00348
060255
02
HEAOER-NAf"lET
pIC X(33)
VALUE
;i LIST HEADER;i.
00349
060256
02
HEADER-SAKT
pIC 9 <12', •
00350
000257
01
PRIMARY-RECCROT.
00351
000258
02
FCR-LINKT
pIC 9(12) •
00352
000259
02
BAK-LINKT
pIC 9(12) •
00353
000260
02
PROI)UCT-NAMET
pIC X (10) •
00354
000261
02
MASTER-SAKT
pIC 9(12).
00355
000262
02
MSOS.SAKT
pIC
9(12).
00356
OQQ263
02
RTS-SAKT
pIC 9(12).
>
00357
000264
02
HEAO.SAKT
pIC
X(l2~.
I
00358
006265
01
RPRIMARY.RECCRDT REDEFINES PRIMARY-RECOROT.
CoO
Need help?
Do you have a question about the 3300 and is the answer not in the manual?