PH55266: COBOL 5/6 GENERATES SORT CONTROL STATEMENTS IN A FORMAT DIFFERENT FROM COBOL V4.2

Obtain the fix for this APAR.

APAR status

• Closed as program error.

Error description

• COBOL 5/6 generates SORT CONTROL statements in a format
  different from COBOL V4.2
  

Local fix

• BYPASS/CIRCUMVENTION:
  None
  
  RECOVERY ACTION:
  Apply PTF
  

Problem summary

• ****************************************************************
  * USERS AFFECTED: Users of Enterprise COBOL 5 and later        *
  *                 releases running programs which use          *
  *                 COBOL SORT or MERGE statements.              *
  ****************************************************************
  * PROBLEM DESCRIPTION: When COBOL SORT or MERGE statement is   *
  *                      used, COBOL 5 and later releases        *
  *                      generate DFSORT program control         *
  *                      statements differently from COBOL 4.2.  *
  ****************************************************************
  * RECOMMENDATION: Install the provided PTF.                    *
  ****************************************************************
  COBOL 5 and later releases generate DFSORT program control
  statements functionally equivalent to those of COBOL 4.2,
  however the statements were different in their order and format.
  
  For example, the order of FILSZ, MAINSIZE, and OPTION and
  the format of their values are different between COBOL 5 and 4.2
  as follows:
  
  COBOL 5 and later release generates:
  
    ICE000I 0 - CONTROL STATEMENTS ...
    OPTION FILSZ=E30,
    MAINSIZE=40
    SORT FIELDS=(0001,0005,CH,A,0006,...
    RECORD TYPE=F,LENGTH=(000080,,)
    END
  
  COBOL 4.2 generates:
  
    ICE000I 0 - CONTROL STATEMENTS ...
    SORT FIELDS=(0001,0005,CH,A,0006,...
    RECORD TYPE=F,LENGTH=(000080,,)
    OPTION MAINSIZE=00000040,
    FILSZ=E00000030
  
  
  COB0501T/K COB0502T/K COB0601T/K COB0602T/K COB0603T/K
  COB0604T/K
  

Problem conclusion

• COBOL Runtime has been corrected for COBOL 5 and further
  releases to match to DFSORT program control statements in the
  order and format which COBOL 4.2 generates.
  
  Note that this does not affect the functional outcome of COBOL
  SORT or MERGET statements.
  

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:

  UI92721 UI92722

Modules/Macros

• IGZCEV4  IGZCJNI2 IGZLLIBV IGZXAPI  IGZXCA31 IGZXCDA  IGZXD24
  IGZXDMR  IGZXJNI2 IGZXLPIO IGZXLPKA IGZXLPKB IGZXLPKC IGZXLPKD
  IGZXLPKE IGZXLPKF IGZXLPKG IGZXPK2
  

Fix information

• Fixed component name

  LE ENT COBOL LI

• Fixed component ID

  568819812

Applicable component levels

• R7C0 PSY UI92721

     UP23/07/21 P F307

• R7D0 PSY UI92722

     UP23/07/21 P F307

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.