问题描述:
读入一组产品销售记录,每读入一个记录,计算出销售总额(数量X单价).然后输出该产品的全部数据.数据形式如下:
DATE PRODCODE CUST QUANTITY PRICE
000001 AAAA 0100 5000BBBB 0200 6000
使得输出的数据形式如下:
DATE PROD-CODE CUSTOMER-CODE QUANTITY UNIT-PRICE SALES-VALUE
1992 12 31 000001 AAAA 0100 $5000 $1993 12 31 BBBB 0200 $6000 $
编程要点:
1.数据部中数值型数据描述采用 B 控制空格而不是FILLER。
2.工作单元节中定义一个初始化静态数据项WS-INPUT-F
版权声明:
本文来自互联网用户投稿,该文观点仅代表作者本人,不代表本站立场。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。
如若内容造成侵权、违法违规、事实不符,请将相关资料发送至xkadmin@xkablog.com进行投诉反馈,一经查实,立即处理!
转载请注明出处,原文链接:https://www.xkablog.com/cobolbc/2320.html