PM01730: EGL program (ETAAA) with MQ compile error

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 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