A fix is available
APAR status
Closed as new function.
Error description
New function to provide an API to obtain the IMS installed release level.
Local fix
Problem summary
**************************************************************** * USERS AFFECTED: * * IMS V15 Users * **************************************************************** * PROBLEM DESCRIPTION: * * New function to provide an API to obtain the IMS installed * * release level. * **************************************************************** * RECOMMENDATION: * * INSTALL CORRECTIVE SERVICE FOR APAR/PTF * **************************************************************** This APAR introduces an API to obtain the installed IMS version, release, and modification level. The API is accessed through an Assembler macro. This APAR also re-purposes a currently unused field in the SCD to represent the IMS "installed" release, which is in contrast to the IMS "base" release which for V15 customers is 15.1.
Problem conclusion
Modules and macros added or changed: ------------------------------------------------------------ Change to the SCD: ************ * ISCD * ************ The field SCDASYS is renamed and moved into the fixed section of the SCD as field name SCDINLVL. This represents the IMS "installed release" level, as opposed to the "IMS Base" release level, represented by existing field SSCDIMSR. Note that this causes neither an increase in the size of the SCD, nor a change in any offsets to fields in the SCD. The exception to this is the change to the size of the fixed section of the SCD, which is represented by SCDFIXED. ------------------------------------------------------------ The API that this APAR introduces: ************ * DFSGVRM * ************ A macro which returns the IMS version/release/modification level. The information is returned by calling new module DFSGVRM0. See its description below for more information. ------------------------------------------------------------ Changed programs that reference new SCD field: ************ * DFSXDBI0 * ************ Sets new field SCD field, SCDINLVL, during IMS initialization from the value returned from the DFSGVRM (Get IMS version/release/modification level) API. ************ * DFSSDSP0 * ************ The message that displays the IMS startup parameters, msgDFS1929I, is changed to get the IMS version from the new SCD field, SCDINLVL. ************ * DFSRST00 * ************ For the content of msgDFS4878I, the source of the IMS version is changed to get the information from the new field in the SCD, SCDINLVL. ************ * DFSCSL20 * ************ When registering with SCI, the version associated with the IMS control region is changed to obtain the information from the new field in the SCD, SCDINLVL. This is the version of IMS that is shown on the QUERY IMSPLEX command. ************ * DFSIQ210 * ************ When displaying the IMS version as part of the QUERY IMSFUNC command, the source of the IMS version is changed to get the information from the new field in the SCD, SCDINLVL. ************ * DFSXBAT0 * ************ Set new SCD field SCDINLVL from the DFSGVRM API for the Batch SCD during Batch initialization. ************ * DFSXDCC0 * ************ Set new SCD field SCDINLVL from the DFSGVRM API for the Batch SCD during DCCTL Batch initialization. ------------------------------------------------------------ Log record changes: ************ * DFSLOG42 * ************ Add new field ATLEVEL in a currently reserved word, representing the IMS "installed release" level. Neither the size of the type42 record, nor any offsets are changed. ************ * DFSXLGI0 * ************ Move the IMS "installed release" level from field SCDINLVL to new field ATLEVEL in the type42 record. ************ * DFSLOG45 * ************ Add new field ST4500_IN_LVL to a currently reserved word in the type4500 record. This changes neither the size nor offsets of any field in the type4500 record. ************ * DFSSTAT0 * ************ Populate new field ST4500_IN_LVL from the new field in the SCD, SCDINLVL. ------------------------------------------------------------ Changes to DFSVRM* modules and macros: ************ * DFSVRM * ************ The release level is decoded. ************ * DFSVRM00 * ************ Recompile for decoding the release in the DFSVRM macro. ------------------------------------------------------------ New modules and macros for the GVRM API: ************ * DFSGVRM0 * ************ The interface module that is called by the DFSGVRM macro to populate the output area that is returned to the caller. The module obtains the VRM information by interrogating the DFSVRM00 module, whose internal format is not published and is not part of any supported programming interface. The module determines the IMS VRM information in the following order: 1. Try to get the information from DFSVRM00 2. If step #1 is unsuccessful, go to the JES SSCT (subsystem control table) entry representing the dump SSCT, get the address of the SCD, and return the information from SSCDIMSR. This only works if the caller is running in the IMS control region, DL/I separate address space, or an IMS DL/I Batch region. 3. If steps #1 and #2 are unsuccessful, get the information from DFSVC000. If the program cannot still obtain the information after trying the 3 steps above, an error is returned. ************ * DFSGVRMP * ************ Maps the parameter list which is passed to DFSGVRM0 by the DFSGVRM macro. ************ * DFSGVRMO * ************ Maps the output area which is returned to the invoker of the DFSGVRM macro. The address of this area is also passed on the DFSGVRM FUNC=REL call to release the output area. ************ * DFSGVRMD * ************ Maps the "diagnostic area" area of the DFSGVRM API. This area is populated inline by the DFSGVRM macro, passed to DFSGVRM0, and populated in the output area which is returned to the invoker of DFSGVRM FUNC=CALL. ------------------------------------------------------------ Dump formatter changes: ************ * DFSASCD0 * ************ This is the dump formatter module which formats the SCD. It is re-compiled to pick up the SCD changes for the new field SCDINLVL, as well as the new size of the fixed section of the SCD represented by SCDFIXED. ************ * DFSADIA0 * ************ In the dump formatter, this is the program that populates the SUMMARY report under the HI-LEVEL menu when the dump is from an abend. The "IMS Installed Version" is added under the "IMS Version" which is now called the "IMS Base Version" with this APAR. ************ * DFSEF160 * ************ In the dump formatter, this program produces the report for the EDA STATS panel. The "IMS Installed Version" is added under the "IMS Version" which is now called the "IMS Base Version" with this APAR. ------------------------------------------------------------ Dummy parts introduced as macros: ************ * DFSJMK01 * ************ A 'dummy' part containing no code that allows for an update of the JMK1501 FMID. ************ * DFSJMK02 * ************ A 'dummy' part containing no code that allows for an update of the JMK1502 FMID. ************ * DFSJMK03 * ************ A 'dummy' part containing no code that allows for an update of the JMK1503 FMID. ************ * DFSJMK1Z * ************ A 'dummy' part containing no code that allows for an update of the JMK151Z FMID.
Temporary fix
Comments
APAR Information
APAR number
PH14457
Reported component name
IMS V15
Reported component ID
5635A0600
Reported release
500
Status
CLOSED UR1
PE
NoPE
HIPER
NoHIPER
Special Attention
NoSpecatt / Xsystem
Submitted date
2019-07-16
Closed date
2019-09-20
Last modified date
2019-10-01
APAR is sysrouted FROM one or more of the following:
APAR is sysrouted TO one or more of the following:
PH15475 UI65422 UI65423 UI65424 UI65425 UI65426
Modules/Macros
DFSGVRMP DFSGVRMO DFSSDSP0 DFSXLGI0 DFSLOG42 DFSLOG45 DFSRST00 DFSCSL20 DFSJMK1Z DFSGVRMD DFSXBAT0 DFSGVRM0 DFSJMK02 DFSJMK01 DFSJMK03 DFSIQ210 DFSVRM00 ISCD DFSEF160 DFSASCD0 DFSXDCC0 DFSXDBI0 DFSSTAT0 DFSGVRM DFSADIA0
| GC27678900 | GC27679100 |
Fix information
Fixed component name
IMS V15
Fixed component ID
5635A0600
Applicable component levels
R500 PSY UI65422
UP19/09/25 P F909
R501 PSY UI65423
UP19/09/25 P F909
R502 PSY UI65424
UP19/09/25 P F909
R503 PSY UI65425
UP19/09/25 P F909
R51Z PSY UI65426
UP19/09/25 P F909
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":"BU058","label":"IBM Infrastructure w\/TPS"},"Product":{"code":"SSEPH2","label":"IMS"},"Platform":[{"code":"PF025","label":"Platform Independent"}],"Version":"15","Line of Business":{"code":"LOB35","label":"Mainframe SW"}}]
Document Information
Modified date:
22 December 2023