Information Systems:EODUPDW

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)