PK37127: NEW PARAMETER FOR THE OLCSTAT UTILITY DFSUOLC0 TO ALLOW UTILITY TO INITIALIZE THE OLCSTAT DATASET TO A LOWER VERSION.

A fix is available

Subscribe

You can track all active APARs for this component.

APAR status

  • Closed as new function.

Error description

  • This Apar is for Global Online Change users who use the OLCSTAT
    utility DFSUOLC0 to initialize the OLCSTAT. It adds a new
    parameter to the OLCSTAT utility to allow the utility to
    initialize the OLCSTAT dataset to a higher version.
    

Local fix

Problem summary

  • ****************************************************************
    * USERS AFFECTED: All IMS V10 Global Online Change Users.      *
    ****************************************************************
    * PROBLEM DESCRIPTION: The IMS V10 DFSUOLC0 utility FUNC=INI   *
    *                      does not have the capability to         *
    *                      initialize the OLCSTAT dataset to       *
    *                      the version 1 format.                   *
    ****************************************************************
    * RECOMMENDATION: INSTALL CORRECTIVE SERVICE FOR APAR/PTF      *
    ****************************************************************
    The FUNC=INI function of the IMS V10 DFSUOLC0
    OLCSTAT utility initializes the OLCSTAT dataset
    to the version 2 format. There is no
    ability to use the IMS V10 DFSUOLC0 utility to
    initialize the OLCSTAT dataset to the version 1
    format.
    
    The user needs to run the IMS V8 or IMS V9
    utility to initialize to the version 1 format.
    
    ADDITIONAL PROBLEMS:
    1. An INIT OLC PHASE(PREPARE) TYPE(ACBMBR) command
    issued when the OLCSTAT is initialized to version-1 format
    results in Abend 0C4 in DFSOLCS0.
    
    2.DFS3433W message on warm start is issued after OLCSTAT
    is initialized to Version-1 format and /NRE command
    issued.
    
    3. After initializing OLCSTAT to Version-2 format
    and bringing up IMS V10, a fall back from IMS V10 to IMS V9
    results in Abend 2800-07 with DFS2844 message indicating
    the OLCSTAT contents are invalid.
    
    Additional Keywords for Searchability:
    ABEND0C4 MSGDFS3433W MSGDFS2844 MSGDFS4504A MSGDFS1176E
    ABENDU2800
    

Problem conclusion

Temporary fix

Comments

  • A VERS= parameter is being added to the IMS V10 DFSUOLC0
    utility to allow the user to specify the version the
    OLCSTAT must be initialized to.
     VERS=1 allows DFSUOLC0 to initialize the OLCSTAT dataset
     to the version 1 format and length.
     VERS=2 allows DFSUOLC0 to initialize the OLCSTAT dataset
     to the version 2 format and length.
    The default is VERS=2.
    
    If there are one or more IMS V8 or IMS V9 systems in the IMSplex
    that are sharing the OLCSTAT, then the OLCSTAT must be
    initialized to version 1 format.
    If all IMSs are at IMS V10 level the OLCSTAT can be initialized
    to version 2 format.
    
    The OLCSTAT must be initialized to the version 2 format to
    utilize the TYPE(ACBMBR) member online change function.
    
    Logic is modified to reject the TYPE(ACBMBR) command if the
    OLCSTAT is defined in the version 1 format.
    
    Logic is modified to reject the OLC command if the OLCSTAT is
    defined in the version 2 format and one or more IMS systems
    are below the IMS Version 10 level.
    
    If the OLCSTAT is defined at version 2 and an IMS system
    below IMS V10 level is initialized, the lower level
    IMS system results in ABENDU2800-07.
    The AbendU2800-07 is not resolved with this APAR.
    The OLCSTAT must be initialized in version 1 format using
    IMS V8 or IMS V9 DFSUOLC0 utility or the
    IMS V10 DFSUOLC0 utility with VERS=1 specified.
    
    After this APAR, the DFS4504A message is not issued for
    all invalid parameter errors from DFSUOLC0.
    A BPE0003E message may be issued for invalid parameters.
    
    The following modules and macros are changed:
    DFSUOLC0
    --------
    Logic is modified in DFSUOLC0 to handle VERS= parameter and
    initialize the OLCSTAT to the version that is specified.
    
    To support the VERS= parameter, the DFSUOLC0 utility is
    being changed to use BPEPARSE to parse the parameters.
    All parameters are defined using BPEPADEF grammar statements.
    The utility starts the BPE Limited Function Services (LFS)
    environment, then issues BPEPARSE to parse the utility input
    parameters, issues any BPE0003E parse error messages returned
    from BPE for any parsing errors encountered and then terminates
    the BPE LFS environment.
    
    Logic is also modified to check the parameters specified
    on the utility input. VERS= is used on FUNC=INI to initialize
    the dataset to the specified version.
    If VERS= is not specified, the dataset is initialized to
    VERS=2.
    
    DFSOLC00
    --------
    Logic is changed in DFSOLC00 to not allow TYPE(ACBMBR) member
    online change if the OLCSTAT is initialized to version 1 with
    A REASON CODE IRSN_DSNVERS (X'00004304')  .
    
    Also, if the IMS version in the OLCSTAT does not match
    the IMS version returned from the SCI CSLSCQRY request and
    the OCLSTAT version is defined as version 2
    the INIT OLC command is rejected with error reason code
    OF IRSN_IMSVERS (X'00004305')  .
    
    DFSCMDRR
    --------
    A new reason code IRSN_DSNVERS is added X'00004304'.
    A new reason code IRSN_IMSVERS is added X'00004305'.
    
    DFSORCT0 and CSLULER2
    ---------------------
    Reason code text is added for IRSN_DSNVERS,X'00004304'.
    Reason code text is added for IRSN_IMSVERS,X'00004305'.
    
    DFSOLCS0
    --------
    Logic is added to skip the MOLC checks during restart
    if the OLCSTAT is defined as version 1.
    
    DFSOLCS
    --------
    During testing it was discovered that the ENDFLAG for
    version 2 was set not at the end of the header as the
    definition of the ENDFLAG label was at an incorrect
    location. Logic is modified to define the ENDFLAG at the
    end of the OLCSTAT header so it is set correctly.
    
    DFSURDD0
    --------
    Logic is modified to issue the modified DFS1176 message.
    
    GENPROCS
    --------
    The VERS= is added to DFSUOLC0 sample in GENPROCS
    that can be updated in the system at the next gen.
    Note: It is not required to do a GEN to make the
    changes to DFSUOLC0 proc in your installation.
    Refer to the changes in the System Utilities
    to make the changes to the DFSUOLC0 proc.
    
    DFSIIOC0
    --------
    Logic is modified to not initialize the MOLC fields
    if the OLCSTAT is defined as version 1.
    This is done so the DFS3433W message is not issued
    during a warmstart of IMS when the OLCSTAT is
    defined with version 1 format.
    
    Publication Changes
    -------------------
    IMS Release Planning Guide: GC18-9717-01
    ----------------------------------------
    1. In ACB library member online change enhancement section:
    Migration considerations: Change NONE to
     To utilize the TYPE(ACBMBR) member online change, all
     IMSs in the OLCSTAT must be at IMS V10.
     The OLCSTAT must be initialized to version 2 using the
     default IMS V10 DFSUOLC0 utility or by specifying VERS=2
     on the IMS V10 DFSUOLC0 utility.
    
    Coexistence considerations, add the following sentence:
     All IMSs in the OLCSTAT must be IMS V10 systems and
     the OLCSTAT must be initialized to version 2.
    
    2. In fallback considerations section:
    In Step 4, add following note:
    Note: If IMS is Global Online Change enabled,
    ensure the OLCSTAT is initialized to version 1.
    If the OLCSTAT is initialized to a higher version than VERS=1
    and the IMS version is IMS V9 or IMS V8, the IMS initialization
    will abend with U2800-0007.
    
    IMS Command Reference : SC18-9700
    ---------------------------------
    Add following reason code for INITIATE OLC command
    Return Code Reason code    Meaning
    X'00000010' X'00004304'    Data set version invalid.
                               The OLCSTAT is initialized
                               to an invalid version for the
                               type of Online Change requested.
                               For example, version 1 is invalid for
                               TYPE(ACBMBR) member online change.
                               or, The data set is initalized to
                               version 2 and one or more IMS systems
                               is lower than IMS V10.
    
    X'00000010' X'00004305'    IMS version mismatch
                               There is a mismatch in the IMS
                               version of the IMS in the OLCSTAT
                               and the actual version of IMS that
                               is currently running. The actual
                               version of IMS is returned from
                               the CSLSCQRY request. The OLCSTAT
                               must be re-initialized so the IMS
                               is at the correct version.
                               Note: Reference is needed to point
                               to section on how the OLCSTAT is
                               initialized.
    IMS Messages and Codes : GC18-9712
    ----------------------------------
    DFS1176E message text is to be changed as follows:
    DFS1176E THE program FAILED TO START BPE LIMITED FUNCTION
    SERVICES, RC=xxxxxxxx
    where program  can be one of:
      RDDS EXTRACTION UTILITY
      GLOBAL ONLINE CHANGE UTILITY
    and xxxxxxxx is return code from BPESTART FUNC=STARTLFS
    function.
    Refer to Messages and Codes Volume 4 for the details
    of the return code values from the BPESTART function.
    
    The modules that can issue this message must be updated to:
           DFSURDD0, DFSUOLC0
    
    Messages and Codes , Volume 4: IMS Component Codes GC18-9715
    ---------------------------------------------------------------
    The following return codes need to be added to the
    BPESTART FUNC=STARTLFS section.
    
    BPESTART FUNC=STARTLFS
    Explanation:
        A problem occurred trying to start the BPE limited function
        services (a subset of BPE used in some IMS address spaces) .
    
    Return code    Explanation
    --------------------------------
    X'00000020'    Unable to get storage for BPE limited function
                   services control blocks.
    X'00000024'    LOAD failed for module BPEZLFS0.
    X'00000028'    Invalid vector table in module BPEZLFS0.
    X'0000002C'    Unable to create BPE name token.
    X'00000030'    Unable to load the BPESPRNT exit module
                   specified on the SPEXIT parameter.
    X'00000034'    Unable to get storage for BPESPRNT exit
                   module work area.
    X'00000038'    Unable to load the BPEWPRNT exit module specified
                   on the WPEXIT parameter.
    X'0000003C'    Unable to get storage for BPEWPRNT exit module
                   workarea.
    X'00000040'    LOAD failed for hash table service module
                   BPEZHT00.
    X'00000044'    Invalid vector table in module BPEZHT00.
    
     Source:       BPE codes
    
    IMS Systems Utilities: SC18-9968
    --------------------------------
    Make the following changes in DFSUOLC0:
    1. In JCL specifications section,
    a. Change to following:
    The following JCL will run with the DFSUOLC procedure and invoke
    the utility with VERS=2 which is the default.
    //DFSUOLC0 JOB
    //STEP1 EXEC DFSUOLC,FUNC=,ACBS=,MDBS=,FMTS=,MDID=,PLEX=
    //SYSIN DD *
    //
    The following JCL will run with the DFSUOLC procedure and invoke
    the utility with VERS=1
    //DFSUOLC0 JOB
    //STEP1 EXEC DFSUOLC,FUNC=,ACBS=,MDBS=,FMTS=,MDID=,PLEX=,VERS=1
    //SYSIN DD *
    //
    b. in Procedure statement, Figure 1, change first 4 lines to
    //PROC
    FUNC=,ACBS=,MDBS=,FMTS=,MDID=,PLEX=,VERS=,SOUT=A
    //STEP1    EXEC  PGM=DFSUOLC0,
    //             PARM=(&FUNC,&ACBS,&MDBS,&FMTS,&MDID,&PLEX,&VERS)
    c. In EXEC statement change to following:
    The format of the EXEC statement is:
    PGM=DFSUOLC0,PARM=(&FUNC,&ACBS,&MDBS,&FMTS,&MDID,&PLEX,&VERS)
    
    2. Add the VERS parameter after the PLEX parameter and before
    SOUT:
    VERS
     Specifies the OLCSTAT version to be used to initialize the
     OLCSTAT. The valid values are 1, 2 and the default is 2.
     =1 : Indicates the OLCSTAT is to be initialized to Version 1
          format for the header.
          VERS=1 is to be used if there are one or more IMS V8 or
          IMS V9 systems in the OLCSTAT along with IMS V10 systems.
    
     =2 : Indicates the OLCSTAT is to be initialized to Version 2
          format for the header.
          VERS=2 is to be used if all IMSs in the OLCSTAT will be
          at IMS V10. VERS=2 is required to utilize the TYPE(ACBMBR)
          member online change.
    
    3. In Examples of the DFSUOLC0 utility, add following new
    examples:
    a. Global Online Change utility example 3
    The following example shows the JCL for the Global Online Change
    utility to initialize the OLCSTAT data set to Version 1
    before the first IMS cold starts the first time.
    
    //DFSUOLC0 JOB
    //STEP1 EXEC DFSUOLC,FUNC=INI,ACBS=A,MDBS=A,FMTS=A,MDID=0,VERS=1
    //SYSIN DD *
    //
    b. Global Online Change utility example 4
    The following example shows the JCL for the Global Online Change
    utility that initializes the OLCSTAT data set header to Version
    1 and add the list of IMS V10 systems that are current with the
    online change libraries.
    //DFSUOLC0 JOB
    //STEP1 EXEC DFSUOLC,FUNC=INI,ACBS=A,MDBS=A,FMTS=A,MDID=0,VERS=1
    //SYSIN DD
    IMSA
    IMSB
    //
    
    Additionally, the IMS V9 DFSUOLC0 utility must be run with
    FUNC=ADD to add any IMS V9 systems that are current with the
    online change libraries.
    Additionally, the IMS V8 DFSUOLC0 utility must be run with
    FUNC=ADD to add any IMS V8 systems that are current with the
    online change libraries.
    
    IMSPLEX Administration Guide : SC18-9709
    ----------------------------------------
    In the Defining and tailoring an IMSplex:
    1. In 'OLCSTAT data set format' change the text to as follows:
    The OLCSTAT data set consists of a header and any number
    of IMS records with the following format:
    
    The OLCSTAT format for VERS=1
    hlenhverivermstr  OLCINP modifyid MODBLKSz x IMSACBb x FORMATc x
    ilenrveriverims   prepare_timestamp commit_timestamp
    
    The OLCSTAT format for VERS=2
    hlenhverivermstr  OLCINP modifyid MODBLKSz x IMSACBb x FORMATc x
    MOLCstate MOLCtoken MOLCid
    ilenrveriverims   prepare_timestamp commit_timestamp
    
    2. In Section 'OLCSTAT data set format',
    change text for Figure-3 to
    'Figure 3 shows a sample OLCSTAT dataset header for Version-2'.
    
    ž**** PE08/09/24 FIX IN ERROR. SEE APAR PK72088  FOR DESCRIPTION
    

APAR Information

  • APAR number

    PK37127

  • Reported component name

    IMS V10

  • Reported component ID

    5635A0100

  • Reported release

    010

  • Status

    CLOSED UR1

  • PE

    NoPE

  • HIPER

    NoHIPER

  • Special Attention

    YesSpecatt / New Function

  • Submitted date

    2007-01-09

  • Closed date

    2008-09-04

  • Last modified date

    2009-02-02

  • APAR is sysrouted FROM one or more of the following:

  • APAR is sysrouted TO one or more of the following:

    UK39556

Modules/Macros

  • CSLULER2 DFSCMDRR DFSIIOC0 DFSOLCS  DFSOLCS0
    DFSOLC00 DFSORCT0 DFSUOLC0 DFSURDD0 GENPROCS
    

Publications Referenced
GC18971701 SC18970000 GC18971200 SC18996800 SC18970900

Fix information

  • Fixed component name

    IMS V10

  • Fixed component ID

    5635A0100

Applicable component levels

  • R010 PSY UK39556

       UP08/09/11 P F809

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.



Rate this page:

(0 users)Average rating

Document information


More support for:

IMS

Software version:

010

Reference #:

PK37127

Modified date:

2009-02-02

Translate my page

Machine Translation

Content navigation