-----------------------------------------------------------
  DATE: 07/10/08                    File: $MTIVAL, RPG                Page   1
  TIME:  3:03 PM

    100 INPUT INVENTORY
    200 PRINTER LPT
    300 TITLE MTI     I N V E N T O R Y   V A L U A T I O N    R E P O R T  $MTIVAL
    500 TITLE =========================================================================_
    501 ===================================================================
    600 SELECTING IF VENDOR EQ '1355 '
    700 SORT ON PROD.CLASS;ITEM
    900 REPORT
    925 INDENT 5
    950 SPACES 1
    990 USING INV.TO.INVWHSE;INVWHSE.TO.MAST
   1001 DEFINE DOLLAR.DIFF = PRICE.01-AVG.COST;9.2
   1002 DEFINE MARKUP = (DOLLAR.DIFF*100)/AVG.COST;9.2;MARK UP %
   1003 DEFINE PROFIT = (DOLLAR.DIFF*100)/PRICE.01;9.2;PROFIT^MARGIN %
   1050 DEFINE MESSAGE = "LIST VALUE";10
   1100 DEFINE LISTVAL = (PRICE.01*ON.HAND)/SALES.QUANTITY;9.2;LIST^VALUE
   1125 DEFINE AVGVAL = (AVG.COST*ON.HAND)/SALES.QUANTITY;9.2;COST^VALUE
   1150 SELECTING IF ON.HAND NE 0 AND WAREHOUSE GT 'AA'
   1200 PRINT ITEM;DESCRIPTION;PRICE.01;UNIT;ON.HAND;ON.ORDER;LISTVAL!!;AVGVAL
   1250 BREAK ON PROD.CLASS
   1300 TOTAL LISTVAL!!!!;AVGVAL;MESSAGE,P
   1400 END