Trailing-Edge
-
PDP-10 Archives
-
DEC-20-OT20A-D-MC9
-
2-exercise-libary/rantsc.cbl
There are no other files named rantsc.cbl in the archive.
IDENTIFICATION DIVISION.
PROGRAM-ID. RANTST.
ENVIRONMENT DIVISION.
CONFIGURATION SECTION.
INPUT-OUTPUT SECTION.
FILE-CONTROL.
SELECT RAN1 ASSIGN TO DSK
FILE LIMITS 0 THRU 1500
ACCESS RANDOM
ACTUAL KEY KEY1
RECORDING MODE SIXBIT.
* FILE STATUS FS,EN,AC,VID,BN,RN,FN,FT.
SELECT FILE1 ASSIGN TO DSK
RECORDING MODE SIXBIT.
* FILE STATUS FS,EN,AC,VID,BN,RN,FN,FT.
SELECT FILE2 ASSIGN TO DSK
RECORDING MODE SIXBIT.
* FILE STATUS FS,EN,AC,VID,BN,RN,FN,FT.
DATA DIVISION.
FILE SECTION.
FD RAN1
BLOCK 4 RECORD
LABEL STANDARD
VALUE OF ID "RAN1 DAT".
01 REC1 PIC X(6)
USAGE IS DISPLAY-6.
01 REC3 PIC X(13).
01 REC5 PIC X(29).
FD FILE1
BLOCK 4 RECORD
LABEL STANDARD
VALUE OF ID "RAN1 DAT".
01 RECSS PIC X(29)
USAGE DISPLAY-6.
FD FILE2
BLOCK 4 RECORD
LABEL STANDARD
VALUE OF ID "RAN1 DAT".
01 RECS PIC X(29)
USAGE DISPLAY-6.
WORKING-STORAGE SECTION.
77 NEWCMD PIC X(2).
77 CMD PIC X(2).
77 RCNT PIC 9(10).
77 KEY1 PIC 9(4) COMP.
77 FS PIC 9(2) DISPLAY-7.
77 EN PIC 9(10) DISPLAY-6.
77 AC INDEX.
77 VID PIC X(9).
77 BN INDEX.
77 RN INDEX.
77 FN PIC X(30).
77 FT INDEX.
PROCEDURE DIVISION.
DE