PH69113: IGYDS1563-E "LOCAL-STORAGE SECTION" WAS FOUND IN A PROTOTYPE "DATA DIVISION".

Obtain the fix for this APAR.

APAR status

• Closed as program error.

Error description

• The error message IGYDS1563-E "LOCAL-STORAGE SECTION" was found
  in a prototype "DATA DIVISION" when compiling a User Defined
  Function Prototype, with SQL option, even in the absence of SQL
  statements.
  Also, there's no Local-Storage Section defined in the source
  code.
  
  When compiling with the NOSQL compiler option, this issue
  doesn't happen.
  
  Problem found in the COBOL compiler V6.4 (April 2024 PTFs from
  customer's joblog, and it happens with the latest April 2025
  PTFs).
  

Local fix

• N/A
  

Problem summary

• ****************************************************************
  * USERS AFFECTED: Users of Enterprise COBOL 6.5 compiling      *
  *                 COBOL programs or user-defined functions,    *
  *                 and function prototypes in a batch           *
  *                 compilation (compilation group), with the    *
  *                 SQL or SQLIMS options in effect.             *
  ****************************************************************
  * PROBLEM DESCRIPTION: When the SQL or SQLIMS options are in   *
  *                      effect, function prototypes would       *
  *                      result in the following compile time    *
  *                      error (when there should be none):      *
  *                                                              *
  *                      IGYDS1563-E "LOCAL-STORAGE SECTION" was *
  *                      found in a prototype "DATA DIVISION".   *
  *                      "LOCAL-STORAGE SECTION" and all         *
  *                      contained paragraphs were ignored.      *
  ****************************************************************
  * RECOMMENDATION: Apply the provided PTF.                      *
  ****************************************************************
  SQL and SQLIMS co-processing interfered with the compilation of
  function prototypes, resulting in the aforementioned compile
  time error. This prevented users from using the DB2 or IMS
  co-processors when compiling programs or user-defined functions
  with function prototypes.
  

Problem conclusion

• The compiler was fixed so that the SQL and SQLIMS options, when
  in effect, do not cause compile time errors for function
  prototypes.
  

Temporary fix

Comments

APAR Information

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

  PH68370

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

Modules/Macros

• IGY8RWTU IGYCASMB IGYCCBE  IGYCCCRT IGYCCICS IGYCCSRV IGYCDGEN
  IGYCDIAG IGYCDMAP IGYCEN$0 IGYCEN$1 IGYCEN$2 IGYCEN$3 IGYCEN$4
  IGYCEN$5 IGYCEN$8 IGYCEN$D IGYCEN$R IGYCFGEN IGYCFREE IGYCINIT
  IGYCJA$0 IGYCJA$1 IGYCJA$2 IGYCJA$3 IGYCJA$4 IGYCJA$5 IGYCJA$8
  IGYCJA$D IGYCJA$R IGYCJBLD IGYCJGEN IGYCLIBR IGYCLSTR IGYCLVL0
  IGYCLVL1 IGYCLVL2 IGYCLVL3 IGYCLVL8 IGYCMALL IGYCOPI  IGYCOPT
  IGYCOSCN IGYCPGEN IGYCRCTL IGYCRDPR IGYCRDSC IGYCREAL IGYCRWT
  IGYCSCAN IGYCSIMD IGYCUE$0 IGYCUE$1 IGYCUE$2 IGYCUE$3 IGYCUE$4
  IGYCUE$5 IGYCUE$8 IGYCUE$D IGYCUE$R IGYCXREF IGYDRV   IGYEQCWI
  IGYMSGE  IGYMSGK  IGYMSGT  IGYQCBE  IGYQSPLT IGYZQEN6 IGYZQENU
  IGYZQJP6 IGYZQJPN
  

Fix information

• Fixed component name

  ENT COBOL FOR Z

• Fixed component ID

  5655EC600

Applicable component levels

• R650 PSY UO05951

     UP25/12/03 P F512

• R651 PSY UO05952

     UP25/12/03 P F512

• R652 PSY UO05953

     UP25/12/03 P F512

• R65H PSY UO05954

     UP25/12/03 P F512

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.