Trailing-Edge
-
PDP-10 Archives
-
decuslib20-03
-
decus/20-0081/dtape1.cbl
There is 1 other file named dtape1.cbl in the archive. Click here to see a list.
IDENTIFICATION DIVISION.
PROGRAM-ID. DTAPE1.
ENVIRONMENT DIVISION.
CONFIGURATION SECTION.
OBJECT-COMPUTER. PDP-10.
INPUT-OUTPUT SECTION.
FILE-CONTROL.
SELECT VOL ASSIGN TO DSK
RECORDING MODE IS SIXBIT.
DATA DIVISION.
FILE SECTION.
FD VOL
LABEL RECORDS ARE STANDARD
VALUE OF ID 'DTAPE VOL'
BLOCK CONTAINS 42 RECORDS
DATA RECORD VOL-REC.
01 VOL-REC PIC X(10).
WORKING-STORAGE SECTION.
77 I PIC 99999 COMP.
PROCEDURE DIVISION.
START.
OPEN OUTPUT VOL.
MOVE 0 TO I.
LOOP.
ADD 1 TO I.
IF I > 10000 CLOSE VOL STOP RUN.
MOVE SPACES TO VOL-REC.
WRITE VOL-REC.
GO TO LOOP.