TPUNADVERTISE

分散トランザクション処理機能　OpenTP1 プログラム作成リファレンス COBOL言語編

 
01 SERVICE-NAME PIC X(15).
01 TPSTATUS-REC.
   COPY TPSTATUS.
 
CALL "TPUNADVERTISE" USING SERVICE-NAME TPSTATUS-REC.

TPUNADVERTISEは，あるサーバにそのサーバで提供する，あるサービスの広告を取り消すことを許可します。省略時には，サーバのサービスは，ブート時に広告されて，シャットダウンされたときに広告を取り消されます。

TPUNADVERTISEは，サーバで宣伝していたSERVICE-NAMEを削除します。SERVICE-NAMEには，SPACES（空白）は使えません。また，SERVICE-NAMEは15文字以下になるようにしてください。15文字よりも長い場合は，15文字に切り詰められます。切り詰められた名称がほかのサービス名と一致しないようにしてください。

『●SERVICE-NAME

サービスのサービス名を設定します。』

『●TPSTATUS-REC

TPUNADVERTISEの実行結果を示すリターン値が設定されます。』

成功した場合，TPUNADVERTISEはTP-STATUSにTPOKを設定します。

エラー

次のような場合，TPUNADVERTISEはエラーリターンして，次のうちどれか一つの値をTP-STATUSに設定します。

TPEINVAL: SERVICE-NAMEにSPACES（空白）を設定しています。

TPENOENT: SERVICE-NAMEは，現在このサーバで広告されていません。

TPEPROTO: TPUNADVERTISEが間違った状況で呼ばれました。

TPESYSTEM: コミュニケーションリソースマネジャシステムでエラーが起こりました。厳密なエラーの性質は，product-specificな方法で定義されます。

TPEOS: オペレーティングシステムにエラーが起こりました。厳密なエラーの性質は，product-specificな方法で定義されます。

『一つのノードで負荷分散している場合（マルチサーバ），TPUNADVERTISEをどれか一つのプロセスが実行すると，負荷分散しているプロセスすべてでサービスを受け付けられなくなります。その後，TPADVERTISEで再びサービスを広告すれば，サービス要求を受け付けられるようになります。』
『複数のノードで負荷分散している場合（ノード間負荷バランス機能およびノード間負荷バランス拡張機能），TPUNADVERTISEを実行したプロセスのノードではサービスを実行しなくなりますが，ほかのノードのサーバでサービスを受け付けることができます。その後，TPADVERTISEで再びサービスを広告すれば，サービス要求を受け付けられるようになります。』