***** sample ****
       IDENTIFICATION DIVISION.
       PROGRAM-ID. SIMPLE-GENERATE-ZONE-01.
      *
       ENVIRONMENT DIVISION.
         INPUT-OUTPUT SECTION.
            FILE-CONTROL.
               SELECT BIN-FILE ASSIGN TO "sample.bin".

       DATA DIVISION.
          FILE SECTION.
             FD BIN-FILE.
                01 BIN-REC.
                   03 BIN-REC-P  PIC S9(4).
                   03 BIN-REC00  PIC S9(4).
                   03 BIN-REC01  PIC S9(4).
                   03 BIN-REC02  PIC S9(4).
                   03 BIN-REC03  PIC S9(4).
                   03 BIN-REC04  PIC S9(4).
                   03 BIN-REC05  PIC S9(4).
                   03 BIN-REC06  PIC S9(4).
                   03 BIN-REC07  PIC S9(4).
                   03 BIN-REC08  PIC S9(4).
                   03 BIN-REC09  PIC S9(4).

          WORKING-STORAGE SECTION.
             01 VAL0P     PIC S9(4) VALUE  1234.
             01 VAL00     PIC S9(4) VALUE -1230.
             01 VAL01     PIC S9(4) VALUE -1231.
             01 VAL02     PIC S9(4) VALUE -1232.
             01 VAL03     PIC S9(4) VALUE -1233.
             01 VAL04     PIC S9(4) VALUE -1234.
             01 VAL05     PIC S9(4) VALUE -1235.
             01 VAL06     PIC S9(4) VALUE -1236.
             01 VAL07     PIC S9(4) VALUE -1237.
             01 VAL08     PIC S9(4) VALUE -1238.
             01 VAL09     PIC S9(4) VALUE -1239.

       PROCEDURE DIVISION.
          MAIN SECTION.

             MOVE VAL0P TO BIN-REC-P.
             MOVE VAL00 TO BIN-REC00.
             MOVE VAL01 TO BIN-REC01.
             MOVE VAL02 TO BIN-REC02.
             MOVE VAL03 TO BIN-REC03.
             MOVE VAL04 TO BIN-REC04.
             MOVE VAL05 TO BIN-REC05.
             MOVE VAL06 TO BIN-REC06.
             MOVE VAL07 TO BIN-REC07.
             MOVE VAL08 TO BIN-REC08.
             MOVE VAL09 TO BIN-REC09.

             OPEN OUTPUT BIN-FILE.
             WRITE BIN-REC.
             CLOSE BIN-FILE.

             STOP RUN.