Control Data Corporation 3300 Reference Manual page 233

Computer systems usasi cobol/ master
Table of Contents

Advertisement

00764
00765
00766
00761
00768
00769
00710
00771
0017?
00773
00714
00775
00776
00777
00778
00779
00780
00781
00782
00783
00784
00785
00786
00787
00788
00789
00790
00791
00792
00793
00794
00795
00796
00797
00798
00799
00800
00801
0080~
00803
00804
00805
00806
00R07
00808
00809
MOVE PSR-AK-FORW TO SAVE-SAK, PSR-AK-FORWT.
MOvE READY-PSH TO PSR-AK-FCRW.
WRITE P5R-FILE-REC INVALID KEY PERFORM PROGRAM-BUG
o
MOVE SAVE-SAK TO PSR.KEY.
READ PSH-fILE INVALID KEY PERFORM PROGRAM-BUG.
MOvE
READY-PS~
TO PSR-AK-RACK.
WRITE
~SR-FIL~-HEC
INVALIIJ KEY PERFORM PROGRAM-BUGo
tQ-PSR-ENO.
EXIT.
CHANGE-PROC
~ECTIUN.
CHANGE-PROCESSOR.
MOvE PSR-NUM
10 PSR.
MOVE 2 TO
GO-~EY.
COMPUTE B-C
= ((
(PSR - BTAS)
~
12)
+
504) / 504.
IF CODE-NUM NOT EQUAL TO ZERO DISPLAY STARS, DIAGNOSTIC-S.
STARS, REC-A UPON OUT GO TO CARD-SEQ-ERROR.
IF 8-C
IS
NEGATIVE DISPLAY STARS, DIAGNOSTIC-PI, STARS,
REC-A UPON OUT GO TO CARD-SEQ-ERROR.
MOvE BLK
TO NUM-KEY-l.
MOVE CHAR TO NUM-KEY-2.
READ NUMBER-FILE INVALID KEY MOVE ZERO TO NUMBER-REC.
IF NUMbER-REC
=
ZERO DISPLAY STARS, DIAGNOSTIC-P4, STARS,
REC-A UPON OUT GO TO CARD-SEQ-ERROR
MOvE NUMBER-REC
TC
PSR-KFY
o
MOVE PSR-EQ TO PSR-EQT.
RfAD PSR-FILE INTO PSH-FIlE-RECT INVALID KEY PERFORM
PROGRAM-BUG.
IF LOGGED-CUT
=
SPACES NFXT SENTENCE ELSE MoVE LOGGED-OUT
TO OUT-DTuT.
IF OP-SYSTEM-l
=
SPACES NEXT SENTENCE ELSE MOVE OP-SYSTEM-l
TO SYS-AT.
IF VERS-l
=
S~ACES
NEXT SENTENCE ELSE MOVE VERS-l TO VER-AT.
IF
OP-SYSTEM-~
=
SPACES
~fXr
SENTENCE ELSE MOVE OP-SYSTEM-2
TO SYS-HT.
IF VEHS-2
=
SPACES NEXT SENTENCE ELSE MOVE VERS-2 TO VER-BT.
IF CP-SYSTEM-J
=
SPACES NEXT SENTENCE ELSE MOVE OP-SYSTEM-3
TO SYS-CT.
IF VER-3
=
SPMCES NEXT
SE~TENCE
ELSE MOVE VfR-3 TO VER-CT.
IF TEST
=
SPAC~S
NEXT SENTENCE ELSE MOVE TEST TO TESTED-T.
IF 5UM-NUM
=
SPACES NEXT SENTENCE ELSE MOVE SUM-NUM TO
SUM-NCT.
~OVE
PSR-KEY TO TEM-KEY-3.
CHANr,E-CHECKER.
pEPFORM READ.ROUTINE.
IF PSR-NUM
Nor
EQUAL TO PSR-NOT GO TO CHANGE-END.
IF CODE-NUM
=
1 2 3 4 OR
~
MOVE REC-A-MOVEl TO OEscr
(CCDE-NUM) GO TO CHANGE-CHECKER.
DISPLAY
STARS~
OI~GNOSTIC-S,
STARS, REC-C UPON OUT.

Advertisement

Table of Contents
loading
Need help?

Need help?

Do you have a question about the 3300 and is the answer not in the manual?

Subscribe to Our Youtube Channel

This manual is also suitable for:

3500

Table of Contents