Closed as program error.
See Problem Summary.
APAR NUMBER: PM77231 PRODUCT: z/TPFDF FUNCTIONAL AREA: TPFDF CENTRAL DATABASE ROUTINES SHIPPED IN PUT: 10 ABSTRACT: With PK59946, an OPR-DB0112 system error may occur if an "always open" file (ALWAYS=YES coded in DBDEF) is initially accessed after a non-"always open" z/TPFDF file is opened. PACKAGE CONTENTS: Source Segments: (C) tpfdf/rt/ub40.asm Object Only Binaries: None. Configuration Independent Binaries: None. Support Files: None. OTHER BINARIES TO BUILD: YES (C) <sys>/lib/libUTDF.so (C) <sys>/load/UTDF.so (C) <sys>/obj/ub40.o COMMENTS: A z/TPFDF file is defined as "always open" if ALWAYS=YES (SW02OP2, #BIT7) is specified in the DBDEF. For "always open" files, the processing in ub40.asm that handles the initial access of the file is supposed to skip the incrementing of the open file count (CE1DBO). However, part of the code is still executed which results in field CE1DBO being incorrectly set to zero. On a subsequent DBCLS, when the CE1DBO field is decremented, a value below zero may result. This can lead to an OPR-DB0112 system error when the ECB exits because the CE1DBO value is not zero.
SOLUTION: In segment ub40.asm, the code that increments the open file count is corrected so that CE1DBO is not changed for files with SW02OP2,#BIT7 set to 1. COREQS: NO None. MIGRATION CONSIDERATIONS: NO None. BUILD COMMANDS AND INSTRUCTIONS: YES #maketpf commands for linux maketpf -f UTDF ub40.o maketpf UTDF link UPDATED INFORMATION UNITS: NO None. See your IBM representative if you need additional information. DOWNLOAD INSTRUCTIONS: http://www.ibm.com/software/htp/tpf/maint/maintztpf.html APAR URL: http://www.ibm.com/software/htp/tpf/ztpfmaint/put10/PM77231.htm
Reported component name
Reported component ID
Last modified date
APAR is sysrouted FROM one or more of the following:
APAR is sysrouted TO one or more of the following:
Fixed component name
Fixed component ID
Applicable component levels