PH19741: UNSTRING WITH NOSSRANGE WITH COBOL V6 BEHAVE DIFFERENTLY THAN COBOL V4 WHEN DEALING WITH ZERO-LENGTH ITEMS FOR AMODE64

Obtain the fix for this APAR.

APAR status

• Closed as program error.

Error description

• UNSTRING with NOSSRANGE with COBOL V6 behave differently than
  COBOL V4 when dealing with zero-length items for AMODE 64.
  

Local fix

Problem summary

• ****************************************************************
  * USERS AFFECTED: Users of Enterprise COBOL V6.3 running       *
  *                 AMODE 64 programs which use COBOL UNSTRING   *
  *                 statement with both zero and non-zero length *
  *                 receivers in the same statement.             *
  ****************************************************************
  * PROBLEM DESCRIPTION: The UNSTRING statement produced         *
  *                      incorrect data in non-zero length       *
  *                      receivers.                              *
  ****************************************************************
  * RECOMMENDATION: Apply the provided PTF.                      *
  ****************************************************************
  The zero length receivers in UNSTRING should be ignored without
  affecting non-zero length receivers. For example,
  
  ...
  01 LEN0                  PIC 9(01) VALUE ZERO.
  01 STR                   PIC X(14) VALUE 'THIS IS A TEST'.
  ...
  MOVE ALL '-' to FIELD-1 FIELD-2
  UNSTRING STR INTO FIELD-1(1:LEN0) FIELD-2(1:)
  END-UNSTRING
  
  DISPLAY 'FIELD-1:' FIELD-1 ';'
  DISPLAY 'FIELD-2:' FIELD-2 ';'
  
  The above UNSTRING statement should produce outputs as shown in
  the CONCLUSION. But instead it produces incorrect outputs below:
  
  FIELD-1:--------------;
  FIELD-2:--------------;
  
  COB0603T/K
  

Problem conclusion

• The UNSTRING processing in the COBOL Runtime has been corrected.
  For the example in the description above, the produced outputs
  are:
  
  FIELD-1:--------------;
  FIELD-2:THIS IS A TEST;
  

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:

  UI67448 UI67449

Modules/Macros

• CELQSG04 CELQV004 IGZQAPI  IGZQCDA  IGZQINPL
  

Fix information

• Fixed component name

  LE ENT COBOL LI

• Fixed component ID

  568819812

Applicable component levels

• R7B0 PSY UI67448

     UP20/01/24 P F001

• R7C0 PSY UI67449

     UP20/01/24 P F001

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.