PM32785: sqlcode -503 on EGL sql statement

APAR status

• Closed as program error.

Error description

• The following  egl code generates incorrect Cobol:
  
  Function AQA340P()
    MAFAMS.MKULTOP = 'AQA340P - UPDATE TA192';
    try
      get TA1920R forUpdate AQA340P_RSI01
        with #sql{
          select NUMDNI, DNI, NIF, NOMBRE, FECALT, CODSIT, FECINC
          from sqlexp.ta192 T1
          WHERE
           NUMDNI = :GNUMDNI
          for update of DNI, NIF, NOMBRE, FECALT, CODSIT, FECINC
        }
        into GNUMDNI, GDNI, GNIF, GNOMBRE1, GFECALT,
             GCODSIT, GFECINC ;
      onException AQA300G() ;
    end
  end // end AQA340P
  
  The Db2 bind step fails with sqlcode -503.
  

Local fix

Problem summary

• ****************************************************************
  * USERS AFFECTED:                                              *
  ****************************************************************
  * PROBLEM DESCRIPTION:                                         *
  ****************************************************************
  * RECOMMENDATION:                                              *
  ****************************************************************
  The Select statement on the GET was modified to exclude some
  columns from the selection. The replace statement was using
  a default SET clause. Because of this, the SET clause
  contained columns that were not actually retrieved for
  update, causing a -503 during the bind step.
  

Problem conclusion

• Because this is actually a problem that affects COBOL and
  Java/Debug, the fix was a change to the preprocessor. For
  replace satements that contain a default SET clause, and
  whose matching Get for Update contain a user modified SQL
  statement, the columns on the default SET clause are
  modified to only contain those (non-ReadOnly, non-Key)
  columns that were received into the INTO clause.
  

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:

Fix information

• Fixed component name

  RATL BUS DEV

• Fixed component ID

  5724S5000

Applicable component levels

• R751 PSN

     UP