BMC iRecover may fail with S0C4 abend in NSR0046I Offset X'1DC4'

Version 2
    Share This:

    This document contains official content from the BMC Software Knowledge Base. It is automatically updated when the knowledge article is modified.


    PRODUCT:

    BMC iRecover for IMS


    COMPONENT:

    BMC iRecover for IMS


    APPLIES TO:

    BMC iRecover for IMS V8.2.00



    PROBLEM:

    The S0C4 abend may occur when processing a DBD that was generated with a version of IMS prior to when the vector table address of the DBD Extension Table (DBDXTAB) had a non-zero value (some levels of IMS 3.1, and earlier releases of IMS).  When the address of the DBD extension table is zero, iRecover incorrectly calculates the location of certain fields in the DBD extension table which might result in an S0C4 abend when attempting to update protected storage.      


    CAUSE:

    DBD generated with version of IMS earlier than IMS 3.1 with SPE for DBDXTAB applied.


    SOLUTION:

    PTF BNZ0017 for BMC iRecover for IMS V8.2.00 resolves the problem.

    Sample JCL is provided to retrieve and unpack a load library that includes the modules modified by PTF BNZ0017.

    The following changes must be made to this sample JCL (Please maintain the case sensitivity):
    1. TSO EDIT; CAPS OFF
    2. Add a JOB card
    3. Change All "HILVLQ" to a valid DSN high-level qualifier
    4. Change "email@company.com" to your email address in the FTPGET step.

    //* ------------------------------------------------------------------ *
    //*   DELETE THE TERSED FILE IF IT EXISTS
    //* ------------------------------------------------------------------ *
    //*
    //DLET03   EXEC PGM=IDCAMS,COND=(0,NE)
    //SYSPRINT DD   SYSOUT=*
    //SYSIN    DD   *
      DELETE HILVLQ.BNZ0017.LOAD.TRS PURGE
      SET MAXCC = 0
    /*
    //*
    //* ------------------------------------------------------------------ *
    //*   RETRIEVE THE FIX
    //* ------------------------------------------------------------------ *
    //FTPGET   EXEC PGM=FTP
    //SYSPRINT DD   SYSOUT=*
    //OUTPUT   DD   SYSOUT=*
    //INPUT    DD   *
     ftp.bmc.com
     anonymous
     email@company.com
     cd pub
     binary
     locsite lr=1024 rec=fb blk=27648 pri=2   sec=1  tr u=sysda
     get BNZ0017.LOAD.TRS 'HILVLQ.BNZ0017.LOAD.TRS' (repl
     quit
    /*
    //* ------------------------------------------------------------------ *
    //*   DELETE THE OLD FIX DATASET IF IT EXISTS
    //* ------------------------------------------------------------------ *
    //DLET02   EXEC PGM=IDCAMS
    //SYSPRINT DD   SYSOUT=*
    //SYSIN    DD   *
      DELETE HILVLQ.BNZ0017.LOAD PURGE
      SET MAXCC = 0
    /*
    //* ------------------------------------------------------------------ *
    //*   UNPACK THE FIX FILE
    //* ------------------------------------------------------------------ *
    //UNPACK1  EXEC PGM=AMATERSE,PARM=UNPACK
    //SYSPRINT DD   SYSOUT=*
    //SYSUT1   DD   DISP=SHR,DSN=HILVLQ.BNZ0017.LOAD.TRS
    //SYSUT2   DD   DISP=(NEW,CATLG,DELETE),
    //             SPACE=(TRK,(6,1,2),RLSE),UNIT=SYSDA,
    //             DSN=HILVLQ.BNZ0017.LOAD
    //* ------------------------------------------------------------------ *
    //*   DELETE THE TERSED FILE
    //* ------------------------------------------------------------------ *
    //DLET03   EXEC PGM=IDCAMS,COND=(0,NE)
    //SYSPRINT DD   SYSOUT=*
    //SYSIN    DD   *
      DELETE HILVLQ.BNZ0017.LOAD.TRS PURGE
      SET MAXCC = 0
    /*

      

     

     


    Article Number:

    000101243


    Article Type:

    Solutions to a Product Problem



      Looking for additional information?    Search BMC Support  or  Browse Knowledge Articles