S0C1 abend in module IRMDRRC5

Version 1
    Share This:

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


    PRODUCT:

    RECOVERY MANAGER for IMS


    COMPONENT:

    RECOVERY MANAGER for IMS


    APPLIES TO:

    RECOVERY MANAGER for IMS v4.6 RECOVERY MANAGER for IMS v5.0 RECOVERY MANAGER for IMS v5.1



    PROBLEM:

    The Recover Manager for IMS Disaster Recovery RECON Cleanup (DRRCN) utility fails with the following abend: 

    S0C1 U0000  PSW 078D2000 80036EC0 ILC 2 INTC 0001 
    MOD IRMDRRC5 CSECT GMT2LCL  EP GMT2LCL  OFFS 01E2 
    DATA  80036EBE  00004040C4C6E2C3E5E3D440          
    ASSEMBLED ON  02/06/17  13.34                     
    REGISTERS AT ENTRY TO ABEND                       
      0  00000000  00038B84  00038B84  C4341000       
      4  008D1D48  00000000  008B5FC8  00006D28       
      8  008FA1A0  445FE000  00038250  00006D28       
      C  00036CDC  000257D8  80036EB8  00000008       


    CAUSE:

    Julian date calculation not working as expected


    SOLUTION:

    Until such time as the PTF can be made available on eFix PTF Distribution Services or BMC Internet Service Retrieval, use the following sample JCL to download the appropriate fix for your installation.

    <jobcard>
    //* 1. TSO EDIT; CAPS OFF
    //* 2. Add a JOBCARD
    //* 3. Change the high level "HILVLQ" to your standards
    //* 4. Change "email@company.com" to your email address in the FTPGET step.
    //* 5. This is an SMP/E solution. Use the resulting file to RECEIVE & APPLY
    //*
    //*      BQQ4682.ZBRI510.PTF FMID(ZBRI510)
    //*      BQQ4684.ZBRI500.PTF FMID(ZBRI500)
    //*      BQQ4715.ZBRI460.PTF FMID(ZBRI460)
    //*
    //*    Assumes RSL1907 maintenance
    //*
    //DLET1    EXEC PGM=IDCAMS
    //SYSPRINT DD   SYSOUT=*
    //SYSIN    DD   *
      DELETE HILVLQ.BQQ4682.ZBRI510.PTF.TRS PURGE
      DELETE HILVLQ.BQQ4682.ZBRI510.PTF PURGE
      DELETE HILVLQ.BQQ4684.ZBRI500.PTF.TRS PURGE
      DELETE HILVLQ.BQQ4684.ZBRI500.PTF.TRS PURGE
      DELETE HILVLQ.BQQ4715.ZBRI460.PTF PURGE
      DELETE HILVLQ.BQQ4715.ZBRI460.PTF PURGE
      SET MAXCC = 0
    /*
    //*
    //FTPGET   EXEC PGM=FTP
    //SYSPRINT DD   SYSOUT=*
    //OUTPUT   DD   SYSOUT=*
    //* -----------------------------------------------------*
    //*   Case-sensitive!                                    *
    //* -----------------------------------------------------*
    //INPUT    DD   *
     ftp.bmc.com
     anonymous
     email@company.com
     binary
     cd pub/imsbrs
     locsite lr=1024 rec=fb blk=27648 pri=10 sec=10 unit=sysda cyl
     get BQQ4682.ZBRI510.PTF.TRS   +
        'HILVLQ.BQQ4682.ZBRI510.PTF.TRS' (replace
     get BQQ4684.ZBRI500.PTF.TRS   +
        'HILVLQ.BQQ4684.ZBRI500.PTF.TRS' (replace
     get BQQ4715.ZBRI460.PTF.TRS   +
        'HILVLQ.BQQ4715.ZBRI460.PTF.TRS' (replace
     quit
    /*
    //*
    //UNPACK1  EXEC PGM=AMATERSE,PARM=UNPACK
    //SYSPRINT DD   SYSOUT=*
    //SYSUT1   DD   DISP=SHR,DSN=HILVLQ.BQQ4682.ZBRI510.PTF.TRS
    //SYSUT2   DD   DISP=(,CATLG,CATLG),UNIT=SYSDA,
    //            SPACE=(CYL,(10,10),RLSE),
    //            DSN=HILVLQ.BQQ4682.ZBRI510.PTF
    //*
    //UNPACK2  EXEC PGM=AMATERSE,PARM=UNPACK
    //SYSPRINT DD   SYSOUT=*
    //SYSUT1   DD   DISP=SHR,DSN=HILVLQ.BQQ4684.ZBRI500.PTF.TRS
    //SYSUT2   DD   DISP=(,CATLG,CATLG),UNIT=SYSDA,
    //            SPACE=(CYL,(10,10),RLSE),
    //            DSN=HILVLQ.BQQ4684.ZBRI500.PTF
    //*
    //UNPACK3  EXEC PGM=AMATERSE,PARM=UNPACK
    //SYSPRINT DD   SYSOUT=*
    //SYSUT1   DD   DISP=SHR,DSN=HILVLQ.BQQ4715.ZBRI460.PTF.TRS
    //SYSUT2   DD   DISP=(,CATLG,CATLG),UNIT=SYSDA,
    //            SPACE=(CYL,(10,10),RLSE),
    //            DSN=HILVLQ.BQQ4715.ZBRI460.PTF
    //*
    //DLET2    EXEC PGM=IDCAMS
    //SYSPRINT DD   SYSOUT=*
    //SYSIN    DD   *
      DELETE HILVLQ.BQQ4682.ZBRI510.PTF.TRS       PURGE
      DELETE HILVLQ.BQQ4684.ZBRI500.PTF.TRS       PURGE
      DELETE HILVLQ.BQQ4715.ZBRI460.PTF.TRS       PURGE
    /*
    //
     


    Article Number:

    000180310


    Article Type:

    Solutions to a Product Problem



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