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, does something else that takes about 20 minutes, then runs the next part. If some of the shell commands are not run, the only effect on Web Orders is that some pictures or specifications may be missing. This is called by EODREBLD.

/* 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')