COBOL2002 ユーザーズガイド
CBLEXECサービスルーチンは,COBOLプログラムから別のアプリケーションプログラムを起動するものです。
CALL 'CBLEXEC' USING 引数1 引数2 引数3
表32-2 CBLEXECサービスルーチンのインタフェース領域
記述形式 | 内容 |
---|---|
01 データ名1. |
CALL文のUSINGで指定するインタフェース領域の名前を指定する。 |
02 FILLER PIC X(01). |
システムの使用する領域。値はX'00'でなければならない。 |
02 データ名2 PIC X(01). |
起動したプロセスの終了を待つかどうかを指定する。 0:プロセスの終了を待つ。 1:プロセスの終了を待たない。 |
02 データ名3 PIC X(01). |
起動したプロセスのウィンドウ表示方法を指定する。 0:プロセスのデフォルトウィンドウ表示とする。 1:ウィンドウをアイコン化して表示する。 |
02 FILLER PIC X(01). |
予備。値は0でなければならない。このシステムではこの領域は使用しない。 |
CBL_BATCH=1
IDENTIFICATION DIVISION. PROGRAM-ID. SAMPLE1. : DATA DIVISION. WORKING-STORAGE SECTION. 01 EXEC-NAME-LEN PIC 9(4) USAGE COMP VALUE 29. 01 EXEC-NAME PIC X(29) VALUE 'NOTEPAD.EXE C:\TMP\SAMPLE.TXT'. 01 EXEC-PARM. 02 FILLER PIC X(01) VALUE X'00'. 02 PROC-IND PIC X(01). 02 SHOW-WIND PIC X(01) VALUE '0'. 02 FILLER PIC X(01) VALUE '0'. : PROCEDURE DIVISION. : MOVE '1' TO PROC-IND. CALL 'CBLEXEC' USING EXEC-NAME-LEN EXEC-NAME EXEC-PARM. IF RETURN-CODE NOT = 0 THEN CBLEXECエラー処理 END-IF. :
All Rights Reserved. Copyright (C) 2013, 2016, Hitachi, Ltd.
All Rights Reserved. Copyright (C) 2002, 2011, Microsoft Corporation.