Pathmaker Programming Guide

Modifying a Server Skeleton or Service Skeleton
Advanced Pathmaker Programming Topics
9–40 067868 Tandem Computers Incorporated
Inserting Global COBOL
Service Procedures
You can insert your own global procedures into the Procedure Division of the
COBOL85 server skeleton. The global procedures that you insert can later be called by
any service in this server.
Note You could use a registered macro to store the global procedures you want to add to the server skeleton.
This method is preferable to changing the skeleton because you will not have to reapply these changes to
the skeleton in future releases of the Pathmaker product. This method is also especially useful if you plan
to modify more than one server skeleton that uses the same global procedures.
A possible type of global procedure would be a peer-level COBOL85 subprogram that
is called from a service in the same manner as a service is called by the server outer
block.
Your global procedures should be inserted within the T9154-WRT-$#Service-Short-
Name$ paragraph, before the skeleton code for inserting custom services. The
following example shows where you can insert global service procedures in the server
skeleton:
T9154-WRT-$#Service-Short-Name$.
*
IF T9154-POET-HEADER
WRITE T9154-REP-$#Service-Short-Name$
ELSE
WRITE T9154-RPM-$#Service-Short-Name$
.
*
*
% end-iterate label-024 ! #Services
<-- Insert global
procedures here.
% iterate #Services thru lines until tag label-026
?HEADING "$#Service-Name$"
/
*************************************************************
* *
* *
* *
* S E R V I C E *