Control Data Corporation 3300 Reference Manual page 250

01530
01531
01532
01533
01534
01535
01536
01537
015314
01539
01540
01541
0154?
01';4'3
01';44
01545
01546
01547
01548
01549
01550
01!551
0155:'.
01553
01554
01555
01556
01557
01558
01559
01560
01561
01562
01563
01564
OPi65
01~66
01567
01568
01569
01570
01571
01572
01573
01574
PEQFORM NUM-FILE-ZERO.
CLnSE NU~BER-FILE.
MCvE
~ PSR F1LE HF.AOE~~ TO
P-F-H-S-H.
pEqF OR'-1 PSR-KE Y ... UPOA
TE.
MovE U~-KEY TO EMPTy-PSR-FILE, FIRST-PSR-ENT.
~CvE 10100000 TO PSR-FXPAND.
W~TTE PSR-FIL~-~EC
FROM PSR-FILE-HEADER-STORAGE
INVALID KtY cERFORM PROGRAM-BUG.
MOvE
SPACES fa PSR-FILE-HEADEH-STCRAGE.
MOvE UP.KEY ro PSR-KEY.
PEQFC~M PSR-~JLF-EMpry.
CL!)SE PSR-F I
V:.
MOvE
~
LIST
~ILE HEADER~
TO H-R-S.
MOvE
P~IM-KEY TO
H-P-S-SAK.
PEPFORM P~(M ... KEY-UPOATE.
~CVE
UP.Kt:Y IG PL4-SAK,
P~IM-KEY.
PFQFC~~ PRIM-~EY-UPDATE.
~cvE UP.KEY 1'0
E'MPTY-HF.AO-REC.
~OvE 30100000 TO PPI~-~XPAND.
MovE
bKI-CHO 10 PRIM-MEY.
WRtTE HEAO~R-~fCORn FROM HEQDER-RECORD-STORAGE
INVALID K~Y PERFO~~ P~CGRA~-BUG.
~CvE ~LH-SAK TO PRIM-KEY, EM~TY-HEAO-REC~
H-R-S-5AK.
~cvE lERC T8 P~IM-ExPANn.
~ovE
-
PRIMA~Y
PRonUcf LTsr-
TO H-R-S.
W~TTE HEAOER-~fCCRD FROM HEAnErl-R~CORn-STOQAGE
TNVALIU
Kty
PERFO~~ p~CGRAM-~UG.
~O\lE
SPACES
T8 HI:ADEp-HEr:f:~n.
PERFORM PRIM-KEY-UPOATE.
~OvE
UP.KEY fO PPJM-KEY.
~O\lE 3010(,'000 TO PRrr-1-EX
P
ANn.
PfPFORM
LIST-~ILE-EMPTY.
ClaSE PRIM-S~C-LIST.
(.;0 TO U.PROC-l.
COLL.ECT SECTION.
COLL.-RF="G1N.
np~N
1-0 PR I "i-SF'C-L r:) T, PSR-F.I U-:, NUMI:1ER-F I LE.
MOvE tiKI-CHO TO
PRtM-K~Y~ p-~EY,
NUM-KFV.
RE~O P~lM-SEC-LIST INro ~EAOER·RECCRO-STORAGE
I NVAL I D KI' : Y PfRFORI-.J
P~?CGRAf"'-RUG.
READ NU~AER-FlLE INTO ~lJMBER-FILE-STCRAGE INVALID KEY
PERFORM
PRO G R
1-\
til! -
A ~
J (.:i
MovE P!"(lM-EXP~~NO To
IJP-KFY.
SIJRTRACT 1 FR;)M U-~LK.
SUqTRACT L FR(;"'1
NUM-FX.I;)A~J(J GIVING BLK.