编辑格式

最新推荐文章于 2022-12-12 17:40:41 发布

自信的微笑

最新推荐文章于 2022-12-12 17:40:41 发布

阅读量420

点赞数

分类专栏： COBOL-大型机文章标签：报表

本文链接：https://blog.csdn.net/qq395740774/article/details/7585623

版权

COBOL-大型机专栏收录该内容

28 篇文章 1 订阅

订阅专栏

编辑格式输出类型。
1.日期格式。
用于对年月日表示的数据进行格式输出。通常使用反斜杠‘/’将年，月，日分隔。
如：
。。。
DATA DIVISION.
WORKING-STORAGE SECTION.
01 TEST-DATE PIC 9(8).
01 EDITED-DATE PIC 9(4)/99/99.
PROCEDURE DIVISION.
             MOVE 20120520 TO TEST-DATE.
             MOVE TEST-DATE TO EDITED-DATE.
             DISPLAY 'TODAY IS : ' EDITED-DATE.
             STOP RUN.
运行结果：
TODAY IS : 2012/05/20

2.货币格式。
用于生成报表，工资单，账单等，需要在具体数字前加货币符号'$'。
单一'$'的货币格式，如：
。。。
DATA DIVISION.
WORKING-STORAGE SECTION.
01 PRICE PIC 999.
01 EDITED-PRICE PIC $999.
PROCEDURE DIVISION.
             MOVE 100 TO PRICE.
             MOVE PRICE TO EDITED-PRICE.
             DISPLAY 'PRICE:' PRICE.
             DISPLAY 'EDITED-PRICE:' EDITED-PRICE.
             STOP RUN.
运行结果：
PRICE: 100
EDITED-PRICE: $100

多个'$'的货币格式。
当货币的总长度超过实际长度是，前面多余的$会被空格取代，长度范围内的被实际数值取代。
当长度不足时，保留第一个$，同时实际数值被截取，与长度匹配。如：
DATA DIVISION.
WORKING-STORAGE SECTION.
01 PRICE PIC 999.
01 EDITED-PRICE PIC $999.
01 EDITED-PRICE1 PIC $$$$$$.
01 EDITED-PRICE2 PIC $99.
PROCEDURE DIVISION.
             MOVE 100 TO PRICE.
             MOVE PRICE TO EDITED-PRICE.
             MOVE PRICE TO EDITED-PRICE1.
             MOVE PRICE TO EDITED-PRICE2.
             DISPLAY 'PRICE:' PRICE.
             DISPLAY 'EDITED-PRICE:' EDITED-PRICE.
             DISPLAY 'EDITED-PRICE1:' EDITED-PRICE1.
             DISPLAY 'EDITED-PRICE2:' EDITED-PRICE2.
             STOP RUN.
运行结果：
PRICE: 100
EDITED-PRICE: $100
EDITED-PRICE1:   $100
EDITED-PRICE2: $00