++PTF(ASP0728).  /* --------------------------------------------------          
ASP0728 970728 ISPZIP V110 PM YEAR 2000 SUPPORT                                 
                                                                                
COPYRIGHT AUSTRALIAN SYSTEMS ENGINEERING PTY. LTD. 1997.                        
                                                                                
_APARLIST:                                                                      
                                                                                
ASZ2954 971030 61VVOG KB ISPZIP  V110 INCORROUT  ISPZIPC  971030 w__-pmd        
Message 'ISPZ117E  FROM dataset not found on volume' if input to a              
compress operation is on tape.                                                  
                                                                                
ASZ2955 971031 61VLLC HL ISPZIP  V110 INCORROUT  ISPZIPC  971031 B0728          
STRIP option due compress has no effect if record length is greater             
than 256 bytes.                                                                 
                                                                                
    */                                                                          
++VER(Z038) FMID(ASEF200) REQ(ASP0741) SUP(ASZ2954,ASZ2955).                    
++JCLIN.                                                                        
//ASP0728  JOB 'ACCOUNTING INFO',                                               
//            MSGLEVEL=(1,1)                                                    
//STEP1    EXEC PGM=IEWL,                                                       
//            PARM='LIST,MAP,NCAL,REUS'                                         
//SYSPRINT DD SYSOUT=*                                                          
//SYSUT1   DD UNIT=SYSDA,SPACE=(CYL,(1,1))                                      
//SYSLMOD  DD DSN=ASE.SASELMD,DISP=SHR                                          
//AASEMOD  DD DSN=ASE.AASEMOD,DISP=SHR                                          
//SYSLIN   DD *                                                                 
 INCLUDE AASEMOD(ISPZIPS,ISPZIPX,ISPZIPM)                                       
 ORDER ISPZIPS,ISPZIPX,ISPZIPM                                                  
 ENTRY ISPZIPS                                                                  
 NAME ISPZIPS(R)                                                                
++MOD(ISPZHLPI).                                                                
++MOD(ISPZHLPD).                                                                
++MOD(ISPZIP).                                                                  
++MOD(ISPZIPC).                                                                 
++MOD(ISPZIPS) DISTLIB(AASEMOD) LEPARM(RENT,REUS).                              
++MOD(ISPZIPSR).                                                                
++MOD(ISPZIPX).                                                                 
++MOD(ISPZISPF).                                                                
++PNL(ISPZA100).                                                                
++PNL(ISPZA300).                                                                
++PNL(ISPZD000).                                                                
++PNL(ISPZE000).                                                                
++PNL(ISPZF000).                                                                
++PNL(ISPZF100).                                                                
++PNL(ISPZG000).                                                                
++PNL(ISPZ2000).                                                                
++PNL(ISPZ34A0).                                                                
++PNL(ISPZ3400).                                                                
++PNL(ISPZ3600).                                                                
++PNL(ISPZ4000).                                                                
++PNL(ISPZ5A00).                                                                
++PNL(ISPZ5B00).                                                                
++PNL(ISPZ5C00).                                                                
++PNL(ISPZ5000).                                                                
++PNL(ISPZ8000).                                                                
++PNL(ISPZ9100).                                                                
++PNL(ISPZ9300).                                                                
++EXEC(ISPZXFER).