Control Data Corporation 3300 Reference Manual page 230

00629
00630
00631
00632
00633
00634
00635
00636
00637
00638
00639
00640
00641
00642
00643
00644
00645
00646
00641
00648
00649
00650
00651
00652
00653
00654
006~5
00656
006C;7
00658
00659
00660
00661
00662
00663
00664
00665
00666
00667
00668
00669
00670
00671
00672
00673
READ SORT-OUT AT END
G~
TO LAST-CARD.
IF CODE-ALPHA
=
~$~
GO TO UTILITY,
MOvE CCUE-AlPHA TO ALPHA-SAVE.
FILE-opEN,
OPEN 1-0 PRIM-SEe-LIST. PSR-FILE. NUMBER-FILE.
MOvE SKI-CHO 10 PRIM-KEY, NUM-KEY, PSR-KEY.
READ PRIM-SEe-LIST INVALID KEY PERFORM PROGRAM-BUG.
READ PSH-FILE INVALID KEy PERFORM PROGRAM-BUG.
READ NU~8ER-FILE INVALID KEY PERFORM PROGRAM-BUG,
MOVE HEADER-RtCOPD To HEAOEk.RECORD-STORAGE.
~OVE
PSR-FILE-HEADER TO PSR-FILE-HEAOER-STORAGE.
MOVE NUMBER-Rte TO NUMBER-FILE-STORAGE.
GO TO TAPE-CHtCK.
TAPE-I"IPUT.
PFPFORM READ-kOUTINE.
TAPE-CHECK.
yF ceDE-ALPHA
= ~A~
r,c
T~
ADD-PROCESSOR.
IF
COOE-ALP~A
=
~C~
GO To CHANGE-PROCESSOR,
IF CODE-ALPHA
=
~O~ G~
To DELETE-PROCESSOR.
JF
CODE-ALPHA
=
~L~ ~c
To LEvEL-PROCESSOR.
IF CODE-ALPHA
=
tR~ GO Ta REpO~T-PROCESSOR.
pERFORM PROGRAM-HUG.
LAST-C~RD.
MOVE ~Kl·CHO TO PHIM-KfY~ PSR-KEY, NUM-KEY.
wRTTE
NUM8ER-~EC
FROM
NUM~ER-FILE-STORAGE
INVALID KEY
PERFOR~ P~OGRAM-RUG.
WQITE
PSR-FIL~-REC FRO~
PSR-FIlE-HEADER-STORAGE INVALID KEY
PERFORM PbOGRAM-RUG.
wRyTE rlEADER.~~~CCRD FR~M HEADER-RECORD INVALID KEY
PERFORM P~CGRAM-RUG.
CLOSE SORT-OUI, PPTM.SEC-LIST. PSR-FILE, NUMBER-FILE.
ALTER-c;TOP.
(;C
TO STOP-PAf ...
sTOP,.PAR.
ST~P RUN.
ADDING SECTION.
AOD-pRCCESSOR,
MovE 1 To
GO.~EY.
TF CODE-NUM
=
0 MCVE REC-A-MOVEI TO PsR-FILEI-MOVE.
PS~-FILE]-~OVET PE~F~RM READ-ROUTINE ELSE DISPLAY STARS.
DIAGNOSTlt-s, STAHS.
~EC-A
UPON OUT GO TO CARD-SEQ-ERRCR.
IF-CHECKER.
IF PSR-NUM NOl EQUAL TO PSR-NO GO TO ADD-END.
IF ,CODE-NUM
=
1 OR 2 OR 3 OR 4 OR 5 GO TO ADD-PROC.
DISPLAY STARS, DIAr,NOSTIC-S, STARS. REC-A UPON OUT.