S0C4 in module DLILSC50 near offset 195A

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:

    MAXM Reorg/EP for IMS


    COMPONENT:

    LOADPLUS/EP for IMS


    APPLIES TO:

    MAXM Reorg/EP for IMS LOADPLUS/EP for IMS



    PROBLEM:

    S0C4 abend in module DLILSC50 near offset 195A when using the RELOAD function of MAXM Reorg/EP for IMS.


    CAUSE:

    A very large database record exhausts all available buffers and data space creation fails.


    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 fix.

    <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
    //*    PTF BQQ4572 and 1 pre-requisite PTF
    //*      BQQ4572.ZDLI510.PTFS for FMID(ZDLI510)
    //*    PTF BQQ4571 and 1 pre-requisite PTF
    //*      BQQ4571.ZDLI500.PTF for FMID(ZDLI500)
    //*
    //*    Assumes RSL1907 maintenance
    //*
    //DLET1    EXEC PGM=IDCAMS
    //SYSPRINT DD   SYSOUT=*
    //SYSIN    DD   *
      DELETE HILVLQ.BQQ4572.ZDLI510.PTFS.TRS PURGE
      DELETE HILVLQ.BQQ4572.ZDLI510.PTFS PURGE
      DELETE HILVLQ.BQQ4571.ZDLI500.PTFS.TRS PURGE
      DELETE HILVLQ.BQQ4571.ZDLI500.PTFS 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/imsutil
     locsite lr=1024 rec=fb blk=27648 pri=10 sec=10 unit=sysda cyl
     get BQQ4572.ZDLI510.PTFS.TRS  +
        'HILVLQ.BQQ4572.ZDLI510.PTFS.TRS' (replace
     get BQQ4571.ZDLI500.PTFS.TRS  +
        'HILVLQ.BQQ4571.ZDLI500.PTFS.TRS' (replace
     quit
    /*
    //*
    //UNPACK1  EXEC PGM=AMATERSE,PARM=UNPACK
    //SYSPRINT DD   SYSOUT=*
    //SYSUT1   DD   DISP=SHR,DSN=HILVLQ.BQQ4572.ZDLI510.PTFS.TRS
    //SYSUT2   DD   DISP=(,CATLG,CATLG),UNIT=SYSDA,
    //            SPACE=(CYL,(100,10),RLSE),
    //            DSN=HILVLQ.BQQ4572.ZDLI510.PTFS
    //*
    //UNPACK2  EXEC PGM=AMATERSE,PARM=UNPACK
    //SYSPRINT DD   SYSOUT=*
    //SYSUT1   DD   DISP=SHR,DSN=HILVLQ.BQQ4571.ZDLI500.PTFS.TRS
    //SYSUT2   DD   DISP=(,CATLG,CATLG),UNIT=SYSDA,
    //            SPACE=(CYL,(100,10),RLSE),
    //            DSN=HILVLQ.BQQ4571.ZDLI500.PTFS
    //*
    //DLET2    EXEC PGM=IDCAMS
    //SYSPRINT DD   SYSOUT=*
    //SYSIN    DD   *
      DELETE HILVLQ.BQQ4572.ZDLI510.PTFS.TRS      PURGE
      DELETE HILVLQ.BQQ4571.ZDLI500.PTFS.TRS       PURGE
    /*
    //
     


    Article Number:

    000175177


    Article Type:

    Solutions to a Product Problem



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