【正文】 REQUEST PIC X(8) VALUE 39。COMPLETE39。. 02 STATUSCODE PIC X(5) VALUE SPACE. 02 FILLER PIC X(3). 02 FLAGS PIC S9(9) COMP VALUE ZERO. 02 FILLER PIC X(3).CALL 39。CBLDCADM39。 USING ADMARG. 如果SUP常駐OPENTP1下，該函數(shù)向OPENTP1報(bào)告注冊(cè)信息。（不常駐OPENTP1下的SUP程序不調(diào)用該函數(shù)） RPC CALL (遠(yuǎn)隔サービスの要求)01 RPCCALLARG1. (CALLMAIN) 02 REQEST PIC X(8) VALUE 39。CALL 39。. 02 STATUSCODE PIC X(5) VALUE SPACE. 02 FILLER PIC X(3). 02 FLAGS PIC S9(9) COMP VALUE ZERO. 02 DESCRIPTOR PIC S9(9) COMP VALUE ZERO. 02 SNAME PIC X(32) VALUE SPACE. 02 GNAME PIC X(32) VALUE 39。WSISPPSV39。. 01 RPCCALLARG2. (INPUTDATA) 02 INDATALENG PIC S9(9) COMP VALUE ZERO 02 INDATA PIC X(40) VALUE SPACE. 01 RPCCALLARG3. (OUTPUTDATA) 　 02 OUTDATALENG PIC S9(9) COMP VALUE ZERO 02 OUTDATA PIC X(40) VALUE SPACE.. CALL 39。CBLDCRPC39。 USING RPCCALLARG1 RPCCALLARG2 RPCCALLARG3. 調(diào)用OPENTP1下注冊(cè)的指定組(GNAME)內(nèi)的指定服務(wù)(SNAME)。注意在SUP程序中調(diào)用前必須指定入力データ的長(zhǎng)度（INDATALENG）和出力データ的長(zhǎng)度（OUTDATALENG） RPC CLOSE01 RPCCLARG. 02 REQEST PIC X(8) VALUE 39。CLOSE 39。. 02 STATUSCODE PIC X(5) VALUE SPACE. 02 FILLER PIC X(3). 02 FLAGS PIC S9(9) COMP VALUE ZERO. CALL 39。CBLDCRPC39。 USING RPCCLARG 退出OPENTP1環(huán)境 SPP (服務(wù)提供者)如圖所示，一個(gè)SPP Module 由 一個(gè)SPP MAIN ,多個(gè)SPP SERVICE ,一個(gè)SPP SERVICE DEFINE 三部分組成。一個(gè)SPP Module 在OPENTP1下以一個(gè)組的方式注冊(cè)。 SPP MAIN RPC　OPEN (アプリケーションプログラムの開(kāi)始) 01 RPCOPARG. 02 REQEST PIC X(8) VALUE 39。OPEN 39。. 02 STATUSCODE PIC X(5) VALUE SPACE. 02 FILLER PIC X(3). 02 FLAGS PIC S9(9) COMP VALUE ZERO. CALL 39。CBLDCRPC39。 USING RPCOPARG. 進(jìn)入OPENTP1環(huán)境 RPC MAINLOOP (SPPのサービス開(kāi)始) 01 RSVARG. 02 REQUEST PIC X(8) VALUE 39。MAINLOOP39。. 02 STATUSCODE PIC X(5) VALUE SPACE. 02 FILLER PIC X(3). 02 FLAGS PIC S9(9) COMP VALUE ZERO.CALL 39。CBLDCADM39。 USING ADMARG. 該SPP MODULE 中所有的SPP SERVICE 都完成初始化(完成數(shù)據(jù)部前的運(yùn)行)，進(jìn)入監(jiān)視狀態(tài)。RPC CLOSE 01 RPCCLARG. 02 REQEST PIC X(8) VALUE 39。CLOSE 39。. 02 STATUSCODE PIC X(5) VALUE SPACE. 02 FILLER PIC X(3). 02 FLAGS PIC S9(9) COMP VALUE ZERO. CALL 39。CBLDCRPC39。 USING RPCCLARG 退出OPENTP1環(huán)境 SPP MAIN 只調(diào)用相關(guān)的OPENTP1或其它庫(kù)函數(shù)，創(chuàng)建RPC環(huán)境，和SPP SERVICE 及其其它應(yīng)用程序不存在任何調(diào)用關(guān)系。 SPP SERVICE SPP SERVICE 和一般子程序基本上一樣，主要區(qū)別在于SPP SERVICE 的接口形式固定。 入力データ　　　　 INPUTDATA INPUTDATALENGTH 出力データ OUTPUTDATA OUTPUTDATALENGTH (データ、データ長(zhǎng)度的位置關(guān)系和SUP中RPC CALL的データ、データ長(zhǎng)度的位置關(guān)系不同) SPP SERVICE DEFINE 該文件只包含如下一行內(nèi)容。entry “SPP SEVICE NAME ”。 另外將SUP或SPP常駐OPENTP1下還需以下內(nèi)容 ユーザーサービス定義ファイル(文件名不帶任何后綴，并且不超過(guò)8個(gè)字母) SPP ユーザーサービス定義ファイル　　　　　　set module = SPPMDset service_group = SPPGPset service = SPPSV1=SPPSV1P,SPPSV2=SPPSV2P 其中SPPSV1 ,SPPSV2 為向OPENTP1注冊(cè)的SERVICE名,SPPSV1P ,SPPSV2P為對(duì)應(yīng)SPP SERVICE 程序的PROGRAMID. SUPユーザーサービス定義ファイル　　　　set module = SUPMD 以上是兩種ユーザーサービス定義ファイル的基本內(nèi)容，實(shí)際項(xiàng)目中還包含許多環(huán)境設(shè)置。 相關(guān)命令 將編譯生成的 MODULE拷貝到/opt/betran50/aplib/ 或 /opt/debug/WSI/exe/中。 將編輯好的ユーザーサービス定義ファイル以betran50用戶置于/opt/betran50/conf內(nèi) 可以使用以下命令啟動(dòng)，停止等服務(wù)。 dcsvstart u ユーザーサービス定義名 啟動(dòng)指定服務(wù) dcsvstop ユーザーサービス定義名 停止指定服務(wù) dcsvstop f ユーザーサービス定義名 強(qiáng)制停止指定服務(wù) prcls 當(dāng)前啟動(dòng)中的所有服務(wù)列表 tail f /tmp2/ 跟蹤OPENTP1的LOG文件19