Control Data Corporation 3300 Reference Manual page 244

:>
~
o
01260
01261
01262
01263
01264
01265
01266
011'.67
01?68
01269
01270
01271
01272
01273
01274
01275
01276
01277
01278
01279
012130
01281
01282
01283
012Q4
01285
01286
012A7
01288
01289
01290
01291
01292
01293
01294
01295
01291)
01297
01298
01299
01300
01301
,01302
01303
01304
LIST ..
P5R-NUM.
PH T I
A'I
ELI S T
-PS~-NUM"'REPC~T
•
MCvE PSR-NU~~~Hr TO LIST-AREA (DELETE-SUB).
IF OELETE-SU~ ; 6 GENERAT~ LISTING-REPORT MOVE 1 TO
DELt::TE-SU~.
Aon
1
10 OELFj~-SUR.
LlST.E:xIT.
F:XTT.
ALL-PR~n S~CTIC~.
ALL-PR~O-"'ARA.
J
F ~Cf.<\4/AR0-L I
;',K
= T EM-t<EY-l GO
TO ALL.PROD-EX
IT.
RFAD
~~IM-SEC-L1ST
INVALTO
KEY PERFORM PROGRAM-BUG.
vOvE FOHwAkO-Ll~~ TO TE~-KEV-3, PRIM-KEV.
IF
~-SAKT (O~-NU~~ER)
=
0 GO TO
ALL-PROD-PARA.
MovE
P~IMARV-"tCORO TO ~QI~ARV-RECCRDT.
~ovE 1 TO D~L~T~-Su8.
~OvE
R-SAKT
(~S-N0~8rH)
TO QRIM-KEY, TEM-KEY-4.
PF.QFO~jvl FCLL·,- [5
T •
MOvE rEM.KEY.;
ro
PRYM-KFY, FO~WARO-LINK.
Gn TO ALL -pl-::cn,l-~.c.\RA.
ALL-PR~D-EXIT.
EXIT.
NONE. THER£ SECT 1:->
I .
NEIN_TI-IE~t:.
TF OS-NUMHE~
=
1 DrSPLay ~ MASTER ~ PRODUCT-NAME
~ NONE THERE_ UPO~ aUl.
IF OS-NUM8EP
=
2 O!SPL~Y ~ M~OS ~
PRODUCT-NAME
~
NONE THERE _
up~r,1 Gu T •
TF
OS-NUM~ER
= 3 r)ISpLQY
~
RTS
~
PRODUCT-NAME
~
NONE THERE _
UP~\I
BuT.
AC
TO
"'RCU-CI-I~C~1.
GET-FMPTY-L1ST
SECTI~N.
GET-LTST.
MOvE PRIM-KEY 10
TEM.~~V-4.
MCVE
EMjoJTY-HE· ...
I)·~
..
,C TO ~EL40'(-LIST" PRIM-KEY.
1-10\1£
HEAOER--(t~C8RI)
TO TF.;..t-HCLD-l.
READ
~HIM-SFL-LT5T tNVALID KEf
PERFORM
PROGRAM-BUG.
t
F FORv'JARD-L t ,,!K
=
ZEPC
PI>:HFCHf\1
EXPAND-L I ST-F ILE.
MOVE
FC~WARO-I_l
i\ll'(
TO
E~?T
V-HEAO-kEC.
MOVE
TEM-KEY-4
TO
PHIM-~EV.
Mev!=.: TEM-HOLI'-l TO
I-IEIlI)E~-"F.CCRO.
~ET-FMQTY-~SR SECTION.
r,ET-PSQ-E.
MOvE
EMPTY-PSk-FILf TO
REAOY-PSH, PSR-KEV.
READ PS~.FILE INVALID K~Y PERFOH~ PROGRAM-BUG.