MAXM Reorg/EP (version 4.9) database reload step fails w/ S0C1 ABEND in DLILSC90 when using IMS 13.1 genned PDF DBD

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:

    MAXM Reorg/EP Express for IMS


    APPLIES TO:

    MAXM Reorg/EP Express for IMS



    PROBLEM:

     

    MAXM Reorg/EP Express for IMS 4.9.00

      

    A S0C1 ABEND occurs in module DLILSC90 when attempting to reload partitions of a PDF database in cases where the corresponding DBD was genned using IMS version 13.1 macros.

      

    Defect QM001871660 was created in connection with this issue.

     


    SOLUTION:

     

    Legacy ID:KA421863

      

    Apply PTF BQQ0533 to resolve this issue.  PTF BPQ9382 is also required as a prerequisite if PUT1401B maintenance has not yet been applied.

      

    Additional Information:
    The sample JCL listed below can be used to retrieve and unterse the resolving PTF for this issue.  This PTF can also be obtained via eFix after March 6, 2015.

      

    <Add jobcard here>                                                    
    //*********************************************************************
    //* JCL TO RETRIEVE AND UNTERSE PTF FILE KA421863.PTF.TRS FROM BMC'S  
    //* FTP SERVER.                                                       
    //*                                                                   
    //* BEFORE SUBMITTING THIS JCL:                                       
    //* ---------------------------                                       
    //* 1) ADD A JOBCARD APPROPRIATE FOR YOUR SITE.                       
    //*                                                                   
    //* 2) CHANGE yourhlq TO AN APPROPRIATE HLQ FOR YOUR SITE.            
    //*                                                                   
    //* 3) ENTER YOUR EMAIL ADDRESS IN THE INPUT DD OF THE RETRIEVE STEP.
    //*                                                                 
    //*********************************************************************
    //*                                                                   
    //         SET TERDS1=yourhlq.KA421863.PTF.TRS                        
    //         SET UNTERDS1=yourhlq.KA421863.PTF                          
    //*                                                                   
    //*********************************************************************
    //* DELETE DATA SETS CREATED IN THIS JCL.                             
    //*********************************************************************
    //DLETDS    EXEC PGM=IEFBR14                                          
    //DD1       DD DSN=&TERDS1,                                           
    //             DISP=(MOD,DELETE),SPACE=(TRK,1)                        
    //DD2       DD DSN=&UNTERDS1,                                         
    //             DISP=(MOD,DELETE),SPACE=(TRK,1)                        
    //*********************************************************************
    //* RETRIEVE SPECIFIED FILE FROM FTP SERVER TO TERSED DATA SET.       
    //*********************************************************************
    //RETRIEVE EXEC PGM=FTP                                               
    //OUTPUT   DD SYSOUT=*                                                
    //SYSOUT   DD SYSOUT=*                                                
    //SYSPRINT DD SYSOUT=*                                                
    //TERDS1   DD DSN=&TERDS1,DISP=(NEW,CATLG),                           
    //            DCB=(DSORG=PS,RECFM=FB,LRECL=1024,BLKSIZE=0),           
    //            SPACE=(CYL,(3,1),RLSE)                                  
    //*******************************************                         
    //* Case sensitive!  Directory names in CAPs.                         
    //*******************************************                         
    //INPUT    DD *                                                       
    ftp.bmc.com                                                           
    anonymous
    youremailaddress@????????.com                               
    cd /pub/imsutil                                                       
    binary                                                                
    get KA421863.PTF.TRS //DD:TERDS1 (repl                                
    quit                                                                  
    //*********************************************************************
    //* UNPACK TERSED DATA SET TO UNTERSED DATA SET USING TRSMAIN.        
    //*********************************************************************
    //UNTERSE  EXEC PGM=TRSMAIN,PARM=UNPACK,COND=(00,LT)                  
    //SYSPRINT DD SYSOUT=*                                                
    //INFILE   DD DSN=&TERDS1,DISP=SHR                                    
    //OUTFILE  DD DSN=&UNTERDS1,DISP=(NEW,CATLG),                         
    //            SPACE=(CYL,(3,1),RLSE)                                  
    //*********************************************************************
    //* DELETE TERSED DATASET                                             
    //*********************************************************************
    //DLETTRS   EXEC PGM=IEFBR14,COND=(00,LT)                             
    //DD1       DD DSN=&TERDS1,                                           
    //             DISP=(MOD,DELETE),SPACE=(TRK,1)                        
    //

      
    Related Products:  
       
    1. MAXM Reorg/EP Express for IMS

     


    Article Number:

    000096280


    Article Type:

    Solutions to a Product Problem



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