//DELWORK EXEC PGM=IDCAMS                                         
//SYSPRINT  DD SYSOUT=(,)                                         
//SYSIN     DD *                                                  
  DELETE OCP235.P.SYSTRAN1.TXT                                    
  IF MAXCC EQ 8 THEN SET MAXCC = 0                                
/*                                                                
//*************************************************************   
//*   UNLOAD USING SYSTRANS UTILITY                           *   
//*   XREF235,Y,OBJS*,*,Y,MAPS*,Y,DDMS*                           
//*************************************************************   
//UNLOAD  EXEC NATPRF,                                            
//             DBID=200,                                          
//             PARMS='IM=D,MT=1780'                               
//DDCARD    DD DSN=DBUD155.ADAPROD.DDCARD(MULTI),                 
//             DISP=SHR                                           
//          DD DSN=DBUD155.ADAPROD.DDCARD(DB200),                 
//             DISP=SHR                                           
//          DD DSN=DBUD155.ADAPROD.DDCARD(PREFETCH),              
//             DISP=SHR                                           
//          DD *                                                  
ADARUN PREFSBL=32000,PREFTBL=32000,PREFNREC=20                    
/*                                                                

==========

//CMPRINT   DD SYSOUT=*                                    
//CMPRT10   DD SYSOUT=*                                    
//CMWKF01   DD DSN=OCP235.P.SYSTRAN1.TXT,                  
//             DISP=(NEW,CATLG,CATLG),                     
//             DCB=(LRECL=100,RECFM=VB,BLKSIZE=0),         
//             SPACE=(CYL,(200,50),RLSE),                  
//             DATACLAS=SEQ,                               
//             STORCLAS=NORMAL,                            
//             MGMTCLAS=D3DB7A0D                           
//SYSIN     DD *                                           
SYSOBJH        

==========

//SYSIN     DD *                                       
SYSOBJH                                                
UNLOAD * LIB XREF235, OBJT N, FMDATE TO -21, SC B,%    
       WHERE TRANS INCL                                
UNLOAD * LIB XREF235, OBJT D, FMDATE TO -21,%          
       EXCEPT ( * TODATE 1998-12 )%                    
       WHERE TRANS INCL                                
.                                                      
FIN                                                    
{STASH OLD CARDS DOWN HERE}                            
SYSTRANS                                               
U                                                      
N,N,N,Y,Y,N,N,N                                        
L                                                      
XREF235,Y,*,*,Y,*,Y,*                                  
.                                                      
FIN                                                    
/*                                                     

==========

//* ================================================   
//* SEND THE LISTING FILE  TO LNI FTP SERVER           
//FTPPUT  EXEC FTP                                     
//SYSIN     DD *                                       
LNIFTP.LNI.WA.GOV (EXIT                                
ANONYMOUS                                              
W02CP235 PRODUCTION                                    
CD CLAG235                                             
PUT  'OCP235.P.SYSTRAN1.TXT' SYSTRANS.TXT              
QUIT                                                   
/*