git.oblomov.eu Git - ohcount/blob - test/src_dir/cobol1.cbl

   1 000010 IDENTIFICATION DIVISION.
   2 000020 PROGRAM-ID. LINE-NO-PROG.
   3 000030 AUTHOR.     TIM R P BROWN.
   4 000040****************************************************
   5 000050* Program to add line numbers to typed code        *
   6 000060* Allows for comment asterisk, solidus, or hyphen ,*
   7 000070* moving it into position 7.                       *
   8 000080*                                                  *
   9 000090****************************************************
  10 000100
  11 000110 ENVIRONMENT DIVISION.
  12 000120 INPUT-OUTPUT SECTION.
  13 000130 FILE-CONTROL.
  14 000140     SELECT IN-FILE ASSIGN TO 'INPUT.TXT'
  15 000150        ORGANIZATION IS LINE SEQUENTIAL.
  16 000160     SELECT OUT-FILE ASSIGN TO 'OUTPUT.COB'
  17 000170        ORGANIZATION IS LINE SEQUENTIAL.
  18 000180
  19 000185*****************************************************
  20 000187
  21 000190 DATA DIVISION.
  22 000200 FILE SECTION.
  23 000210
  24 000220 FD IN-FILE.