Google
 

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.