SUBJECT: APAR NUMBER: PK20320
REFERENCE: AREA: TPFDF CENTRAL DATABASE ROUTINES
SEGMENT: ACPDBE13 - RELEASE: TPFDF (Macro)
SEGMENT: BLKSZ13 - RELEASE: TPFDF (Macro)
SEGMENT: C$ACPDBE13 - RELEASE: TPFDF (C-Header)
SEGMENT: C$SW00SR13 - RELEASE: TPFDF (C-Header)
SEGMENT: DBGBL13 - RELEASE: TPFDF (Macro)
SEGMENT: DBLCL13 - RELEASE: TPFDF (Macro)
SEGMENT: GR0VSR13 - RELEASE: TPFDF (Macro)
SEGMENT: GR0YSR13 - RELEASE: TPFDF (Macro)
SEGMENT: GR25SR13 - RELEASE: TPFDF (Macro)
SEGMENT: GR26SR13 - RELEASE: TPFDF (Macro)
SEGMENT: GR27SR13 - RELEASE: TPFDF (Macro)
SEGMENT: GR28SR13 - RELEASE: TPFDF (Macro)
SEGMENT: GR29SR13 - RELEASE: TPFDF (Macro)
SEGMENT: GR3NSR13 - RELEASE: TPFDF (Macro)
SEGMENT: GR3OSR13 - RELEASE: TPFDF (Macro)
SEGMENT: GW0YSR13 - RELEASE: TPFDF (Macro)
SEGMENT: GW01SR13 - RELEASE: TPFDF (Macro)
SEGMENT: IDFRDF13 - RELEASE: TPFDF (Dsect)
SEGMENT: IRA4DF13 - RELEASE: TPFDF (Dsect)
SEGMENT: IRA5DF13 - RELEASE: TPFDF (Macro)
SEGMENT: IRCADF13 - RELEASE: TPFDF (Dsect)
SEGMENT: IRCBDF13 - RELEASE: TPFDF (Dsect)
SEGMENT: IRCCDF13 - RELEASE: TPFDF (Dsect)
SEGMENT: IRCDDF13 - RELEASE: TPFDF (Dsect)
SEGMENT: IRCEDF13 - RELEASE: TPFDF (Dsect)
SEGMENT: IRCFDF13 - RELEASE: TPFDF (Dsect)
SEGMENT: IRCGDF13 - RELEASE: TPFDF (Dsect)
SEGMENT: IRCIDF13 - RELEASE: TPFDF (Dsect)
SEGMENT: IRCKDF13 - RELEASE: TPFDF (Dsect)
SEGMENT: IRCMDF13 - RELEASE: TPFDF (Dsect)
SEGMENT: IRCTDF13 - RELEASE: TPFDF (Dsect)
SEGMENT: IRCXDF13 - RELEASE: TPFDF (Dsect)
SEGMENT: IRDCDF13 - RELEASE: TPFDF (Macro)
SEGMENT: IRDIDF13 - RELEASE: TPFDF (Macro)
SEGMENT: IR0VDF13 - RELEASE: TPFDF (Dsect)
SEGMENT: IWA2DF13 - RELEASE: TPFDF (Dsect)
SEGMENT: IWCADF13 - RELEASE: TPFDF (Dsect)
SEGMENT: IWDWDF13 - RELEASE: TPFDF (Macro)
SEGMENT: SRMP1A13 - RELEASE: TPFDF (Dsect)
SEGMENT: SR05SR13 - RELEASE: TPFDF (Macro)
SEGMENT: SW00SR13 - RELEASE: TPFDF (Macro)
SEGMENT: SW05SR13 - RELEASE: TPFDF (Macro)
SEGMENT: UFBH13 - RELEASE: TPFDF (Assembler)
SEGMENT: UFBJ13 - RELEASE: TPFDF (Assembler)
SEGMENT: UFBK13 - RELEASE: TPFDF (Assembler)
SEGMENT: UFBL13 - RELEASE: TPFDF (Assembler)
SEGMENT: UFBM13 - RELEASE: TPFDF (Assembler)
SEGMENT: UFB313 - RELEASE: TPFDF (Assembler)
SEGMENT: UFB913 - RELEASE: TPFDF (Assembler)
SEGMENT: UFCM13 - RELEASE: TPFDF (Assembler)
SEGMENT: UFC013 - RELEASE: TPFDF (Assembler)
SEGMENT: UFD013 - RELEASE: TPFDF (Assembler)
SEGMENT: UFE113 - RELEASE: TPFDF (Assembler)
SEGMENT: UFHB0113 - RELEASE: TPFDF (C++)
SEGMENT: UFHM0013 - RELEASE: TPFDF (C++)
SEGMENT: UFI113 - RELEASE: TPFDF (Assembler)
SEGMENT: UFI813 - RELEASE: TPFDF (Assembler)
SEGMENT: UFI913 - RELEASE: TPFDF (Assembler)
SEGMENT: UFKA0113 - RELEASE: TPFDF (C++)
SEGMENT: UFKA0413 - RELEASE: TPFDF (C++)
SEGMENT: UF1F13 - RELEASE: TPFDF (Assembler)
SEGMENT: UWAL13 - RELEASE: TPFDF (Assembler)
SEGMENT: UWAQ13 - RELEASE: TPFDF (Assembler)
SEGMENT: UWAR13 - RELEASE: TPFDF (Assembler)
SEGMENT: UWAX13 - RELEASE: TPFDF (Assembler)
SEGMENT: UWBF13 - RELEASE: TPFDF (Assembler)
SEGMENT: UWBM13 - RELEASE: TPFDF (Assembler)
SEGMENT: UWBO13 - RELEASE: TPFDF (Assembler)
SEGMENT: UWB113 - RELEASE: TPFDF (Assembler)
SEGMENT: UWB213 - RELEASE: TPFDF (Assembler)
SEGMENT: UWB313 - RELEASE: TPFDF (Assembler)
SEGMENT: UWB413 - RELEASE: TPFDF (Assembler)
SEGMENT: UWB513 - RELEASE: TPFDF (Assembler)
Pre-requisite APARs are (TPF only) :
FOR SEGMENT ACPDBE13 (Macro) - REL TPFDF
PN39258 PN41660 PN48086 PN52010 PN61834 PN66927 PN67252
PN71161 PN73989 PN82139 PQ19230 PQ23871 PQ32209 PQ39696
PQ42097 PQ32210 PQ42198 PQ52738 PQ65645 PQ75887 PQ77651
FOR SEGMENT C$ACPDBE13 (C-Header) - REL TPFDF
PQ42097 PQ32210
FOR SEGMENT C$SW00SR13 (C-Header) - REL TPFDF
PN46560 PN61834 PN64313 PN71161 PN73989 PN76852 PN80488
PN83423 PN85070 PQ02145 PQ04911 PQ09236 PQ08645 PQ10084
PQ16897 PQ23091 PQ25825 PQ36911 PQ37963 PQ32210 PQ55601
PQ64252 PQ51955 PQ74483 PQ75887 PQ79066 PQ80141 PQ90430
PQ94935 PQ95818 PK06268
FOR SEGMENT DBGBL13 (Macro) - REL TPFDF
PN45919 PN67830 PN72208 PN84867 PN86473 PN86470 PN86542
PN91687 PQ01256 PQ06909 PQ10797 PQ15199 PQ17413 PQ75887
PQ80141 PQ90770
FOR SEGMENT DBLCL13 (Macro) - REL TPFDF
PN37303 PN45919 PN67830 PN67252 PN72208 PN84867 PN86473
PN86470 PN86542 PN91687 PQ01256 PQ06909 PQ10797 PQ15199
PQ17413 PQ19320 PQ32209 PQ66435 PQ75887 PQ80141 PQ90770
FOR SEGMENT GR0VSR13 (Macro) - REL TPFDF
PN49889
FOR SEGMENT GR0YSR13 (Macro) - REL TPFDF
PN49889 PN86476 PQ74483
FOR SEGMENT GR25SR13 (Macro) - REL TPFDF
PN49889
FOR SEGMENT GR26SR13 (Macro) - REL TPFDF
PN44448 PQ32210 PQ74483 PQ90134
FOR SEGMENT GR27SR13 (Macro) - REL TPFDF
PN49889
FOR SEGMENT GR28SR13 (Macro) - REL TPFDF
PN49889 PN83066
FOR SEGMENT GR3OSR13 (Macro) - REL TPFDF
PN49889
FOR SEGMENT GW0YSR13 (Macro) - REL TPFDF
PN67252 PN84970
FOR SEGMENT IDFRDF13 (Dsect) - REL TPFDF
PQ10084 PQ75887 PQ80141
FOR SEGMENT IRA4DF13 (Dsect) - REL TPFDF
PN88105
FOR SEGMENT IRA5DF13 (Macro) - REL TPFDF
PN88105
FOR SEGMENT IRCADF13 (Dsect) - REL TPFDF
PQ23489 PQ23871
FOR SEGMENT IRCBDF13 (Dsect) - REL TPFDF
1
PQ23489 PQ23871
FOR SEGMENT IRCCDF13 (Dsect) - REL TPFDF
PQ23489 PQ23871
FOR SEGMENT IRCDDF13 (Dsect) - REL TPFDF
PQ23489 PQ23871 PQ44993
FOR SEGMENT IRCEDF13 (Dsect) - REL TPFDF
PQ23489 PQ23871 PQ54398 PQ74483 PQ75887 PQ94935
FOR SEGMENT IRCFDF13 (Dsect) - REL TPFDF
PQ23489 PQ23871 PQ74483
FOR SEGMENT IRCGDF13 (Dsect) - REL TPFDF
PQ23489 PQ23871 PQ74483
FOR SEGMENT IRCIDF13 (Dsect) - REL TPFDF
PQ23489 PQ23871 PQ74483
FOR SEGMENT IRCKDF13 (Dsect) - REL TPFDF
PQ23489 PQ23871
FOR SEGMENT IRCMDF13 (Dsect) - REL TPFDF
PQ36341 PQ50700 PQ57270 PQ74483 PQ94935
FOR SEGMENT IRCTDF13 (Dsect) - REL TPFDF
PQ36341 PQ74483 PQ94935
FOR SEGMENT IRCXDF13 (Dsect) - REL TPFDF
PQ36341 PQ74483
FOR SEGMENT IRDCDF13 (Macro) - REL TPFDF
PN59160 PN76852 PQ32210
FOR SEGMENT IRDIDF13 (Macro) - REL TPFDF
PN38611 PN59160 PQ50700 PQ57270
FOR SEGMENT IR0VDF13 (Dsect) - REL TPFDF
PQ94935
FOR SEGMENT IWA2DF13 (Dsect) - REL TPFDF
PN88105
FOR SEGMENT IWCADF13 (Dsect) - REL TPFDF
PQ23489 PQ23871
FOR SEGMENT SRMP1A13 (Dsect) - REL TPFDF
PQ42097 PQ80726
FOR SEGMENT SW00SR13 (Macro) - REL TPFDF
AN31299 PN05393 PN37569 PN38613 PN43714 PN46560 PN57526
PN61834 PN64313 PN71161 PN71348 PN73989 PN77016 PN76852
PN80488 PN83423 PN84757 PN87917 PN92097 PQ00790 PQ02145
PQ04911 PQ05189 PQ07995 PQ10797 PQ10084 PQ15475 PQ16897
PQ21506 PQ24625 PQ23091 PQ25824 PQ25825 PQ32209 PQ36911
PQ37963 PQ32210 PQ50275 PQ48551 PQ55601 PQ64252 PQ51955
PQ74483 PQ75887 PQ79066 PQ80141 PQ90430 PQ94935 PQ95818
PQ96246 PK02541 PK03608 PK06268 PK03317
FOR SEGMENT UFBH13 (Assembler) - REL TPFDF
PN41614 PN67252 PN84970 PQ51955
FOR SEGMENT UFBJ13 (Assembler) - REL TPFDF
PN35610 PN83423 PN83356 PN83376 PQ00810 PQ00837 PQ05223
PQ51382 PQ51955 PQ74483 PQ94935
FOR SEGMENT UFBK13 (Assembler) - REL TPFDF
PN39059 PN41324 PN47368 PN86476 PN92681 PN92851 PQ04911
PQ51955 PQ74483 PQ75887
FOR SEGMENT UFBL13 (Assembler) - REL TPFDF
PQ00810 PQ04563 PQ51955 PQ74483 PQ94935
FOR SEGMENT UFBM13 (Assembler) - REL TPFDF
PN42312 PN73989 PN75827 PN91649 PQ02170 PQ04563 PQ08743
PQ30389 PQ32209 PQ51955 PQ74483 PQ75887 PQ97721 PK03442
FOR SEGMENT UFB313 (Assembler) - REL TPFDF
PN62258 PN64313 PN67252 PN92851 PQ00977 PQ04563 PQ34175
PQ32210 PQ46459 PQ51955 PQ74483
FOR SEGMENT UFB913 (Assembler) - REL TPFDF
PN49889 PN57993 PN80117 PQ08078 PQ32210 PQ60444 PQ51955
FOR SEGMENT UFCM13 (Assembler) - REL TPFDF
PQ51955 PQ98335 PQ65588
FOR SEGMENT UFC013 (Assembler) - REL TPFDF
PN72208 PQ00810 PQ30389 PQ55949 PQ51955
FOR SEGMENT UFD013 (Assembler) - REL TPFDF
PN19872 PN84970 PQ00810 PQ51955 PQ75887
FOR SEGMENT UFE113 (Assembler) - REL TPFDF
PN39333 PN43085 PN59160 PN63465 PN86542 PQ17413 PQ32210
PQ50700 PK10079
FOR SEGMENT UFHB0113 (C++) - REL TPFDF
PQ23489 PQ23871 PQ36341 PQ39571 PQ61673 PQ51955 PQ71548
PQ74483 PQ80141 PQ97762 PK02065
FOR SEGMENT UFHM0013 (C++) - REL TPFDF
PQ36341 PQ41433 PQ47054 PQ49946 PQ54576 PQ51032 PQ54861
PQ54862 PQ56696 PQ51955 PQ71548 PQ74483 PQ85397 PQ77651
PQ94935 PQ99582 PK01596 PK05910 PK14527
FOR SEGMENT UFI113 (Assembler) - REL TPFDF
PQ23489 PQ23871 PQ60974 PQ51955 PQ74483 PQ90430 PQ96246
FOR SEGMENT UFI813 (Assembler) - REL TPFDF
PQ23489 PQ23871 PQ32210 PQ51955
FOR SEGMENT UFI913 (Assembler) - REL TPFDF
PQ23489 PQ23871 PQ31377 PQ51955 PQ74483 PQ75887 PQ94935
PK02065 PK15396
FOR SEGMENT UFKA0113 (C++) - REL TPFDF
PQ75887 PK07856 PK10790
FOR SEGMENT UFKA0413 (C++) - REL TPFDF
PQ75887 PK07856 PK10790
FOR SEGMENT UF1F13 (Assembler) - REL TPFDF
PQ23489 PQ23871 PQ36341 PQ50700 PQ54398 PQ57270 PQ86474
FOR SEGMENT UWAL13 (Assembler) - REL TPFDF
PQ32210 PQ45798 PQ51955 PQ75887 PQ82658 PK06268
FOR SEGMENT UWAQ13 (Assembler) - REL TPFDF
PQ32210 PQ51955 PQ74483 PQ75887
FOR SEGMENT UWAR13 (Assembler) - REL TPFDF
PQ32210 PQ46459 PQ60572 PQ51955 PQ74483 PQ75887 PQ80141
FOR SEGMENT UWAX13 (Assembler) - REL TPFDF
PQ32210 PQ51955 PQ74483 PQ94935 PQ96246 PK03840
FOR SEGMENT UWBF13 (Assembler) - REL TPFDF
PQ32210 PQ52738 PQ55616 PQ51955 PQ74483 PQ75887 PQ78532
PQ80141 PQ96246 PK02252 PK13562
FOR SEGMENT UWBM13 (Assembler) - REL TPFDF
PQ46459 PQ74483 PQ75887 PQ89296
FOR SEGMENT UWBO13 (Assembler) - REL TPFDF
PQ46459 PQ96246 PK03317 PK13562
FOR SEGMENT UWB113 (Assembler) - REL TPFDF
PQ32210 PQ51955 PQ74483 PQ75887 PQ80141 PQ83874 PQ94935
PQ96246 PK02541 PK03608
FOR SEGMENT UWB213 (Assembler) - REL TPFDF
PQ32210 PQ52738 PQ69735 PQ51955 PQ74483 PQ75887 PQ79833
PQ80141 PQ85392 PQ90770 PQ94935 PK00334
FOR SEGMENT UWB313 (Assembler) - REL TPFDF
PQ32210 PQ42198 PQ52738 PQ51955 PQ74483 PQ78532 PQ80731
PQ89489 PQ96246 PK13562
FOR SEGMENT UWB413 (Assembler) - REL TPFDF
PQ32210 PQ48551 PQ51955 PQ74483 PQ75887 PQ80141 PQ82900
PQ94935 PQ96246
FOR SEGMENT UWB513 (Assembler) - REL TPFDF
PQ32210 PQ42198 PQ51955 PQ74483 PQ75887 PQ78532 PK00795
PK06268 PK13562
To be applied in the order listed for each segment.
ABSTRACT OF PROBLEM
___________________
Allow ALCS users to specify that the TPFDF product should use L3
blocks instead of L4 blocks for efficiency.
COMMENTS ON PROBLEM
___________________
ALCS can use L3 (4000 byte) blocks instead of L4 (4095 byte)
blocks. TPFDF uses L4 blocks for 4K support, which forces ALCS
to use a bigger block size due to the additional bytes that are
needed but not available in a 4000 byte block. ALCS customers
should be allowed to specify an installation option that deter-
2
mines whether TPFDF uses L3 or L4 blocks for 4K block support.
These blocks would be used in the TPFDF system database defi-
nitions (DBDEFs) and also to TPFDF internal workareas.
In addition, specifying a database interface block (DBIFB) size
of L3 (#TPFDBSW=L3 in macro ACPDBE) results in a maximum of 2
SW00SR slots in a single DBIFB block. If the number of spare
bytes in each SW00SR slot were reduced somewhat, 3 SW00SR slots
would fit in an L3 DBIFB block, thus improving efficiency.
SOLUTION
________
Two new global set symbols have been added to DBGBL and DBLCL
for use by ALCS customers (TPF customers should not modify these
values). &L3DBIFB specifies whether L3 blocks are used for the
DBIFB block, and &L3ORL4 specifies whether TPFDF should other-
wise use L3 or L4 blocks. Corresponding equates in macro ACPDBE
and header C$ACPDBE have also been provided. TPFDF system
DSECTs and source code have been updated to use the new equates
instead of hardcoded L4 block sizes. The values are used within
the TPFDF product for GETCC, database block sizes, and corre-
sponding size calculations.
Setting &L3DBIFB in DBLCL to YES (and _L3DBIFB to 1 in C$ACPDBE)
will reduce the number of spare bytes in the SW00SR, allowing an
additional SW00SR slot to be used in L3 blocks to improve effi-
ciency.
DEPENDENCIES
____________
Related Segments Affected By This APAR.
_______________________________________
Segments to be assembled or compiled:
Segments to be link edited:
On ALCS: TPFDFH3
On TPF: UFHB UFHM UFKA
Load Modules to be loaded:
On ALCS: TPFDFH3
On TPF: UFHB UFHM UFKA
Migration Considerations
========================
For TPF customers, APAR PJ31083 is a co-requisite TPF APAR.
TPF customers should apply this
APAR to stay current with maintenance, but the default values for
the new customizable settings should not be changed.
All customers should be sure to preserve existing customizations
when applying the changes to segments DBLCL, ACPDBE, and C$ACPDBE.
The following are new global set symbols in macro DBLCL:
&L3DBIFB - specifies whether or not L3 blocks are being used for the
database interface block (DBIFB) as defined by the #TPFDBSW value in
macro ACPDBE. A corresponding value must be set for variable _L3DBIFB
in C/C++ header file C$ACPDBE. Allowed values are YES and NO. The
initial setting is NO. TPF customers should not modify this value.
NO - specifies that L3 blocks are not being used for the DBIFB (#TPFDBSW
is not set to L3). Set _L3DBIFB to 0 in C$ACPDBE.
YES - specifies that L3 blocks are being used for the DBIFB (#TPFDBSW
is set to L3). Set _L3DBIFB to 1 in C$ACPDBE.
Notes:
(1) When changing this value, segments UWAH, UWAJ, UWAO, UWAT, and UWBK
must be re-assembled. In addition, if any applications reference
label SW00SIZ, they must be re-assembled as well.
(2) Using L3 blocks for the DBIFB allows 3880 bytes to be allocated
using the SPACE= parameter on a DBOPN/dfopn or DBSPA/dfspa API call.
Using L4 blocks will allow 3952 bytes to be used.
&L3ORL4 - Set to the 4-K block size equate to be used by the TPFDF
product for system databases and working storage. Allowed values are
L3 or L4. This value is used to set symbols #L3ORL4 and #L3ORLRS in
macro ACPDBE. The initial setting is L4. TPF customers should not
modify this value.
The following settings have been added to macro ACPDBE:
#L3ORL4 - Specifies the 4-K block size equate to be used by the TPFDF
product for system databases and working storage. Allowed values are
L3 or L4. This value is automatically set by the &L3ORL4 value
specified in macro DBLCL. The same value must be used for variable
_L3ORL4 in C/C++ header C$ACPDBE. This value also corresponds to the
value set for variable #L3ORL4S. The initial setting is L4.
#L3ORL4S - Specifies the number of bytes corresponding to the 4-K
block size equate specified by the #L3ORL4 variable. Allow values are
4000 or 4095. This value is automatically set by the &L3ORL4 value
specified in macro DBLCL. The same value must be used for variable
_L3ORL4S in C/C++ header C$ACPDBE. The initial setting is whatever
#GBSZE is equated to in your installation.
There is also a change to the description of variable #TPFDBSW in macro
ACPDBE:
The size of the SW00SR block (database interface block, or DBIFB).
The initial setting is L4 (4095 bytes). The smallest SW00SR block size
allowed is L3 (4000 bytes). A 4000-byte block
or a 4095-byte block allows as many as three files to be opened without
the TPFDF product having to get another block. For ALCS users who
have &L3ORL4 set to L3 in macro DBLCL, if &L3DBIFB is set to NO, only
as many as two files can be opened without having to get another block.
The following settings have been added to C/C++ header C$ACPDBE:
_L3ORL4 - Set to the 4-K block size equate to be used by the TPFDF
product for system databases and working storage. Allowed values are
L3 or L4. The same value should be used for variable &L3ORL4 in macro
DBLCL. This value also corresponds to the value set in variable
_L3ORL4S. The initial setting is L4. TPF customers should not
modify this value.
_L3ORL4S - Set to the number of bytes corresponding to the 4-K block
size equate specified by the _L3ORL4 variable. Allowed values are
4000 or 4095. The initial setting is 4095. TPF customers should not
modify this value.
For ALCS customers that currently have user mods to allow them to use
L3 in TPFDF databases, these user mods can be eliminated when &L3ORL4
is set to L3 and _L3ORL4 and _L3ORL4S are set appropriately. ALCS
customers who also set #TPFDBSW to L3 can optionally set &L3DBIFB to YES
to allow up to 3 files to be opened using a single DBIFB block. In
this case, applications should be examined to ensure that no DBOPN/DBSPA
or dfopn/dfspa APIs are requesting more than 3880 bytes.
Use of L3 requires that all real-time segments modified by this APAR
be reassembled, along with UWAH, UWAJ, UWAO, UWAT, UWBK, UF1A and
UF1B. A "ZUDFM DEF INIT" command must also be entered after these
programs are loaded.
3
ALCS customers using L4 blocks are NOT required to migrate to L3. If
you wish to continue using L4 support, do not change any of the new
system configuration values.
For ALCS customers that currently are using L4 blocks in TPFDF database,
the &L3ORL4 variable can only be set to L3 if all TPFDF databases that
use L4 are migrated to use L3. In this case, the corresponding file
types in the FACE table have to correspond with these new values.
-- END APAR PK20320
Click on Link(s) to Download File(s)
Login once to access server, leave window open, then
click on link(s) below.
|
