1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21 dcl (
22 SB_io_status_data_class init ("io_status"),
23 SB_hwfault_data_class init ("hwfault"),
24 SB_mos_data_class init ("mos"),
25 SB_segdamage_data_class init ("segdamage"),
26 SB_voldamage_data_class init ("voldamage"),
27 SB_mdc_del_uidpath_data_class init ("mdc_del_uidpath"),
28 SB_mmdam_data_class init ("mmdam"),
29 SB_mpc_poll_data_class init ("mpc_poll"),
30 SB_fnp_poll_data_class init ("fnp_poll"),
31 SB_config_deck_data_class init ("config_deck"),
32 SB_vtoce_data_class init ("vtoce"),
33 SB_access_audit_data_class init ("access_audit"),
34 SB_ibm3270_mde_data_class init ("ibm3270_mde")
35 ) static internal char (16) varying options (constant);
36
37
38
39
40
41
42
43
44
45
46
47 dcl (
48 SB_disk_err init (1), SBL_disk_err init (5),
49 SB_hw_fault init (2), SBL_hw_fault init (176),
50 SB_io_err init (3), SBL_io_err init (5),
51 SB_unused_4 init (4), SBL_unused_4 init (1),
52 SB_mos_err init (5), SBL_mos_err init (2),
53 SB_unused_6 init (6), SBL_unused_6 init (1),
54 SB_unused_7 init (7), SBL_unused_7 init (1),
55 SB_unused_8 init (8), SBL_unused_8 init (3),
56 SB_unused_9 init (9), SBL_unused_9 init (2),
57 SB_unused_10 init (10), SBL_unused_10 init (21),
58 SB_zerpag init (11), SBL_zerpag init (20),
59 SB_unused_12 init (12), SBL_unused_12 init (20),
60 SB_vtoc_salv_dam init (13), SBL_vtoc_salv_dam init (20),
61 SB_unused_14 init (14), SBL_unused_14 init (20),
62 SB_unused_15 init (15), SBL_unused_15 init (3),
63 SB_random_segdamage init (16), SBL_random_segdamage init (20),
64 SB_read_nc init (17), SBL_read_nc init (2),
65 SB_unused_18 init (18), SBL_unused_18 init (2),
66 SB_mdc_del_uidpath init (19), SBL_mdc_del_uidpath init (16),
67 SB_ocdcm_err init (20), SBL_ocdcm_err init (5),
68 SB_mmdam init (21), SBL_mmdam init (2),
69 SB_verify_lock init (22), SBL_verify_lock init (176),
70 SB_io_err_detail init (23), SBL_io_err_detail init (11),
71 SB_mpc_poll init (24), SBL_mpc_poll init (256) ,
72 SB_fnp_poll init (25), SBL_fnp_poll init (256) ,
73 SB_config_deck init (26), SBL_config_deck init (256) ,
74 SB_vtoce init (27), SBL_vtoce init (192),
75 SB_access_audit init (28), SBL_access_audit init (256),
76 SB_ibm3270_mde init (35), SBL_ibm3270_mde init (256),
77 SB_end_of_table init (36), SBL_end_of_table init (1)
78 ) internal static options (constant) fixed bin;
79
80
81
82
83
84
85
86
87
88
89 dcl SB_char_data_classes (36) char (16) varying internal static options (constant)
90 init ( "io_status",
91 "hwfault",
92 "io_status",
93 "unused_4",
94 "mos",
95
96 "unused_6",
97 "unused_7",
98 "unused_8",
99 "unused_9",
100 "unused_10",
101
102 "segdamage",
103 "unused_12",
104 "segdamage",
105 "unused_14",
106 "unused_15",
107
108 "segdamage",
109 "voldamage",
110 "unused_18",
111 "mdc_del_uidpath",
112 "io_status",
113
114 "mmdam",
115 "hwfault",
116 "io_status",
117 "mpc_poll",
118 "fnp_poll",
119
120 "config_deck",
121 "vtoce",
122 "access_audit",
123 "unused_29",
124 "unused_30",
125 "unused_31",
126 "unused_32",
127 "unused_33",
128 "unused_34",
129 "ibm3270_mde",
130 "unused_36"
131 );
132
133
134
135
136
137
138
139 dcl syserr_binary_mos_mask init ("060000000000"b3) bit (36) static options (constant);
140 dcl syserr_binary_seg_damage_mask init ("000374000000"b3) bit (36) static options (constant);
141 dcl syserr_binary_vol_damage_mask init ("003413000000"b3) bit (36) static options (constant);
142 dcl syserr_binary_address_damage_mask init ("002010000000"b3) bit (36) static options (constant);
143
144 dcl display_cpu_error_binary_defs (2) init (
145 2,
146 22
147 ) internal static options (constant) fixed bin;
148
149