Control Data Corporation 3300 Reference Manual page 237

00945
00946
00947
00948
00949
00950
00951
00952
00953
00954
00955
00956
00951
00958
00959
00960
00961
00962
00963
00964
00965
00966
00961
00968
00969
00910
00971
00972
00913
00974
0097~
00976
00971
00918
00919
009RO
00981
009132
00983
009A4
009
A
S
009H6
00981
00988
009A9
READ PRIM-SEe-LIST INVALID KEY PERFORM PRoGRAM-BUG.
MOVE PSR-KEY TO PSR-SAKT.
IF OP-SYS-NAM~T
=
~MASTER_ MOVE MASTER-SAK TO PRIM-KEY.
IF
OP-SYS-NA~ET
=
~Msas~
MOVE MSCS-SAK To PRIM-KEY.
IF OP-SYS-NAMET
=
~RTS~
MOVE RTS-SAK
T~
PRIM-KEY.
MOVE PROD-NMT TO
PROO-NA~ET.
MOVE PSR-NOT TO PSR-NUMBERT.
pERFORM SYS-FCUNQ.
IF OP-SYS-NAM~T
=
~MASTER~ MOVE READY-LIST TO MASTER-SAKT.
IF OP-SYS-NA~fT
=
_MSOSt MOVE READY-LIST TO MSOS-SAKT.
IF OP-SYS-NAMET
=
~RTS~ MOVE READY-LIST To RTS-SAKT.
~ovE TEM-KEY-? To PRIM-KEY.
SYS-FOllNO SECTION.
sECONDARy-ENTRY-
J
hlSERT •
IF PRIM-KEY
=
ZERO PERF~RM
SECONDARY-HEAQER-INSERT
GO TO SEC-ENT-IN-l.
READ PRIM-SEG-LIST INVALTD KEY PERFORM PROGRAM-BUG.
sEC-ENT-IN-l.
PERFORM GET-EMPTY-LIST.
IF
FORWARD-LI~~
=
BACKWARD-LINK
AND
HEADER-SAK
GO
To
SEC-~NT-IN-3.
sEC-ENT-IN-2.
MOVE BACKWARD-LINK TO PRIM-KEY.
READ PHIM-SEC-LIST INVALIO KEY PERFORM PROGRAM-BUG.
IF PSH-NUMBE~ LESS TriAN PSR.NUMBERT GO TO SEC-ENT-IN.3.
IF BACKWARD-LINK NOT EQUAL TG HEADER-SAK
GO TO SEC-ENT-IN-2.
MOVE BACKWARD-LINK TO PRIM-KEY.
READ PRIM-SEC-LIST INVALTO KEY PERFORM PROGRAM-BUG.
sEC-ENT-IN-3.
MOVE FORWARD-LINK TO FORWARO-LKT.
MOVE
READY-LI~T
TO FORWARO-LINK.
MOVE HEADER-SA~ TO HEADER-ST.
MOVE PRIM-KEY TO BACKWARn-LKT.
WRtTE
SECONDA~Y-RECOP0
INVALID KEY PERFORM PROGRAMoBUG.
MOVE FORWARD-LKT TO pRIM-KEY.
RE~OPHIM-SEC-LIST
INVALtO KEY PERFORM PROGRAM-BUGG
MOVE READY-LIST TO BACKWA~O-LINK.
WRITE SECCNDAkY-RECORO INVALID KEY PERFORM PROGRAM-BUG.
MOVE READY-LI~T TO PPI~-KEY.
wRrTE SECONOA~Y-~ECORU FROM SECONDARY.RECORDT
INVALID KtY PERFORM ~ROGRAM-BUG.
IF OP-SYS-NAMET
=
~MASTER_ MOVE READY-LIST TO
MASTER-LrST-AKT. .
IF CP-SYS-NA1'lET
=
~MSCSt
r.10vE READY-LIST TO MSOS-LIST-AKT.