1 
 2 /* BEGIN INCLUDE FILE ...   cobol_edit_ext.incl.pl1 */
 3 /*     <<<   LAST MODIFIED ON 08-16-74   >>>     */
 4 
 5 /*
 6 An edit extension is included in a type 9 data name token when the data
 7 item is described with a picture clause defining the item as alphanumeric
 8 edited or numeric edited.
 9 */
10 
11 /*        ***STRUCTURE SIZE INFORMATION***        */
12 /*     THE SIZE OF THIS STRUCTURE IN BYTES, (EXCLUDING VARIABLE
13        LENGTH ENTITIES), FOR EACH HARDWARE IMPLEMENTATION IS:
14 
15           HARDWARE  |         SIZE (BYTES)
16           ---------------------------------
17           6180      |         20
18           P7        |         10
19           ---------------------------------
20 */
21 
22 /*   THE EDIT EXTENSION STRUCTURE   */
23 
24 dcl edit_ptr ptr;
25 
26 dcl       1 editor based (edit_ptr),
27                     2 fixed_insert fixed bin (15),
28                     2 float_insert fixed bin (15),
29                     2 start_suppress fixed bin (15),
30                     2 max_suppress fixed bin (15),
31                     2 ecm_size fixed bin (15),
32                     2 ecm char (256);
33 
34 
35 /*
36 
37 FIELD               CONTENTS
38 
39 fixed_insert        Describes the fixed insertion required for this item
40                     0 = no fixed insertion
41                     1 = replace last character of the edit control mask
42                         with a space if the value of the sending item is
43                         positive or zero
44                     2 = replace last character of the edit control mask
45                         with "+" if the value of the sending item is
46                         positive or zero
47                     3 = replace first character of the edit control mask
48                         with a space if the value of the sending item is
49                         positive or zero
50                     4 = replace first character of the edit control mask
51                         with "+" if the value of the sending item is
52                         positive or zero
53                     5 = replace last two characters of the edit control
54                         mask with spaces if the value of the sending item
55                         is positive or zero
56 float_insert        Describes the floating insertion required for this item
57                     0 = no floating insertion
58                     1 = float currency symbol
59                     2 = float "+"
60                     3 = float "-"
61 start_suppress      Number of leading characters to skip before starting
62                     zero suppression.
63 max_suppress        Maximum number of characters to be zero suppressed.
64 ecm_size            Number of characters in the edit control mask.
65 ecm                 Edit control mask for this data item, based on the NPL
66                     Central Processor specification.
67 */
68 
69 /* END INCLUDE FILE ...   cobol_edit_ext.incl.pl1 */
70