PM94865: SERVER - INFINITE LOOP DURING SEND TO MQ WHEN SPECIFIC DCB LRECL IS USED FOR DATASET BEING SENT TO QUEUE
A fix is available
Closed as program error.
SERVER - INFINITE LOOP DURING SEND TO MQ WHEN SPECIFIC DCB LRECL IS USED FOR DATASET BEING SENT TO QUEUE Environment: WDI 3.3.0 for z/OS with current PTF maintenance Intermittent program loop when sending XML data to MQ. The intermittency seems to be due to the data being sent, which varies. When reprocessing the same data, the loop is reproducible. Further analysis found that the intermediate file allocation (DCB) for the data being sent makes a difference. The client's original issue is a DT map going from EDI to XML where the document destination is an MQ queue. L2 support has recreated as such, as well as with a simplified PERFORM SEND command. This allocation seems to trigger the pgm loop: //XMLOUT DD DSN=EDI.XMLOUT, // DISP=(NEW,CATLG,DELETE), // DCB=(RECFM=VB,LRECL=2590,DSORG=PS), // SPACE=(TRK,(1000,400),RLSE), // UNIT=SYSALLDA Kewords: WMQ MQSERIES PUT program pgm loop looping loops infinite unbounded hard cancel cancels cancelled logical record rec len length lrecl hang hangs hung
A possible work-around is to allocate the (intermediate) file being sent with a different DCB. For example, //XMLOUT DD DSN=EDI.XMLOUT, // DISP=(NEW,CATLG,DELETE), // DCB=(RECFM=VB,LRECL=32750,DSORG=PS), // SPACE=(TRK,(1000,400),RLSE), // UNIT=SYSALLDA
SERVER - INFINITE LOOP DURING SEND TO MQ WHEN SPECIFIC DCB LRECL IS USED FOR DATASET BEING SENT TO QUEUE. The error happens when invalid EDI data is used in the SEND process and the network program incorrectly identifies a segment within the data.
The code is changed to avoid EDI envelope scan during OUTTYPE(MQ) when the target syntax is not EDI. The communications interface is also changed to avoid any looping while parsing out segments.
WDI 3.3 on all platforms
Reported component name
WEBS DI ZOS
Reported component ID
Last modified date
APAR is sysrouted FROM one or more of the following:
APAR is sysrouted TO one or more of the following:
C EDITRRE EDIVNPT
Fixed component name
WEBS DI ZOS
Fixed component ID
Applicable component levels
R330 PSY UK96981
UP13/09/13 P F309
Fix is available
Select the PTF appropriate for your component level. You will be required to sign in. Distribution on physical media is not available in all countries.