//TSGMXZ1I JOB (AD00),'#04D42 ZELDEN',                                          
//             NOTIFY=&SYSUID,                                                  
//             CLASS=M,MSGCLASS=H,MSGLEVEL=(1,1)                                
//************************************************************                  
//* NOTE: THE SMP/E GLOBAL ZONE AND ++VER MAY NEED TO BE                        
//*       ADJUSTED FOR THE CORRECT OS/390 & ISPF VERSION                        
//*       BEFORE RUNNING THIS JOB                                               
//************************************************************                  
//C       EXEC PGM=ASMA90,                                                      
//             PARM='RENT,OBJECT,NODECK'                                        
//SYSLIB   DD  DSN=SYS1.MACLIB,DISP=SHR                                         
//         DD  DSN=SYS1.MODGEN,DISP=SHR                                         
//         DD  DSN=SYS1.ISP.SISPMACS,DISP=SHR                                   
//SYSUT1   DD  DSN=&&SYSUT1,SPACE=(CYL,(1,1),,,ROUND),                          
//             UNIT=SYSALLDA,DCB=BUFNO=1                                        
//SYSPRINT DD  SYSOUT=*                                                         
//SYSLIN   DD  DSN=&&OBJ,SPACE=(CYL,(1,1)),                                     
//             UNIT=SYSALLDA,DISP=(MOD,PASS),                                   
//             DCB=(BLKSIZE=3040,LRECL=80,RECFM=FBS,BUFNO=1)                    
//************************************************************                  
//SYSIN   DD DATA,DLM=##                                                        
         ISPMTAIL   TROWDEF=1,CMDSTKSZ=512,EXITS=YES,TCP=TCPIP                  
##                                                                              
//************************************************************                  
//SMPE        EXEC  PGM=GIMSMP,REGION=6M,                                       
//             COND=(0,NE),                                                     
//             PARM='CSI=MPSYS1.OS39028.GLOBAL.CSI'                             
//SMPOUT    DD  SYSOUT=*                                                        
//SMPRPT    DD  SYSOUT=*                                                        
//SYSPRINT  DD  SYSOUT=*                                                        
//SMPCNTL   DD  *                                                               
 SET BDY(GLOBAL) .                                                              
 REJECT  S(UMISP01) BYPASS(APPLYCHECK).                                         
 RESETRC.                                                                       
 RECEIVE S(UMISP01) SYSMOD SOURCEID(USERMOD) .                                  
 SET BDY(SM0R1A1).                                                              
 APPLY SELECT(UMISP01) REDO.                                                    
//SMPPTFIN  DD  *                                                               
++ USERMOD (UMISP01)   /*                                                       
    THIS USERMOD LETS ISPF KNOW THAT EXITS WILL BE                              
    USED BY CHANGING THE ISPDFLTS MODULE ISPDFLTS.                              
    ISPDFLTS IS LINKED INTO ISPMAIN WHICH IS IN                                 
    THE SISPLPA LIBRARY.                                                        
               */ .                                                             
++ VER (Z038) FMID (HIF4802).                                                   
++ MOD (ISPDFLTS) DISTLIB(AISPMOD1).                                            
/*                                                                              
//          DD DSN=&&OBJ,DISP=(OLD,DELETE)