ステップ 2: クライアントの検証およびコンパイル

クライアント・プログラムの検証

クライアント・プログラムのソース・コードの内容を確認します。

$ more CSIMPCL.cbl

以下に出力結果を示します。

CSIMPCL.cbl のソース・コード

1      IDENTIFICATION DIVISION.
2      PROGRAM-ID. CSIMPCL.
3      AUTHOR.Tuxedo DEVELOPMENT.
4      ENVIRONMENT DIVISION.
5      CONFIGURATION SECTION.
6      WORKING-STORAGE SECTION.
7  *****************************************************
8  * Tuxedo definitions
9  *****************************************************
10     01 TPTYPE-REC.
11     COPY TPTYPE.
12  *
13     01 TPSTATUS-REC.
14     COPY TPSTATUS.
15  *
16     01 TPSVCDEF-REC.
17     COPY TPSVCDEF.
18  *
19     01 TPINFDEF-REC VALUE LOW-VALUES.
20     COPY TPINFDEF.
21  *****************************************************
22  * Log messages definitions
23  *****************************************************
24     01 LOGMSG.
25         05 FILLER   PIC X(8) VALUE "CSIMPCL:".
26         05 LOGMSG-TEXT          PIC X(50).
27     01 LOGMSG-LEN               PIC S9(9) COMP-5.
28  *
29     01 USER-DATA-REC   PIC X(75).
30     01 SEND-STRING     PIC X(100) VALUE SPACES.
31     01 RECV-STRING     PIC X(100) VALUE SPACES. 
32  *****************************************************
33  * Command line arguments
34  *****************************************************
35  * Start program with command line args
36  ******************************************************
37
38  PROCEDURE
39  START-CSIMPCL.
40     MOVE LENGTH OF LOGMSG TO LOGMSG-LEN.
41     ACCEPT SEND-STRING FROM COMMAND-LINE.
42     DISPLAY "SEND-STRING:"SEND-STRING.
43
44     MOVE "Started" TO LOGMSG-TEXT.
45     PERFORM DO-TPINIT.
46     PERFORM DO-TPCALL.
47      DISPLAY "RECV-STRING:"RECV-STRING.
48      PERFORM DO-TPTERM.
49      PERFORM EXIT-PROGRAM.
50  *****************************************************
51  * Now register the client with the system.
52  *****************************************************
53  DO-TPINIT.
54     MOVE SPACES TO USRNAME.
55     MOVE SPACES TO CLTNAME.
56     MOVE SPACES TO PASSWD.
57     MOVE SPACES TO GRPNAME.
58     MOVE ZERO TO DATALEN.
59     SET TPU-DIP TO TRUE.
60
61   CALL "TPINITIALIZE" USING TPINFDEF-REC
62            USER-DATA-REC
63            TPSTATUS-REC.
64
65     IF NOT TPOK
66            MOVE "TPINITIALIZE Failed" TO LOGMSG-TEXT
67            PERFORM DO-USERLOG
68            PERFORM EXIT-PROGRAM
69     END-IF.
70     
71  *****************************************************
72  * Issue a TPCALL
73  *****************************************************
74  DO-TPCALL.
75     MOVE 100 to LEN.
76     MOVE "STRING" TO REC-TYPE.
77     MOVE "CSIMPSRV" TO SERVICE-NAME.
78     SET TPBLOCK TO TRUE.
79     SET TPNOTRAN TO TRUE.
80     SET TPNOTIME TO TRUE.
81     SET TPSIGRSTRT TO TRUE.
82     SET TPCHANGE TO TRUE.
83
84     CALL "TPCALL" USING TPSVCDEF-REC
85                   TPTYPE-REC
86                   SEND-STRING
87                   TPTYPE-REC
88                   RECV-STRING
89                   TPSTATUS-REC.
90
91     IF NOT TPOK
92            MOVE "TPCALL Failed" TO LOGMSG-TEXT
93            PERFORM DO-USERLOG
94     END-IF.
95
96   *****************************************************
97   * Leave Tuxedo
98   *****************************************************
99   DO-TPTERM.
100    CALL "TPTERM" USING TPSTATUS-REC.
101    IF NOT TPOK
102           MOVE "TPTERM Failed" TO LOGMSG-TEXT
103           PERFORM DO-USERLOG
104    END-IF.
105
106  *****************************************************
107  * Log messages to the userlog
108  *****************************************************
109   DO-USERLOG.
110     CALL "USERLOG" USING LOGMSG
111            LOGMSG-LEN
112            TPSTATUS-REC.
113
114  *****************************************************
115  *Leave Application
116  *****************************************************
117   EXIT-PROGRAM.
118     MOVE "Ended" TO LOGMSG-TEXT.
119     PERFORM DO-USERLOG.
120     STOP RUN.

CSIMPCL.cbl ソース・コードでの重要なコード行 

行数	ファイル/関数	目的
11、14、17、20	COPY	BEA Tuxedo ATMI 関数を使用する場合に、常に必要となるファイルを複製するためのコマンド。
61	TPINITIALIZE	クライアント・プログラムがアプリケーションに参加する際に使用される ATMI 関数。
84	TPCALL	SERVICE-NAME で指定されたサービスにメッセージ・レコードを送信する際に使用される ATMI 関数。TPCALL は、メッセージが返されるまで待機します。STRING は、BEA Tuxedo の 3 つの基本的なレコード・タイプのいずれかになります。LEN IN TPTYPE-REC 引数は、USER-DATA-REC のレコードの長さを指定します。
100	TPTERM	アプリケーションを終了するための ATMI 関数。TPTERM は、STOP RUN を実行する前にアプリケーションを終了する場合に呼び出します。
110	USERLOG	tpcall が正常に実行された場合に、サーバから返されるメッセージを表示する関数。

 

関連項目