Enterprise COBOL - Conditional compilation variables containing the names of the current Division, Section, and Paragraph

Hi,

We would like to have conditional compilation variables containing the current Division, Section, and Paragraph names at compile time:

• IGY-DIVISION-NAME, (force name to uppercase, default is space if before ID DIVISION)

• IGY-SECTION-NAME, (force name to uppercase, default is space and reset to space at new division)

• IGY-PARAGRAPH-NAME, (force name to uppercase, default is space and reset to space at new section)

This is to group all the parts related to the same functionality into a single Copybook and then filter them using conditional compilation when including the single Copybook at the appropriate locations.

This would allow for a better view of the code associated with a unique feature by grouping it into a unique Copybook.

We can also see the Copybook as a kind of macro with parts that are activated depending on the context of use.

Another use case: having a single Copybook describing a structure in Working-Storage Section with VALUEs, and in Linkage Section without VALUE.

Sample copybook THECOPY:

       >>evaluate IGY-DIVISION-NAME
         >>when 'DATA'
           >>evaluate IGY-SECTION-NAME
             >>when 'WORKING-STORAGE'
       01               :PREF:-DATAITEM PIC X(10) VALUE 'HELLO !'.
             >>when 'LINKAGE'
       01               :PREF:-DATAITEM PIC X(10).
           >>end-evaluate
         >>when 'PROCEDURE'
           display :PREF:-DATAITEM
       >>end-evaluate

Sample program:

       IDENTIFICATION DIVISION.
       PROGRAM-ID. THEPROG.
       DATA DIVISION.
       WORKING-STORAGE SECTION.
           copy THECOPY replacing ==:PREF:== by ==MAIN==.
       PROCEDURE DIVISION.
       MAIN.
           copy THECOPY replacing ==:PREF:== by ==MAIN==.
           call "THESUB" using MAIN-DATAITEM
           .
       BYE.
           goback.
      *> nested subprogram
       IDENTIFICATION DIVISION.
       PROGRAM-ID. THESUB.
       DATA DIVISION.
       WORKING-STORAGE SECTION.
       LINKAGE SECTION.
           copy THECOPY replacing ==:PREF:== by ==SUB==.
       PROCEDURE DIVISION USING SUB-DATAITEM.
       SUB.
           copy THECOPY replacing ==:PREF:== by ==SUB==.
           .
       BYE.
           goback.
      *> end of subprogram
       END PROGRAM THESUB.
      *> end of main program
       END PROGRAM THEPROG.