IBM Support

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

Subscribe

You can track all active APARs for this component.

 

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 number

    PM19765

  • Reported component name

    RBD EGL FOR COB

  • Reported component ID

    5724S5001

  • Reported release

    751

  • Status

    CLOSED PER

  • PE

    NoPE

  • HIPER

    NoHIPER

  • Special Attention

    NoSpecatt

  • Submitted date

    2010-08-03

  • Closed date

    2010-10-13

  • Last modified date

    2010-10-13

  • 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

[{"Business Unit":{"code":"BU058","label":"IBM Infrastructure w\/TPS"},"Product":{"code":"SSMQ79","label":"Rational Business Developer"},"Component":"","ARM Category":[],"Platform":[{"code":"PF025","label":"Platform Independent"}],"Version":"7.5.1","Edition":"","Line of Business":{"code":"LOB35","label":"Mainframe SW"}}]

Document Information

Modified date:
13 October 2010