PM19765: Message IGYPS2079-S - Cobol compile error when using SingleRow

APAR status

• Closed as program error.

Error description

• User generated a Cobol program using RBD 7.5.1.5, and it failed
  during compilation.
  The following is the failing statement and the message.
  
  EGL *1380* Get D_AKTIE_KONTO SINGLEROW;
             MOVE 'INQUIRY' TO EZERTS-PRC-OPT
             MOVE 1380 TO EZERTS-PRC-NUM
             MOVE 'MAKE-CALCULATION-O' TO EZERTS-PRC-NAME
             SET EZERTS-ERROR-ROUTINE TO TRUE
             MOVE ZEROES TO EZESTA-AKTIE-KO-526-RC
             EXEC SQL
                  select VP_KONTONR, KI_IDENT, LANDEKODE_FOR_SKAT,
  
             KODE_UDBYTTE_ERKL  INTO
             :D-AKTIE-KO-531.VP-KONTONR-527 ,
             :D-AKTIE-KO-531.KI-IDENT-528 ,
             :D-AKTIE-KO-531.LANDEKODE-FOR-SKA-529 ,
             :D-AKTIE-KO-531.KODE-UDBYTTE-ERKL-530 from AKTIE_KONT
  O T1
             where T1.KI_IDENT =
             :TEMP-READX-394.KI-IDENT-393  and T1.VP_KONTONR =
             :TEMP-READX-394.VP-KONTONR-392
             END-EXEC
             MOVE 'SELECT' TO EZERTS-SQL-COMMAND
             PERFORM EZESQL-ERROR-ROUTINE
             MOVE EZERTS-SQLERR-STATUS TO EZESTA-AKTIE-KO-526-RC
             IF (NOT EZESTA-AKTIE-KO-526-HRD AND NOT
  
             EZESTA-AKTIE-KO-526-NRF AND NOT EZESTA-AKTIE-KO-526-E
  OF) OR
             SQLCODE = -811
             END-IF
             IF NOT EZESTA-AKTIE-KO-526-NRF AND NOT
             EZESTA-AKTIE-KO-526-EOF AND EZESTA-AKTIE-KO-526-ERR
                MOVE 1380 TO EZERTS-PRC-NUM
                MOVE 'MAKE-CALCULATION-O' TO EZERTS-PRC-NAME
                PERFORM EZE-THROW-SQL-EXCEPTION
             END-IF
  
  And this gives this error in the cobol compilation at VP:
  
  IGYPS2079-S Expected a verb or 'NEXT SENTENCE', but found 'END-I
  F'.
                        was discarded.
  

Local fix

Problem summary

• ****************************************************************
  * USERS AFFECTED:                                              *
  ****************************************************************
  * PROBLEM DESCRIPTION:                                         *
  ****************************************************************
  * RECOMMENDATION:                                              *
  ****************************************************************
  When using a SingleRow on a GET statement and using build
  descriptor object V60SQLNullableBehavior=NO, a compile error
  occurs.
  

Problem conclusion

• A CONTINUE statement was added since the IF statement could
  be empty.
  

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

  RBD EGL FOR COB

• Fixed component ID

  5724S5001

Applicable component levels

• R751 PSN

     UP