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 PRDC Setll C40ISD

C PRDC Reade C40ISD

C Dow Not%Eof(C40ISD)

C* The "+" preforms the same function as ADD.

C Eval Sales = (Sales + C4DOL$)

C Eval Count = (Count + C4QTY)

C PRDC Reade C40ISD

C Enddo

C*===============================================

ISeries As400 Blogger time