PI95322: CICS STANDALONE TRANSLATOR FOR COBOL.

Obtain the fix for this APAR.

APAR status

• Closed as new function.

Error description

• CICS standalone translator needs to support COMPUTATIONAL-5
  when using COBOL.
  
  This is a route down of APAR PI88564
  

Local fix

Problem summary

• ****************************************************************
  * USERS AFFECTED: All CICS users.                              *
  ****************************************************************
  * PROBLEM DESCRIPTION: Data value truncation in COBOL 5 and    *
  *                      COBOL 6                                 *
  ****************************************************************
  If a programmer wishes to move a value greater than 9999 to a
  field defined as PIC S9(4) COMP what happens next is dependent
  on the COBOL compiler option TRUNC. If the code is compiled
  using TRUNC(BIN) then the picture of the field is ignored and
  the programmer can safely move a value greater than 9999 to the
  field. If TRUNC(OPT) is specified, the resultant value consists
  of only the last four digits of the number, which is a problem.
  Keywords: DFHEIGDI EIBCPOSN EIBCALEN
  

Problem conclusion

Temporary fix

Comments

• The COBOL standalone translator has been changed so as to be
  able to generate computational-5 instead of computational for
  the DFHEIGDI, EIBCPOSN and EIBCALEN. This is achieved by the
  introduction of a new translator option, C5. When specified,
  this option causes the standalone COBOL translator to generate
  COMP-5 rather than COMP, resulting in values not being
  truncated.
  

APAR Information

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

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

  UI61071 UI61072 UI61073 UI61074

Modules/Macros

• DFHEAM02 DFHEAM07 DFHEAM08 DFHEAM11 DFHEAMAA DFHEAMEE DFHEAMPA
  DFHEAMSA DFHECM02 DFHECM07 DFHECM08 DFHECM10 DFHECM11 DFHECM14
  DFHECM17 DFHECMAC DFHECMEE DFHECMPC DFHECMSC DFHEDM02 DFHEDM07
  DFHEDM08 DFHEDM10 DFHEDM11 DFHEDM14 DFHEDM17 DFHEDMAD DFHEDMEE
  DFHEDMPD DFHEDMSD DFHEIBLC DFHEIBLK DFHEIMOP DFHEPM02 DFHEPM07
  DFHEPM08 DFHEPM10 DFHEPM11 DFHEPM14 DFHEPM17 DFHEPMAP DFHEPMEE
  DFHEPMPP DFHEPMSP DFHEXM00 DFHEXM01 DFHEXM05 DFHEXM06 DFHEXM09
  DFHEXM12 DFHEXM13 DFHEXM15 DFHEXM16 DFHEXM18 DFHEXM25 DFHEXM27
  DFHEXMAB DFHEXMAN DFHEXMG1 DFHEXMG2 DFHEXMG3 DFHEXMG4 DFHEXMG5
  DFHEXMII DFHEXMKW DFHEXMPE DFHEXMS1 DFHEXMS2 DFHEXMS3 DFHEXMS4
  DFHEXMS5 DFHEXMTD DFHEXMTG DFHEXMXK DFHEXMXM DFHEXMXS DFHWBAOX
  

Fix information

• Fixed component name

  CICS TS Z/OS V5

• Fixed component ID

  5655Y0400

Applicable component levels

• R800 PSY UI61071

     UP19/02/05 P F902

• R801 PSY UI61072

     UP19/02/05 P F902

• R900 PSY UI61073

     UP19/02/05 P F902

• R901 PSY UI61074

     UP19/02/05 P F902

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.