A fix is available
APAR status
Closed as program error.
Error description
For a multi extent file on FBA the CI (Control Interval) with the last records are not written during CLOSE if the current CI is the last CI on the current extent. The used DTFSD specifies RECFORM=VARBLK.
Local fix
Problem summary
**************************************************************** * USERS AFFECTED: All. * **************************************************************** * PROBLEM DESCRIPTION: Missing records at end of file. * **************************************************************** * RECOMMENDATION: * **************************************************************** For a VTOC controlled file (BAM file) on FBA the CI (Control Interval) with the last record(s) is not written during CLOSE if the current CI is the last CI on the extent. Instead a SEOF (Software End Of File) CI with zeroes is written. The used DTFSD specifies RECFORM=VARBLK.
Problem conclusion
During Close of a DTFSD variable length record file when records are written in control interval (CI) format it is checked whether there is a CI to be written. However it is only written in the current extent if there is space in the extent. The check for space includes a field that is used for the record number on ECKD devices but should be zero on FBA or SCSI devices. Erroneously it was allways set to 1. The fix sets this field to zero during initialisation of DTF Extension for a file on SCSI or FBA disk.
Temporary fix
Comments
APAR Information
APAR number
DY47582
Reported component name
VSE/AF MACROS
Reported component ID
5686CF906
Reported release
51C
Status
CLOSED PER
PE
NoPE
HIPER
NoHIPER
Special Attention
NoSpecatt / Xsystem
Submitted date
2014-10-30
Closed date
2014-10-31
Last modified date
2014-11-14
APAR is sysrouted FROM one or more of the following:
APAR is sysrouted TO one or more of the following:
UD54075
Modules/Macros
IJJGMIOI
Fix information
Fixed component name
VSE/AF MACROS
Fixed component ID
5686CF906
Applicable component levels
R51C PSY UD54075
UP14/11/14 I 1000
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":"BU054","label":"Systems w\/TPS"},"Product":{"code":"SG32M","label":"APARs - VSE\/ESA environment"},"Component":"","ARM Category":[],"Platform":[{"code":"PF025","label":"Platform Independent"}],"Version":"51C","Edition":"","Line of Business":{"code":"","label":""}}]
Document Information
Modified date:
11 December 2020