IBM Support

PM00388: COBOL compiler and DB2 precompiler errors received with EGL generated COBOL programs using the Turkish locale

Subscribe

You can track all active APARs for this component.

 

APAR status

  • Closed as program error.

Error description

  • Rational Business Developer V7.5.1.3:
    
    COBOL compiler errors are received compiling EGL generated COBOL
    programs using the Turkish locale.  The follow area examples of
    some of these errors:
    
      035860          * EGL *724* ADD PROGRAM1_HTF1;
      035861               MOVE "ADD" TO EZERTS-PRC-OPT
      035862               MOVE "BKBU189W-H-424" TO EZERTS-PRC-OBJ
      035863               SET EZERTS-ERROR-ROUTINE TO TRUE
      035864               MOVE ZEROES TO EZESTA-HTFLISTE-RC
      035865               MOVE ZEROES TO EZERT8
      035866               PERFORM EZEOPEN-HTFLISTE
      035867               IF NOT EZEFILEX-HTFLISTE-OPEN
      035868    1             GO TO EZEIOX-724
      035869               END-IF
      035870               SET EZEFILEX-HTFLISTE-REQ-WRITE TO TRUE
      035871               WRITE EZEBUF-HTFLISTE FROM PROGRAM1-H-424
    
    ==035871==> IGYPS2121-S "EZEBUF-HTFLISTE" was not defined as a
                            data-name.  The statement was discarded.
    .
    .
    
      040443          * EGL *1581* IF ( PROGRAM1_HTF1 IS ioError )
      040444               IF ( PROGRAM1-H-424 )
    
    ==040444==> IGYPS2096-S An incomplete condition was found in a
                            conditional expression.  The operand(s)
                            was(were) discarded.
    .
    .
    
    
      046558          * EGL *3591* Get NEXT PROG_SYSIN;
      046559               MOVE "SCAN" TO EZERTS-PRC-OPT
      046560               MOVE "PROG-SYSIN-499" TO EZERTS-PRC-OBJ
      046561               SET EZERTS-ERROR-ROUTINE TO TRUE
      046562               MOVE ZEROES TO EZESTA-SYSIN-RC
      046563               MOVE ZEROES TO EZERT8
      046564               PERFORM EZEOPEN-SYSIN
      046565               IF NOT EZEFILEX-SYSIN-OPEN
      046566      1           GO TO EZEIOX-3591
      046567               END-IF
      046568               MOVE "PROG-SYSIN-499" TO
    EZEFILEX-SYSIN-CURRENT
      046569               SET EZEFILEX-SYSIN-REQ-READNEXT TO TRUE
      046570               READ EZEFILE-SYSIN NEXT RECORD INTO
    PROG-SYSIN-499
    
    
    ==046570==> IGYPS2122-S "EZEFILE-SYSIN" was not defined as a
                            file-name.  The statement was discarded.
    
    
      000250           02  FILLER PIC X(30) VALUE レレレRDレレN D■NARIレ.
      000251           02  FILLER PIC X(3) VALUE レJODレ.
    
      ==000251==> IGYDS1082-E  A period was required.  A period was
                               assumed before レ02レ.
    
    
      The above error is caused by the statement in line 000250
      going past column 72 due the generator's incorrect handling of
      the Turkish quote character レ.
    
    The following DB2 precompiler errors are received when
    literals contain the embedded Turkish quote character レ:
    
      1868             03  FILLER PIC X(26) VALUE レ!!レレrチn tan↓m↓
      bulunamad↓!!レ.
    
      DSNH010I S     DSNHTOKR LINE 1868 COL 71  UNTERMINATED STRING
                     CONSTANT BEGINNING レ.@@@@@@@
    
      DSNH007I E     DSNHTOKR LINE 1868 COL 49  ILLEGAL CHARACTER
                     IGNORED: "I" ('E0'X)
    
      If the embedded Turkish quote characters are removed from the
      literals, these errors do not occur.
    

Local fix

Problem summary

  • The lower case i, when using the Turkish locale, does not
    become I when converted to upper case. This can cause
    problems when using generator order item names that are not
    exact, even though case insensitivity was being used.
    

Problem conclusion

  • Software updated. Fixtest on 7514 available.
    

Temporary fix

Comments

APAR Information

  • APAR number

    PM00388

  • 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

    2009-11-03

  • Closed date

    2010-04-14

  • Last modified date

    2010-04-14

  • 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:
14 April 2010