Information Systems:EODRPT

/* DIS and WHM Integrity Reports - WHOLOP not balanced to SROSRO. For    */ 
/* both MAI and RET.                                                     */
                                                                              
            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                    */ 

            CHGJOB     OUTQ(ELAHO)                                           
            RUNQRY     QRY(STOCKST02A)                                       
                                                                               
/* Print Lost Sales Report                                               */
                                                                             
            LOSTSALES   
                     
/* Reset out of stock code of 'A' or 'B' for items not back in stock.    */ 

            CALL       PGM(PLZUP050)