APAR status
Closed as program error.
Error description
When generating a EGL program (ETAAA) with MQ, the Cobol code is generated but there is missing procedures in the generated Cobo l code, This cause the compiler to stop with a Severe error. See the cobol compilation list in file :ETAAA.LISTING.txt And the EGL code (incl. builddescriptors) in the zip file : TASK 1.zip 008628 * EGL *1624* Get NEXT FF11Q94; 008629 MOVE 'SCAN' TO EZERTS-PRC-OPT 008630 MOVE 'FF11Q94-194' TO EZERTS-PRC-OB J 008631 MOVE 1624 TO EZERTS-PRC-NUM 008632 MOVE 'ETAAP22' TO EZERTS-PRC-NAME 008633 SET EZERTS-ERROR-ROUTINE TO TRUE 008634 MOVE ZEROES TO EZESTA-MQGET-RC 008635 MOVE ZEROES TO EZERT8 008636 PERFORM EZEMQ-FF11Q94-194-INIT ==008636==? IGYPA3007-S 'EZEMQ-FF11Q94-194-INIT' was not define d as a procedure-name. The statement was discarded. 008637 MOVE 'ELAQSCN' TO EZEPROGM 008638 CALL EZEPROGM USING BY VALUE EZEMQ- EZERTS-PTR 008639 BY VALUE EZEMQ-CMMSGRCD-PTR 008640 BY VALUE EZEMQ-BUFFER-PTR 008641 BY VALUE EZEMQ-CMPRGSTA-PTR 008642 BY VALUE EZEMQ-CMCOMP-PTR 008643 IF EZESTA-MQGET-OK 008644 1 MOVE FF11Q94-194-MQ-RECORD TO FF11Q 94-194 ==008644==? IGYPS2121-S 'FF11Q94-194-MQ-RECORD' was not defined as a data-name. The statement was discarded.
Local fix
Problem summary
The problem was that the user's application had more than 1 MQrecord defined using the same queue name. This caused a compiler error to occur.
Problem conclusion
Software updated. Fixtest available.
Temporary fix
Comments
APAR Information
APAR number
PM01730
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-19
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