Code the following COBOL edit mask characters in your data structures:
The following table shows an example of each:
AMB Code |
Generated Code |
---|---|
A(12)000B |
PIC A(12)000B. |
PPP999 |
PIC PPP999. |
ZZZ9.99 |
PIC ZZZ9.99 |
+999.99 |
PIC +999.99. |
****.** |
PIC ****.**. |
S999PPP |
PIC S999PPP. |