Migration R19 to R20 : RECORD SIZE different in UNLOAD DEDB
Article ID: 131387
Updated On:
Products
Database Analyzer (IMS Tools)
Mainframe Configuration Manager for IMS for z/OS
IMS TOOLS - MISC
Compress Data Compression (IMS Tools)
Database Analyzer for IMS for z/OS
Database Copier for IMS for z/OS
Database Organizer for IMS for z/OS
Mainframe Extended Terminal Manager (IMS Tools)
High Performance Recovery for IMS for z/OS
Database Organizer (IMS Tools)
Mainframe Program Restart Manager for IMS for z/OS
Secondary Index Builder for IMS for z/OS
Secondary Index for IMS for z/OS
Issue/Introduction
We updated CA TOOLS IMS (DBA - DBO - SIB) from R19 to R20. But for 2 jobs, in which there are UNLOAD for 2 bases DEDB, the DFSURG0 files have DIFFERENT RECORD SIZE between R19 and R20.
Could it be possible to modify this parameter in the jobs, with DBO Control Statements?
Environment
Release:
Component: DBO
Component: DBO
Resolution
Some years ago, we fixed a bug where “CA Database Organizer for IMS for z/OS (DBO) may interpret LRECL value incorrectly when a value was specified in the JCL to override the LRECL value for the DBOUNLD1/DFSURGU1 unload data set.”
Basically, the LRECL is now respected, as in the past, it was incorrectly interpreted as “LRECL + 4 bytes”.
So there are two options:
Changing the JCLs to specify the LRECL exactly as they want it to be. It may be many JCLs and I don’t expect they’ll be willing to do it.
Reinstate the old behavior (LRECL + 4) by usage of Environment Specific Product Customization - ITKOPTN, option LRECLEXT=Y.
LRECLEXT=Y: Overridden LRECL value for the DBOUNLD1 unload data set will be increased by 4 bytes.
https://docops.ca.com/ca-database-management-solutions-for-ims-for-z-os/20-0/en/installing-and-configuring/configuring-ca-database-management-solutions-for-ims/enabling-environment-specific-product-customizations/
Basically, the LRECL is now respected, as in the past, it was incorrectly interpreted as “LRECL + 4 bytes”.
So there are two options:
Changing the JCLs to specify the LRECL exactly as they want it to be. It may be many JCLs and I don’t expect they’ll be willing to do it.
Reinstate the old behavior (LRECL + 4) by usage of Environment Specific Product Customization - ITKOPTN, option LRECLEXT=Y.
LRECLEXT=Y: Overridden LRECL value for the DBOUNLD1 unload data set will be increased by 4 bytes.
https://docops.ca.com/ca-database-management-solutions-for-ims-for-z-os/20-0/en/installing-and-configuring/configuring-ca-database-management-solutions-for-ims/enabling-environment-specific-product-customizations/
Additional Information
The answer is no, it cannot be changed using the DBO control statements.
However, it can be changed in the jobs, by modifying the LRECL parameter in DFSURGU1 DD statement.
For example - in BMFHGR20, the customer is using this statement:
//DFSURGU1 DD DSN=BFM0.MXEHGT0M.SBQ.R20(+1),DISP=(NEW,PASS,DELETE),
// DCB=(PATTERN,DSORG=PS,RECFM=VB,LRECL=27990),
// UNIT=(SYSALLDA),
// SPACE=(4096,(1708375,170838),RLSE,,ROUND)
By changing the LRECL to 27994, they achieve the expected record size of 27,994 bytes.
The same for the other jobs, it’s always +4. The question is, how many jobs they would need to change using this approach. It may be more effective to just use the ITKOPTN.
However, it can be changed in the jobs, by modifying the LRECL parameter in DFSURGU1 DD statement.
For example - in BMFHGR20, the customer is using this statement:
//DFSURGU1 DD DSN=BFM0.MXEHGT0M.SBQ.R20(+1),DISP=(NEW,PASS,DELETE),
// DCB=(PATTERN,DSORG=PS,RECFM=VB,LRECL=27990),
// UNIT=(SYSALLDA),
// SPACE=(4096,(1708375,170838),RLSE,,ROUND)
By changing the LRECL to 27994, they achieve the expected record size of 27,994 bytes.
The same for the other jobs, it’s always +4. The question is, how many jobs they would need to change using this approach. It may be more effective to just use the ITKOPTN.
Feedback
Yes
No
Powered by
