++PTF(ASP0773). /*------------------------------------------------              
ASP0773 980405 LTXF    V203 GG SUPPORT DATE= TIME= DAYS= ON LTXFCAT             
                                                                                
COPYRIGHT AUSTRALIAN SYSTEMS ENGINEERING PTY. LTD. 1998                         
                                                                                
NOTES:                                                                          
                                                                                
This PTF adds support for date and time range operands on the                   
LTXFCAT macro. This allows LTXF to vary the wait time extension                 
an address space is given depending on the date, time of day or                 
day of the week.                                                                
                                                                                
The following optional operands are added to the LTXFCAT macro:                 
                                                                                
  DATE=     THIS OPERAND SPECIFIES AN INCLUSIVE DATE RANGE IN WHICH             
            THIS LTXFCAT ENTRY APPLIES. IF THE CURRENT DATE IS NOT              
            WITHIN THIS RANGE THEN CHECKING CONTINUES WITH THE NEXT             
            LTXFCAT MACRO. DEFAULT RANGE IS 19000101 - 20991231                 
                                                                                
  TIME=     THIS OPERAND SPECIFIES AN INCLUSIVE TIME RANGE IN WHICH             
            THIS LTXFCAT ENTRY APPLIES. IF THE CURRENT TIME IS NOT              
            WITHIN THIS RANGE THEN CHECKING CONTINUES WITH THE NEXT             
            LTXFCAT MACRO. DEFAULT RANGE IS 0000 - 2359.                        
                                                                                
  DAYS=     THIS OPERAND SPECIFIES A LIST OF DAYS (MON,TUE,WED,THU,             
            FRI,SAT,SUN) FOR WHICH THIS LTXFCAT ENTRY APPLIES.                  
            IF THE CURRENT DAY IS NOT SPECIFIED THEN CHECKING                   
            CONTINUES WITH THE NEXT LTXFCAT MACRO. DEFAULT LIST IS              
            MON,TUE,WED,THU,FRI,SAT,SUN                                         
                                                                                
  NOTDATE=  THIS OPERAND SPECIFIES AN INCLUSIVE DATE RANGE IN WHICH             
            THIS LTXFCAT ENTRY DOES NOT APPLY. IF THE CURRENT DATE IS           
            WITHIN THIS RANGE THEN CHECKING CONTINUES WITH THE NEXT             
            LTXFCAT MACRO. NOTDATE= CANNOT BE SPECIFIED WITH DATE=.             
                                                                                
  NOTTIME=  THIS OPERAND SPECIFIES AN INCLUSIVE TIME RANGE IN WHICH             
            THIS LTXFCAT ENTRY DOES NOT APPLY. IF THE CURRENT TIME IS           
            WITHIN THIS RANGE THEN CHECKING CONTINUES WITH THE NEXT             
            LTXFCAT MACRO. NOTTIME= CANNOT BE SPECIFIED WITH TIME=.             
                                                                                
  NOTDAYS=  THIS OPERAND SPECIFIES A LIST OF DAYS (MON,TUE,WED,THU,             
            FRI,SAT,SUN) FOR WHICH THIS LTXFCAT ENTRY DOE NOT APPLY.            
            IF THE CURRENT DAY IS SPECIFIED THEN CHECKING CONTINUES             
            WITH THE NEXT LTXFCAT MACRO. NOTDAYS= CANNOT BE SPECIFIED           
            WITH DAYS=.                                                         
                                                                                
------------------------------------------------ */                             
++VER(Z038) FMID(ASEL203) PRE(ASZ2988).                                         
++JCLIN.                                                                        
//ASEL203  JOB 'ACCOUNTING INFO',                                               
//            MSGLEVEL=(1,1)                                                    
//STEP1    EXEC PGM=IEWL,                                                       
//            PARM='LIST,LET,MAP,NCAL,REUS'                                     
//SYSPRINT DD SYSOUT=*                                                          
//SYSUT1   DD UNIT=SYSDA,SPACE=(CYL,(1,1))                                      
//SYSLMOD  DD DSN=SYS1.LINKLIB,DISP=SHR                                         
//LTXFAMOD DD DSN=ASE.LTXFAMOD,DISP=SHR                                         
//SYSLIN   DD *                                                                 
 INCLUDE LTXFAMOD(LTX2CXIT)                                                     
 NAME LTX2CXIT(R)                                                               
++MAC(LTXFCAT).                                                                 
++MAC(LTXFCKDT)  SYSLIB(LTXFMAC) DISTLIB(LTXFAMAC).                             
++MOD(LTX2CXIR).                                                                
++SAMP(LTX2CEXT) DISTLIB(ASAMPLIB) SYSLIB(SAMPLIB).                             
++MOD(LTX2CXIT)  DISTLIB(LTXFAMOD).