Information Systems:EODRPT

This generates reports. It is called by EOD.

/* DIS and WHM Integrity Reports - WHOLOP not balanced to SROSRO. For    */ 
/* both MAI and RET.                                                     */
                                                                              
/* log entry is 'INTEG RPTS'                                             */
                                            
            RTVASWPAR  PGM(WMC251S) PAID(MAIINT) USER(*ALL)                 
            EXCASWPGM  PGM(WMC251S) PARM(N)                                   
            RTVASWPAR  PGM(WMC251S) PAID(RETINT) USER(*ALL)                 
            EXCASWPGM  PGM(WMC251S) PARM(N)                                   
                                                                              
/* Print onhand inventory at cost for both warehouses                    */ 

/* log entry is 'STOCK STAT'                                             */
                                            
            CHGJOB     OUTQ(ELAHO)                                           
            RUNQRY     QRY(STOCKST02A)                                       
                                                                               
/* Print Lost Sales Report                                               */
                                                                             
/* log entry is 'LOST SALES'                                             */
                                            
            LOSTSALES   
                     
/* Reset out of stock code (or short code) of 'A', 'B', or 'N' for items */
/* now back in stock.                                                    */ 

/* log entry is 'OOS CODES'                                              */
                                            
             CALL       PGM(PLZUP050)