ＣＯＢＯＬプログラムから別のプログラムを起動

ＣＯＢＯＬプログラムから別のプログラムを起動する方法を幾つか紹介します。

別のプログラムを起動する方法は幾つかあり、大きく分けると「１．システムサブルーチンを使う、２．特殊レジスタＰＲＯＧＲＡＭ−ＩＤでプログラム終了時に別のプログラムを起動」の２種類があります。
また、Ａ−ＶＸのＣＯＢＯＬプログラムからＷｉｎｄｏｗｓ上のプログラムを起動する方法も幾つかあり、「１．制御符号を使ってパソコン上のプログラムを起動、２．別売りのリモートＡＰＣａｌｌという製品を使う、３．別売りのＮＴ＊Ａ−ＶＸ　ＪＯＢ連携ユーティリティという製品を使う」などの方法があります。

Ｗｉｎｄｏｗｓ上のプログラムを起動する例は、別のところで紹介していますので、ここでは同じＡ−ＶＸ上のプログラムを実行する方法を紹介します。

システムサブルーチンによるプログラム起動

ＳＰＡＷＮマクロ実行、ＲＵＮマクロ実行、ＣＨＡＩＮマクロ実行という３種類のシステムサブルーチンが用意されています。

◆ＳＰＡＷＮマクロ実行

説明書から概要を下に抜き出します。
詳細は「ＣＯＢＯＬ８５システムサブルーチン説明書」を参照してください。

機能 自プログラムを終了させることなく、要求されたプログラムを画面切り離し状態で起動します。 起動できるプログラムの種類は、ロードモジュール（ＣＯＢＯＬで作ったプログラムなどのこと）、ジョブストリーム、パラメータ。 一般形式 CALL "SYSSPAWN" USING データ名１ データ名２ データ名３ データ名１：コマンド／パラメータ ・ファイル節・作業場所節または連絡節で７桁以上、５１２桁以下のデータ項目を定義。 レベル番号は０１か７７です。ＲＵＮコマンドとパラメータを指定します。 [1]標準の形式 　name,パラメータ１; パラメータ２ /> [2]パラメータ１を省略した形式 　name; パラメータ２ /> [3]パラメータ２を省略した形式 　name,パラメータ１; [4]パラメータ１、パラメータ２共に省略した形式 name; nameは６桁で、足りない場合は６桁になるまで空白で埋めます。 データ名２：桁数 ・４桁の符号なし整数項目です。データ名１に設定する桁数を指定。 データ名３：実行モード／実行結果 データ名３は、次のように定義します。 01 データ名３. 02 データ名３−１ PIC X(10). 02 データ名３−２ PIC X(02). 02 データ名３−３ PIC X(10). 02 FILLER PIC X(08) VALUE SPACE. データ名３−１：本命令を実行したプログラムの実行モードを指定。 "MODE=DEFER"・・・本CALL命令を実行したプログラムは、起動したプログラムの終了に関係なく進行します。 "MODE=WAIT "・・・本CALL命令を実行したプログラムは、起動したプログラムが終了するまで停止します。 データ名３−２：実行結果が返却されます。 データ名３−３：参照、更新不可の場所。

サンプルプログラム３−１

ＳＰＡＷＮマクロを使用して、SA0031というプログラムから、SA003というプログラムを起動します。


CALL "SYSSPAWN"を実行するプログラム（MODEはDEFER）

000010*********************************************************** 000020* サンプルプログラム３−１ ** 000030* 別ジョブ起動（ＳＰＡＷＮ） ** 000040*********************************************************** 000050 IDENTIFICATION DIVISION. 000060 PROGRAM-ID. SA0031. 000070 ENVIRONMENT DIVISION. 000080 DATA DIVISION. 000090 WORKING-STORAGE SECTION. 000100* SPAWN DATA AREA 000110 01 SP01 PIC X(30). 000120 01 SP02 PIC 9(04). 000130 01 SP03. 000140 05 SP03-1 PIC X(10). 000150 05 SP03-2 PIC X(02). 000160 05 SP03-3 PIC X(10). 000170 05 FILLER PIC X(08) VALUE SPACE. 000180 PROCEDURE DIVISION. 000190 MPRG. 000200 INITIALIZE SP01 SP02 SP03. 000210*ディスクMSD000のUSERLMLという名前のライブラリにあるSA003と 000220*いう名前のロードモジュールをSPAWNで起動します 000230 MOVE "SA003 ,FIL=USERLML;" TO SP01. 000240 MOVE 19 TO SP02. 000250 MOVE "MODE=DEFER" TO SP03-1. 000260 CALL "SYSSPAWN" USING SP01 SP02 SP03. 000270 IF SP03-2 NOT = "00" 000280 DISPLAY "SPAWN ERROR " SP03-2 000290 STOP "NG!!" 000300 GO TO MPRG-E 000310 END-IF. 000320 STOP "SA0031 OK!!". 000330 MPRG-E. 000340 STOP RUN.

CALL "SYSSPAWN"で起動するプログラム

000010*********************************************************** 000020* サンプルプログラム３−０ ** 000030* 別ジョブ起動 ** 000040*********************************************************** 000050 IDENTIFICATION DIVISION. 000060 PROGRAM-ID. SA003. 000070 ENVIRONMENT DIVISION. 000080 DATA DIVISION. 000090 PROCEDURE DIVISION. 000100 MPRG. 000110 DISPLAY COMPLETION-CODE. 000120 STOP "SA003 OK!". 000130 MPRG-E. 000140 STOP RUN.

ここでミソなのは、プログラムSA0031の２３行目、データ名１にRUNコマンドをセットしていますが、"SA003△,FIL=USERLML;"とSA003と,の間に空白を１個入れて６桁にしていることです。（データ名１の説明箇所「nameは６桁で、足りない場合は６桁になるまで空白で埋めます。」）
これを"SA003,FIL=USERLML"と空白を抜かして５桁にするとエラー（データ名３−２に90：ＲＵＮコマンドパラメータエラー）になります。「;」以降に空白以外の文字があってもエラーになることがあります。


SA0031とSA003という２つのロードモジュールが出来たら、それらをMSDS000のUSERLMLというライブラリに入れます。
そして「SA0031,FIL=USERLML」とコマンドを実行してみると（うまくいけば）下のように「SA0031 OK!」のように画面に表示されます。


SA003は『画面切り離し状態で起動』しています。この「画面切り離し状態」というのは、Ｗｉｎｄｏｗｓでいうと「起動したプログラムのウインドウ（これがSA003の画面に相当します）」が、「前に出ているウインドウ（これがSA0031に相当します）」の後ろに隠れている状態です。
Ｗｉｎｄｏｗｓの場合、後ろに隠れているウインドウを前に出すために、タスクバーのアイコンをクリックしたり、「Ａｌｔ」＋「Ｔａｂ」を押したりします。Ａ−ＶＸでは、システムコマンドの「画面接続コマンド」を使用します。

それではシステムコマンドの「画面接続コマンド」を使用して、SA003の画面を表に出しましょう。たくさんのジョブが動いている時は、目的の画面が出てくるまで何回もコマンドを実行します。

下の画面がSA003の画面です。
うまく別のプログラムを起動できていました。


SA003を終了するには、システムコマンドの「再開コマンド」を実行します。（終了するのに再開は変に思えるかもしれませんが、STOP命令でプログラムを一時停止しているので、「再開コマンド」でプログラムの実行を再開させ、STOP命令の次は終わりなので、プログラムが終了することになります。）
必要に応じて「画面接続コマンド」を使用して、SA0031の画面も表に出して、同じように「再開コマンド」を実行してプログラムを終了させましょう。

サンプルプログラム３−１（SA0031）はMODEはDEFERでしたが、WAITにするとどうなるかも試してみましょう。
２５行目の"MODE=DEFER"を"MODE=WAIT "に変更して、ロードモジュールを作ります。

同じように実行してみると、今度は下のような画面になります。
「SA0031 OK!!」が表示されていません。これは２６行目のCALL "SYSSPAWN"を実行したところで止まっているからです。


SA003が起動しているか確認してみましょう。
「画面接続コマンド」でSA003を表画面にします。


「再開コマンド」を実行してSA003を終了します。
「画面接続コマンド」を実行（必要に応じて複数回実行）して、SA0031を表画面にします。
SA003が終了したので、SA0031が動き出して「SA0031 OK!!」と表示されているはずです。

親プログラムが子プログラムを起動して、そこからまた孫プログラムを起動して・・・のようにも作れます。

◆ＲＵＮマクロ実行

説明書から概要を下に抜き出します。
詳細は「ＣＯＢＯＬ８５システムサブルーチン説明書」を参照してください。

機能 可変パラメータで、ロードモジュール（ＣＯＢＯＬで作ったプログラムなどのこと）、パラメータあるいはジョブストリームを起動します。 一般形式 CALL "CBLRUN" USING データ名１ データ名２ データ名１：コマンド／パラメータ ・ファイル節・作業場所節または連絡節で７桁以上、５１２桁以下のデータ項目を定義。 レベル番号は０１か７７です。ＲＵＮコマンドとパラメータを指定します。 [1]標準の形式 　name,パラメータ１; パラメータ２ /> [2]パラメータ１を省略した形式 　name; パラメータ２ /> [3]パラメータ２を省略した形式 　name,パラメータ１; [4]パラメータ１、パラメータ２共に省略した形式 name; nameは６桁で、足りない場合は６桁になるまで空白で埋めます。 データ名２：桁数 ・４桁の符号なし整数項目です。データ名１に設定する桁数を指定。

サンプルプログラム３−２

ＲＵＮマクロを使用して、SA0032というプログラムから、SA003というプログラムを起動します。
SA003は、ＳＰＡＷＮマクロ実行で使用したものをそのまま流用します。

000010*********************************************************** 000020* サンプルプログラム３−２ ** 000030* 別ジョブ起動（ＲＵＮ）　　 ** 000040*********************************************************** 000050 IDENTIFICATION DIVISION. 000060 PROGRAM-ID. SA0032. 000070 ENVIRONMENT DIVISION. 000080 DATA DIVISION. 000090 WORKING-STORAGE SECTION. 000100* SPAWN DATA AREA 000110 01 SP01 PIC X(30). 000120 01 SP02 PIC 9(04). 000130 PROCEDURE DIVISION. 000140 MPRG. 000150 INITIALIZE SP01 SP02 . 000160 STOP "再開コマンドでSA003を起動します". 000170*ディスクMSD000のUSERLMLという名前のライブラリにあるSA003と 000180*いう名前のロードモジュールをRUNで起動します 000190 MOVE "SA003 ,FIL=USERLML;" TO SP01. 000200 MOVE 19 TO SP02. 000210 CALL "CBLRUN" USING SP01 SP02. 000220 STOP "SA0032 OK!!". 000230 MPRG-E. 000240 STOP "SA0032は終了します". 000250 STOP RUN.

ここでミソなのは（ＳＰＡＷＮマクロ実行と同じですが）、１９行目でデータ名１にRUNコマンドをセットしていますが、"SA003△,FIL=USERLML;"とSA003と,の間に空白を１個入れて６桁にしていることです。（データ名１の説明箇所「nameは６桁で、足りない場合は６桁になるまで空白で埋めます。」）
これを忘れて、"SA003,FIL=USERLML」とnameの部分が６桁以外だと、何も起動しないでプログラムが終わってしまいます。

SA0032とSA003（SPAWNマクロで説明しているプログラム）という２つのロードモジュールが出来たら、それらをMSDS000のUSERLMLというライブラリに入れます。
そして「SA0032,FIL=USERLML」とコマンドを実行してみると下のようになります。


再開コマンドを実行すると、RUNマクロ実行によってSA003が起動されます。


ここでさらに再開コマンドを実行すると、SA003が終了します。
RUNコマンド実行の次にある２２行目や２４行目は実行されないことに注意。つまりSA003の実行が終わっても戻ってくることはありません。RUNコマンド実行の前にやるべきこと（例えばSA0032でオープンしたファイルをクローズする）はやっておく必要があります。ファイルのオープンの情報は引き継がれないので、SA0032でオープンしたファイルをSA003でクローズする、というようなことはできません。

◆ＣＨＡＩＮマクロ実行

説明書から概要を下に抜き出します。
詳細は「ＣＯＢＯＬ８５システムサブルーチン説明書」を参照してください。

機能 自プログラムを終了させて、新たに要求されたプログラムを起動します。起動されたプログラムの終了後、再び元のプログラムを起動します。 一般形式 CALL "SYSCHAIN" USING データ名１ データ名２ データ名１：コマンド／パラメータ ・ファイル節・作業場所節または連絡節で７桁以上、５１２桁以下のデータ項目を定義。 レベル番号は０１か７７です。ＲＵＮコマンドとパラメータを指定します。 [1]標準の形式 　name,パラメータ１; パラメータ２ /> [2]パラメータ１を省略した形式 　name; パラメータ２ /> [3]パラメータ２を省略した形式 　name,パラメータ１; [4]パラメータ１、パラメータ２共に省略した形式 name; nameは６桁で、足りない場合は６桁になるまで空白で埋めます。 データ名２：桁数 ・４桁の符号なし整数項目です。データ名１に設定する桁数を指定。

サンプルプログラム３−３

ＣＨＡＩＮマクロを使用して、SA0033というプログラムから、SA003というプログラムを起動します。
SA003は、ＳＰＡＷＮマクロ実行で使用したものをそのまま流用します。

000010*********************************************************** 000020* サンプルプログラム３−３ ** 000030* 別ジョブ起動（ＣＨＡＩＮ） ** 000040*********************************************************** 000050 IDENTIFICATION DIVISION. 000060 PROGRAM-ID. SA0033. 000070 ENVIRONMENT DIVISION. 000080 DATA DIVISION. 000090 WORKING-STORAGE SECTION. 000100* SPAWN DATA AREA 000110 01 SP01 PIC X(30). 000120 01 SP02 PIC 9(04). 000130 PROCEDURE DIVISION. 000140 MPRG. 000150 INITIALIZE SP01 SP02 . 000160*ジョブ制御変数が123なら２回目の起動なので、SA0033を終了する 000170 IF COMPLETION-CODE = 123 GO TO MPRG-E. 000180* 000190 STOP "再開コマンドでSA003を起動します". 000200*SA003にジョブ制御変数=123を渡すために値を設定します 000210 MOVE 123 TO COMPLETION-CODE. 000220*ディスクMSD000のUSERLMLという名前のライブラリにあるSA003と 000230*いう名前のロードモジュールをRUNで起動します 000240 MOVE "SA003 ,FIL=USERLML;" TO SP01. 000250 MOVE 19 TO SP02. 000260 CALL "SYSCHAIN" USING SP01 SP02. 000270 STOP "SA0033 OK!!". 000280 MPRG-E. 000290 STOP "SA0033は終了します". 000300 STOP RUN.

ここで気をつけなければならないのは、２４行目でデータ名１にRUNコマンドをセットしていますが、"SA003△,FIL=USERLML;"とSA003と,の間に空白を１個入れて６桁にしていることです。（データ名１の説明箇所「nameは６桁で、足りない場合は６桁になるまで空白で埋めます。」）
これを忘れて、"SA003,FIL=USERLML」とnameの部分が６桁以外だと、何も起動しないでそのまま又SA0033が起動してしまいます。
ＣＨＡＩＮマクロ実行だと、COMPLETION-CODE（ジョブ制御変数）の値が次のプログラムに引き継がれます。このサンプルプログラムではSA0033で「123」という値をCOMPLETION-CODEにセットしていますが、その値がCALL "SYSCHAIN"で起動したSA003、そしてもう一度起動したSA0033に引き継がれていくのが分かると思います。

１７行目は、そのままだとSA003を起動->SA0033が起動->SA003を起動->SA0033を起動・・・と無限に繰り返してしまうので、COMPLETION-CODEを見て２回目の起動だったら止めるようにしています。

下が実際に実行してみた結果です。

まずSA0033が起動します。
プログラム内部ではCOMPLETION-CODEに123という値を入れています。
再開コマンドを実行するとＣＨＡＩＮマクロ実行でSA003を起動します。


SA003が起動しました。COMPLETION-CODEの値が引き継がれていることが分かります。
それからSA0033は２７行目の「SA0033 OK!!」であるとか２８行目の「SA0033は終了します」というような表示しないで終了していることも分かります。
再開コマンドを実行するとSA003は終了します。


SA003が終わったので、自動的にSA0033が起動します。１回目のSA0033でセットしたCOMPLETION-CODEの値が引き継がれているので、１７行目で２９行目にジャンプ、「SA0033は終了します」と表示されました。
後は再開コマンドで終了します。


COBOLで自作のメニュー画面（アプリケーションのランチャー）を作りたいときなどに使えるかもしれません。ＣＨＡＩＮマクロ実行で業務アプリケーションを起動、終わったら自動的にメニュー画面に戻ってくるのような・・・。

特殊レジスタＰＲＯＧＲＡＭ−ＩＤによるプログラム起動

特殊レジスタＰＲＯＧＲＡＭ−ＩＤというものを使うとプログラム終了時に別のプログラムを起動することができます。
説明書から概要を下に抜き出します。
詳細は「ＣＯＢＯＬ８５言語説明書」などを参照してください。

機能 ＳＴＯＰ（停止）命令は，実行単位の実行を完全にまたは一時的に休止させる。 一般形式 STOP ｛RUN | 定数-1 } 〜 (2)STOP RUN（状態停止）命令は、その一連の無条件命令の中の最後の命令でなければならない。 〜 本コンパイラのRUN指定では，特殊レジスタCOMPLETION-CODEの内容が完了コードとして実行管理システムへ渡される。また特殊レジスタPROGRAM-IDの内容にプログラム名などが設定されいれば（内容が空白でない）設定されているプログラムなどが自動的に実行開始される。特殊レジスタPROGRAM-IDの内容が空白のときは，実行用プログラムは終了し制御は実行管理プログラムに移る。

サンプルプログラム３−４

特殊レジスタＰＲＯＧＲＡＭ−ＩＤを使用して、SA0034というプログラムから、SA003というプログラムを起動します。
SA003は、ＳＰＡＷＮマクロ実行で使用したものをそのまま流用します。

000010*********************************************************** 000020* サンプルプログラム３−４ ** 000030* 別ジョブ起動（ＳＴＯＰ命令） ** 000040*********************************************************** 000050 IDENTIFICATION DIVISION. 000060 PROGRAM-ID. SA0034. 000070 ENVIRONMENT DIVISION. 000080 DATA DIVISION. 000090 PROCEDURE DIVISION. 000100 MPRG. 000110 MOVE "SA003" TO PROGRAM-ID. 000120 STOP "SA0034 END". 000130 MPRG-E. 000140 STOP RUN.

１１行目で実行したいプログラムの名前（この例ではSA003）を特殊レジスタに入れて、１４行目でSTOP RUNを実行しています。（その前の１２行目のSTOP命令では、メッセージを表示して一時停止しているだけで、このSTOP命令は別ジョブ起動とは関係ありません。）

たぶんシステム上にライブラリはたくさん（SYS@LML、SYS@JSL、誰かが作ったライブラリetc.）あると思います。また実行できるものはロードモジュールの他にジョブストリームやパラメータがあります。
今回の例では「SA003」という名前を特殊レジスタに入れていますが、SYS@LMLにも「SA003」という名前のLMが入っていて、SYS@JSLにも「SA003」という名前のJSが入っていて、USERLMLやTESTLMLという名前のライブラリにも「SA003」が入っていたときに、どこのライブラリに入っている「SA003」が起動されるのでしょうか？

『システム管理説明書』の「ジョブ起動ファイルの選定方法」に次のように書いてあります。
（ＤＥＶ指定もＦＩＬ指定も無いとき）〜前略〜プログラム内の内部コール命令の場合、このスレッドのプライベートロードモジュールライブラリ−＞ＳＲＶ上のＳＹＳ＠ＬＭＬ−＞ＳＹＳ＠ＪＳＬ−＞ＳＹＳ＠ＰＭＬの順に指定のジョブを探します。プライベートロードモジュールライブラリが保持されていなければ、〜後略〜

上で挙げられている以外の任意のライブラリから起動したい時は、「SA003を起動するJSを１個作ってそのJSをSYS@JSLに入れる」（こっちが推奨案）か、先に説明した「ＲＵＮマクロ実行」を使うか、どちらかになります。

上のサンプルプログラム３−４を実行してみます。
１２行目で一時停止したところ。ここで再開コマンド実行すると先に進みます。


１４行目のSTOP RUNを実行した為、SA034（サンプルプログラム３−４）は終了し、特殊レジスタPROGRAM-IDの内容に従ってSA003が起動されました。

４つの違い

ＳＰＡＷＮマクロ実行、ＲＵＮマクロ実行、ＣＨＡＩＮマクロ実行、特殊レジスタＰＲＯＧＲＡＭ−ＩＤによるプログラム起動の違いをまとめました。

「ｘｘマクロ実行」でＣＡＬＬ命令を実行するプログラムとそれによって起動するプログラムの関係