Control Data Corporation 3300 Reference Manual page 241

01125
01126
01127
01128
01129
01130
01131
01132
01133
01134
01135
01136
01137
01138
0113"
01140
01141
01142
01143
01144
01145
01146
01147
01148
01149
01150
01151
01152
01153
01154
01155
01156
01157
01158
01159
01160
01161
01}62
01163
01164
01165
01166
01167
01168
01169
RPT-PTl.
MOVE ¢RTS* TO SYS-OP cOP.CTR) MOVE SYS-CT TO
NO-VER (OP-CTR) MOVE VER.CT TO PROD-V£R (Op-eTR)
GENERATE CPER-SYS-RPT.
GENERATE REL-PSRS.
MOVE 1 TO DESC-CTR.
GENERATE DESCkIP-RPT.
MOvE 2 TO DESC-CTR.
GENERATE DESCHIP-RPT.
MOVE
3
TO OESC-CTR.
GENERATE DESCRIP-RPT.
MOVE 4 TO OESC-CTR.
GENERATE DESCRIP-RPT.
MOVE 5 TO DESC-CTR.
GENERATE O£SCRIP-RPT.
tF
REPT-HEADING
=
¢PsR DELETE
REPORT¢ GENERATE
DEL-REASON
ELSE NEXT SENIENCE.
.RPT-PT~.
TERMINATE OELETE-REPCHT-l_
oELETE-LT SECTION.
DELETE-LIST.
READ PRIM-SEC-LIST INVALID KEY PERFORM PROGRAM-BUG.
MOVE H~ADER-RtCORD TO HEAOER-RECORDT.
MOvE PRIM-KEy TO TEM-KEY-l.
MovE 8
A
CKWARO-LINKT TO PRIM-KEY.
READ PKIM-SEC-LIST INVALIO KEY PERFORM PROGRAM-BUG.
MovE FORWARO-LINKT TO FOR~ARD-LINK.
~IQ
I
TE HEAOER-r<t~ CORD
I
NVAL
I [)
KEY
PERFORM
PRCGR
AM-BUG.
MOVE FORWARD-LINKT TO PRt~-KEY.
READ PRIM-SEC-LlST INVALID KEY PERFORM PROGRAM-SUA.
MOVE BACKWARO-LINKT TO dACKWARD-LINK.
WRyTE HEADEP-~ECORD INVALID KEY PERFORM PROG~AM-8UG.
MOVE S~ACES T0 rl~ADER-RECORD.
MOVE EMPTY-HEAU-~EC TO EMPTY.SAK.
MOvE TEM-KEY-] TO PRIM-KEY, EMPTY-HEAD-REC.
WPTTE E~PTY-Q~C~RO INVALID ~EY PERFORM PROGRAM-BUG.
LEVEL-PROC SECTION.
LEvEL-PROCESSOR.
MOVE PLH-SAK TO PRIM-KEY.
READ PHLM-SEC-LIST INVALI0 KEY PERFORM PROGRAM-BUG.
MovE
FC~WARD-LINK TO PRIM-KEyo
READ PRIM-SEe-LIST INVALID KEY PERFORM PROGRAM-BUG.
IF PROU0CT-NAME
=
PRODUCT-LEvEL GO TO OP-SYSTEM-CHECK.
OtSPLAY STARS. DIAGNCSTIC-L2, STARS, REC-L UPON CUT.
GO TO TAPE-INPUT.