Information Systems:WSOVERNIT1

This is part of the process to rebuild files for Web Orders. On the Power 8, the shell commands sometimes come to a hard stop and need an operator response. That would stop the over night processing from completing. So EODREBLD submits this program, waits 7 minutes, then submits the next part. If some of the shell commands are not run, the only effect on Web Orders is that some picture or specifications may be missing.

/* Generate list of items with images in image folder. */               
                                                                        
             CLRPFM     FILE(IMAGES)                                    

             CHGVAR     VAR(&CMD) VALUE('ls -1 +                        
                          /webroot/unipharm/images > /qsys.lib/' +      
                          *CAT &DATALIB *TCAT +                         
                          '.lib/images.file/images.mbr')                
             QSH        CMD(&CMD)                                       
             CPYF       FROMFILE(&DATALIB/IMAGES) TOFILE(WSIMAGP) +     
                          MBROPT(*REPLACE) FMTOPT(*NOCHK)               
                                                                        
/* Generate list of items with PDFs in specs folder. */               
                                                                      
             CLRPFM     FILE(SPECS)                                   

                                                                      
             CHGVAR     VAR(&CMD) VALUE('ls -1 +                      
                          /webroot/unipharm/specs > /qsys.lib/' +     
                          *CAT &DATALIB *TCAT +                       
                          '.lib/specs.file/specs.mbr')                
             QSH        CMD(&CMD)                                     
             CPYF       FROMFILE(&DATALIB/SPECS) TOFILE(WSSPECP) +    
                          MBROPT(*REPLACE) FMTOPT(*NOCHK)             
                                                         
/* Clear PDFs from price tickets and shelf labels folders. */             
                                                                          
             QSH        CMD('rm /webroot/unipharm/PriceTickets/*.pdf')    
             QSH        CMD('rm /webroot/unipharm/ShelfLabels/*.pdf')     
             QSH        CMD('rm /webroot/unipharm/partnerlists/*.pdf')