PK81847: GENERATED COBOL DOES NOT USE THE CORRECT HOST VARS

APAR status

• Closed as program error.

Error description

• This is causing huge functional issues.
  
         EZESQLGBPN-NLS305R-T3-242 SECTION.
             MOVE 0086 TO EZERTS-ERROR-NUM
             SET ADDRESS OF EZECRS-CURSOR-BLOCKS TO EZEAPP-CURS-BL
  K-PTR
             IF EZECRS-NLS305R-T3-242-ID = 7
                MOVE ALL X'01' TO EZESQL-HOST-VARS
                MOVE 0 TO EZERTS-ERROR-NUM
             EXEC SQL
                  FETCH NEXT EZECURSOR7 INTO
             :EZESQL-HOST-VARS.EZESQL-HST-2846
             :EZESQL-HOST-VARS.EZESQL-HST-2846-I ,
             :EZESQL-HOST-VARS.EZESQL-HST-2847
             :EZESQL-HOST-VARS.EZESQL-HST-2847-I ,
             :EZESQL-HOST-VARS.EZESQL-HST-2848
             :EZESQL-HOST-VARS.EZESQL-HST-2848-I ,
             :EZESQL-HOST-VARS.EZESQL-HST-2849
             :EZESQL-HOST-VARS.EZESQL-HST-2849-I ,
             :EZESQL-HOST-VARS.EZESQL-HST-2850
             :EZESQL-HOST-VARS.EZESQL-HST-2850-I ,
             :EZESQL-HOST-VARS.EZESQL-HST-2851
             :EZESQL-HOST-VARS.EZESQL-HST-2851-I ,
             :EZESQL-HOST-VARS.EZESQL-HST-2852
             :EZESQL-HOST-VARS.EZESQL-HST-2852-I ,
   ---- ? First occurance
             :EZESQL-HOST-VARS.EZESQL-HST-2853
             :EZESQL-HOST-VARS.EZESQL-HST-2853-I ,
             :EZESQL-HOST-VARS.EZESQL-HST-1720
             :EZESQL-HOST-VARS.EZESQL-HST-1720-I ,
             :EZESQL-HOST-VARS.EZESQL-HST-2852
             :EZESQL-HOST-VARS.EZESQL-HST-2852-I ,
         ---- ? Next occurance
             :EZESQL-HOST-VARS.EZESQL-HST-2853
             :EZESQL-HOST-VARS.EZESQL-HST-2853-I ,
             :EZESQL-HOST-VARS.EZESQL-HST-2854
             :EZESQL-HOST-VARS.EZESQL-HST-2854-I ,
             :EZESQL-HOST-VARS.EZESQL-HST-2855
             :EZESQL-HOST-VARS.EZESQL-HST-2855-I ,
             :EZESQL-HOST-VARS.EZESQL-HST-2856
             :EZESQL-HOST-VARS.EZESQL-HST-2856-I
             END-EXEC
  
  
  Corresponding EGL cursor:
  
   open NLS305PI_SEI_T315_RSI01
        with #sql{
          select ISLMMTY, IAGRSRN, DEPR_START, DEPR_LEFT, COSTAMT,
   COSTAMT_LEFT,
            DDJBBFP-1 MONTH, (YEAR(DDJBBFP)-YEAR(DEPR_START))*12+
            (MONTH(DDJBBFP)-MONTH(DEPR_START)),
            COSTAMT_FIRST+
            ((YEAR(DDJBBFP)-YEAR(DEPR_START))*12+
            (MONTH(DDJBBFP)-MONTH(DEPR_START)-1))*COSTAMT_MONTH,
          DEPR_STOP,DEPR_LENGTH,DDJBBFP,
          COSTAMT_FIRST, COSTAMT_MONTH
          from TBL315 T315,
               TBL080 T080
           --** INSERT WHERE, GROUP BY AND HAVING CLAUSES HERE **
          WHERE depr_start ? :NLS013W00.CURR_ACCDAT1
            AND depr_stop ?= :NLS013W00.CURR_ACCDAT1
            AND depr_done = 0
  
  
           --** INSERT ORDER BY CLAUSE HERE **
        }
        into ISLMMTY, IAGRSRN, DEPR_START, DEPR_LEFT, COSTAMT, COS
  TAMT_LEFT,
             NLS305W00.DEPR_MONTH, NLS305W00.PERIODS,
             NLS305W00.DEPR_PERIOD,
             DEPR_STOP,DEPR_LENGTH,DDJBBFP,
             COSTAMT_FIRST, COSTAMT_MONTH
  

Local fix

Problem summary

• The host variables were improperly being reused for SQL
  function calls. This was already fixed in 7103.
  

Problem conclusion

• Software was previously updated.
  

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

• R710 PSN

     UP