write-file.cob

       IDENTIFICATION DIVISION.
       PROGRAM-ID. WRITE-FILE.
       ENVIRONMENT DIVISION.
       INPUT-OUTPUT SECTION.
       FILE-CONTROL.
      * EXPORT DD_OUTFILE=output-file in sh before running write_file.exe
           SELECT OUTFILE ASSIGN TO "DD_OUTFILE"
           ORGANIZATION IS SEQUENTIAL.
       DATA DIVISION.
       FILE SECTION.
       FD  OUTFILE.
       01  RECORDOUT.
           02  FILLER                             PIC X(64).
       WORKING-STORAGE SECTION.
       01  OUTPUT-RECORD.
           03  OUTPUT-RECORD-01                   PIC X(32).
           03  OUTPUT-RECORD-02                   PIC X(32).
       PROCEDURE DIVISION.
       0000-MAIN.
           OPEN OUTPUT OUTFILE.
       0010-WRITE-FILE.
           MOVE "12345678901234567890123456789012" TO OUTPUT-RECORD-01.
           MOVE "34567890123456789012345678901234" TO OUTPUT-RECORD-02.
           MOVE OUTPUT-RECORD TO RECORDOUT.
           WRITE RECORDOUT.
       0020-WRITE-FILE.
           MOVE "23456789012345678901234567890123" TO OUTPUT-RECORD-01.
           MOVE "45678901234567890123456789012345" TO OUTPUT-RECORD-02.
           MOVE OUTPUT-RECORD TO RECORDOUT.
           WRITE RECORDOUT.
       0030-WRITE-FILE.
           MOVE "34567890123456789012345678901234" TO OUTPUT-RECORD-01.
           MOVE "56789012345678901234567890123456" TO OUTPUT-RECORD-02.
           MOVE OUTPUT-RECORD TO RECORDOUT.
           WRITE RECORDOUT.
       0040-WRITE-FIOLE.
           CLOSE OUTFILE.
       9999-EXIT.
           STOP RUN.