PH53527: DCLGEN GENERATE LONGER THAN 72 COLUMN FOR INDICATOR VARIABLE ARRAY FOR THE HOST VARIABLE STRUCTURE.

APAR status

• Closed as program error.

Error description

• WHEN TABLE HAS MORE THAN 99 COLUMNS, DCLGEN GENERATE A LINE
  LONGER THAN 72 FOR INDICATOR VARIABLE ARRAY FOR THE HOST
  VARIABLE STRUCTURE.
  IT CAUSE COBOL COMPILER ERROR AND CUSTOMER NEED TO CORRECT THE
  LINE LENGTH MANUALLY.
  DCLGEN INPUT PARAMETERS
   SPECIFY INDVAR(YES) or SET YES FOR INDICATOR VARS ON SPUFI
   RMARGIN(STD)  OR SET 72 FOR RIGHT MARGIN ON SPUFI
  
  INCORRECT OUTPUT DCLGEN
  DCLGEN SET "."(Period) AT COLUMN 73.
  .
  01 ITBPBG06.
     10 INDSTRUC          PIC S9(4) USAGE COMP-5 OCCURS 100 TIMES.
  1----+----2----+----3----+----4----+----5----+----6----+----7---
  

Local fix

• MANUALLY ADJUST THE LINE LENGTH WITHIN 72 COLUMNS.
  

Problem summary

• ****************************************************************
  * USERS AFFECTED:                                              *
  * All Db2 12 for z/OS and Db2 13 for z/OS                      *
  * users of DCLGEN for COBOL programs.                          *
  ****************************************************************
  * PROBLEM DESCRIPTION:                                         *
  * When DCLGEN generates COBOL                                  *
  * declarations for a table or view with                        *
  * more than 99 columns, the data                               *
  * declaration for the indicator variable                       *
  * array (INDVAR(YES)) extends past                             *
  * column 72. In this case, when the                            *
  * data declaration for the indicator                           *
  * variable array is included in a COBOL                        *
  * application, the COBOL compiler                              *
  * terminates abnormally with RC=8 and                          *
  * the error message IGYSC1082-E.                               *
  ****************************************************************
  * RECOMMENDATION:                                              *
  * Apply corrective PTF when available                          *
  ****************************************************************
  Specification of the DCLGEN INDVAR(YES) keyword option causes
  the generation of the following COBOL indicator variable array,
  where the OCCURS value n is the number of columns of a Db2
  table.
  10 INDSTRUC           PIC S9(4) USAGE COMP-5 OCCURS n TIMES.
  When the OCCURS value n is less than 100, the data declaration
  for the indicator variable array does not exceed column 72.
  However, when the OCCURS value n is greater than 99, the text
  following n is shifted to the right, causing the declaration
  to exceed 72 columns.
  

Problem conclusion

• DCLGEN INDVAR processing has been changed to support a
  four digit OCCURS (nnnn) value when generating the
  COBOL indicator variable array that will
  not exceed column 72.
  
  10 INDSTRUC         PIC S9(4) USAGE COMP-5 OCCURS nnnn TIMES.
  

Temporary fix

Comments

APAR Information

• APAR is sysrouted FROM one or more of the following:

• APAR is sysrouted TO one or more of the following:

  UI91619 UI91620

Modules/Macros

• DSNECP61
  

Fix information

• Fixed component name

  DB2 OS/390 & Z/

• Fixed component ID

  5740XYR00

Applicable component levels

• RC10 PSY UI91619

     UP23/05/09 P F305

• RD10 PSY UI91620

     UP23/05/09 P F305