       IDENTIFICATION DIVISION.
       PROGRAM-ID. GENT350.
       ENVIRONMENT DIVISION.
       INPUT-OUTPUT SECTION.
       FILE-CONTROL.
           SELECT LBL1OUT ASSIGN TO LBLOUT
               ORGANIZATION IS SEQUENTIAL.

       DATA DIVISION.
       FILE SECTION.
       FD  LBL1OUT
           RECORDING MODE IS V. 
       01  OUT-REC.
          05  WS-DATA  PIC X(350) VALUE ZEROES.
          05  FILLER   PIC X(3739) VALUE SPACES.

       WORKING-STORAGE SECTION.
       PROCEDURE DIVISION.
           OPEN OUTPUT LBL1OUT.
           MOVE ALL "0" TO WS-DATA.
           WRITE OUT-REC.
           CLOSE LBL1OUT.
           STOP RUN.
 