COBOL Manual for TNS/E Programs (H06.08+, J06.03+)

Edited ResultPICTURESource Item
-23+++99-23
+04+++994
123------9123
-123------9-123
$1.23$$$9.991.23
$1.23$$$9.99-1.23
$0.03$$$9.990.03
$0.03$$$9.99-0.03
$1.23$$$$.$$1.23
$1.23$$$$.$$-1.23
$.03$$$$.$$0.03
$.03$$$$.$$-0.03
1.23---9.991.23
-1.23---9.99-1.23
0.03---9.990.03
-0.03---9.99-0.03
1.23----.--1.23
-1.23----.---1.23
.03----.--0.03
-.03----.---0.03
◦ Zero suppression
Suppression of leading zeros in numeric character positions is done with a Z or asterisk
(*) in the PICTURE character-string. These symbols are mutually exclusive in a single
PICTURE character-string. When you use the asterisk, you cannot use BLANK WHEN
ZERO in the same entry. Each suppression symbol is counted in the item’s size. Spaces
replace Z s; asterisks remain asterisks.
You specify zero suppression and replacement by using a string of one or more Z s or
asterisks to represent leading numeric character positions that are to be replaced when
any of those positions in the data are zero. Any of the simple insertion characters
embedded in the string of symbols or to the immediate right of this string are part of the
string.
For zero suppression in a PICTURE character-string, you can either represent any or all
of the leading numeric character positions to the left of the decimal point by Z s or asterisks
or you can represent all of the numeric positions, right or left of the decimal point, as Z
s or asterisks.
If the suppression symbols appear only to the left of the decimal point, any leading zero
in the data that corresponds to the symbol is replaced by the replacement character.
Suppression terminates at the first nonzero digit in the data represented by the suppression
symbol string or at the decimal point, whichever comes first.
If all numeric character positions in the PICTURE character-string are represented by
suppression symbols and the value of the data is not 0, the result is the same as if the
suppression characters were only to the left of the decimal point. If the value is 0 and the
202 Data Division