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

◦ Fixed insertion
◦ Floating insertion
◦ Zero suppression
The type of editing that you can perform on an item depends on the item’s category.
Table 33 Types of Editing Performed
Type of EditingData Item Category
NoneAlphabetic
NoneNumeric
NoneAlphanumeric
Simple insertion [0, B, or slash (/)]Alphanumeric Edited
All, subject to note following tableNumeric Edited
NoneNational
NOTE: Floating insertion editing and editing by zero suppression and replacement are
mutually exclusive in a single PICTURE clause, and only one of the two replacement types can
be used with zero suppression in a single PICTURE clause.
◦ Simple insertion
The comma (,), space (B), zero (0 ), and slash (/) are used as the insertion characters.
They are counted in the item’s size and represent where that character is inserted. The
result of simple insertion editing is the appearance of the insertion character within the
edited item value in the same position as it appears in the character-string. Here are some
examples:
Edited ResultPICTURESource Item
123,456PIC 999,999123456
12 3456PIC 99BBB9999123456
120034PIC 9900991234
12/34PIC 99/991234
12 34 56PIC 99B99B99123456
123400PIC 9999001234
01/31/84PIC 99/99/9913184
012,345PIC 999,99912345
A B C DPIC ABABABA"ABCD"
1st / 2ndPIC XXXB/BXXX"1st2nd"
◦ Special insertion
A period (.) is used as the insertion character and also acts as the decimal point for
alignment purposes. The insertion character used for the actual decimal point is counted
in the item’s size.
An assumed decimal point character (V ) and an actual decimal point character (.) cannot
both occur in the same PICTURE character-string. The result of special insertion editing is
Descriptions of Records (Levels 01-49) 199