Pathmaker Programming Guide

Modifying a Server Skeleton or Service Skeleton
Advanced Pathmaker Programming Topics
067868 Tandem Computers Incorporated 9–39
If you do have an application that uses TMF protection for its services and you need to
increase the value of MAXLINKS above the default (50), you can alter the OCCURS
value for the Receive-Control table in the server skeleton.
Note Tandem does not recommend that you alter the OCCURS value of the Receive-Control table for
applications that do not use TMF.
The following example shows how you could change the size of the Receive-Control
table for a COBOL application that uses TMF:
RECEIVE-CONTROL.
% if #Any-Service-Uses-TMF = "N" use lines until
tag label-47
TABLE OCCURS 5 TIMES <-- You can change
the OCCURS value.
SYNCDEPTH LIMIT IS 1
REPLY CONTAINS T9154-MESSAGE-OUT-FILE RECORD.
% end-if label-47 ! #Any-Service-Uses-TMF
% if #Any-Service-Uses-TMF = "Y" use lines until
tag label-48
TABLE OCCURS 50 TIMES <-- You can change
the OCCURS value.
SYNCDEPTH LIMIT IS 1
REPLY CONTAINS 0 CHARACTERS.
% end-if label-48 ! #Any-Service-Uses-TMF
The following example shows how you could change the size of the table for a
C application that uses TMF:
/*
Declarations for the 'server_openreceive' function
parameters.
*/
#define MAXREQUEST (sizeof (T9154_REQUEST_HEADER) +
$#Max-Request-Data-Length$ )
#define MAXREPLY (sizeof (T9154_REPLY_HEADER) +
$#Max-Reply-Data-Length$ )
% if #Any-Service-Uses-TMF = "Y" use 1 lines
#define MAXREQUESTERS 50 <-- You can change
the value of
MAXREQUESTERS.
% if #Any-Service-Uses-TMF = "N" use 1 lines
#define MAXREQUESTERS 5 <-- You can change
the value of
MAXREQUESTERS.