Difference between revisions of "Information Systems:EODUPD"
Jump to navigation
Jump to search
| Line 3: | Line 3: | ||
/* Generate bills to suppliers for COOP AND VEDI. This has to run first */ |
/* Generate bills to suppliers for COOP AND VEDI. This has to run first */ |
||
/* so that generated entries will be included in the updates. */ |
/* so that generated entries will be included in the updates. */ |
||
| + | |||
| ⚫ | |||
| + | /* log entry is 'MISC BILL1' */ |
||
| + | |||
CXBILL03C |
CXBILL03C |
||
CALL PGM(CXBILL06) |
CALL PGM(CXBILL06) |
||
| Line 26: | Line 28: | ||
/* There are saved parameters for this. Just change the date and period.*/ |
/* There are saved parameters for this. Just change the date and period.*/ |
||
| + | /* log entry is 'INV JOURN' */ |
||
| + | |||
RTVASWPAR PGM(DMC352) PAID(INVJOURNAL) USER(*ALL) |
RTVASWPAR PGM(DMC352) PAID(INVJOURNAL) USER(*ALL) |
||
CHGASWLDA TYPE(*DATDZ) RELVAL(-1) STARTPOS(082) |
CHGASWLDA TYPE(*DATDZ) RELVAL(-1) STARTPOS(082) |
||
| Line 44: | Line 48: | ||
/* Change the date and period. */ |
/* Change the date and period. */ |
||
| + | /* log entry is 'DIS TO FIN' */ |
||
| + | |||
RTVASWPAR PGM(GCFC751) PAID(DIS2FIN) USER(*ALL) |
RTVASWPAR PGM(GCFC751) PAID(DIS2FIN) USER(*ALL) |
||
CHGASWLDA TYPE(*DATDZ) RELVAL(-1) STARTPOS(082) |
CHGASWLDA TYPE(*DATDZ) RELVAL(-1) STARTPOS(082) |
||
| Line 63: | Line 69: | ||
/* Clear intermediate purchase suggestions from yesterday. */ |
/* Clear intermediate purchase suggestions from yesterday. */ |
||
| + | /* log entry is 'PURCH SUG' */ |
||
| + | |||
RTVASWPAR PGM(DIC801) PAID(CLRSUGPO) USER(*ALL) |
RTVASWPAR PGM(DIC801) PAID(CLRSUGPO) USER(*ALL) |
||
CHGASWLDA TYPE(*DATDZ) STARTPOS(1) |
CHGASWLDA TYPE(*DATDZ) STARTPOS(1) |
||
| Line 85: | Line 93: | ||
/* Update ASW Item Cost With Effective VEBA From CCP */ |
/* Update ASW Item Cost With Effective VEBA From CCP */ |
||
| − | + | /* log entry is 'ASW COST' */ |
|
| + | |||
| + | CALL PGM(IXRUP880) |
||
/* Note that we can operate if the following jobs are not run. There may */ |
/* Note that we can operate if the following jobs are not run. There may */ |
||
| Line 93: | Line 103: | ||
/* Rebuild the Time Axis File */ |
/* Rebuild the Time Axis File */ |
||
| + | /* log entry is 'TIME AXIS' */ |
||
| + | |||
RTVASWPAR PGM(DMC951) PAID(TIMEAXIS) USER(*ALL) |
RTVASWPAR PGM(DMC951) PAID(TIMEAXIS) USER(*ALL) |
||
CHGASWLDA VALUE(&PERIODC) TYPE(*CHAR) STARTPOS(007) + |
CHGASWLDA VALUE(&PERIODC) TYPE(*CHAR) STARTPOS(007) + |
||
| Line 100: | Line 112: | ||
/* Rebuild A/R Credit Time Axis */ |
/* Rebuild A/R Credit Time Axis */ |
||
| + | /* log entry is 'AR CRD AX' */ |
||
| + | |||
RTVASWPAR PGM(GDMC195) PAID(ARAXIS) USER(*ALL) |
RTVASWPAR PGM(GDMC195) PAID(ARAXIS) USER(*ALL) |
||
EXCASWPGM PGM(GDMC195) PARM(N) |
EXCASWPGM PGM(GDMC195) PARM(N) |
||
| Line 105: | Line 119: | ||
/* Rebuild A/R and A/P Totals */ |
/* Rebuild A/R and A/P Totals */ |
||
| + | /* log entry is 'AR AP TOT' */ |
||
| + | |||
RTVASWPAR PGM(FSC880) PAID(ARAPREBLD) USER(*ALL) |
RTVASWPAR PGM(FSC880) PAID(ARAPREBLD) USER(*ALL) |
||
EXCASWPGM PGM(FSC880) PARM(N) |
EXCASWPGM PGM(FSC880) PARM(N) |
||
| Line 111: | Line 127: | ||
/* in gross margin %, and email buyer. */ |
/* in gross margin %, and email buyer. */ |
||
| + | /* log entry is 'HI CST/GM' */ |
||
| + | |||
CALL PGM(IXRIQ405) |
CALL PGM(IXRIQ405) |
||
/* Send any 'READY' promos to ECU */ |
/* Send any 'READY' promos to ECU */ |
||
| + | /* log entry is 'PROMO2ECU' */ |
||
| + | |||
ECUPROMO |
ECUPROMO |
||
| Line 120: | Line 140: | ||
/* suggestions for regular stocked items are not inflated by promo sales.*/ |
/* suggestions for regular stocked items are not inflated by promo sales.*/ |
||
| + | /* log entry is 'ADJ DEMAND' */ |
||
| + | |||
PXDEMAND |
PXDEMAND |
||
| Line 127: | Line 149: | ||
/* Do not share open data path, as SRBPRG may not be open for update. */ |
/* Do not share open data path, as SRBPRG may not be open for update. */ |
||
| + | /* log entry is 'AVE COST' */ |
||
| + | |||
OVRDBF FILE(SRBPRG) TOFILE(SRBPRG) SHARE(*NO) |
OVRDBF FILE(SRBPRG) TOFILE(SRBPRG) SHARE(*NO) |
||
CALL PGM(AVGCST01) |
CALL PGM(AVGCST01) |
||
| Line 132: | Line 156: | ||
/* Run miscellaneous billing - extract VEDI and COOP to be billed */ |
/* Run miscellaneous billing - extract VEDI and COOP to be billed */ |
||
| − | + | /* log entry is 'MISC BILL2' */ |
|
| + | |||
| ⚫ | |||
/* FTP Sales Orders with no invoiced lines. Normally, the FTP'ed */ |
/* FTP Sales Orders with no invoiced lines. Normally, the FTP'ed */ |
||
| Line 138: | Line 164: | ||
/* that haven't generated an invoice. */ |
/* that haven't generated an invoice. */ |
||
| + | /* log entry is 'FTP INV1' */ |
||
| + | |||
CALL PGM(INVCUP300) |
CALL PGM(INVCUP300) |
||
/* For miscellaneous (VEDI & COOP) billing, settle invoice to transfers */ |
/* For miscellaneous (VEDI & COOP) billing, settle invoice to transfers */ |
||
| + | /* log entry is 'MISC BILL3' */ |
||
| + | |||
CALL PGM(CXBILL07) |
CALL PGM(CXBILL07) |
||
/* Cancel any held POS orders that are four days old or more */ |
/* Cancel any held POS orders that are four days old or more */ |
||
| + | /* log entry is 'HELD POS' */ |
||
| + | |||
CALL PGM(IOPMIN04) |
CALL PGM(IOPMIN04) |
||
/* Delete item notes that have expired */ |
/* Delete item notes that have expired */ |
||
| + | /* log entry is 'DEL NOTES' */ |
||
| + | |||
CALL PGM(DMRUP101) |
CALL PGM(DMRUP101) |
||
/* Try to reorganize Carrier Interface File */ |
/* Try to reorganize Carrier Interface File */ |
||
| + | /* log entry is 'REORG CAR' */ |
||
| + | |||
RGZPFM FILE(ATLASPF) |
RGZPFM FILE(ATLASPF) |
||
Revision as of 17:22, 15 March 2016
This does all the updating that requires all users to be off the system. It is called by EOD.
/* Generate bills to suppliers for COOP AND VEDI. This has to run first */
/* so that generated entries will be included in the updates. */
/* log entry is 'MISC BILL1' */
CXBILL03C
CALL PGM(CXBILL06)
/* Run ASW command to put the current date minus 1 (as this job is */
/* running after midnight) into the LDA (local data area) */
CHGASWLDA TYPE(*DATDZ) RELVAL(-1) STARTPOS(001)
/* Extract yesterday's date from the LDA and convert it to numeric */
RTVDTAARA DTAARA(*LDA (1 8)) RTNVAR(&DATEC)
CHGVAR VAR(&DATE) VALUE(&DATEC)
/* Call ASW program to get yesterday's fiscal period, and convert to */
/* character. */
GETPERIOD DATE(&DATE) PERIOD(&PERIOD)
CHGVAR VAR(&PERIODC) VALUE(&PERIOD)
/* Print invoice journal. This will be file DMR352P in WRKSPLF EDOJOB. */
/* There are saved parameters for this. Just change the date and period.*/
/* log entry is 'INV JOURN' */
RTVASWPAR PGM(DMC352) PAID(INVJOURNAL) USER(*ALL)
CHGASWLDA TYPE(*DATDZ) RELVAL(-1) STARTPOS(082)
CHGASWLDA VALUE(&PERIODC) TYPE(*CHAR) STARTPOS(090) +
POSITIONS(6)
EXCASWPGM PGM(DMC352) PARM(N)
/* Send invoice journal to Catapult. This is run as a rule instead of */
/* being polled, as it goes into QPRINT. We don't want the poller to */
/* go through QPRINT; it's 2300 spool files now, but will just keep */
/* getting bigger. */
ADDLIBLE LIB(XL_CATAPLT)
ZRUNRULE FILE(DMR352P) JOB(*) SPLNBR(*LAST) +
RULENBR(10393) TIMEOUT(20)
/* Run nightly DIS to FIN. Again, there are saved parameters for this. */
/* Change the date and period. */
/* log entry is 'DIS TO FIN' */
RTVASWPAR PGM(GCFC751) PAID(DIS2FIN) USER(*ALL)
CHGASWLDA TYPE(*DATDZ) RELVAL(-1) STARTPOS(082)
CHGASWLDA VALUE(&PERIODC) TYPE(*CHAR) STARTPOS(090) +
POSITIONS(6)
EXCASWPGM PGM(GCFC751) PARM(N)
/* Delete all generated spool file except for 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)
DLTSPLF FILE(FMR056P) SPLNBR(*LAST)
/* Clear intermediate purchase suggestions from yesterday. */
/* log entry is 'PURCH SUG' */
RTVASWPAR PGM(DIC801) PAID(CLRSUGPO) USER(*ALL)
CHGASWLDA TYPE(*DATDZ) STARTPOS(1)
EXCASWPGM PGM(DIC801) PARM(N)
/* Generate purchase suggestions. */
RTVASWPAR PGM(INVC431) PAID(PURSUG2MAI) USER(*ALL)
EXCASWPGM PGM(INVC431) PARM(N)
RTVASWPAR PGM(INVC431) PAID(PURSUG3MAI) USER(*ALL)
EXCASWPGM PGM(INVC431) PARM(N)
/* Keep copy of purchase suggestions as there are sometimes questions */
/* about whether something was generated here, or manually. */
CPYF FROMFILE(UP1480BFVA/SROPUH) +
TOFILE(UP1480BFVA/SROPUH.B1) MBROPT(*REPLACE)
CPYF FROMFILE(UP1480BFVA/SROPUL) +
TOFILE(UP1480BFVA/SROPUL.B1) MBROPT(*REPLACE)
/* Update ASW Item Cost With Effective VEBA From CCP */
/* log entry is 'ASW COST' */
CALL PGM(IXRUP880)
/* Note that we can operate if the following jobs are not run. There may */
/* be some 'unexpected results', but that will not stop us from receiving,*/
/* picking, and shipping orders. */
/* Rebuild the Time Axis File */
/* log entry is 'TIME AXIS' */
RTVASWPAR PGM(DMC951) PAID(TIMEAXIS) USER(*ALL)
CHGASWLDA VALUE(&PERIODC) TYPE(*CHAR) STARTPOS(007) +
POSITIONS(6)
EXCASWPGM PGM(DMC951) PARM(N)
/* Rebuild A/R Credit Time Axis */
/* log entry is 'AR CRD AX' */
RTVASWPAR PGM(GDMC195) PAID(ARAXIS) USER(*ALL)
EXCASWPGM PGM(GDMC195) PARM(N)
/* Rebuild A/R and A/P Totals */
/* log entry is 'AR AP TOT' */
RTVASWPAR PGM(FSC880) PAID(ARAPREBLD) USER(*ALL)
EXCASWPGM PGM(FSC880) PARM(N)
/* Calculate items that will have a 5% increase in cost or 5% decrease */
/* in gross margin %, and email buyer. */
/* log entry is 'HI CST/GM' */
CALL PGM(IXRIQ405)
/* Send any 'READY' promos to ECU */
/* log entry is 'PROMO2ECU' */
ECUPROMO
/* Adjust demand by items on promo. This is so that purchase */
/* suggestions for regular stocked items are not inflated by promo sales.*/
/* log entry is 'ADJ DEMAND' */
PXDEMAND
/* Use average purchase cost for warehouse MAI in SROSRO to update */
/* average purchase cost in SROSRO for RET, and average purchase cost */
/* in base item master file SROPRG. */
/* Do not share open data path, as SRBPRG may not be open for update. */
/* log entry is 'AVE COST' */
OVRDBF FILE(SRBPRG) TOFILE(SRBPRG) SHARE(*NO)
CALL PGM(AVGCST01)
/* Run miscellaneous billing - extract VEDI and COOP to be billed */
/* log entry is 'MISC BILL2' */
CALL PGM(CXBILL)
/* FTP Sales Orders with no invoiced lines. Normally, the FTP'ed */
/* invoice file includes cancelled order lines. This will send orders */
/* that haven't generated an invoice. */
/* log entry is 'FTP INV1' */
CALL PGM(INVCUP300)
/* For miscellaneous (VEDI & COOP) billing, settle invoice to transfers */
/* log entry is 'MISC BILL3' */
CALL PGM(CXBILL07)
/* Cancel any held POS orders that are four days old or more */
/* log entry is 'HELD POS' */
CALL PGM(IOPMIN04)
/* Delete item notes that have expired */
/* log entry is 'DEL NOTES' */
CALL PGM(DMRUP101)
/* Try to reorganize Carrier Interface File */
/* log entry is 'REORG CAR' */
RGZPFM FILE(ATLASPF)