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
Need help?
Do you have a question about the 3300 and is the answer not in the manual?