Difference between revisions of "Information Systems:EODUPDW"
Jump to navigation
Jump to search
(Created page with "This rebuilds ASW search files, and runs IC calcs (Inventory Control calculations). It is called by EODWEEKLY. /* Calculate IC CALCS period as calendar year and month (...") |
|||
| Line 7: | Line 7: | ||
/* Periodic balance update */ |
/* Periodic balance update */ |
||
| + | |||
| + | /* log entry is 'PER BAL UP' */ |
||
RTVASWPAR PGM(DIR345B) PAID(BALUPDATE) USER(*ALL) |
RTVASWPAR PGM(DIR345B) PAID(BALUPDATE) USER(*ALL) |
||
| Line 14: | Line 16: | ||
/* Rebuild item search fields */ |
/* Rebuild item search fields */ |
||
| + | |||
| + | /* log entry is 'ITM SEARCH' */ |
||
RTVASWPAR PGM(DMC981) PAID(ITEMSEARCH) USER(*ALL) |
RTVASWPAR PGM(DMC981) PAID(ITEMSEARCH) USER(*ALL) |
||
| Line 20: | Line 24: | ||
/* Rebuild name search fields */ |
/* Rebuild name search fields */ |
||
| + | |||
| + | /* log entry is 'NAM SEARCH' */ |
||
RTVASWPAR PGM(GDMC981) PAID(NAMESEARCH) USER(*ALL) |
RTVASWPAR PGM(GDMC981) PAID(NAMESEARCH) USER(*ALL) |
||
| Line 26: | Line 32: | ||
/* Inventory calculations */ |
/* Inventory calculations */ |
||
| + | |||
| + | /* log entry is 'IC CALCS' */ |
||
RTVASWPAR PGM(INVC401) PAID(ICCALCS) USER(*ALL) |
RTVASWPAR PGM(INVC401) PAID(ICCALCS) USER(*ALL) |
||
Revision as of 14:09, 18 March 2016
This rebuilds ASW search files, and runs IC calcs (Inventory Control calculations). It is called by EODWEEKLY.
/* Calculate IC CALCS period as calendar year and month (not fiscal) */
CHGASWLDA TYPE(*DATDZ) STARTPOS(001)
RTVDTAARA DTAARA(*LDA (1 6)) RTNVAR(&PERIOD)
/* Periodic balance update */
/* log entry is 'PER BAL UP' */
RTVASWPAR PGM(DIR345B) PAID(BALUPDATE) USER(*ALL)
CHGASWLDA TYPE(*PERDZ) STARTPOS(001)
CHGASWLDA TYPE(*PERDZ) STARTPOS(007)
EXCASWPGM PGM(DIR345B) PARM(N)
/* Rebuild item search fields */
/* log entry is 'ITM SEARCH' */
RTVASWPAR PGM(DMC981) PAID(ITEMSEARCH) USER(*ALL)
CHGASWLDA TYPE(*PERDZ) STARTPOS(007)
EXCASWPGM PGM(DMC981) PARM(N)
/* Rebuild name search fields */
/* log entry is 'NAM SEARCH' */
RTVASWPAR PGM(GDMC981) PAID(NAMESEARCH) USER(*ALL)
CHGASWLDA TYPE(*PERDZ) STARTPOS(007)
EXCASWPGM PGM(GDMC981) PARM(N)
/* Inventory calculations */
/* log entry is 'IC CALCS' */
RTVASWPAR PGM(INVC401) PAID(ICCALCS) USER(*ALL)
CHGASWLDA VALUE(&PERIOD) TYPE(*CHAR) STARTPOS(226) +
POSITIONS(6)
EXCASWPGM PGM(INVC401) PARM(N)