Re: [Tiny-cobol-users] An interesting example

[Fred M. <fr...@mo...>]

Jim Morcombe wrote:
> 
> 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.
> 
> 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).

I'm glad the compiler returns an error in case of the missing line with
the 03 level. While I cannot find this described in the standard nice
teachers learned me in the past that a certain form of symmetry is
supposed with regard to the level numbers. in the above structure the
level-number 02 cannot be used while 04 is acceptable.

On the other hand, the level-number 03 for ROW-DISPLAY-SELECTIONS would
be quite usable and removes the need for the FILLER line.
-- 
Fred Mobach - fr...@mo... - pos...@mo...
Systemhouse Mobach bv - The Netherlands - since 1976
website : http://fred.mobach.nl
Q: servos ad pileum vocare ?
A: servos fenestrae ad pileum rubrem vocare !