Control Data Corporation 3300 Reference Manual page 65

Computer systems usasi cobol/ master
Table of Contents

Advertisement

60229400
Zero Suppression Editing
Suppression of leading zeros in numeric character positions is indicated by
the symbols Z or
*
in the PICTURE string.
If
Z is used, leading zeros are
replaced by the space;
if
*
is used, leading zeros are replaced by the asterisk.
The PICTURE string contains one or more of either symbols in the leading
numeric character positions. Any of the insertion characters embedded
in
or
to the immediate right of this string are part of the string. The symbols + -
*
Z and the currency symbol (cs) are mutually exclusive within a given
PICTURE string.
Zero suppression within a PICTURE string may be represented in two ways:
Any or all leading numeric character positions to the left of the decimal
POi."lt are represented by suppression symbols.
All numeric character positions are represented by suppression symbols.
In
the first case, any leading zero in the data which corresponds to a symbol
in the string is replaced. Suppression terminates with the first nonzero digit
or at the decimal point, whichever is encountered first.
In
the second case, the result depends on the value of the data.
If
the value is
zero, the entire data item is set to spaces when the suppression symbol is all
Z or all
*,
except the decimal point when the symbol is
*.
If
the value is not
zero, the result is the same as if the suppression characters were only to the
left of the decimal point.
When the asterisk is used as a suppression symbol and the clause BLANK
WHEN ZERO also appears in the same entry, zero suppression editing
overrides the function of BLANK WHEN ZERO.
3-31

Advertisement

Table of Contents
loading
Need help?

Need help?

Do you have a question about the 3300 and is the answer not in the manual?

Subscribe to Our Youtube Channel

This manual is also suitable for:

3500

Table of Contents