[Tiny-cobol-users] An interesting example

[Jim M. <ro...@vi...>]

Here is a "cut down" listing of a program. 

The Working Storage variable, "DISPLAY-SELECTIONS" is defined a little 
stranglely, but I think it should be legal. 

If I add the "03  FILLER." that the programmer forgot, then the program 
compiles without an error.  Without this "03  FILLER", the compiler 
reports an error message when the variable S01-SELECT-LINE() is used.

Jim



000100 IDENTIFICATION DIVISION.
000300 PROGRAM-ID.              rgmssch.
001200 ENVIRONMENT DIVISION.
001700
001900 DATA DIVISION.
002100 FILE SECTION.
002300
002500 WORKING-STORAGE SECTION.
003400 01  DISPLAY-SELECTIONS.
      *    When the following line is commented out, the compiler
      *    returns an error.
      *    03  FILLER.
003600         05  ROW-DISPLAY-SELECTIONS            PIC 99
003700             VALUE ZERO.
           03  SC-S01-SELECT-LINE               OCCURS 12 TIMES.
               05  S01-SELECT-LINE               PIC X(17).

019500 PROCEDURE DIVISION.
020200 MAINLINE.
           MOVE SPACES TO S01-SELECT-LINE(1).