RPGLE - Example position file to product read equal to total sales dollars

    RPGLE  - Example position file to product read equal to total sales dollars

C*===============================================    
     C* This code reads the file C40ISD by product
     C* and Totals Dollars and Qty Sold.
     C*===============================================
     C                   Clear                   Sales
     C                   Clear                   Count
     C*
     C     PRDC          Setll      C40ISD
     C     PRDC          Reade      C40ISD
     C                   Dow        Not%Eof(C40ISD)
     C*
     C* The "+" preforms the same function as ADD.
     C*
     C                   Eval       Sales = (Sales + C4DOL$)
     C                   Eval       Count = (Count + C4QTY)
     C*
     C     PRDC          Reade     C40ISD
     C                   Enddo
     C*===============================================