Control Data Corporation 3300 Reference Manual page 253

01665
01666
0166
·7
01668
01669
01670
01671
01672
01673
01674
01675
01676
01677
01678
01679
01680
01681
01682
01683
01684
01685
01686
01687
01688
01689
01690
01691
01692
01693
01694
01695
01696
01697
01698
01699
01700
01701
01702
01703
01704
01705
01706
01707
01708
01709
01710
PE~FORM
PRIM-KEY-UPDATE.
MOvE UP-KEY TO PRIM-KEY.
READ P-S-LIST INTO PRIMARY-RECORD
INVALID K~Y PERFORM PROGRAM-AUG.
PERFORM P-KEY-UPOATE.
MOVE UP-KEY TO P-KEY.
~0 TO COLL-SEe-DONE-l.
CCLL-SF.C-DCNE-2.
MOVE
SPAC~S
TO HEADER-RECORD.
PEpFORM LIST.FILE-EMPTY.
CLOSE PRIM-SEe-LIST. P-S-LIST.
IF u-BIAS NOT EQUAL Te SPACES GO TO CCLL-NU~~ENb.
WRITE T-REG-l FROM
~UMRER-FILE-STORAGE
INVALID KEY PERFoRM PROGRA~-BUG.
cOLL-"HJI'v1-1.
PE~FORM NUM-K~Y-UPDAT£.
READ NUMBER-FilE INVALID KEY GO TO CCLL-NUM-!NO,
JF NUMBER-REC NOT
=
lERO GO TO COLL-NUM~?
Aon 1 TO dIAS.
GO TO COlL-NUM-l.
COLl-NUM-2.
wRITE T-REC-' FROM NUMBER-REC
INVALID K~Y PEPFO~M PROGRAM-sUG.
!F NUM-KEY-1
=
NUM-EXPANO Go TO CCLL-NUM-3.
PF.RFORM NUM-KF::Y-l/PDATE.
PEAD NUMBER-FILE INVALID KEy PERFORM PROGHAM.8UG~
~O TO COLL-NUM-2.
COLL-NljM-3.
~ovE ZEkC TO NUMBER-REe.
WRlTE T-~EC-l FPOM NUM~ERuREC
tNVALIU K~Y GO TO COLL-NUM-4~
r,~ TO CCLL-NU
i
-1-3.
CCLl-NU·"1-4.
rL~SE
N-FILE.
CP~N
INPUT
~-~lLE.
PE~D N-FILE AT END PERFoRM PRCGRAM-BU~,
Ma\lE SKI-CriO ro NlJM-t<£Y.
wRyTE NUMBER-REC FROM NU~BER-FILE-STORA~E
INVALID
K~Y P~QFOHM P~OGRAM·AUG.
CCLl-NIIM-S.
P~~FORM NUM-KtY-UPDATE.
IF NUM-KEY
=
NUM~EXPAND GO TO COLL~NUM-ENO.
READ N-FILE
AT END PE~FO~M PROGRA~-~UG.
GO TO COLL-NU
M
-5.
COLL .. NIJM-ENO. .
CLOSE NUMHER.FILE, N_FILE~