A fix is available
APAR status
Closed as program error.
Error description
Per PMRs: 61897,638,760 and 00755,589,000 ================================================================ Prerequisite: PTF UK74557 Change #1 ---------- Date reported: 12/02/2011 Severity: Medium Users Affected: All IMU users Problem Description: Numeric test for packed fields is not compatible with EZT Plus. Problem Summation EZT Plus valid signs are as follows: type signed unsigned ------- -------- -------- packed F,C F,C display F F COBOL numeric test valid signs are as follows: NUMPROC(NOPFD/MIG) type signed unsigned ------- -------- -------- packed F,C F display F F NUMPROC(PFD) type signed unsigned ------- -------- -------- packed C F display C F Current IMU sign handling with special logic: NUMPROC(NOPFD/MIG) type signed unsigned ------- -------- -------- packed F,C F,C (special logic applied) display F F NUMPROC(PFD) type signed unsigned ------- -------- -------- packed C F display C F Thus, current IMU rules are not compatible with Easytrieve Plus when PROCESS NUMPROC(PFD) is used. Problem Conclusion: TESTNUM=NATIVE/EASYT option to EASYTRAN/EASYPARAMS was added to choose the sign handling as follows: NATIVE do test as per previous IMU rules for NUMPROC(NOPFD/MIG) type signed unsigned ------- -------- -------- packed F,C F,C display F F NUMPROC(PFD) type signed unsigned ------- -------- -------- packed C F display C F EASYT do test as per EZT Plus rules for NUMPROC(NOPFD/MIG) type signed unsigned ------- -------- -------- packed F,C F,C display F F The default is TESTNUM=NATIVE Changed macro in SFSYFJCC: EASYTRAN - existing macro EASYT007 - existing macro EASYOVRD - existing macro ---------------------------------------------------------------- Change #2: ---------- Date reported: 12/02/2011 Severity: Medium Users Affected: All IMU users Problem description: PL10 field with EVEN option was converted to use 17 digits when it should have been 18 digits long. Problem summation: The correct number of digits of Packed Decimal field when packed length is greater than 9 is 18. The logic works for fields that are not coded with EVEN option. There is a bug in EASYT007 when EVEN is used. Problem conclusion: The logic was corrected to use 18 digits when EVEN option is used. Changed macro in SFSYFJCC: EASYT007 - existing macro ---------------------------------------------------------------- Change #3: ---------- Date reported: 12/02/2011 Severity: Medium Users Affected: All IMU users Problem description: Customer has a program that uses SYSUT1 for a file DD name. It corrupted SMF production file. The customer is requesting that DDnames used by compilers and IMU preprocessor be filtered out. Problem summation: SYSUT1. . . SYSUT7 DD names are use by COBOL, Link and SQLTRAN steps. These names cannot be used in EZT Programs when doing Link & Go. Problem conclusion: DDFILTER=NO/YES option was added to allow the user to flag all conflicting DD names. DDFILTER=NO Do not flag conflicting DD names as error DDFILTER=YES Flag conflicting DD names as an error. A new FSYDDTAB table of reserved DD names has been created and placed into SFSYCCLC library. This table can be changed to suite the user requirements, i.e., custom DD names can be added or deleted. Also refer to APAR #AM52896 for altering DD names via SYSUTDD= in #EZTPROC. Changed macros in SFSYFJCC: EASYTRAN - existing macro EASYT007 - existing macro EASYOVRD - existing macro EASYFDDS - new macro New members in SFSYCCLC: FSYDDTAB - new table of reserved IMU DD names ---------------------------------------------------------------- Change #4: ---------- Date reported: 12/02/2011 Severity: Medium Users Affected: All IMU users Problem description: The position of report fields displayed by the DISPLAY in report exits do not match position on the report LINE. The problem is visible on signed fields with MASK ('9999999999'). Problem summation: This problem is caused by the APIC routine while expanding mask for SUMSPACE, because a mask of all 9's without insert characters is considered to be an internal picture. Therefore, the APIC generated an edit picture with the corresponding size, causing a longer field length. Problem conclusion: The SUMSPACE mask expansion logic was changed to use the APICE when mask is made up of all 9's. The APICE returns the proper number of digits as per input mask. Changed macro in SFSYFJCC: EASYT007 - existing macro ---------------------------------------------------------------- Change #5: ---------- Date reported: 12/02/2011 Severity: Medium Users Affected: All IMU users Problem description: Customer is complaining that there is no print control characters when displaying data to a non-printer file. Problem summation: The DISPLAY records are written to a file as if it was a regular file. There is no consideration for printer cc. Problem conclusion: FDISPLAY=NATIVE/EASYT option was added to allow the user to display to a file with printer cc. FDISPLAY=NATIVE Do not use print cc (standard IMU way) FDISPLAY=EASYT USe print cc when writing to a non-printer file. Changed macro in SFSYFJCC: EASYTRAN - existing macro EASYT007 - existing macro EASYOVRD - existing macro ---------------------------------------------------------------- Change #6: ---------- Date reported: 12/02/2011 Severity: Medium Users Affected: All IMU users Problem description: Customer reported a problem with PAGE-COUNT when used in the PAGEFOOT exit and RENUM was coded on one or more CONTROL Break fields. The displayed PAGE-COUNT is picking up the value from the next page (in this case 1) instead using the one from the current page. Problem summation: There is a problem with the logic generated by the GENERATEQ macro, whereby, on RENUM, it resets the page count before entering the ENDPAGE report exit. Problem conclusion: The logic in the GENERATQ macro was corrected to generate reset page in the new page (HDR)routine. A switch is turned on in control break for RENUM fields that triggers the page reset when printing titles for the new page. Changed macro in SFSYFJCC: GENERATQ - existing macro ---------------------------------------------------------------- Change #7: ---------- Date reported: 12/02/2011 Severity: Medium Users Affected: All IMU users of the Automated Parallel Test Utility (JCYMIG00) Problem description: 1. The job accounting extracted from the job statement and passed on the PARM= of the compare step is failing for unpaired quotes. 2. Output flat files with DISP=(NEW,?,?) are being changed to DISP=(MOD,?,?) Problem summation: 1. The problem is introduced by the quoted string in the job accounting parameter. JCL fails when '&JOBACCT' variable is replaced by the quoted string causing double quotes. 2. The DISP=(MOD..) problem was introduced by a recent fix for PDS files. The logic is erroneously plugging DISP=(MOD,,) when determining if the data set is a PDS library. The PDS files require DISP=(MOD,,). Problem conclusion: 1. Quotes in the &JOBACCT are doubled-up to make it syntax compatible for JES2/3. 2. The erroneous logic was corrected to create DISP=(NEW,,) Changed modules in SFSYLOAD: FSYMIG00 - existing program FSYMIGS0 - existing program ----------------------------------------------------------------
Local fix
n/a
Problem summary
**************************************************************** * USERS AFFECTED: All IMU V3.2 users. * **************************************************************** * PROBLEM DESCRIPTION: Several problems were addressed with * * this one APAR. * * * * 1 * * Numeric test for packed fields is not * * compatible with EZT Plus. * * * * 2 * * PL10 field with EVEN option was * * converted to use 17 digits when it * * should have been 18 digits long. * * * * 3 * * Customer has a program that uses * * SYSUT1 for a file DD name. It * * corrupted SMF production file. The * * customer is requesting that DDnames * * used by compilers and IMU * * preprocessor be filtered out. * * * * 4 * * The position of report fields * * displayed by the DISPLAY in report * * exits do not match position on the * * report LINE. The problem is * * visible on signed fields with * * MASK ('9999999999'). * * * * 5 * * There is no print control characters * * when displaying data to a non-printer * * file. * * * * 6 * * Problem with PAGE-COUNT when used in * * the PAGEFOOT exit and RENUM was coded * * on one or more CONTROL Break fields. * * The displayed PAGE-COUNT is picking * * up the value from the next page (in * * this case 1) instead using the one * * from the current page. * * * * 7 * * The job accounting extracted from the * * job statement and passed on the PARM= * * of the compare step is failing for * * unpaired quotes. * * * * 8 * * Output flat files with DISP=(NEW,?,?) * * are being changed to DISP=(MOD,?,?) * * * **************************************************************** * RECOMMENDATION: Apply PTF. * **************************************************************** 2 The correct number of digits of Packed Decimal field when packed length is greater than 9 is 18. The logic works for fields that are not coded with EVEN option. There is a bug in EASYT007 when EVEN is used. 3 SYSUT1. . . SYSUT7 DD names are use by COBOL, Link and SQLTRAN steps. These names cannot be used in EZT Programs when doing Link & Go. 4 The problem is caused by the APIC routine while expanding mask for SUMSPACE, because a mask of all 9's without insert characters is considered to be an internal picture. Therefore, the APIC generated an edit picture with the corresponding size, causing a longer field length. 5 The DISPLAY records are written to a file as if it was a regular file. There is no consideration for printer cc. 6 There was a problem with the logic generated by the GENERATEQ macro, whereby, on RENUM, it resets the page count before entering the ENDPAGE report exit. 7 The problem is caused by the quoted string in the job quoted string in the job accounting parameter. JCL fails when '&JOBACCT' variable is replaced by the quoted string causing double quotes. 8 DISP=(MOD..) problem with logic erroneously plugging DISP=(MOD,,) when determining if the data set is a PDS library. The PDS files require DISP=(MOD,,).
Problem conclusion
1 TESTNUM=NATIVE/EASYT option to EASYTRAN/EASYPARAMS was added to choose the sign handling as follows: NATIVE do test as per previous IMU rules for NUMPROC(NOPFD/MIG) type signed unsigned ------- -------- -------- packed F,C F,C display F F NUMPROC(PFD) type signed unsigned ------- -------- -------- packed C F display C F EASYT do test as per EZT Plus rules for NUMPROC(NOPFD/MIG) type signed unsigned ------- -------- -------- packed F,C F,C display F F The default is TESTNUM=NATIVE 2 The logic was corrected to use 18 digits when EVEN option is used. 3 DDFILTER=NO/YES option was added to allow the user to flag all conflicting DD names. DDFILTER=NO Do not flag conflicting DD names as error DDFILTER=YES Flag conflicting DD names as an error. A new FSYDDTAB table of reserved DD names has been created and placed into SFSYCCLC library. This table can be changed to suite the user requirements, i.e., custom DD names can be added or deleted. Also refer to APAR #AM52896 for altering DD names via SYSUTDD= in #EZTPROC. 4 The SUMSPACE mask expansion logic was changed to use the APICE when mask is made up of all 9's. The APICE returns the proper number of digits as per input mask. 5 FDISPLAY=NATIVE/EASYT option was added to allow the user to display to a file with printer cc. FDISPLAY=NATIVE Do not use print cc (standard IMU way) FDISPLAY=EASYT USe print cc when writing to a non-printer file. 6 The logic in the GENERATQ macro was corrected to generate reset page in the new page (HDR)routine. A switch is turned on in control break for RENUM fields that triggers the page reset when printing titles for the new page. 7 Quotes in the &JOBACCT are doubled-up to make it syntax compatible for JES2/3. 8 The erroneous logic was corrected to create DISP=(NEW,,)
Temporary fix
Comments
APAR Information
APAR number
PM54939
Reported component name
MIGRATION UTILI
Reported component ID
5697N4400
Reported release
320
Status
CLOSED PER
PE
NoPE
HIPER
NoHIPER
Special Attention
NoSpecatt
Submitted date
2011-12-22
Closed date
2012-01-20
Last modified date
2012-02-02
APAR is sysrouted FROM one or more of the following:
APAR is sysrouted TO one or more of the following:
Modules/Macros
FSYCSIGN FSYDDTAB FSYEFDDS FSYESORD FSYETRAN FSYET007 FSYGRATQ FSYMIGS0 FSYMIG00 FSYPSIGN
Fix information
Fixed component name
MIGRATION UTILI
Fixed component ID
5697N4400
Applicable component levels
R320 PSY UK75631
UP12/01/25 P F201
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.
[{"Business Unit":{"code":"BU058","label":"IBM Infrastructure w\/TPS"},"Product":{"code":"SSY4B9","label":"IBM Migration Utility for z\/OS"},"Component":"","ARM Category":[],"Platform":[{"code":"PF025","label":"Platform Independent"}],"Version":"320","Edition":"","Line of Business":{"code":"LOB35","label":"Mainframe SW"}}]
Document Information
Modified date:
27 October 2020