PH12087: IMS CATALOG IMPORT/RESOURCE CHANGE FUNCTIONS OF ADMIN TOOL GENERATES INCORRECT DBD SOURCE WHEN COBOL COPYBOOK IS IMPORTED.

Obtain the fix for this APAR.

APAR status

• Closed as program error.

Error description

• -When OCCURS is specified to the last field in the COBOL
  copybook, Administration Tool can create incorrect FIELD
  statement in the DBD source.  As the result,  DBDGEN error
  occurs in IMS catalog import and IMS resource change.
  -When OPTIMIZE(FULL) is specified to COBOL compiler option,
  Administration Tool sets START=1 to multiple FIELD statements
  erroneously. This error cannot be detected during DBDGEN.
  However, the generated IMS DBD control blocks contain incorrect
  start position of fields.
  

Local fix

Problem summary

• ****************************************************************
  * USERS AFFECTED: Users of IBM IMS Administration Tool for     *
  *                 z/OS (FMID=HALC110)                          *
  ****************************************************************
  * PROBLEM DESCRIPTION: IMS catalog import and IMS resource     *
  *                      change functions of Administration      *
  *                      Tool generate incorrect DBD source      *
  *                      when either of the following            *
  *                      conditions is satisfied in COBOL        *
  *                      copybook import:                        *
  *                                                              *
  *                      - OCCURS is specified to the last       *
  *                      field in the COBOL copybook             *
  *                                                              *
  *                      - OPTIMIZE(FULL) is specified to        *
  *                      COBOL compiler option                   *
  ****************************************************************
  * RECOMMENDATION: Apply the maintenance for this APAR.         *
  ****************************************************************
  For the following reasons, IMS catalog import and IMS resource
  change functions of Administration Tool generate incorrect DBD
  source when COBOL copybook is imported:
  
  - When OCCURS is specified to the last field in the COBOL
  copybook, Administration Tool can create incorrect FIELD
  statement in the DBD source. As the result, DBDGEN error
  occurs in IMS catalog import and IMS resource change.
  
  - When OPTIMIZE(FULL) is specified to COBOL compiler option,
  Administration Tool sets START=1 to multiple FIELD statements
  erroneously. This error cannot be detected during DBDGEN.
  However, the generated IMS DBD control blocks contain
  incorrect start position of fields.
  

Problem conclusion

• Administration Tool is changed as follows:
  
  - Even if OCCURS is specified to the last field in the COBOL
  copybook, Administration Tool can generate correct DBD source.
  
  - Administration Tool specifies NOOPTIMIZE option internally
  when COBOL copybook is compiled.
  

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:

  UI63185

Modules/Macros

• ATY@PRSB
  

Fix information

• Fixed component name

  IMS ADMIN TOOL

• Fixed component ID

  5655CAT00

Applicable component levels

• R110 PSY UI63185

     UP19/05/24 P F905

Fix is available

• Select the PTF appropriate for your component level. You will be required to sign in. Distribution on physical media is not available in all countries.