home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / cobol / compiler / cobol650 / cobsrc / inst.cob < prev    next >
Encoding:
Text File  |  1990-05-17  |  896 b   |  26 lines
  1.        IDENTIFICATION DIVISION.
  2.        PROGRAM-ID. INST.
  3.        ENVIRONMENT DIVISION.
  4.        CONFIGURATION SECTION.
  5.        INPUT-OUTPUT SECTION.
  6.        FILE-CONTROL.
  7.            SELECT CONTROL-FILE ASSIGN TO DISK
  8.            ORGANIZATION IS SEQUENTIAL.
  9.        DATA DIVISION.
  10.        FILE SECTION.
  11.        FD CONTROL-FILE
  12.           LABEL RECORDS STANDARD
  13.           VALUE OF FILE-ID "CONTROL.DAT".
  14.        01 RECORD-COUNTER                                 PIC 9(9). 
  15.        WORKING-STORAGE SECTION.
  16.        01 FILE-EOF-FLAG                          PIC 9(9).
  17.  
  18.        PROCEDURE DIVISION.
  19.        C000-MAIN-LINE SECTION.
  20.        C020-MAIN-LINE-LOGIC.
  21.            OPEN OUTPUT CONTROL-FILE.
  22.            MOVE 1 TO RECORD-COUNTER.
  23.            WRITE RECORD-COUNTER.
  24.            CLOSE CONTROL-FILE.
  25.            STOP RUN.
  26.