For the PICTURE clause, the currency sign is $. The CURRENCY SIGN clause can be used to change the currency sign to an arbitrary character. However, there are some characters that cannot be specified as a currency sign. See the Language Reference for Details.
000010 @OPTIONS MAIN 000020*---------------------------------------------------------------------- 000030* In this sample, the CURRENCY SIGN clause is used to change 000035* to Japanese Yen from dollars for display. 000040*---------------------------------------------------------------------- 000050 IDENTIFICATION DIVISION. 000060 PROGRAM-ID. SAMPLE. 000070 ENVIRONMENT DIVISION. 000080 CONFIGURATION SECTION. 000090*---------------------------------------------------------------------- 000100* The currency sign is changed to ¥. The default value is $. 000110*---------------------------------------------------------------------- 000120 SPECIAL-NAMES. 000130 CURRENCY SIGN IS "¥". 000140*---------------------------------------------------------------------- 000150 DATA DIVISION. 000160 WORKING-STORAGE SECTION. 000170 01 DOLLAR PIC 9(7). 000180*---------------------------------------------------------------------- 000190* The ¥ is specified in the PICTURE clause. 000200*---------------------------------------------------------------------- 000210 01 YEN PIC ¥,¥¥¥,¥¥9. 000220*---------------------------------------------------------------------- 000230 PROCEDURE DIVISION. 000240 DISPLAY "Dollars is changed to Yen." 000250 DISPLAY "Please input Dollars (up to 5 digits). >>" 000255 WITH NO ADVANCING. 000260 ACCEPT DOLLAR. 000270 COMPUTE YEN = DOLLAR * 110. 000280 DISPLAY "** = " YEN " ($1 = ¥110)". 000290 END PROGRAM SAMPLE.
