Control Data Corporation 3300 Reference Manual page 238

Computer systems usasi cobol/ master
Table of Contents

Advertisement

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

Advertisement

Table of Contents
loading
Need help?

Need help?

Do you have a question about the 3300 and is the answer not in the manual?

Subscribe to Our Youtube Channel

This manual is also suitable for:

3500

Table of Contents