PH67050: NEW FUNC: LONG MULTIPLICATION PERFORMANCE IMPROVEMENT

Obtain the fix for this APAR.

APAR status

• Closed as new function.

Error description

• NEW FUNC: Long multiplication performance improvement
  

Local fix

Problem summary

• ****************************************************************
  * USERS AFFECTED: Users of Enterprise COBOL 5 and later        *
  *                 releases running programs                    *
  *                 which performs long multiplication           *
  *                 (COMPUTE or MULTIPLY)                        *
  *                 with decimal values whose data type are      *
  *                 usage COMP-3, PACKED-DECIMAL, or DISPLAY.    *
  ****************************************************************
  * PROBLEM DESCRIPTION: NEW FUNCTION.                           *
  ****************************************************************
  * RECOMMENDATION: Install the provided PTF.                    *
  ****************************************************************
  NEW FUNCTION.
  Long multiplication performance improvement.
  
  COB0501T/K COB0502T/K COB0601T/K COB0602T/K COB0603T/K
  COB0604T/K COB0605T/K
  

Problem conclusion

Temporary fix

Comments

• NEW FUNCTION.
  
  This new function improves the performance overhead of math long
  multiplication performed by COBOL programs on z/OS 3.1 or later
  releases, which have COMPUTE or MULTIPLY statements with more
  than 15 digits long operands whose data types are
  COMP-3, PACKED-DECIMAL, or DISPLAY. The COBOL Runtime achieves
  the improvement by exploiting the vector instructions.
  
  For example, the following program takes advantage of the
  performance improvement. The program has the MULITIYPLY
  statement which has 16 digits long operands.
  
  CBL AR(E)
  IDENTIFICATION DIVISION.
  PROGRAM-ID. DEMO.
  ENVIRONMENT DIVISION.
  DATA DIVISION.
  WORKING-STORAGE SECTION.
  01 T1 PIC 9(20) DISPLAY VALUE 1234567890123456.
  01 T2 PIC 9(20) DISPLAY VALUE 1234567890123456.
  01 T3 PIC 9(20) DISPLAY VALUE 0.
  PROCEDURE DIVISION.
      PERFORM 100000000 TIMES
        MULTIPLY T1 BY T2 GIVING T3
        COMPUTE T1 = T1 + 2
      END-PERFORM
      DISPLAY "T3: " T3
      STOP RUN.
  END PROGRAM DEMO.
  

APAR Information

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

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

Modules/Macros

• IGZBALCT IGZCEV4  IGZCJNI2 IGZCMGEN IGZCMGJA IGZCMGUE IGZEDCCT
  IGZIBMCT IGZIGZCT 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

• R7E0 PSY UO04169

     UP25/07/31 P F507  

• R7EJ PSY UO04170

     UP25/07/31 P F507  

• R7F0 PSY UO04171

     UP25/07/31 P F507  

• R7FJ PSY UO04172

     UP25/07/31 P F507  

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.