TPADVERTISE - routine for advertising service names
01 SVC-NAME PIC X(15).
01 PROGRAM-NAME PIC X(32).
01 TPSTATUS-REC.
COPY TPSTATUS.
CALL "TPADVERTISE" USING SVC-NAME PROGRAM-NAME TPSTATUS-REC.
TPADVERTISE allows a server to advertise the services that it offers. By default, a server's services are advertised when it is booted and unadvertised when it is shutdown.
All servers belonging to a multiple server, single queue (MSSQ) set must offer the same set of services. These routines enforce this rule by affecting the advertisements of all servers sharing an MSSQ set.
TPADVERTISE advertises SVC-NAME for the server (or the set of servers sharing the caller's MSSQ set). SVC-NAME should be 15 characters or less, but cannot be SPACES. (See *SERVICES section of ubbconfig(5)) Longer names are truncated to 15 characters. Users should make sure that truncated names do not match other service names. PROGRAM-NAME is the name of a System/T service program. This program will be invoked whenever a request for SVC-NAME is received by the server. PROGRAM-NAME cannot be SPACES.
If SVC-NAME is already advertised for the server and PROGRAM-NAME matches its current program, then TPADVERTISE returns success (this includes truncated names that match already advertised names). However, if SVC-NAME is already advertised for the server but PROGRAM-NAME does not match its current program, then an error is returned (this can happen if truncated names match already advertised names).
TPADVERTISE Upon successful completion, TPADVERTISE sets TP-STATUS to [TPOK].
Under the following conditions, TPADVERTISE fails and sets TP-STATUS to:
On AIX on the RS6000, any services provided in the first COBOL object file are not available in the symbol table; their names must be specified using the -s option on the buildserver command so that they can be advertized at run-time using TPADVERTISE.