PI26965: COBOL GENERATOR THROWS NULLPOINTEREXCEPTION WITH A GET NEXT STATEMENT WITHOUT INTO CLAUSE

Rational Business Developer 9.1.1
Rational Business Developer Fix Pack 1 (9.0.1.1) for 9.0.1
Rational Business Developer Fix Pack 1 (9.1.1.1) for 9.1.1
Rational Business Developer Fix Pack 2 (9.0.1.2) for 9.0.1

APAR status

• Closed as program error.

Error description

• The following code replicates the exception when generating to
  COBOL:
  Program Wp9lCreateSjobForEmbdelivery type basicProgram()
      {
      }
  
      function main()
          wp9lCreateSjobForEmbdeliveryMain();
      end
  
      function wp9lCreateSjobForEmbdeliveryMain()
          nullable_realLoadingDay1         char(1)?;
  
          open countEmballageDeliveryCur1
              into nullable_realLoadingDay1
              with #sql{
                 select REAL_LOADING_DAY
                 from EMBDEL
              };
  
          get next from countEmballageDeliveryCur1;
          // Altering the above to the following enables
  successful generation
          // get next from countEmballageDeliveryCur1 into
  nullable_realLoadingDay1;
  
  
      end
  end
  
  Example output:
  IWN.VAL.9994.i 1/1 Generating part
  getError.Wp9lCreateSjobForEmbdelivery with build descriptor
  EGLProgramsCOBOLBuildOptions from file
  \EGLPrograms\EGLSource\EGLPrograms.eglbld.
  IWN.VAL.9999.e 0/0 Stack Trace: java.lang.NullPointerException
  IWN.VAL.9999.e 0/0 Stack Trace: at
  com.ibm.etools.egl.generation.cobol.analyzers.language.postanaly
  sis.sqlio.SqlGetByPositionStatementPostAnalyzer.<init>(SqlGetByP
  ositionStatementPostAnalyzer.java:76)
  

Local fix

Problem summary

• ****************************************************************
  * USERS AFFECTED:                                              *
  * Users that are doing a SQL get next statement without either *
  * a target record or an into clause can get a null pointer     *
  * exception                                                    *
  ****************************************************************
  * PROBLEM DESCRIPTION:                                         *
  * A null pointer exception in                                  *
  * SqlGetByPositionStatementPostAnalyzer can occur. A           *
  * workaround is to add either a target record or an into       *
  * clause for the SQL statement, or to apply the fixtest.       *
  ****************************************************************
  * RECOMMENDATION:                                              *
  ****************************************************************
  

Problem conclusion

• The problem is fixed.
  

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

• R901 PSY

     UP

• R911 PSY

     UP