COBOL - Floating insertion Editing
This type of editing is valid only for numeric-edited items.
The following symbols are used:
cs + -
Within one PICTURE character-string, these symbols are mutually exclusive as floating insertion characters.
Floating insertion editing is specified by using a string of at least two of the allowable floating insertion symbols to represent leftmost character positions into which the actual characters can be inserted.
The leftmost floating insertion symbol in the character-string represents the leftmost limit at which the actual character can appear in the data item. The rightmost floating insertion symbol represents the rightmost limit at which the actual character can appear.
The second leftmost floating insertion symbol in the character-string represents the leftmost limit at which numeric data can appear within the data item. Nonzero numeric data can replace all characters at or to the right of this limit.
Any simple-insertion symbols (B 0 / ,) within or to the immediate right of the string of floating insertion symbols are considered part of the floating character-string. If the period (.) special-insertion symbol is included within the floating string, it is considered to be part of the character-string.
To avoid truncation, the minimum size of the PICTURE character-string must be:
The number of character positions in the sending item, plus
The number of nonfloating insertion symbols in the receiving item, plus
One character position for the floating insertion symbol
Representing floating insertion editing:
In a PICTURE character-string, there are two ways to represent floating insertion editing and thus two ways in which editing is performed:
- Any or all leading numeric character positions to the left of the decimal point are represented by the floating insertion symbol. When editing is performed, a single floating insertion character is placed to the immediate left of the first nonzero digit in the data, or of the decimal point, whichever is farther to the left. The character positions to the left of the inserted character are filled with spaces.
If all numeric character positions in the PICTURE character-string are represented by the insertion character, then at least one of the insertion characters must be to the left of the decimal point.
- All the numeric character positions are represented by the floating insertion symbol. When editing is performed, then:
- If the value of the data is zero, the entire data item will contain spaces.
- If the value of the data is nonzero, the result is the same as in rule 1.
|PICTURE||Value of data||Edited result|
If you have any doubts or queries related to this chapter, get them clarified from our Mainframe experts on ibmmainframer Community!