Control Data Corporation 3300 Reference Manual page 223

~
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