Pathmaker Programming Guide

Modifying a Server Skeleton or Service Skeleton
Advanced Pathmaker Programming Topics
067868 Tandem Computers Incorporated 9–35
Reformatting Existing Enscribe Messages for COBOL Servers
You can reformat any of the existing Enscribe messages as long as you do not change
the size of the fields or any of the field names.
The following example lists the portion of the Working-Storage Section that you
would change to reformat a message:
WORKING-STORAGE SECTION.
.
.
.
02 T9154-FILE-ERROR-MSG.
03 FILLER PIC X(06) VALUE IS "Error ".
03 T9154-FEMSG-FILE-STAT PIC ZZZ9 VALUE IS ZEROS.
03 FILLER PIC X(01) VALUE IS ",".
03 T9154-FEMSG-Guardian-ERR PIC ZZZ9 VALUE IS ZEROS.
03 FILLER PIC X(01) VALUE IS SPACE.
03 T9154-FEMSG-TEXT PIC X(29) VALUE IS SPACES.
03 FILLER PIC X(05) VALUE IS " on ".
03 T9154-FEMSG-FILENAME PIC X(25) VALUE IS SPACES.
Rewriting Existing Error Messages in the C Server Skeleton
You can change the text of the error messages used in the C server skeleton if you do
not change the define name of the error message.
The following example shows the part of the C server skeleton that contains the
declarations for error message text you can rewrite:
/*
Values to put into 'advisory_text' for REPLY_CALL_FAILED
reply code.
*/
#define RSNTEXT_UNDEFINED_SERVICE "Invalid service
identifier"
#define RSNTEXT_UNFINISHED_SERVICE "Service processing
not completed"
#define RSNTEXT_SERVICE_LOGIC_ERROR "Service logic error"
#define RSNTEXT_INVALID_VERSION "Request version is not
supported"
#define RSNTEXT_INVALID_SIZE "Request length is too
short"