Difference between revisions of "Information Systems:EODREBLD"

From uniWIKI
Jump to navigation Jump to search
m
 
(6 intermediate revisions by 2 users not shown)
Line 3: Line 3:
 
/* clear files and folders for Web Orders */
 
/* clear files and folders for Web Orders */
 
/* there are some Unix commands run in Qshell that sometimes fail, so */
 
/* there are some Unix commands run in Qshell that sometimes fail, so */
−
/* submit it to batch and wait for it to complete. If it doesn't, it */
+
/* submit it to batch. If it doesn't complete, it won't affect the end */
−
/* won't affect the end of day - but the image and specification in Web */
+
/* of day - but the image and specification in Web Orders may not be */
−
/* Orders may not be correct. */
+
/* correct. */
  +
  ⚫
/* log entry is 'WSOVERNIT1' */
 
 
 
SBMJOB CMD(CALL PGM([[WSOVERNIT1]])) JOBQ(QS36EVOKE)
 
SBMJOB CMD(CALL PGM([[WSOVERNIT1]])) JOBQ(QS36EVOKE)
−
DLYJOB DLY(420)
 
 
 
 
/* Build consolidated item master file (XXITEMP). This must run before */
  
/* Build consolidated item master file (XXITEMP). This must run before */
 
/* Web Order files are rebuilt. */
  
/* Web Order files are rebuilt. */
  +
⚫
 
  +
/* log entry is 'XXITEMP' */
  ⚫
 
CALL PGM(ITEMINFOCA)
 
CALL PGM(ITEMINFOCA)
 
 
 
/* rebuild files for Web Orders */
 
/* rebuild files for Web Orders */
  +
  ⚫
/* log entry is 'WSOVERNIT2' */
 
 
 
CALL PGM([[WSOVERNIT2]])
 
CALL PGM([[WSOVERNIT2]])
 
 
 
/* Run End of Day housekeeping. */
  
/* Run End of Day housekeeping. */
  +
  +
/* log entry is 'EODCLR' */
 
 
 
CALL PGM([[EODCLR]])
 
CALL PGM([[EODCLR]])
Line 25: Line 32:
 
/* Build summary file of lost sales */
 
/* Build summary file of lost sales */
 
/* (ITEMSTAT uses this file, so this has to run first) */
 
/* (ITEMSTAT uses this file, so this has to run first) */
  +
  +
/* log entry is 'SUMVENLST' */
 
 
 
CLRPFM FILE(SUMVENLST)
 
CLRPFM FILE(SUMVENLST)
Line 30: Line 39:
 
 
 
/* Rebuild item statistics file (XXSTATSP) */
  
/* Rebuild item statistics file (XXSTATSP) */
  +
  +
/* log entry is 'XXSTATSP' */
 
 
 
CLRPFM FILE(XXSTATSP)
 
CLRPFM FILE(XXSTATSP)
Line 35: Line 46:
 
 
 
/* Rebuild promo results files (for InfoNet) */
  
/* Rebuild promo results files (for InfoNet) */
  +
  +
/* log entry is 'PXRESBUILD' */
 
 
 
CALL PGM(PXRESBUILD)
 
CALL PGM(PXRESBUILD)
Line 40: Line 53:
 
/* Build summary file of sales (including brand) by customer */
  
/* Build summary file of sales (including brand) by customer */
 
/* (for IN_CUSTSLS) */
  
/* (for IN_CUSTSLS) */
  +
  +
/* log entry is 'BLDCSTSL2' */
 
 
 
CALL PGM(BLDCSTSL2) PARM(' ')
 
CALL PGM(BLDCSTSL2) PARM(' ')
 
 
 
/* Build summary file of freight vs sales (current and previous month) */
 
/* Build summary file of freight vs sales (current and previous month) */
  +
  +
/* log entry is 'BLDSUMFRT' */
 
 
 
CALL PGM(BLDSUMFRT) PARM(' ')
 
CALL PGM(BLDSUMFRT) PARM(' ')
Line 49: Line 66:
 
 
 
/* Build summary file to validate Analyser */
 
/* Build summary file to validate Analyser */
  +
  +
/* log entry is 'BLDANAWRK' */
 
 
 
CALL PGM(BLDANAWRK)
 
CALL PGM(BLDANAWRK)
Line 58: Line 77:
 
 
 
/* Build file of sales order pattern - sales by the hour */
 
/* Build file of sales order pattern - sales by the hour */
  +
  +
/* log entry is 'BLDORDLIN' */
 
 
 
CALL PGM(BLDORDLIN) PARM(' ')
 
CALL PGM(BLDORDLIN) PARM(' ')
 
 
 
/* Build file of sales order statistics by day */
  
/* Build file of sales order statistics by day */
  +
  +
/* log entry is 'BLDDAYLINF' */
 
 
 
CALL PGM(BLDDAYLINF)
 
CALL PGM(BLDDAYLINF)
 
 
 
/* Build file of PO fill rates */
  
/* Build file of PO fill rates */
  +
  +
/* log entry is 'BLDPOFRT' */
 
 
 
CALL PGM(BLDPOFRT) PARM(' ')
 
CALL PGM(BLDPOFRT) PARM(' ')
 
 
 
/* Build file of sales and budget by item account group */
 
/* Build file of sales and budget by item account group */
  +
⚫
 
  +
/* log entry is 'BLDSLSBUD' */
  +
 
CALL PGM(BLDSLSBUD) PARM(' ')
 
CALL PGM(BLDSLSBUD) PARM(' ')
 
 
−
/* Build summary file of lost sales by warehouse */
+
/* Build summary file of lost sales by warehouse */
  +
  +
/* log entry is 'SUMWHSLST' */
 
 
 
CLRPFM FILE(SUMWHSLST)
 
CLRPFM FILE(SUMWHSLST)
Line 79: Line 108:
 
 
 
/* Build file of VEBA by province by day */
 
/* Build file of VEBA by province by day */
  +
  +
/* log entry is 'BLDVEBA' */
 
 
 
CALL PGM(BLDVEBA) PARM(' ')
 
CALL PGM(BLDVEBA) PARM(' ')
  +
⚫
 
  +
/* Print EDI supplier invoices (EIN) by calling same program as from */
  +
/* menu option 9 in EDI menu */
  +
  +
/* log entry is 'EINPRINT' */
  +
  +
CALL PGM(EDINVSUPC)
  +
 
/* send email that rebuild is complete */
  
/* send email that rebuild is complete */
 
 
Line 88: Line 126:
 
CHGVAR VAR(&LMSG) VALUE(&SMSG)
 
CHGVAR VAR(&LMSG) VALUE(&SMSG)
 
CALL PGM(OPMSGSEND) PARM(&SMSG &LMSG)
  
CALL PGM(OPMSGSEND) PARM(&SMSG &LMSG)
  +
  +
[[Category:Overnight Processing]]

Latest revision as of 16:18, 24 November 2016

This rebuilds/updates master and statistic files used by Web Orders and InfoNet. These are built as part of the overnight processing instead of when a user requests the information. This also clears work files and spool files. It is submitted to QBATCH by EOD, to run after the restricted state has ended; about 5:00AM. 

/* clear files and folders for Web Orders                                */ 
/* there are some Unix commands run in Qshell that sometimes fail, so    */ 
/* submit it to batch.  If it doesn't complete, it won't affect the end  */ 
/* of day - but the image and specification in Web Orders may not be     */ 
/* correct.                                                              */ 

/* log entry is 'WSOVERNIT1'                                             */
                                                                             
            SBMJOB     CMD(CALL PGM(WSOVERNIT1)) JOBQ(QS36EVOKE)             
                                          
/* Build consolidated item master file (XXITEMP).  This must run before */
/* Web Order files are rebuilt.                                         */
 
/* log entry is 'XXITEMP'                                               */
                                                                            
            CALL       PGM(ITEMINFOCA)                                      
                                                                                                                              
/* rebuild files for Web Orders                                         */ 

/* log entry is 'WSOVERNIT2'                                            */
                                                                             
            CALL       PGM(WSOVERNIT2) 
                                       
/* Run End of Day housekeeping.                                         */

/* log entry is 'EODCLR'                                                */
                                                                         
            CALL       PGM(EODCLR)                                          
                    
/* Build summary file of lost sales                                      */       
/* (ITEMSTAT uses this file, so this has to run first)                   */       

/* log entry is 'SUMVENLST'                                              */
                                                                            
            CLRPFM     FILE(SUMVENLST)                                      
            CALL       PGM(BLDSUMLST)                                       
                                                                             
/* Rebuild item statistics file (XXSTATSP)                               */

/* log entry is 'XXSTATSP'                                               */
                                                                            
            CLRPFM     FILE(XXSTATSP)                                      
            CALL       PGM(ITEMSTAT)                                       
                                                                           
/* Rebuild promo results files (for InfoNet)                             */

/* log entry is 'PXRESBUILD'                                             */
                                                                           
            CALL       PGM(PXRESBUILD)                                     
                                                                           
/* Build summary file of sales (including brand) by customer             */
/* (for IN_CUSTSLS)                                                      */

/* log entry is 'BLDCSTSL2'                                              */
                                                                           
            CALL       PGM(BLDCSTSL2) PARM('      ')   
                    
/* Build summary file of freight vs sales (current and previous month)   */  

/* log entry is 'BLDSUMFRT'                                              */
                                                                              
            CALL       PGM(BLDSUMFRT) PARM('      ')                         
            CALL       PGM(BLDSUMFRTP)                                       
                                                                              
/* Build summary file to validate Analyser                               */  

/* log entry is 'BLDANAWRK'                                              */
                                                                              
            CALL       PGM(BLDANAWRK)                                        
                                                                              
/* Search for duplicate keys in ANOSTK                                   */  
                                                                              
            RUNQRY     QRY(ANOSTKCNT1) QRYFILE((*LIBL/ANOSTK))               
            RUNQRY     QRY(ANOSTKCNT2) QRYFILE((*LIBL/ANOCOUNT))             
                                                                              
/* Build file of sales order pattern - sales by the hour                 */  

/* log entry is 'BLDORDLIN'                                              */
                                                                              
            CALL       PGM(BLDORDLIN) PARM('        ')   
                    
/* Build file of sales order statistics by day                           */

/* log entry is 'BLDDAYLINF'                                             */
                                                                           
            CALL       PGM(BLDDAYLINF)                                     
                                                                           
/* Build file of PO fill rates                                           */

/* log entry is 'BLDPOFRT'                                               */
                                                                           
            CALL       PGM(BLDPOFRT) PARM('        ')                      
                                                                           
/* Build file of sales and budget by item account group                  */ 

/* log entry is 'BLDSLSBUD'                                              */ 
                                                                            
            CALL       PGM(BLDSLSBUD) PARM('      ')                       
                                                                           
/* Build summary file of lost sales by warehouse                         */  

/* log entry is 'SUMWHSLST'                                              */    
                                                                           
            CLRPFM     FILE(SUMWHSLST)                                     
            CALL       PGM(BLDWHSLST)                                      
 
/* Build file of VEBA by province by day                                 */    

/* log entry is 'BLDVEBA'                                                */
                                                                              
            CALL       PGM(BLDVEBA) PARM('        ')                          

/* Print EDI supplier invoices (EIN) by calling same program as from     */
/* menu option 9 in EDI menu                                             */

/* log entry is 'EINPRINT'                                               */

            CALL       PGM(EDINVSUPC)                                                                                     

/* send email that rebuild is complete                                   */
                                                                              
            CHGVAR     VAR(&SMSG) VALUE('Statistics files rebuild +           
                         is complete')                                        
            CHGVAR     VAR(&LMSG) VALUE(&SMSG)                                
            CALL       PGM(OPMSGSEND) PARM(&SMSG &LMSG)
Retrieved from "https://owl.unipharm.com/mediawiki/index.php?title=Information_Systems:EODREBLD&oldid=5820"