24 lines
640 B
COBOL
24 lines
640 B
COBOL
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.
|
|
|