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