Information Systems:EODCLR

Deletes reports that are generated but will never be printed; for example pick and putaway lists that we don't use because we use RF. Clears temporary work files. The programs that use these files delete records for the user. This program clears the files, which gets rid of these deleted records. This is called by EODREBLD.

/* Delete spool files generated by ASW End of Day - only keep Invoice    */
/* Register.                                                             */ 
                                                                              
            DLTSPLF    FILE(GCFP752) SPLNBR(*LAST)                            
            DLTSPLF    FILE(FKR050P) SPLNBR(*LAST)                            
            DLTSPLF    FILE(FMR050P) SPLNBR(*LAST)                            
            DLTSPLF    FILE(FMR050P) SPLNBR(*LAST)                            
            DLTSPLF    FILE(FMR066P) SPLNBR(*LAST)                            
            DLTSPLF    FILE(FMR065P) SPLNBR(*LAST)                            
            DLTSPLF    FILE(FMR065P) SPLNBR(*LAST)                            
                                                                              
/* Clear out queues of reports generated, but never actually printed     */ 
                                                                              
            CLROUTQ    OUTQ(ASWPICKLST)  
            CLROUTQ    OUTQ(ASWPUTAWAY)                                       
            CLROUTQ    OUTQ(ASWSOREDI)                                        
            CLROUTQ    OUTQ(JFPIPE)                                           
                                                                               
/* Clear Pick List work files (these should be cleared each time the     */ 
/* user exists the program, but apparently aren't always)                */ 
                                                                               
             CLRPFM     FILE(WKPL30P)                                          
             CLRPFM     FILE(WKPL40P)                                          
             CLRPFM     FILE(WKPL45P)                                          
                                                                               
/* Clear work files.  Some of this are used in WebSmart; they are by     */  
/* user, and are only cleared when they make a new selection.  Which     */
/* means if they are not cleared here, there will be a set of records    */
/* for every user who has ever used the program, and the file will grow. */
                                                                            
            CLRPFM     FILE(UROLCU)                                         
            CLRPFM     FILE(WSVENODTP)                                      
            CLRPFM     FILE(WSVENOSP)                                       
            CLRPFM     FILE(WSGENERP)                                       
            CLRPFM     FILE(WOPUR01AP)                                      
            CLRPFM     FILE(WSCSTSLS1P)                                     
            CLRPFM     FILE(INTRANSP)                                       
            CLRPFM     FILE(INTRANS2P)                                      
            CLRPFM     FILE(CAINTSLSP)   
            CLRPFM     FILE(DETORDCST)   
            CLRPFM     FILE(IUSERS)      
            CLRPFM     FILE(SUMDCACT)    
            CLRPFM     FILE(SUMINVC01)   
            CLRPFM     FILE(SUMINVC02)   
            CLRPFM     FILE(SUMSLSC02)   
            CLRPFM     FILE(SUMSLSC03)   
            CLRPFM     FILE(POSUM01)     
            CLRPFM     FILE(POSUM01A)    
            CLRPFM     FILE(PODET01)                                         
                                                                             
/* Clear promo report work files                                            */
                                                                             
            CLRPFM     FILE(PXWRK05P)                                        
            CLRPFM     FILE(PXWRK06P)
                                                                              
/* Clear unused reports from Out Queues                                  */  
                                                                               
             CALL       PGM(OUTQCLEAR)