PM03925: generated cobol incorrect for iSeries

APAR status

• Closed as program error.

Error description

• The following code segment generates incorrect cobol for iseries
  , causing runtime abend:
  
  Function APWIS01()
  
    while (APWIW01.L ? 0
     ?? APWIW01.X5TESKEY[L] == ' ')
      APWIW01.L = APWIW01.L - 1;
    end  ?===
    if (APWIW01.L == 0) /* [10]*/ ...
  
  
  TextDefaultAsString is deafulted to YES.
  
  
  Workaround is to use TextDefaultAsString =No
  

Local fix

Problem summary

• The wrong code was generated for IMS because it cannot
  handle complex condition statements that contain comparison
  of char type with other text types.
  

Problem conclusion

• I have changed the PPR code to break up these complex
  conditions for IMS.
  

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