Information Systems:EODREBLD
Jump to navigation
Jump to search
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)