ERROR 18-JAN-1988 14:35:29 VAX C V2.3-024 Page 1 V1.0 10-APR-1987 09:25:03 [15_160.ACCOUNTING.COMMON]ERROR.C;1 (1) 1 2 #include 143 #include 552 #include 937 #include 989 #include "descript.h" 1016 1017 #define DSC$K_DTYPE_BU 2 1018 #define DSC$K_CLASS_S 1 1019 1020 static char time[23]; 1021 static struct fix_len_descript atimenow = 1022 {23,DSC$K_DTYPE_BU,DSC$K_CLASS_S,time}; 1023 1024 /**********************************************************/ 1025 /*** Error.c is a collection of functions that take ***/ 1026 /*** as an arguement the return value of a system ***/ 1027 /*** function and prints to stderr the error ***/ 1028 /*** code associated with the return code. functions ***/ 1029 /*** included are qio_error, iosb_error, ***/ 1030 /*** assign_error, crembx_error, delmbx_error ***/ 1031 /*** and waitfr_error. ***/ 1032 /**********************************************************/ 1033 1034 int qio_error(name,status) 1035 1036 char name[]; 1037 int status; 1038 { 1039 1 unsigned long tim_ptr[2]; 1040 1 char hour[9]; 1041 1 1042 1 SYS$GETTIM(tim_ptr); 1043 1 SYS$ASCTIM((long*)0,&atimenow,tim_ptr,0); 1044 1 strncpy(hour,time+12,8); 1045 1 hour[9] = '\0'; 1046 1 1047 1 switch(status) 1048 1 { 1049 2 case SS$_ACCVIO: 1050 2 fprintf(stderr,"%s %s QIO error ACCVIO\n",hour,name); 1051 2 break; 1052 2 case SS$_IVCHAN: 1053 2 fprintf(stderr,"%s %s QIO error IVCHAN\n",hour,name); 1054 2 break; 1055 2 case SS$_NOPRIV: 1056 2 fprintf(stderr,"%s %s QIO error NOPRIV\n",hour,name); 1057 2 break; 1058 2 case SS$_FILALRACC: 1059 2 fprintf(stderr,"%s %s QIO error FILALRACC\n",hour,name); 1060 2 break; 1061 2 default: 1062 2 fprintf(stderr,"%s %s QIO error unknown %d\n",hour,name,status); 1063 2 break; 1064 2 } ERROR 18-JAN-1988 14:35:29 VAX C V2.3-024 Page 2 V1.0 10-APR-1987 09:25:03 [15_160.ACCOUNTING.COMMON]ERROR.C;1 (1) 1065 1 } 1066 1067 int iosb_error(name,status) 1068 1069 char name[]; 1070 short status; 1071 { 1072 1 unsigned long tim_ptr[2]; 1073 1 char hour[9]; 1074 1 1075 1 SYS$GETTIM(tim_ptr); 1076 1 SYS$ASCTIM((long*)0,&atimenow,tim_ptr,0); 1077 1 strncpy(hour,time+12,8); 1078 1 hour[9] = '\0'; 1079 1 1080 1 switch(status) 1081 1 { 1082 2 case SS$_ABORT: 1083 2 fprintf(stderr,"%s %s ISOB error ABORT\n",hour,name); 1084 2 break; 1085 2 case SS$_BUFFEROVF: 1086 2 fprintf(stderr,"%s %s ISOB error BUFFEROVF\n",hour,name); 1087 2 break; 1088 2 case SS$_ENDOFFILE: 1089 2 fprintf(stderr,"%s %s ISOB error ENDOFFILE\n",hour,name); 1090 2 break; 1091 2 default: 1092 2 fprintf(stderr,"%s %s ISOB error unknown %d\n", 1093 2 hour,name,status); 1094 2 break; 1095 2 } 1096 1 } 1097 1098 int assign_error(name,status) 1099 1100 char name[20]; 1101 int status; 1102 { 1103 1 unsigned long tim_ptr[2]; 1104 1 char hour[9]; 1105 1 1106 1 SYS$GETTIM(tim_ptr); 1107 1 SYS$ASCTIM((long*)0,&atimenow,tim_ptr,0); 1108 1 strncpy(hour,time+12,8); 1109 1 hour[9] = '\0'; 1110 1 1111 1 switch(status) 1112 1 { 1113 2 case SS$_ACCVIO: 1114 2 fprintf(stderr,"%s %s ASSIGN error ACCVIO\n",hour,name); 1115 2 break; 1116 2 case SS$_DEVACTIVE: 1117 2 fprintf(stderr,"%s %s ASSIGN error DEVACTIVE\n",hour,name); 1118 2 break; 1119 2 case SS$_DEVALLOC: 1120 2 fprintf(stderr,"%s %s ASSIGN error DEVALLOC\n",hour,name); 1121 2 break; ERROR 18-JAN-1988 14:35:29 VAX C V2.3-024 Page 3 V1.0 10-APR-1987 09:25:03 [15_160.ACCOUNTING.COMMON]ERROR.C;1 (1) 1122 2 case SS$_IVLOGNAM: 1123 2 /* fprintf(stderr,"%s %s ASSIGN error IVLOGNAM\n",hour,name); */ 1124 2 break; 1125 2 case SS$_IVDEVNAM: 1126 2 /* fprintf(stderr,"%s %s ASSIGN error IVDEVNAM\n",hour,name); */ 1127 2 break; 1128 2 default: 1129 2 fprintf(stderr,"%s %s ASSIGN error unknown %d\n", 1130 2 hour,name,status); 1131 2 break; 1132 2 } 1133 1 } 1134 1135 int crembx_error(name,status) 1136 1137 char name[]; 1138 int status; 1139 { 1140 1 unsigned long tim_ptr[2]; 1141 1 char hour[9]; 1142 1 1143 1 SYS$GETTIM(tim_ptr); 1144 1 SYS$ASCTIM((long*)0,&atimenow,tim_ptr,0); 1145 1 strncpy(hour,time+12,8); 1146 1 hour[9] = '\0'; 1147 1 1148 1 switch(status) 1149 1 { 1150 2 case SS$_ACCVIO: 1151 2 fprintf(stderr,"%s %s CREMBX error ACCVIO\n",hour,name); 1152 2 break; 1153 2 case SS$_INSFMEM: 1154 2 fprintf(stderr,"%s %s CREMBX error INSFMEM\n",hour,name); 1155 2 break; 1156 2 case SS$_NOPRIV: 1157 2 fprintf(stderr,"%s %s CREMBX error NOPRIV\n",hour,name); 1158 2 break; 1159 2 case SS$_OPINCOMPL: 1160 2 fprintf(stderr,"%s %s CREMBX error OPINCOMPL\n",hour,name); 1161 2 break; 1162 2 default: 1163 2 fprintf(stderr,"%s %s CREMBX error unknown %d\n", 1164 2 hour,name,status); 1165 2 break; 1166 2 } 1167 1 } 1168 1169 int delmbx_error(name,status) 1170 1171 char name[]; 1172 int status; 1173 { 1174 1 unsigned long tim_ptr[2]; 1175 1 char hour[9]; 1176 1 1177 1 SYS$GETTIM(tim_ptr); 1178 1 SYS$ASCTIM((long*)0,&atimenow,tim_ptr,0); ERROR 18-JAN-1988 14:35:29 VAX C V2.3-024 Page 4 V1.0 10-APR-1987 09:25:03 [15_160.ACCOUNTING.COMMON]ERROR.C;1 (1) 1179 1 strncpy(hour,time+12,8); 1180 1 hour[9] = '\0'; 1181 1 1182 1 switch(status) 1183 1 { 1184 2 case SS$_DEVNOTMBX: 1185 2 fprintf(stderr,"%s %s DELMBX error DEFNOTMBX\n",hour,name); 1186 2 break; 1187 2 case SS$_IVCHAN: 1188 2 fprintf(stderr,"%s %s DELMBX error IVCHAN\n",hour,name); 1189 2 break; 1190 2 case SS$_NOPRIV: 1191 2 fprintf(stderr,"%s %s DELMBX error NOPRIV\n",hour,name); 1192 2 break; 1193 2 default: 1194 2 fprintf(stderr,"%s %s DELMBX error unknown %d\n", 1195 2 hour,name,status); 1196 2 break; 1197 2 } 1198 1 } 1199 1200 int waitfr_error(name,status) 1201 1202 char name[]; 1203 int status; 1204 { 1205 1 unsigned long tim_ptr[2]; 1206 1 char hour[9]; 1207 1 1208 1 SYS$GETTIM(tim_ptr); 1209 1 SYS$ASCTIM((long*)0,&atimenow,tim_ptr,0); 1210 1 strncpy(hour,time+12,8); 1211 1 hour[9] = '\0'; 1212 1 1213 1 switch(status) 1214 1 { 1215 2 case SS$_ILLEFC: 1216 2 fprintf(stderr,"%s %s WAITFR error ILLEFC\n",hour,name); 1217 2 break; 1218 2 case SS$_UNASEFC: 1219 2 fprintf(stderr,"%s %s WAITFR error UNASEFC\n",hour,name); 1220 2 break; 1221 2 default: 1222 2 fprintf(stderr,"%s %s WAITFR error unknown %d\n", 1223 2 hour,name,status); 1224 2 break; 1225 2 } 1226 1 } 1227 1228 int getdev_error(name,status) 1229 1230 char name[]; 1231 int status; 1232 { 1233 1 unsigned long tim_ptr[2]; 1234 1 char hour[9]; 1235 1 ERROR 18-JAN-1988 14:35:29 VAX C V2.3-024 Page 5 V1.0 10-APR-1987 09:25:03 [15_160.ACCOUNTING.COMMON]ERROR.C;1 (1) 1236 1 SYS$GETTIM(tim_ptr); 1237 1 SYS$ASCTIM((long*)0,&atimenow,tim_ptr,0); 1238 1 strncpy(hour,time+12,8); 1239 1 hour[9] = '\0'; 1240 1 1241 1 switch(status) 1242 1 { 1243 2 case SS$_ACCVIO: 1244 2 fprintf(stderr,"%s %s GETDVI error ACCVIO\n",hour,name); 1245 2 break; 1246 2 case SS$_BADPARAM: 1247 2 fprintf(stderr,"%s %s GETDVI error BADPARAM\n",hour,name); 1248 2 break; 1249 2 case SS$_IVCHAN: 1250 2 fprintf(stderr,"%s %s GETDVI error IVCHAN\n",hour,name); 1251 2 break; 1252 2 case SS$_IVDEVNAM: 1253 2 fprintf(stderr,"%s %s GETDVI error IVDEVNAM\n",hour,name); 1254 2 break; 1255 2 case SS$_NOPRIV: 1256 2 fprintf(stderr,"%s %s GETDVI error NOPRIV\n",hour,name); 1257 2 break; 1258 2 case SS$_NOSUCHDEV: 1259 2 fprintf(stderr,"%s %s GETDVI error NOSUCHDEV\n",hour,name); 1260 2 break; 1261 2 default: 1262 2 fprintf(stderr,"%s %s GETDVI error unknown\n",hour,name); 1263 2 break; 1264 2 } 1265 1 } 1266 Command Line ------------ CC ERROR/LIS