++PTF(ASP0816) REWORK(1999054). /*--------------------------------              
ASP0816 990222 ASEL203 V203 PM SAMPLE USERMOD TO RUN LTXFUTXA IN 31 BIT         
                                                                                
COPYRIGHT AUSTRALIAN SYSTEMS ENGINEERING PTY. LTD. 1999                         
                                                                                
NOTES:                                                                          
                                                                                
  This ptf installs a sample usermod that can be applied to change the          
  LTXF IEFUTL exit to AMODE=31.                                                 
                                                                                
  ---------------------------------------------------------------*/             
++VER(Z038) FMID(ASEL203).                                                      
++SAMP(LTX2UMOD) DISTLIB(ASAMPLIB) SYSLIB(SAMPLIB).                             
--USERMOD(LTXFUM1). /*---------------------------------------------             
                                                                                
  COPYRIGHT AUSTRALIAN SYSTEMS ENGINEERING PTY. LTD. 1999                       
                                                                                
  Note: Change all -- in col 1 to ++ before receiving this usermod.             
                                                                                
  This usermod can be used to run the LTXF IEFUTL exit module in                
  31 bit mode. All other IEFUTL exits linked with this module will              
  be called in 31 bit mode.                                                     
                                                                                
  You will need to set the correct prereq list for LTX2UTL on the               
  ++VER statement to apply this usermod.                                        
  Do not accept this usermod. It may have to                                    
  be restored to apply subsequent maintenance to LTX2UTL.                       
                                                                                
  Note: The following message will be received when applying this               
  usermod:                                                                      
                                                                                
  IEW2651W 511C ESD AMODE 24 CONFLICTS WITH USER-SPECIFIED AMODE 31             
                ENTRY POINT modname.                                            
                                                                                
  This message can be ignored.                                                  
                                                                                
  ---------------------------------------------------------------*/             
--VER(Z038) FMID(ASEL203) PRE(???????).                                         
--JCLIN.                                                                        
//ASEL203  JOB 'ACCOUNTING INFO',                                               
//            MSGLEVEL=(1,1)                                                    
//STEP1    EXEC PGM=IEWL,                                                       
//            PARM='LIST,LET,MAP,NCAL,RENT,AMODE=31'                            
//SYSPRINT DD SYSOUT=*                                                          
//SYSUT1   DD UNIT=SYSDA,SPACE=(CYL,(1,1))                                      
//SYSLMOD  DD DSN=SYS1.LPALIB,DISP=SHR                                          
//LTXFAMOD DD DSN=ASE.LTXFAMOD,DISP=SHR                                         
//SYSLIN   DD *                                                                 
 INCLUDE LTXFAMOD(LTX2UTL)                                                      
 ENTRY LTX2UTL                                                                  
 ALIAS LOCK                                                                     
 ALIAS LTX2UTL                                                                  
 INCLUDE SYSLMOD(IEFUTL)                                                        
 NAME  IEFUTL(R)                                                                
--ZAP(LTX2UTL).                                                                 
NAME LTX2UTL                                                                    
IDRDATA LTXFUM1                                                                 
 EXPAND LTX2UTL(256)                                                            
VER 0282 0CEF                                                                   
VER 0406 0CEF                                                                   
VER 0552 07FE                                                                   
VER 058C 07FE                                                                   
VER 0660 0CEF                                                                   
VER 0704 0CEF                                                                   
REP 0282 0700                                                                   
REP 0406 0700                                                                   
REP 0552 0B0E                                                                   
REP 058C 0B0E                                                                   
REP 0660 0700                                                                   
REP 0704 0700                                                                   
*