Control Data Corporation 3300 Reference Manual page 240

01080
01081
01082
01083
010P4
01oP5
01086
01087
010R.A
010P9
01090
01091
01092
01093
01094
01095
01096
01097
OloqR
01094
01100
01101
0]}02
01103
011C4
01105
01106
01107
OlIVA
01l0Q
0]1]0
01111
01112
01113
01}14
01115
01116
01117
01118
01119
01120
01121
01122
01123
01124
ADn 1 TO DELETE-SUB.
IF OEL£rE-SUR IS GPEATER THAN 5 GO TO TAPE-INPUT ELSE
GO TO DELt:. I E-PROC.
GET-AK.
M~Vt DELETE-PSR-N~ (OELET~-SUB) TO PSP.
C~MPUT~ B-C
=
«(PSR -
AlAS)
*
12)
+
504)
I
504.
M~vE 8LK TO
N0M-8LK.
M~vE
CHAR
TO
;\luM-CHAR.
M~vE NUMAER-R~C
TO NUM-KFV.
RE60
NUMBER-FilE INVALID KEY PERFORM pROGRAM-BUG.
MOVE NUMAER-RLC TO
PSH-K~Vt
TEM-KEY-2.
MO\lE Zf:.ROES T:J NlJMRER-REC.
WPTTF
NUMRER-k~C
INVALID KEY PERFORM pROGRAM-BUG.
GET-pSR.
REbO P~R-FILE INTO PSR-FILE-RECT INVALID
KEy
PERFORM
PROGRAf-li-8v\:l •
MOvE SPACES TO PSR-FILE-~EC.
MOvE EMPTY-PS~-FILE TO NEXT-EMPTY
MOvE TE~-KEY-c. TO EMPTV-pSR-FILE
WRrTF
PSR-FIL~-HEAbER
INVALIO KEY PERFORM
PR~GAAM-8UG.
OELET~-RPT SECTI~N.
nELETE-REPORT.
INITIATE DEL~l~-REPORT-l.
GENEPATE REPOHTtO-nELETE.
T~
CP-SYS-IT
=
S~ACES
NEXT SENTENCE ELSE MOVE 1 TO OP-CTR
MOVE ~MASfrR~ TO SVS-OP cOP-CTR) MOVE VER-1T T~
NC-VFR
(O~-CTR)
GENERATE OP-SYS-RPT.
IF
OP-SYS-2T
=
SPACES NEXT SENTENCE ELSE MOVE
2
TO OP-CTR
MOVE ~MSC~~
TO
Svs-op (Op-CTR) MOVE VER-2T TO
NO-VER (O~-CTR) GENERATE OP-SYS-RPT.
IF OP.S1S-3T
=
SPACES ~FxT SENTENCE ELSE MOVE 3 TO OP-CTR
MOVE ~RTs~ TO SYS-CP (OP.CTR) MOVE VER-3T TO
NO-VFRCOP-CfQ) GENERATE oP-SVS-RPT.
GENERATE
RPT-8~G.
yF ouT-OTDT = SP4CES GENF~ATE NOT-ANS GO TO RPT-PTI
~LSE GENF~Ar~ ANS~ERFO.
JF SVS-AT
=
Zt~OE5 N~XT ~~NrENCE ELSE MOVE 1 TO OP-CTR
MOVE ~MASTE~_ TO SVS-OP (OP-CTR) MOVE SYS-AT TO
f\JC-VER (O,.1-CTR) fI.10VE VER-AT TO PRcD-VER (OP-CTR)
GENERATE ~PEQ-SYS-~PT.
IF SYS-9T
=
LE~CES
NtXT
S~NTENCf ELSE M~VE
2
TO CP-CTR
MOVE ~MSCS~
fa
Svs-cP (OP-CTR) ~OVE SVS-8T TO
NO-VER (OP-CTR) MOVE VER-BT TO PR~D-VER (OP-CTR)
GENERATt ~PEq-sVS-~PT.
IF SVS-CT
=
Z~~OfS N~XT ~ENTENCE ELSE MOVE 3 TO OP-CTR