编辑格式

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