COBOL编程实践1

问题描述：

读入一组产品销售记录,每读入一个记录,计算出销售总额(数量X单价).然后输出该产品的全部数据.数据形式如下：

           DATE     PRODCODE    CUST    QUANTITY    PRICE

          19921231   000001             AAAA      0100             5000

          19931231   100001             BBBB     0200             6000

 使得输出的数据形式如下:

           DATE              PROD-CODE  CUSTOMER-CODE QUANTITY  UNIT-PRICE SALES-VALUE

          1992 12 31     000001            AAAA                           0100            $5000             $500000

          1993 12 31     100001            BBBB                           0200             $6000             $1200000

编程要点:

1.数据部中数值型数据描述采用 B 控制空格而不是FILLER。

2.工作单元节中定义一个初始化静态数据项WS-INPUT-F