Control Data Corporation 3300 Reference Manual page 243

)-
I
~
(0
01215
01216
01217
01218
01219
01220
01221
01222
01223
01224
01225
01226
01227
01228
01229
01230
01231
01232
01233
01234
01235
01236
01237
01238
01239
01240
01241
01242
01243
01244
01245
01246
01247
01248
01249
01250
01251
01252
01253
01254
01255
01256
01257
01258
01259
READ PR IM-SEC-L I ST 11\1" AL I
I)
i'(EY PERFORM PROGRAM-BUG.
MOvE FORWARD-LINK TO TEM-KEY-3.
IF PROD-FIELD
=
PRODUCT-NAME GO TO PROD-CHECK2.
IF FORWARO-LI~K
=
TEM-KEy-l GO TO NONE-THERE.
GO TO
PRCU-CH~tKl.
PROD·CHECK2.
MOvE PRIMARY.MfCORO TO PRIMARY-RECOROT.
I F
R-SAKT
(0<;-rdU"-1dFR) : (') GC:
TO NONE-THERE.
MOVE 1 rO
OEL~
1E--SUR.
MOVE H-SAKT (~S-NUM8ER) TO PRIM-KEY, TEM-KEY-4.
PEPFORt.J1 FOLL-L l Sf.
pRCI).CI-lECK3.
P-XTT.
FOll-LIST SECTION~
FCL-Llc:;T.
RF~D PRIM-SEe-LIST
INVALTI)
KEY PERFORM PROGPJM-BUG.
~cvE SECONDARY-RFCQRn TO SECONDARY-RECORoT.
MovE PSH.SAKT TO
PSR-~EY.
PEAD PSR-FILF I~VALln KEy PERFORM PROGRAM-BUG.
MOvE PSH-FILE-REC TO PSR-FILE-~ECT.
IF WHICH-FIElu
=
~ALLt
NEXT SENTENCE ELSE IF OUT-DTDT IS
NCT EQUAL TO SPACES AND WHICH-FIELU
=
-UNANSWERED_
MoVE FCRW~HO-LKT
TO
p~I~-KEY
IF FORWARD-LKT
=
TEM-KEY-4
GO TO
PER~-ExIT
ELSE GO TO FOL-LIST ELSE IF
CUT-OlDT
IS
fQUAL TO SPACES AND WHICH-FIELD
=
~ANSWERED.
MovE FORW~RD-LKT TO PRI~-KEY
If
FCHWARO-LKT
=
TEM-KEY-4
AC To PEq~-£XIT ELSE GO TO FoL-LIST.
SURTRACT AS-Dfr FROM TCOAYS·DATE GIVING DIFF-OATE.
IF AGE-FIELD
=
_AlL~
NEXT SENTENCE ELSE IF TOOAYS-OATE
IS LESS T~AN 30 MOVE FORwA~O-LKT TO PRIM-KEY
IF FORWAPu-LKT
=
TE~-KEY-4
GC TO pERF-EXIT
ELSE GO TC FOL-LtST.
MOvE
*
PSR ~~PCRT
¢
TO REPT-HEAOING.
IF QlJANTITY-FIELD
=
~UETAIL_ PERFORM DELETE-RPT GO TO ENCK.
IF QUANTITY-FiELD
=
_B~IFF~
pERFORM DELETE-REPORT GO TO ENCK.
IF QUANTITY-F{ELO
=
_LISTt PERFORM LIsT-RPT.
ENCK.
MnvE
FORWARD-lKT TO pRIM-KEY.
IF FORwARO-LKf
=
TEM-KEY-4 NEXT SENTENCE
ELS~
GO TO
FOL-LIST.
IF QUANTITY-FIflD
=
_LIST_ AND DELETE-SUB Is GREATER THAN 1
GENERATE LISTING-REPORT
TERMINATE LIST-PSR-NUM-REPORT.
PERF-ExIT.
EXIT.
LIST-RPT S~CTION.