01575
01576
01;77
01578
01579
01580
01581
01582
015R3
01584
01585
01586
01587
01588
01589
01590
01591
01592
01593
01594
01595
01596
01597
01598
01599
01600
01601
01602
01603
01604
01605
01606
01607
01608
01609
01610
01611
01612
01613
01614
01615
01616
01617
01618
01619
ENTER COMPASS. ALLOCATE, P-S-LIST. U-BLK,
N-FILE, ALK.
OPEN 1-0
P-S-LIST.
CP~N
OUTPUT N-FILE.
COLL-P~IMARY.
MOVE
PLH-SAK TO pqIM-KEY.
PERFORM P-KEY-UPOATE.
MOVE UP-KEY TO PLH-SAK.
WRITE T-RtC-2
FROM
HEADER.RECORD-STORAGE
INVAL1U KEY PERFORM PROGRAM-BUG.
R~AD
PHIM-SEC-LIST INVALYO KEY PERFORM PROGRAM-BUG,
IF FORWARU-LINK
=
AACK~ARO-LINK
AND HEADER-SAK
GO
TO COLl,-I\JUivl-EN().
MOVE FORWARD-LINK TO
~RIM-KEY.
MOVE BACKWARD-LINK TO TEM-KEY-l.
MOVE UP-KEY TO P-KEV. HEADER-SAK. rEM.KEY-2
~ERFORM
P-KEY-UPOATE.
MOVE UP-KEY TO FORWARU-LINK.
tAJRt TE T-REC-2
FROM P;HMAKY ..
Rr·CORD
INVALIO KEY
PEPFCR~
PROGRA~-HUG.
COLl.PRIM-l.
IF
PRIM-KEY
=
TEM-KFY-1
~O
TO
CCLl-PRI~-2.
pEAO PRIM-SEC-LIST INVQLIO KEY PERFORM
PROGRAM-BUG,
MOVE FOHWARO-LINKTO PP.II'v1-KEY.
MOVE P-KEY TO BACKWARD-LINK.
MOVE
TEM-KEY-~
TO HEAUEH-5AK.
MOvE UP-KEY TO P-KEV.
PERFORM P-KEY-UPOATE.
MOVE UP-KEY TO FORWAPD-LTNK.
WRITE T-REC-2
FqOM PRIMARY-RECORD
INVALID KEY PERFORM PROGRAM-8UG.
GO TO cell-PRIM-l.
CCLL.PRIM-2.
READ PRIM-SEC-LIST INVALID KEY PERFORM
PRCGRAM.aUG.
MOVE P-KEY TO HACKWARO-LINK.
MOVE
TEM-KEY-~
TO FORWARn-LINK, HEADER-SAK.
MOVE UP-KEY TO
p-KEY.rEM-KEY~7.
WRITE T-REC-2
FROM
P~IMARY-RECORD
INVALID
K~Y PERFO~M
PROGRAM-BUG.
MOVE TEM-KEY-2 TO P-KEv.
READ
P-S-LtST
I~To
pRIMARY-RECORD
INVALID
~€Y
PERFORM
PRCGRA~-BUG.
MOVE TEM-KEY·' TO 8ACKwAPO-LyNK.
WRITE T-REC-2
FROM
P~IMARY-RECCRD
INVALID KEY
g~RFC~M
PROGRAM-BUG.
Need help?
Do you have a question about the 3300 and is the answer not in the manual?