Pathmaker Programming Guide

Modifying a Server Skeleton or Service Skeleton
Advanced Pathmaker Programming Topics
067868 Tandem Computers Incorporated 9–47
The COBOL server skeleton also contains code to set up the default error message:
% if #Service-Uses-SQL = "Y" use lines until tag label-37
.
.
.
T9154-EVALUATE-SQLCODE.
INITIALIZE T9154-SQL-ERROR-MSG
MOVE SQLCODE OF SQLCA TO T9154-SQL-SQLCODE
PERFORM WITH TEST AFTER
VARYING T9154-SQL-INDEX FROM 2 BY 1
UNTIL (T9154-SQL-INDEX > NUM-ERRORS OF SQLCA) OR
(T9154-SQL-INDEX > 7)
MOVE SUBSYSTEM-ID OF SQLCA(T9154-SQL-INDEX) TO
T9154-SQL-SUBSYSTEM-ID
MOVE ERRCODE OF SQLCA(T9154-SQL-INDEX) TO
T9154-SQL-SUBSYSTEM-CODE
IF SUBSYSTEM-ID OF SQLCA(T9154-SQL-INDEX) NOT = "S"
MOVE 8 TO T9154-SQL-INDEX
END-IF
END-PERFORM
UNSTRING PARAMS-BUFFER OF SQLCA
DELIMITED BY T9154-BINARY-ZERO
INTO T9154-SQL-PARAMS-BUFFER
COMPUTE T9154-SQL-USER-LINE-NUMBER-INT =
USER-LINE-NUMBER OF SQLCA / 1000
MOVE T9154-SQL-USER-LINE-NUMBER-INT TO
T9154-SQL-USER-LINE-NUMBER
MOVE T9154-RETURN-ADVISORY-ONLY TO T9154-REPLY-FLAG
IF SQLCODE OF SQLCA < 0
MOVE "E" TO T9154-ADVISORY-MSG-SEVERITY
ENTER TAL SQLCAFSCODE USING SQLCA OMITTED GIVING
T9154-GUARDIAN-ERR
ELSE
MOVE "W" TO T9154-ADVISORY-MSG-SEVERITY
END-IF
MOVE T9154-SQL-ERROR-MSG TO T9154-ADVISORY-MSG-TEXT
.
% end-if LABEL-37 ! #Service-Uses-SQL
Modifying PMSVCULC for C
NonStop SQL Applications
The common service utility library file for C services, PMSVCULC, contains a function
called sql_advisory that is designed to be used by application developers to store
advisory messages describing SQL run-time errors. There are three ways that you can
modify the sql_advisory function for a C NonStop SQL application:
Change the text of the error messages
Change the format of the error messages
Change the logic of SQL error handling