Control Data Corporation 3300 Reference Manual page 238

00990
00991
00992
00993
00994
00995
00996
00997
00998
00999
01000
01001
01002
01003
01004
01005
01006
01007
01008
01009
01010
01011
01012
01013
01014
01015
01016
01017
OJ01A
01019
01020
010?1
01021'.
01023
01024
01025
01026
01027
01028
01029
01030
01031
01032
01033
01034
JF OP-SYS-NA~ET
=
_RTS* MOVE READY-LIST TO RTS-LIST-AKT.
SECCNO~RY-HEADER-I~SERT SECTION.
~e:C··HE AD- IN.
PERFORM GET-E~PTY-LIST.
IF OP-SYS-NA~ET
=
-MASTFR_ MOVE READY-LIST TO MASTER-SAK.
IF
OP-SYS-NAMfT
=
~MSOS_ MOVE READY-LIST TO MSOS-SAK.
JF CP-SYS-NA~ET
=
~pTS- MOVE READY-LIST TO RTS-SAK.
MOVE TEM.KEY-! TO PRIM-KF.V, ~EAOER-LINKT.
WRITE PRIMARY-RECORD INVALID KEY PERFORM PROGRAM-8UG.
MOvE READY-lIST TO PRIM-KEY, FORWARD-LINKT,
BACKWARO-LIN~T, HEAD~~-SAKT.
MOvE
~A¢
TO SUPP-LEVELT.
MOvE HEADER-R~CORDT
10
~EAOER~RECORD.
w~TTE HEADER-~ECORO INVALID KEY PERFORM PROGRAM-BUG.
nELETING SECTION.
DELETE-PROCESSOR.
~nvE 1 TO OEL~TE-SUB.
MOVE -PSR OELtTE REPORT_ TO REPT-HEADING.
DElETE-PROC.
IF DELETE-LINKtD (DELETE-SUB) • SPACES NEXT SENTENCE ELSE
GO TO
DEL~TE-ALL-PROC.
MOvE DELETE-PSQ-NO (DELETE-SUB) TO PSR.
caMPUTE B-C
=
((PSR - 8IAS)
*
12)
+
504) / 504.
MOVE RLK TO Nu~-HLK.
MOVE CHAR TO iJUr-1-CHAR.
MOVE
NUMBER-P.~C
TO NUM-KFY.
READ NUMBER-FllE INVALID KEY PERFORM PROGRAM-BUG.
MOVE NUMBER-REC TO PSR-KEv, TEM-KEY-l.
MOVE ZEROES TO NUMBER-REC.
WRTTE ~0MBER-~EC INVALID KEY PERFORM PROGRAM-BUG.
READ PSR-FILE INVALID KEy PERFORM PROGRAM-BUG.
MOVE PS~-FILF-~EC TO PSR-FILE-RECT.
MOVE SPACES TO PSR-FILE-REC.
MOVE
EMPTY-PS~-FILE
TO NFXT-EMPTY.
MOVE TEM-KEY-! TO READY-PSR.
W~ITE
PSR-FILt-HEADER INVALID KEY PERFORM PROGRAM-BUG.
MOvE PSR-AK-RACKT TO PSk-KEY.
READ PSR-FIlE INVALID KEY PERFORM PROGRAM-BUG.
MOVE PSR.AK-FCRWT TO PSR-AK-FORW.
WRITE
PSR-FIL~-REC
INVALJD KEY PERFORM PROGRAM-BUG.
MOVE PSR-AK-FCRWT TO PSR.KEY.
READ PSR.FIlF INVALID KEy PERFORM PROGRAM-BUG.
MOvE PSR-AK-RACKT TO PSH-AK-BACK.
WRITE PSR-FILt.-REC INVALID KEY PERFORM PROGRAM-BUG.
IF MASTER-LIsT-AKT IS NOT EQUAL TO ZERO MOVE MASTER-LIST-AKT