OnDemand Users Group

Support Forums => CMOD for z/OS Server => Topic started by: Jamie Mott on June 14, 2016, 05:50:59 PM

Title: CMOD exits using SMPE?
Post by: Jamie Mott on June 14, 2016, 05:50:59 PM
Hi all

We are installing CMOD exits for the first time.  We would prefer to use SMPE and not a separate Load Library.  The exits are in COBOL which is not supported by SMPE.  We also have an Exit in COBOL that goes to a Unix File System. 

Does anyone handle these types of exits using SMPE?  We are currently checking with IBM SMPE Level 2 but would like hear any ideas from current users if possible.

Thank you
Title: Re: CMOD exits using SMPE?
Post by: Nolan on June 14, 2016, 08:00:51 PM
We use SMPE for all our user mod exits, REXX scripts, HFS, JCL, etc.   We don't add the compiled version or DBRM to SMPE.  The compiled module is deployed into the same loadlib as OnDemand using our change managment process.  I am not an SMPE expert but below are two samples we use to receive and then accept the files in to SMPE

Here is the sample COBOL stored for audit purposes.

++USERMOD(R90902B) /*                                                   
  This USERMOD holds COBOL source code for LP1INCTL                     
  the SMPE is for the source.  The compile and DBRM is distributed.     
*/ .                                                                   
++ VER (P115)                                                           
    FMID(H272900)                                                       
    SUP(R90902A) .                                                     
++USER5(LP1INCTL) SYSLIB(SUSERCBL) DISTLIB(AUSERCBL).                   
       CBL THREAD                                                       
       IDENTIFICATION DIVISION.                                         
         PROGRAM-ID.    LP1INCTL RECURSIVE.     
......


Here is a sample of our HFS files
++USERMOD(R90020A) /*                                                   
  This script used by PP1USERM to execute XML commands                 
  to add or delete users                                               
  Note:  must run GIMDTS to generate FB80 format                       
  Script:    arsxml.user.sh                                             
  Updated for CMOD 9.0.0 to use symbolic path                           
*/ .                                                                   
++ VER (P115)                                                           
    FMID(H272900).                                                     
++HFS(HFSRBC01)                        /* Unique Name in SMPE  */       
  LINK('arsxml.user.sh')               /* Name to use in HFS   */       
  SYSLIB(USERHFST)                     /* target hfs library.  */       
  DISTLIB(USERHFSD)                    /* this distlib.        */       
  PARM(PATHMODE(0,7,5,5)).                                             
$$ GIMDTS  FORMAT                                                                               
.........

Hope that is what you are looking for.

Cheers
Title: Re: CMOD exits using SMPE?
Post by: Jamie Mott on June 16, 2016, 02:39:53 PM
Nolan, thank you, I appreciate the reply. We got it now  :D