Difference between revisions of "Information Systems:EOMASW"
Jump to navigation
Jump to search
| Line 9: | Line 9: | ||
/* DO A 'DEMAND ADJUSTMENT' OF PROMO SALES FOR LAST MONTH */ |
/* DO A 'DEMAND ADJUSTMENT' OF PROMO SALES FOR LAST MONTH */ |
||
| + | |||
| ⚫ | |||
CALL PGM(PXCIU356) PARM(&PERIODC &DATEC) |
CALL PGM(PXCIU356) PARM(&PERIODC &DATEC) |
||
| Line 23: | Line 25: | ||
/* PERIOD ROLLOVER */ |
/* PERIOD ROLLOVER */ |
||
| + | |||
| ⚫ | |||
RTVASWPAR PGM(ASGC032) PAID(MONTHROLL) USER(*ALL) |
RTVASWPAR PGM(ASGC032) PAID(MONTHROLL) USER(*ALL) |
||
| Line 38: | Line 42: | ||
/* PRINT INVENTORY VALUE */ |
/* PRINT INVENTORY VALUE */ |
||
| + | |||
| ⚫ | |||
RUNQRY QRY(STOCKST03A) |
RUNQRY QRY(STOCKST03A) |
||
| Line 43: | Line 49: | ||
/* PRINT A/R RECONCILIATION */ |
/* PRINT A/R RECONCILIATION */ |
||
| + | |||
| ⚫ | |||
RTVASWPAR PGM(FSC291) PAID(MONTHENDAR) USER(*ALL) |
RTVASWPAR PGM(FSC291) PAID(MONTHENDAR) USER(*ALL) |
||
| Line 50: | Line 58: | ||
/* PRINT A/P RECONCILIATION */ |
/* PRINT A/P RECONCILIATION */ |
||
| + | |||
| ⚫ | |||
RTVASWPAR PGM(FSC291) PAID(MONTHEND) USER(*ALL) |
RTVASWPAR PGM(FSC291) PAID(MONTHEND) USER(*ALL) |
||
| Line 68: | Line 78: | ||
/* ACTIVE FORECAST PERIODS */ |
/* ACTIVE FORECAST PERIODS */ |
||
| + | |||
| + | /* log entry is 'FORECAST' */ |
||
RTVASWPAR PGM(INVC522) PAID(ACTFOREPER) USER(*ALL) |
RTVASWPAR PGM(INVC522) PAID(ACTFOREPER) USER(*ALL) |
||
| Line 73: | Line 85: | ||
/* AVERAGE STOCK LEVEL */ |
/* AVERAGE STOCK LEVEL */ |
||
| + | |||
| + | /* log entry is 'STOCK LEV' */ |
||
RTVASWPAR PGM(INVC520) PAID(AVERSTOCK) USER(*ALL) |
RTVASWPAR PGM(INVC520) PAID(AVERSTOCK) USER(*ALL) |
||
| Line 80: | Line 94: | ||
/* INVENTORY SEGMENTATION */ |
/* INVENTORY SEGMENTATION */ |
||
| + | |||
| + | /* log entry is 'INV SEG' */ |
||
RTVASWPAR PGM(INVC441) PAID(UPDSEGCODE) USER(*ALL) |
RTVASWPAR PGM(INVC441) PAID(UPDSEGCODE) USER(*ALL) |
||
| Line 95: | Line 111: | ||
/* RUN QUERY OF ALL UNMATCHED (UNINVOICED) P.O. RECEIPTS */ |
/* RUN QUERY OF ALL UNMATCHED (UNINVOICED) P.O. RECEIPTS */ |
||
| + | |||
| + | /* log entry is 'UNINV PO' */ |
||
RUNQRY QRY(FINUNMATCX) |
RUNQRY QRY(FINUNMATCX) |
||
/* RUN 'TURN OF THE YEAR' FOR DIS IF THIS IS END OF JANUARY */ |
/* RUN 'TURN OF THE YEAR' FOR DIS IF THIS IS END OF JANUARY */ |
||
| + | |||
| + | /* log entry is 'TURN YEAR' */ |
||
IF COND(&MONTH = '01') THEN(DO) |
IF COND(&MONTH = '01') THEN(DO) |
||
| Line 106: | Line 126: | ||
/* TAKE COPY OF SROSRO IF THIS IS CALENDAR YEAR END */ |
/* TAKE COPY OF SROSRO IF THIS IS CALENDAR YEAR END */ |
||
| + | |||
| + | /* log entry is 'SRO YEAR' */ |
||
IF COND(&MONTH = '12') THEN(DO) |
IF COND(&MONTH = '12') THEN(DO) |
||
| Line 117: | Line 139: | ||
/* TAKE COPY OF SROSRO IF THIS IS FISCAL YEAR END */ |
/* TAKE COPY OF SROSRO IF THIS IS FISCAL YEAR END */ |
||
| + | |||
| + | /* log entry is 'SRO FISC' */ |
||
IF COND(&MONTH = '01') THEN(DO) |
IF COND(&MONTH = '01') THEN(DO) |
||
| Line 128: | Line 152: | ||
SRCFILE(XX2480BP/QDDSSRC) SRCMBR(&FILENAME) |
SRCFILE(XX2480BP/QDDSSRC) SRCMBR(&FILENAME) |
||
ENDDO |
ENDDO |
||
| − | + | ||
| − | /* TAKE COPY OF GOODS RECEIVING FILE FOR RECONCILING */ |
||
| ⚫ | |||
| − | CHGVAR VAR(&FILENAME) VALUE('SROGRT' || + |
||
| ⚫ | |||
| ⚫ | |||
| − | TOFILE(UP1480BFVA/&FILENAME) CRTFILE(*YES) |
||
| ⚫ | |||
| ⚫ | |||
/* RUN PROGRAM TO CREATE WORK FILE OF OUT OF BALANCE PO'S */ |
/* RUN PROGRAM TO CREATE WORK FILE OF OUT OF BALANCE PO'S */ |
||
| + | |||
| + | /* log entry is 'OOB PO' */ |
||
CALL PGM(BAL001CL) |
CALL PGM(BAL001CL) |
||
| − | /*ADD ONHANDS TO STATISTICS FILE */ |
+ | /*ADD ONHANDS TO STATISTICS FILE */ |
| + | |||
| + | /* log entry is 'ONH2STATS' */ |
||
CALL PGM(BLDPERONH) PARM(' ') |
CALL PGM(BLDPERONH) PARM(' ') |
||
| Line 151: | Line 171: | ||
USRDTA(REPORT1) |
USRDTA(REPORT1) |
||
| − | /* RUN SURPLUS STOCK REPORT |
+ | /* RUN SURPLUS STOCK REPORT */ |
| + | |||
| + | /* log entry is 'SURP STOCK' */ |
||
RUNQRY QRY(STOCKST06X) QRYFILE((*LIBL/SROPRG) + |
RUNQRY QRY(STOCKST06X) QRYFILE((*LIBL/SROPRG) + |
||
(*LIBL/SROSRO)) |
(*LIBL/SROSRO)) |
||
| − | /* FTP INVOICE DETAIL FOR ENDING MONTH TO PHARMASAVE */ |
+ | /* FTP INVOICE DETAIL FOR ENDING MONTH TO PHARMASAVE */ |
| + | |||
| + | /* log entry is 'PHAFTP02CL' */ |
||
SBMJOB CMD(CALL PGM(PHAFTP02CL) PARM('00000000' + |
SBMJOB CMD(CALL PGM(PHAFTP02CL) PARM('00000000' + |
||
'00000000')) USER(PHARMASAVE) |
'00000000')) USER(PHARMASAVE) |
||
| − | /* BUILD ORDER STATISTICS FILE (SUMORDCST) FOR IN_ORDER01 */ |
+ | /* BUILD ORDER STATISTICS FILE (SUMORDCST) FOR IN_ORDER01 */ |
| + | |||
| + | /* log entry is 'BLDSUMORD' */ |
||
SBMJOB CMD(CALL PGM(BLDSUMORD) PARM(&CCYYMMA)) |
SBMJOB CMD(CALL PGM(BLDSUMORD) PARM(&CCYYMMA)) |
||
| − | /* FTP SALES FOR ENDING MONTH TO IMS */ |
+ | /* FTP SALES FOR ENDING MONTH TO IMS */ |
| + | |||
| + | /* log entry is 'TSADUMPA' */ |
||
SBMJOB CMD(CALL PGM(TSADUMPA)) USER(IMSTSA) |
SBMJOB CMD(CALL PGM(TSADUMPA)) USER(IMSTSA) |
||
| − | /* DELETE OLD TRANSACTIONS */ |
+ | /* DELETE OLD TRANSACTIONS */ |
| + | |||
| + | /* log entry is 'PURGE' */ |
||
CALL PGM([[Periodic-Purge|PURGE01]]) |
CALL PGM([[Periodic-Purge|PURGE01]]) |
||
MONMSG MSGID(CPF0000) |
MONMSG MSGID(CPF0000) |
||
| − | /* DELETE EDI SPOOL FILES OVER TWO MONTHS OLD */ |
+ | /* DELETE EDI SPOOL FILES OVER TWO MONTHS OLD */ |
| + | |||
| + | /* log entry is 'OUTQCLREDI' */ |
||
CALL PGM(OUTQCLREDI) |
CALL PGM(OUTQCLREDI) |
||
Revision as of 14:22, 18 March 2016
/* CALCULATE CLOSING PERIOD AS YESTERDAY'S PERIOD (TODAY MINUS 1) */
/* ASW doesn't handle February 29 properly, so minus 2 instead */
CHGASWLDA TYPE(*DATDZ) RELVAL(-2) STARTPOS(001)
RTVDTAARA DTAARA(*LDA (1 8)) RTNVAR(&DATEC)
CHGVAR VAR(&DATE) VALUE(&DATEC)
GETPERIOD DATE(&DATE) PERIOD(&PERIOD)
CHGVAR VAR(&PERIODC) VALUE(&PERIOD)
/* DO A 'DEMAND ADJUSTMENT' OF PROMO SALES FOR LAST MONTH */
/* log entry is 'PXDEMAND' */
CALL PGM(PXCIU356) PARM(&PERIODC &DATEC)
PXDEMAND
/* CALCULATE CLOSING MONTH, AND 6 MONTHS AGO FOR ITEM SEGMENTATION */
CHGASWLDA TYPE(*DATDZ) RELVAL(-1) STARTPOS(001)
RTVDTAARA DTAARA(*LDA (1 6)) RTNVAR(&CCYYMMA)
RTVDTAARA DTAARA(*LDA (5 2)) RTNVAR(&MONTH)
RTVDTAARA DTAARA(*LDA (1 4)) RTNVAR(&YEAR)
CHGASWLDA TYPE(*DATDZ) RELVAL(-170) STARTPOS(001)
RTVDTAARA DTAARA(*LDA (1 6)) RTNVAR(&CCYYMMB)
/* PERIOD ROLLOVER */
/* log entry is 'ROLL OVER' */
RTVASWPAR PGM(ASGC032) PAID(MONTHROLL) USER(*ALL)
EXCASWPGM PGM(ASGC032) PARM(Y) DTA('N +
NNY *DEVTYPE +
N -
')
CHGASWCOM COMPANY(VA)
/* UNIQUELY IDENTIFY QUERY REPORT SO THAT CATAPULT POLLER CAN FILE IT ON */
/* SUPERSERVER. */
OVRPRTF FILE(QPQUPRFIL) OUTQ(FINANCE/FINTEMP) +
USRDTA(REPORT1)
/* PRINT INVENTORY VALUE */
/* log entry is 'INV VALUE' */
RUNQRY QRY(STOCKST03A)
DLTOVR FILE(QPQUPRFIL)
/* PRINT A/R RECONCILIATION */
/* log entry is 'A/R RECON' */
RTVASWPAR PGM(FSC291) PAID(MONTHENDAR) USER(*ALL)
CHGASWLDA VALUE(&PERIODC) TYPE(*CHAR) STARTPOS(091) +
POSITIONS(6)
EXCASWPGM PGM(FSC291) PARM(N)
/* PRINT A/P RECONCILIATION */
/* log entry is 'A/P RECON' */
RTVASWPAR PGM(FSC291) PAID(MONTHEND) USER(*ALL)
CHGASWLDA VALUE(&PERIODC) TYPE(*CHAR) STARTPOS(091) +
POSITIONS(6)
EXCASWPGM PGM(FSC291) PARM(N)
/* Send both reconciliations to Catapult. Run as a rule instead of */
/* being polled, as they go 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(FSR297P) JOB(*) SPLNBR(*LAST) +
RULENBR(10397) TIMEOUT(20)
ZRUNRULE FILE(FSR297P) JOB(*) SPLNBR(*LAST) +
RULENBR(10397) TIMEOUT(20)
/* ACTIVE FORECAST PERIODS */
/* log entry is 'FORECAST' */
RTVASWPAR PGM(INVC522) PAID(ACTFOREPER) USER(*ALL)
EXCASWPGM PGM(INVC522) PARM(N)
/* AVERAGE STOCK LEVEL */
/* log entry is 'STOCK LEV' */
RTVASWPAR PGM(INVC520) PAID(AVERSTOCK) USER(*ALL)
CHGASWLDA VALUE(&PERIODC) TYPE(*CHAR) STARTPOS(226) +
POSITIONS(6)
EXCASWPGM PGM(INVC520) PARM(N)
/* INVENTORY SEGMENTATION */
/* log entry is 'INV SEG' */
RTVASWPAR PGM(INVC441) PAID(UPDSEGCODE) USER(*ALL)
CHGASWLDA VALUE(&CCYYMMB) TYPE(*CHAR) STARTPOS(25) +
POSITIONS(6)
CHGASWLDA VALUE(&CCYYMMA) TYPE(*CHAR) STARTPOS(31) +
POSITIONS(6)
EXCASWPGM PGM(INVC441) PARM(N)
/* UNIQUELY IDENTIFY QUERY REPORT SO THAT CATAPULT POLLER CAN FILE IT ON */
/* SUPERSERVER. */
OVRPRTF FILE(QPQUPRFIL) OUTQ(FINANCE/FINTEMP) +
USRDTA(REPORT2)
/* RUN QUERY OF ALL UNMATCHED (UNINVOICED) P.O. RECEIPTS */
/* log entry is 'UNINV PO' */
RUNQRY QRY(FINUNMATCX)
/* RUN 'TURN OF THE YEAR' FOR DIS IF THIS IS END OF JANUARY */
/* log entry is 'TURN YEAR' */
IF COND(&MONTH = '01') THEN(DO)
RTVASWPAR PGM(DMC971) PAID(ENDOFYEAR) USER(*ALL)
EXCASWPGM PGM(DMC971) PARM(N)
ENDDO
/* TAKE COPY OF SROSRO IF THIS IS CALENDAR YEAR END */
/* log entry is 'SRO YEAR' */
IF COND(&MONTH = '12') THEN(DO)
CHGVAR VAR(&FILENAME) VALUE('SROSRO' || &YEAR)
CPYF FROMFILE(SROSRO) +
TOFILE(UP1480BFVA/&FILENAME) CRTFILE(*YES)
CHGVAR VAR(&FILENAME) VALUE('SRBSRO' || &YEAR)
CRTLF FILE(UP1480BFVA/&FILENAME) +
SRCFILE(XX2480BP/QDDSSRC) SRCMBR(&FILENAME)
ENDDO
/* TAKE COPY OF SROSRO IF THIS IS FISCAL YEAR END */
/* log entry is 'SRO FISC' */
IF COND(&MONTH = '01') THEN(DO)
CHGVAR VAR(&FILENAME) VALUE('SROSROF' || +
%SST(&YEAR 3 2))
CPYF FROMFILE(SROSRO) +
TOFILE(UP1480BFVA/&FILENAME) CRTFILE(*YES)
CHGVAR VAR(&FILENAME) VALUE('SRBSROF' || +
%SST(&YEAR 3 2))
CRTLF FILE(UP1480BFVA/&FILENAME) +
SRCFILE(XX2480BP/QDDSSRC) SRCMBR(&FILENAME)
ENDDO
/* RUN PROGRAM TO CREATE WORK FILE OF OUT OF BALANCE PO'S */
/* log entry is 'OOB PO' */
CALL PGM(BAL001CL)
/*ADD ONHANDS TO STATISTICS FILE */
/* log entry is 'ONH2STATS' */
CALL PGM(BLDPERONH) PARM(' ')
/* UNIQUELY IDENTIFY QUERY REPORT SO THAT CATAPULT POLLER CAN FILE IT ON */
/* SUPERSERVER. */
OVRPRTF FILE(QPQUPRFIL) OUTQ(FINANCE/FINTEMP) +
USRDTA(REPORT1)
/* RUN SURPLUS STOCK REPORT */
/* log entry is 'SURP STOCK' */
RUNQRY QRY(STOCKST06X) QRYFILE((*LIBL/SROPRG) +
(*LIBL/SROSRO))
/* FTP INVOICE DETAIL FOR ENDING MONTH TO PHARMASAVE */
/* log entry is 'PHAFTP02CL' */
SBMJOB CMD(CALL PGM(PHAFTP02CL) PARM('00000000' +
'00000000')) USER(PHARMASAVE)
/* BUILD ORDER STATISTICS FILE (SUMORDCST) FOR IN_ORDER01 */
/* log entry is 'BLDSUMORD' */
SBMJOB CMD(CALL PGM(BLDSUMORD) PARM(&CCYYMMA))
/* FTP SALES FOR ENDING MONTH TO IMS */
/* log entry is 'TSADUMPA' */
SBMJOB CMD(CALL PGM(TSADUMPA)) USER(IMSTSA)
/* DELETE OLD TRANSACTIONS */
/* log entry is 'PURGE' */
CALL PGM(PURGE01)
MONMSG MSGID(CPF0000)
/* DELETE EDI SPOOL FILES OVER TWO MONTHS OLD */
/* log entry is 'OUTQCLREDI' */
CALL PGM(OUTQCLREDI)
MONMSG MSGID(CPF0000)