Pathmaker Programming Guide

Modifying a Server Skeleton or Service Skeleton
Advanced Pathmaker Programming Topics
9–42 067868 Tandem Computers Incorporated
03 FILLER PIC X
VALUE IS ",".
03 T9154-SQL-SUBSYSTEM-ID PIC X
VALUE IS SPACES.
03 FILLER PIC X
VALUE IS "-".
03 T9154-SQL-SUBSYSTEM-CODE PIC ZZZZZ9
VALUE IS ZEROS.
03 FILLER PIC X(04)
VALUE IS ",on:".
03 T9154-SQL-PARAMS-BUFFER PIC X(34)
VALUE IS SPACES.
03 FILLER PIC X(05)
VALUE IS ",ln#:".
03 T9154-SQL-USER-LINE-NUMBER PIC Z(6).ZZZ
VALUE IS ZEROS.
*
02 T9154-SQL-USER-LINE-NUMBER-INT PIC 9(6).999
VALUE IS ZEROS.
02 T9154-SQL-INDEX PIC 9 VALUE IS 1.
% end-if label-11 ! #Any-Service-Uses-SQL
*
You can change the format of this default message for every SQL-COBOL server by
copying and modifying the COBOL server skeleton and then specifying your own
version of the server skeleton on the Server Definition screen.