Pathmaker Programming Guide

Modifying a Server Skeleton or Service Skeleton
Advanced Pathmaker Programming Topics
9–46 067868 Tandem Computers Incorporated
Changing the Logic of the SQL Error Handling
The following excerpts lists the portion of the COBOL server skeleton code that
contains the logic for SQL error handling. Again, the code shown here is reformatted
for reproduction in this manual.
You can disable this portion of the COBOL server skeleton or rewrite the SQL-COBOL
code to handle default error handling differently.
The first portion of the server skeleton contains SQL code:
% if #Service-Uses-SQL = "Y" use lines until tag label-36
EXEC SQL
WHENEVER SQLERROR
PERFORM :T9154-EVALUATE-SQLCODE
END-EXEC.
EXEC SQL
WHENEVER SQLWARNING
PERFORM :T9154-EVALUATE-SQLCODE
END-EXEC.
EXEC SQL
WHENEVER NOT FOUND
PERFORM :T9154-EVALUATE-SQLCODE
END-EXEC.
EXEC SQL
CONTROL QUERY INTERACTIVE ACCESS ON
END-EXEC.
*
% end-if label-36 ! #Service-Uses-SQL