编辑格式

2019-04-15 14:46发布

编辑格式输出类型。
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