A fix is available
APAR status
Closed as program error.
Error description
Abend013-60 after applying PTF UI75005 Date opened: 2021-06-14 PTF Pre-reqs: UI75005 APAR Pre-reqs: None Severity: High Users Affected: All IMU V4.1 Problem Description ------------------- Client is getting System Abend013-60 when file DCB does not contain DCB information or the BLKSIZE on disk is not multiples of LRECL. The error occurs with IMU option OFILOPN=(DISP,MOD). Problem Summation ----------------- The Abend013-60 is a z/OS system message. The file is a dummy file (empty file) created by IEFBR14 step or the file does not contain the necessary DCB information in the catalog. The ABEND occurs in the system open routine before IMU can trap it. Client is requesting that IMU traps this error with the DCB error exit handling routine in FSDYNIO0 module (Dynamic I/O interface module) as they have numerous JOBs that create dummy files without the DCB information. Client is also requesting the tape handling and SYSOUT/SUBSYS files is preserved as of PTF UI75005 for OFILOPN=(MOD,OLD) option, i.e., the tape files and SYSOUT/SUBSYS are opened for output only. Problem Conclusion: ------------------- a) The original IMU I/O logic (before PTF UI75005) for output files with DISP=(MOD/OLD) was opening files in INPUT mode to retrieve file DCB from the existing file. ------- b) The change OFILOPN=(MOD,OLD) implemented with PTF UI75005 is opening output files in OUTPUT mode only. Client found out that the implemented logic does not handle all dummy file situations nor the DCB differences between the defined file in the program VS the actual file, i.e., the system is trapping file inconsistencies and ABENDing before returning to the IMU OPEN statement in the program. ------- c) This APAR change impacts DISK files only. The SYSOUT/SUBSYS and tape files open is as per PTF UI75005, that is, such files are opened in OUTPUT mode only. The following bits are tested to determine if file is allocated to SYSOUT/SUBSYS media: TM JFCBTSDM,JFCSDS IS SYSOUT/SYSIN OR SUBSYS DSN? Where: JFCSDS EQU X'20' This dataset is either a SYSIN/SYSOUT or SUBSYS= dataset. The following bits are tested to determine if a file is allocated to a TAPE device: Field in: IEFJFCBN LIST=YES JFCB layout macro. JFCTDSI1 DS B - TDSI BYTE 1 FOR TAPE FILES * JFC18TRK EQU X'10' 18 TRACK RECORDING MODE - (HEX VALUE) * JFC36TRK EQU X'20' 36 TRACK RECORDING MODE - (HEX VALUE) * JFC128TK EQU X'30' 128 TRACK RECORDING MODE - (HEX VALUE) * JFC256TK EQU X'40' 256 TRACK RECORDING MODE - (HEX VALUE) * JFC384TK EQU X'50' 384 TRACK RECORDING MODE - (HEX VALUE) * JFCEFMT1 EQU X'60' ENTERPRISE FORMAT 1 (HEX VALUE) * JFCEFMT2 EQU X'70' ENTERPRISE FORMAT 2 (HEX VALUE) * JFCEEFM2 EQU X'80' ENTERPRISE ENCRYPTION FORMAT 2 (HEX VALUE) * JFCEFMT3 EQU X'90' ENTERPRISE FORMAT 3 (HEX VALUE) * JFCEEFM3 EQU X'A0' ENTERPRISE ENCRYPTION FORMAT 3 (HEX VALUE) * JFCEFMT4 EQU X'B0' ENTERPRISE FORMAT 4 (HEX VALUE) * JFCEEFM4 EQU X'C0' ENTERPRISE ENCRYPTION FORMAT 4 (HEX VALUE) TM JFCTDSI1,X'F0' SEE IF TAPE DRIVE DEVICE 025 BZ YNEWOTH2 NOT A TAPE DRIVE 025 The APAR implements DISK file open for INPUT first as the original IMU was doing (described in paragraph (a) above). A DCB error exit for DISK files was added to trap the OPEN errors and ignore the System ABEND. The logic to trap the ABEND condition is implemented for OFILOPN=(MOD,OLD) IMU option only. OFILOPN=NATIVE is handled as described in paragraph (a) above. The following bits in JFCBIND2 byte of JFCB block force the new I/O as described in this paragraph: X'80' DISP=OLD, X'40' DISP=MOD, X'48' DISP=SHR. By definition, OFILOPN=MOD includes the DISP=SHR bit, thus OFILOPN=(MOD) includes the DISP=SHR files too. The following system ABEnds are trapped and ignored: ABEND013-20 - Disk files error, BLKSIZE not multiple of LRECL for RECFM=V/VB/VBS. ABEND013-34 - Disk files error, no DCB information or DCB is incomplete. ABEND013-60 - Disk files error, BLKSIZE not multiple of LRECL for RECFM=F/FB. The following message is printed to the console when an error is recovered: FSDYNIO0: IEC141I 013-nn,&DDname,OPEN ERROR IGNORED. Where nn = 20, 34 or 60 ------- The following rules are observed when an open error is ignored: 1) If there is a DCB specified in the program, the program DCB is used. 2) If there is no DCB specified in the program, if there is a DCB specified in the JCL, the JCL DCB is used. 3) If neither the program nor JCL specifies a DCB, file will be opened using IMU's default: a. RECFM=FB b. LRECL=defined record size c. BLKSIZE=0. Zero uses the z/OS System default block size. ------- The PTF UI75005 options are as follows: OFILOPN=NATIVE/(MOD,OLD) Where: OFILEOPN=NATIVE opens disk files in input mode first, then in output mode if all goes well. This option is downward compatible. NATIVE is the default. OFILEOPN=(OLD,MOD) or OFILEOPN=(OLD) or OFILOPN=(MOD) Any combination is allowed. OLD and MOD are independent of each other. MOD option is applied for files when DISP=MOD or DISP=SHR is in the JCL. This gives user a choice to choose one option only or both options at the same time. Example1: Add OFILOPN= to EZPARAMS. OFILEOPN=(OLD, MOD), Example2: Add OFILOPN= at the top of Easytrieve Plus program. * EASYTRAN: OFILOPN=(MOD, OLD) * END-EASYTRAN ------- Changed modules ------------------ FSOFT01.V4R1M0.SFSYLOAD FSDYNIO0 - Existing I/O module. Special Installation Instructions --------------------------------- Make sure that you apply PTF UI75005 before this APAR. FSDYNIO0 module is dynamically loaded at run time. All programs that use the updated IMU system will be using the updated FSDYNIO0 module. Action: --------------------------------- 1. Apply the prerequisite PTF UI75005. 2. Apply this APAR/PTF. 3. Add OFILOPN= option described in the "Problem Conclusion" paragraph. You can add OFILOPN= to EZPARAMS or at the top of your Easytrieve Plus program source. 4 Translate and run failing Easytrieve Plus programs that contain DISP=OLD or DISP=MOD or DISP=SHR in the JCL for output file(s). The test file(s) can be defined without the DCB statement with IEFBR14 in a step before the FSYTPA00 step. Please test with OFILOPN=NATIVE first. Then you can test with OFILOPN=(OLD, MOD) options or one at the time. Test DISK files and tape files if you are a tape user.
Local fix
Problem summary
The Abend013-60 is a z/OS system message. The file is a dummy file (empty file) created by IEFBR14 step or the file does not contain the necessary DCB information in the catalog. The ABEND occurs in the system open routine before IMU can trap it. Client is requesting that IMU traps this error with the DCB error exit handling routine in FSDYNIO0 module (Dynamic I/O interface module) as they have numerous JOBs that create dummy files without the DCB information. Client is also requesting the tape handling and SYSOUT/SUBSYS files is preserved as of PTF UI75005 for OFILOPN=(MOD,OLD) option, i.e., the tape files and SYSOUT/SUBSYS are opened for output only.
Problem conclusion
a) The original IMU I/O logic (before PTF UI75005) for output files with DISP=(MOD/OLD) was opening files in INPUT mode to retrieve file DCB from the existing file. ------- b) The change OFILOPN=(MOD,OLD) implemented with PTF UI75005 is opening output files in OUTPUT mode only. Client found out that the implemented logic does not handle all dummy file situations nor the DCB differences between the defined file in the program VS the actual file, i.e., the system is trapping file inconsistencies and ABENDing before returning to the IMU OPEN statement in the program. ------- c) This APAR change impacts DISK files only. The SYSOUT/SUBSYS and tape files open is as per PTF UI75005, that is, such files are opened in OUTPUT mode only. The following bits are tested to determine if file is allocated to SYSOUT/SUBSYS media: TM JFCBTSDM,JFCSDS IS SYSOUT/SYSIN OR SUBSYS DSN? Where: JFCSDS EQU X'20' This dataset is either a SYSIN/SYSOUT or SUBSYS= dataset.
Temporary fix
Comments
APAR Information
APAR number
PH39471
Reported component name
MIGRATION UTILI
Reported component ID
5697N4400
Reported release
410
Status
CLOSED PER
PE
NoPE
HIPER
NoHIPER
Special Attention
NoSpecatt / Xsystem
Submitted date
2021-08-02
Closed date
2021-09-16
Last modified date
2021-10-01
APAR is sysrouted FROM one or more of the following:
APAR is sysrouted TO one or more of the following:
UI77200
Modules/Macros
FSYDNIO0
Fix information
Fixed component name
MIGRATION UTILI
Fixed component ID
5697N4400
Applicable component levels
R410 PSY UI77200
UP21/09/18 P F109
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.
[{"Line of Business":{"code":"LOB35","label":"Mainframe SW"},"Business Unit":{"code":"BU058","label":"IBM Infrastructure w\/TPS"},"Product":{"code":"SSY4B9","label":"Migration Utility for z\/OS"},"Platform":[{"code":"PF025","label":"Platform Independent"}],"Version":"410"}]
Document Information
Modified date:
02 October 2021