1 /* BEGIN INCLUDE FILE gtss_pnterr.incl.pl1 */
 2 /*
 3   Created: (Grimes SMP)  04/15/78 0933.2 mst Sat
 4    Change: Dave Ward          06/08/78 made attributes constant.
 5    Change: Dave Ward          08/17/81 made lengths same as constans.
 6    Change: Ron Barstad  83-03-29  fixed err 53, add missing err 56
 7    Change: Ron Barstad  84-02-27  changed back to all same length because of based array in gtss_abort_subsystem_
 8 */
 9 dcl 1 gtss_pnterr static int options (constant),
10     2 err1   char(50) init("001-INCORRECT PRIMITIVE"),
11     2 err2   char(50) init("002-(^6o)INVALID FILE I/O COMMAND"),
12     2 err3   char(50) init("003-(^6o)INVALID DCW"),
13     2 err4   char(50) init("004-(^6o)INVALID DRL ARGUMENT"),
14     2 err5   char(50) init("005-(^6o)INVALID DRL CODE"),
15     2 err6   char(50) init("006-LEVEL OF CONTROL TOO DEEP"),
16     2 err7   char(50) init("007-BAP PROG. DESC."),
17     2 err8   char(50) init("008-LOOP IN PRIMITIVES"),
18     2 err9   char(50) init("009-SYSTEM UNKNOWN"),
19     2 err10  char(50) init("010-PROGRAM TOO LARGE TO SWAP"),
20     2 err11  char(50) init("011-(^6o)INCORRECT CORE FILE USAGE"),
21     2 err12  char(50) init("012-(^6o)PRIVILEGED I/O ATTEMPTED"),
22     2 err13  char(50) init("013-(^6o)DRL USERID NOT PERMITTED"),
23     2 err14  char(50) init("(^6o)ILLEGAL DRL RELMEM REQUEST"),
24     2 err15  char(50) init("015-(^6o)CANNOT RESET USER ID"),
25     2 err16  char(50) init("016-(^6o)OVERFLOW FAULT"),
26     2 err17  char(50) init("017-(^6o)ILLEGAL OP CODE"),
27     2 err18  char(50) init("018-(^6o)MEMORY FAULT"),
28     2 err19  char(50) init("019-(^6o)FAULT TAG FAULT"),
29     2 err20  char(50) init("020-(^6o)DIVIDE CHECK FAULT"),
30     2 err21  char(50) init("021-(^6o)BAD STATUS - SWAP OUT"),
31     2 err22  char(50) init("022-(^6o)BAD STATUS - SWAP IN"),
32     2 err23  char(50) init("023-(^6o)BAD STATUS - LOAD"),
33     2 err24  char(50) init("(^6o)TALK PERMISSION NOT GRANTED"),
34     2 err25  char(50) init("(^6o)WRITE ATTEMPTED ON READ-ONLY FILE - ^8a"),
35     2 err26  char(50) init("(^6o)READ ATTEMPTED ON EXECUTE-ONLY FILE - ^8a"),
36     2 err27  char(50) init("024-(^6o)MME FAULT"),
37     2 err28  char(50) init("028-(^6o)REWIND ATTEMPTED FOR RANDOM FILE - ^8a"),
38     2 err29  char(50) init("029-ILLEGAL SYSTEM SELECTION"),
39     2 err30  char(50) init("134-(^6o)INVALID DRL FILACT FUNCTION #^i"),
40     2 err31  char(50) init("135-(^6o)PRIVILEGED DRL FILACT REQUEST"),
41     2 err32  char(50) init("138-(^6o)NO TAP* FILE FOR DRL TAPEIN"),
42     2 err33  char(50) init("139-ERROR IN WRITING TAP* FILE"),
43     2 err34  char(50) init("(^6o)DRL ABORT - CANNOT WRITE ABRT FILE"),
44     2 err35  char(50) init("(^6o)DRL ABORT - ABRT FILE WRITTEN"),
45     2 err36  char(50) init("NOT ENOUGH CORE TO RUN JOB"),
46     2 err37  char(50) init("SORRY-OUT OF SWAP SPACE. TRY AGAIN."),
47     2 err38  char(50) init("(^6o)FILE ADDRESS ERROR"),
48     2 err39  char(50) init("(^6o)DRL ABORT - ABRT FILE I/O ERROR"),
49     2 err40  char(50) init("(^6o)DRL ABORT - ABRT FILE TOO SMALL"),
50     2 err41  char(50) init("(^6o)BAD STATUS FOR DRL SAVE/RESTOR - ^8a"),
51     2 err42  char(50) init("(^6o)H* FILE NOT IN AFT - ^8a"),
52     2 err43  char(50) init("064-EXECUTE TIME LIMIT EXCEEDED"),
53     2 err44  char(50) init("025-(^6o)LOCKUP FAULT"),
54     2 err45  char(50) init("065-OBJECT PROGRAM SIZE LIMIT EXCEEDED"),
55     2 err46  char(50) init("(^6o)INCORRECT ENTRY TO DRL TASK"),
56     2 err47  char(50) init("(^6o)H* PROGRAM NAME UNDEFINED - ^8a"),
57     2 err48  char(50) init("(^6o)H* FILE CATALOG FULL - ^8a"),
58     2 err49  char(50) init("(^6o)TALLY OR CHARACTER COUNT INCORRECT"),
59     2 err50  char(50) init("(^6o)BAD DRL SAVE DATA LOC"),
60     2 err51  char(50) init("(^6o)H* FILE NOT INITITALIZED - ^8a"),
61     2 err52  char(50) init("(^6o)H* FILE MUST BE RANDOM - ^8a"),
62     2 err53  char(50) init("026-(^6o)OP-NOT-COMPLETE FAULT"),
63     2 err54  char(50) init("(^6o)H* FILE PROGRAM NAME REQUIRED - ^8a"),
64     2 err55  char(50) init("027-(^6o)COMMAND FAULT"),
65     2 err56  char(50) init("(^6o)LINKED FILE I/O CANNOT SPAN >63 LLINKS - ^8a"),
66     2 err57  char(50) init("UNASSIGNED"),
67     2 err58  char(50) init("(^6o)INVALID TIME FOR DRL GWAKE"),
68     2 err59  char(50) init("UNASSIGNED"),
69     2 err60  char(50) init("(^6o)INVALID SNUMB FOR DRL JOUT"),
70     2 err61  char(50) init("(^6o)PRIVILEGED DRL"),
71     2 err62  char(50) init("(^6o)INVALID DRL JOUT FUNCTION"),
72     2 err63  char(50) init("MEMORY PARITY ERROR"),
73     2 err64  char(50) init("SY** I/O ERROR"),
74 /* The following error messages are artifacts of gtss and are not found in TSS */
75     2 err100 char(50) init("DRL ADDMEM ERROR at (^6o)"),
76     2 err101 char(50) init("DRL RELMEM ERROR TRUNCATE SEGMENT at (^6o)"),
77     2 err102 char(50) init("DRL RELMEM ERROR SET MAX SEGMENT LENGTH"),
78     2 err103 char(50) init("UNIMPLEMENTED DRL FILACT FUNCTION (^i)"),
79     2 err999 char(50) init("dummy");
80 
81 /*   END INCLUDE FILE gtss_pnterr.incl.pl1 */