RosettaCodeData/Task/Formatted-numeric-output/PL-I/formatted-numeric-output-1.pli
2023-07-01 13:44:08 -04:00

3 lines
111 B
Text

put edit (X) (p'999999.V999'); /* Western format. */
put edit (X) (p'999999,V999'); /* In European format. */