Pathmaker Programming Guide

Modifying a Server Skeleton or Service Skeleton
Advanced Pathmaker Programming Topics
9–34 067868 Tandem Computers Incorporated
Rewriting Existing Enscribe Error Messages for COBOL Servers
You can change the text of the error messages that are in the Working-Storage Section
of the COBOL85 server skeleton if you follow these rules:
Do not change the first two digits of the message. The first two digits contain the
error number associated with the message.
Do not change the group names T9154-FS-ERRORS or FILLER.
The following example shows the part of the Working-Storage area of the server
skeleton that contains the error message text you can rewrite:
WORKING-STORAGE SECTION.
.
.
.
02 T9154-FS-ERRORS.
03 FILLER PIC X(31)
VALUE IS "10End of File ".
03 FILLER PIC X(31)
VALUE IS "21Invalid Key: Sequence Error ".
03 FILLER PIC X(31)
VALUE IS "22Invalid Key: Duplicate ".
03 FILLER PIC X(31)
VALUE IS "23Invalid Key: No record found ".
03 FILLER PIC X(31)
VALUE IS "24Boundary Violation ".
03 FILLER PIC X(31)
VALUE IS "30Permanent Error (recoverable)".
03 FILLER PIC X(31)
VALUE IS "34Boundary Violation: Seq. file".
03 FILLER PIC X(31)
VALUE IS "90Program Logic Error ".
03 FILLER PIC X(31)
VALUE IS "91File Description Error ".
03 FILLER PIC X(31)
VALUE IS "97Record Locked Error ".
For example, you could rewrite error 97 like this:
03 FILLER PIC X(31)
VALUE IS "97Record cannot be accessed ".