PH49289: ZUNIT COBOL LEVEL 88 ERROR PARSING THRU CLAUSE. IWAA0645E: THE IMPORT OF THE COBOL SOURCE HAS FAILED.

APAR status

• Closed as program error.

Error description

• The use of the THRU clause when assigning values to a Level 88
  Cobol structure can generate a zUnit IWAA0645E error when
  multiple individual and THRU value pairs are used.
  
  The following example illustrates a normal usage of the THUR
  clause in Level 88 that does not generate an error.  Notice we
  have MULTIPLE THRU value pairs.
  
         1 TESTVAR.
         3 TESTVAR-LENGTH.
         5 TESTVAR-RECEIVED PIC X(005).
         88 TESTVAR-RECEIVED-V01 VALUE '14000' THRU '15000'
                '16000' THRU '17000'
                '18000' THRU '19000'
                '20000' THRU '21000'
                '85100' THRU '85200'.
  
  
  This example illustrates the condition that will generate an
  error.  Notice the additional single value of '85000' added in
  the middle of the THRU value pairs.  While this syntax compiles
  and runs fine, it will generate a zUnit test case generation
  error.
  
         1 TESTVAR.
         3 TESTVAR-LENGTH.
         5 TESTVAR-RECEIVED PIC X(005).
         88 TESTVAR-RECEIVED-V01 VALUE '14000' THRU '15000'
              '16000' THRU '17000'
              '18000' THRU '19000'
              '20000' THRU '21000'
              '85000' '85100' THRU '85200'.
  

Local fix

Problem summary

• ZUnit Create/modify test case fails in cases where multiple THRU
   values are defined in the VALUE clause of an 88-level data
  item.
  

Problem conclusion

• There was a prpblem in the COBOL source generation logic when
  the statement was long and had 3 or more continuation lines.
  

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

  DEV FOR Z/OS

• Fixed component ID

  5724T0700

Applicable component levels