PowerFX V1.0 運用説明書 - Microsoft(R) Windows(R) -
目次 索引 前ページ次ページ

第3章 TCLplus> 3.2 TCLplusの実行

3.2.3 COBOLプログラムからの実行

COBOLプログラムからPFXTCLPLUSサブルーチンをCALL文で呼び出すことにより、TCLplusスクリプを実行できます。

作業場所節定義:

01  SCRIPTFILE      PIC X(260).
01  ARGS            PIC X(1024).
01  RTN-VAL         PIC S9(9) COMP-5.


呼出し形式:

CALL "PFXTCLPLUS" USING
          SCRIPTFILE ARGS RETURNING RTN-VAL.


パラメーターの説明:

SCRIPTFILE
TCLplusスクリプトのファイル名を相対パスまたは絶対パスで格納します。
パスにスペースを含む場合は、ダブルクォーテーション(")で囲みます。
PICTURE句はX(260)を指定してください。
文字コードはShift-JISを使用してください。

ARGS
TCLplusスクリプトに渡す引数を格納します。
格納される引数は以下の規則に沿うように指定してください。
PICTURE句はX(1024)または集団項目がX(1024)に相当するレコードを指定してください。
文字コードはShift-JISを使用してください。

RTN-VAL
復帰値を格納するための領域です。このパラメーターは省略することができます。
PICTURE句はS9(9) COMP-5を指定してください。

例:

・TCLplusスクリプトの引数に定数を使用する場合
000010 IDENTIFICATION DIVISION.
000020  PROGRAM-ID. SAMPLE.
000030 DATA DIVISION.
000040  WORKING-STORAGE SECTION.
000050  01 SCRIPTFILE PIC X(260).
000060  01 ARGS       PIC X(1024).
000070  01 RTN-VAL    PIC S9(9) COMP-5 VALUE 0.
000080 PROCEDURE DIVISION.
000090          MOVE "D:\tmp\test.pcl" TO SCRIPTFILE.
000100          MOVE "PARA1 PARA2" TO ARGS.
000110          CALL "PFXTCLPLUS" USING SCRIPTFILE ARGS RETURNING RTN-VAL.
000120          IF RTN-VAL NOT = 0 THEN
000130              DISPLAY "TCLplusスクリプトがエラーで復帰しました。 復帰コード =" RTN-VAL
000140          END-IF.
000150          EXIT PROGRAM.
000160 END PROGRAM SAMPLE.

 

・TCLplusスクリプトの引数に変数を使用する場合
000010 IDENTIFICATION DIVISION.
000020  PROGRAM-ID. SAMPLE.
000030 DATA DIVISION.
000040  WORKING-STORAGE SECTION.
000050  01 SCRIPTFILE PIC X(260).
000060  01 ARGS.
000070      02 PARA1  PIC X(10).
000080      02 FILLER PIC X(1) VALUE SPACE.
000090      02 PARA2  PIC X(10).
000100      02 FILLER PIC X(1) VALUE SPACE.
000110      02 PARA3  PIC X(10).
000120      02 FILLER PIC X(992).
000130  01 RTN-VAL    PIC S9(9) COMP-5 VALUE 0.
000140 PROCEDURE DIVISION.
000150          MOVE "D:\tmp\test.pcl" TO SCRIPTFILE.
000160          MOVE "AAA" TO PARA1.
000170          MOVE "BBB" TO PARA2.
000180          MOVE "CCC" TO PARA3.
000190          CALL "PFXTCLPLUS" USING SCRIPTFILE ARGS RETURNING RTN-VAL.
000200          IF RTN-VAL NOT = 0 THEN
000210              DISPLAY "TCLplusスクリプトがエラーで復帰しました。 復帰コード =" RTN-VAL
000220          END-IF.
000230          EXIT PROGRAM.
000240 END PROGRAM SAMPLE.

 



目次 索引 前ページ次ページ

All Rights Reserved, Copyright(C) 富士通株式会社 2005