COBOL Zero Supression and Replacement Editing Example

Note! The length of the edited PIC clause may or may not be the same as the original PIC clause.
Editing PICTURE InputOutput
9(3),9(2)123.45001,23
ZZ,9991234512,345
ZZ,9991234B1,234
ZZ,ZZ9123BB123
ZZ,ZZ912BBB12
**,**97891 *7,891
**,**9789***789
**,***ZEROES******
$**,**912.34$****12
**,**9.99123.45***123.45