Numeric edited data items can be used to edit numeric data into the desired format for presentation.
000010 @OPTIONS MAIN 000020*---------------------------------------------------------------------- 000030* The PICTURE clause defines the numeric edited data item characters. 000040*---------------------------------------------------------------------- 000050 IDENTIFICATION DIVISION. 000060 PROGRAM-ID. SAMPLE. 000070 DATA DIVISION. 000080 WORKING-STORAGE SECTION. 000090*---------------------------------------------------------------------- 000100* This is an example of defining numeric edited data items. 000110* Execute the program to see the results. 000130*---------------------------------------------------------------------- 000140 01 NUMEDIT-1 PIC ----,--9. 000150 01 NUMEDIT-2 PIC -ZZZ,ZZ9. 000160 01 NUMEDIT-3 PIC $$$,$$9. 000170 01 NUMEDIT-4 PIC 9999/99/99. 000180 01 NUMEDIT-5 PIC +++9.999. 000190 01 NUMEDIT-6 PIC *********9. 000200*---------------------------------------------------------------------- 000210 01 WDATE. 000220 02 TODAY PIC 9(8). 000230 PROCEDURE DIVISION. 000240 DISPLAY "INPUT -> PICTURE = OUTPUT" 000250 DISPLAY "-----------------------------------" 000260** 000270 MOVE -3000 TO NUMEDIT-1 000280 DISPLAY "-3000 -> PIC ----,--9 = " NUMEDIT-1 000290** 000300 MOVE 980 TO NUMEDIT-2 000310 DISPLAY " 980 -> PIC -ZZZ,ZZ9 = " NUMEDIT-2 000320** 000330 MOVE 3210 TO NUMEDIT-3 000340 DISPLAY " 3210 -> PIC $$$,$$9 = " NUMEDIT-3 000350** 000360 MOVE FUNCTION CURRENT-DATE TO WDATE 000370 MOVE TODAY TO NUMEDIT-4 000380 DISPLAY "TODAY -> PIC 9999/99/99 = " NUMEDIT-4 000390** 000400 MOVE 12.34 TO NUMEDIT-5 000410 DISPLAY "12.34 -> PIC +++9.999 = " NUMEDIT-5 000420** 000430 MOVE 67890 TO NUMEDIT-6 000440 DISPLAY "67890 -> PIC *********9 = " NUMEDIT-6 000450 END PROGRAM SAMPLE.
