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

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 for AMODE64
  

Local fix

• BYPASS/CIRCUMVENTION:
  None
  
  RECOVERY ACTION:
  Apply PTF
  

Problem summary

• ****************************************************************
  * USERS AFFECTED: Users of Enterprise COBOL 6.3 and later      *
  *                 releases running AMODE 64 COBOL programs     *
  *                 which use COBOL SORT or MERGE statements.    *
  ****************************************************************
  * PROBLEM DESCRIPTION: When COBOL SORT or MERGE statement is   *
  *                      used, COBOL programs compiled with      *
  *                      COBOL 6.3 and later releases running    *
  *                      in AMODE 64 generate DFSORT program     *
  *                      control statements different from       *
  *                      COBOL 4.2 and previous releases.        *
  ****************************************************************
  * RECOMMENDATION: Install the provided PTF.                    *
  ****************************************************************
  COBOL programs compiled with COBOL 6.3 and later releases
  running in AMODE 64 generate DFSORT program control statements
  functionally equivalent to those of COBOL 4.2, however the
  order and format of the statements are different.
  
  For example, the order of FILSZ, MAINSIZE, and OPTION and
  the format of their values are different between COBOL 6.3
  and 4.2 as follows:
  
  COBOL 6.3 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
  
  COB0603T/K COB0604T/K
  

Problem conclusion

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

Temporary fix

Comments

• ×**** PE23/10/18 FIX IN ERROR. SEE APAR PH57639  FOR DESCRIPTION
  ×**** PE23/10/18 FIX IN ERROR. SEE APAR PH57639  FOR DESCRIPTION
  ×**** PE23/10/18 FIX IN ERROR. SEE APAR PH57639  FOR DESCRIPTION
  

APAR Information

• APAR is sysrouted FROM one or more of the following:

• APAR is sysrouted TO one or more of the following:

  UI92723 UI92724

Modules/Macros

• CELQSG04 CELQV004 IGZQAPI  IGZQCA64 IGZQCDA  IGZQINPL IGZQJNI2
  

Fix information

• Fixed component name

  LE ENT COBOL LI

• Fixed component ID

  568819812

Applicable component levels

• R7C0 PSY UI92723

     UP23/07/21 P F307

• R7D0 PSY UI92724

     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.