PQ87043: IGYPS0001-W, IGYPS2072-S, IGYPS0191-S RUNNING DB2 COBOL COPROCESSOR

Obtain the fix for this APAR.

APAR status

• Closed as program error.

Error description

• running DB2/COBOL coprocessor receive:
  IGYPS0001-W   A blank was missing before character "L" in column
  
  IGYPS2072-S   "49" was invalid.  Skipped to the next verb, perio
  
  IGYPS0001-W   A blank was missing before character "D" in column
  
  IGYPS0191-S   Expected a data-name, function-identifier or a lit
  

Local fix

• run with DB2 precompiler
  

Problem summary

• ****************************************************************
  * USERS AFFECTED: Users of the SQL statement coprocessor for   *
  *                 DB2 UDB for z/OS and OS/390.                 *
  ****************************************************************
  * PROBLEM DESCRIPTION: Wrong 49 lvl declaration statements     *
  *                      shown in the PROCEDURE DIVISION.        *
  ****************************************************************
  * RECOMMENDATION:                                              *
  ****************************************************************
  The following statement will yield wrong output from the SQL
  statement coprocessor.
  
  DECLARE CSR1 CURSOR FOR
  SELECT ....
         , CAST(FS.PRODUCT_NBR AS CHAR(2))
  FROM FINANCIAL_SERVICE       FS,
       ...
  
  SOLUTION:
  
  Uninitialized internal field caused the problem.
  Code has been corrected to initialize the internal field.
  
  The APAR applies to not only COBOL programs but also
  PLI and C which use the similar statement.
  

Problem conclusion

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:

  UQ87462 UQ87463

Modules/Macros

•    DSNHTARY
  

Fix information

• Fixed component name

  5740 IBM DATABA

• Fixed component ID

  5740XYR00

Applicable component levels

• R710 PSY UQ87462

     UP04/05/07 P F405

• R810 PSY UQ87463

     UP04/05/07 P F405

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.