Control Data Corporation 3300 Reference Manual page 252

Computer systems usasi cobol/ master
Table of Contents

Advertisement

>
I
c"
00
01620
01621
01622
01623
01624
01625
01626
01627
01628
01629
01630
01631
01632
01633
01634
01635
01636
01637
01638
01639
01640
01641
01642
01643
01644
01~45
01646
01647
01648
01649
01650
01651
01652
01653
01654
01655
01656
01657
01658
01659
01660
01661
01662
01663
01664
MOvE FORWARD-LINK TO
~~KEY' TE~-KEY-6.
MOvE H£ADER-SAK TO
TF.~-KF.Y-2.
COl.l-SEC-!.
IF
P-KEy
=
TfM-KEY-?
GO TO COll-SEC-DONE.
READ P-S.LIST
INTO pRIM4RY-RECORDT
INVALID K€Y
PF.PFOR~ PROGR4~-8UG.
t
F
MASTER-SAKT
=
ZEPO
GO TO
CO~L-SEC·2.
MOVE 1 TO I.
MO"E TEM-KEY ... ' TO p-KEY.
PERFORM P-KEY-UPDATE.
MOvE
MASTER-SAKT TO PRIM-KEY.
MOVt UP-KEY
T~
MASTER-SAKT.
P~~FOHM
LlST-~~LL~CT.
CCl.l-SFC-2.
yF
MSCS.SAKT
=
ZERO 60 TO COlL-SEC-3.
MOvE 2 TO I.
MOVE TEM-KF.Y-I TO P-KtY.
PE~FORM
P-KEY-UPOATE.
MOVE MSOS-SAKf TO
PRIM-K~Y.
~OV~
UP-KEY
T~ MSCS-~AKT.
PFRFCRM
LIST-COLLECT.
cOL.l-SFC-3.
TF
RTS-SAKT
=
ZEHC GO TO COLl-SEC-4.
MOVE 3 TO I.
MOvE
T~M-KEY-J
TO
P-K~Y.
PFRFORM P-KEY-0POATE.
MOVE RTS-SAKT TO PRIM-KEY.
MOVE UP-KEY
T~
RTS-SAKT.
PFRFORM
L!ST-~OlLECT.
COL.l-S~C-4.
~OVE
TEM.KEY·6 TC
p-~fY.
WRITF. T-R€C-2
F~C~ P~IMAQY-RECCRDT
INVALID KtY
PERFOR~
PROGRAM-AUG.
MOVE FOR-LINKl TO
p-~EY,
TEM.KEY-6.
~c
10 COLL-SEC-l.
COl.L-SFC-DONF..
MOVE
TEM-~~Y-I
TO P-KtY.
P~RFORM
P-KEY-UPOATE.
MOVE UP-KEY TO EMPTY-HEAn-HEC.
MOVE SKi-CHoro
P~IM-~EY.
WRITE
HEAOE~-~~CCRn
FROM HEAOER-RECORO-STORAGE
INVALID
K~Y P~RFCRM
PROGRAM-BUG.
~CvE
PlH-SAK
lC
p-KEY.
COLl-SEC-DONE-l.
IF
P-KEy
=
~MPTY-HEAD-REC ~O
TO COLL-SEC-OCNE-2.

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