Control Data Corporation 3300 Reference Manual page 229

00584
00'585
00586
00587
OOS88
00'589
00590
00591
0059~
OOS9~
00594
00595
00596
00597
0059a
00599
00600
00601
00602
00603
00604
00605
00606
00607
0060E\
00609
00610
00611
00612
00613
00614
00615
00616
00617
00618
00619
00620
00621
00622
0062:3
00624
006?5
00626'
00627
00628
TYPE IS ot:TAIL.
at?
LINE NUM8t:R IS
PLlJS
?
COLUMN NUMBER IS 10
PICTURE
IS 9(6)
SOURCE
IS
LIST-AREA
(1).
02
COLUMN
NUMBER
IS
32
PICTURE
r~
9(6)
SOURCE IS LIST-AREA
(2).
02
COLUMN NUMBER IS
54
PICTURE IS 9(6) SOURCE
Is LIST-AREA (3).
02
cOLUMr-J
I\IU1'1BEP
I
S
~/6
PICTURE T~
9(6)
SOURCE IS LIST-AREA
(4).
n2
COLUMN
NUi'It3ER
IS
98
PICTU~E I~
9(6)
S8URCE IS LIST-AREA
(5).
02
COLUMN "I\JH~ER
IS
120
PICTURE
IS 9(6)
SOURCE Is LIST-AREA
(6).
PROCE'OliRE l.>IVISIo,"J.
DECLARATIVt::S.
PHIM-SFC SECTION.
tlsr::
AFTER STAf.lOARO
EPROR
PROCEDURE ON PRIM-SEC-LIST.
PARA-I.
DISPLAY
~ ERR~H OCCURR~D
ON IIC OF
PRIM-SEC-LIST~
UPON CUT.
PSR C;EcTICN.
USE'
AF'TER ST
M'J[)A~D
ERROR
PROCEDURE CN PSR-FILE.
PARA_?
nISPLAY ~ ER~UR CCCURRED ON
1/0
CF PSR-FILE~ UPON OUT.
f\ltJMBR
sECT I ON.
UC;E AFlER STAf\IDARD EPkCR PRCCEDURE ON NUMAER-FILE.
PARA-3.
DISPLAY
~
ERqCR CCCUPRED ON 1/0 OF
NUMBER-FILE~
UPON CUT.
saRTT SECTION.
USF:
AF"' ER STAj\JOA~D
ERROR
P~CCEUURE ON SORT-cUT.
PARA_4.
DTSPLAY ~ ERROR OCCURRED ON I/C CF SORT~OUT~ UPON OUT.
END DfCLARATIVES.
READ-CARD SECTION.
sCRT.TNPuT.
MovE
SYSTEM-I")I~
TE Tc FIRST-DATE.
CCMPUT~
TCDAvS-DATE
=
«yY - 66)
~
365)
+
MTAS CMM)
+
DO.
ePEN INPUT
IN~ILE·CARO.
sCQT SCRT-FILt CN ASCENDING KEY SORT-CODE-l SCRT-COOE-2
SCRT.CCDE-3 INPUT PROCEDURE IS INPUT-PROCEDURE
GIVING seRT-CUT.
CLOSE INFILE-CARO.
READ-TAPE SECTION-
TAPE·OPEN.
CPFN INPUT SCHT-CUT.