COBOLプログラムからWindows上のアプリケーションを起動

サンプルプログラム

000010 IDENTIFICATION DIVISION. 000020****************************************************************** 000030** Ｗｉｎｄｏｗｓ　ＡＰ起動　 ** 000040** ＷＳエミュレータ側ＰＣのＷｉｎｄｏｗｓプログラム実行 ** 000050** サンプルプログラム ** 000060****************************************************************** 000070 PROGRAM-ID. UTUNOM. 000080** 000090 ENVIRONMENT DIVISION. 000100** 000110 DATA DIVISION. 000120 WORKING-STORAGE SECTION. 000130 01 WINFILE. 000140 05 FILLER PIC X(04) VALUE ""27"Q00". 000150 05 APNAME. 000160 10 INDATA PIC X(60) VALUE SPACE. 000170 10 FILLER PIC X(190) VALUE SPACE. 000180** 000190 SCREEN SECTION. 000200 SD GAMEN END STATUS IS ENDSTS. 000210 01 DSP-INFILEMES. 000220 05 LINE 8. 000230 10 COLUMN 10 VALUE "INPUT WINDOWS FILE NAME". 000240 01 DSP-INFILEN. 000250 05 LINE 10. 000260 10 COLUMN 10 PIC X(60) USING INDATA. 000270** 000280 01 DSP-OUTWIN. 000290 05 LINE 1 COLUMN 1 PIC X(254) FROM WINFILE. 000300** 000310 PROCEDURE DIVISION. 000320 WIN-MAIN. 000330** 画面表示 000340 DISPLAY DSP-INFILEMES. 000350** ファイル名入力 000360 ACCEPT DSP-INFILEN. 000370** Ｗｉｎｄｏｗｓアプリケーション起動 000380 DISPLAY DSP-OUTWIN. 000390 STOP RUN.

詳しくは「概要マニュアル」を見ていただければ、わかります。
制御符号を使っています。
簡単な説明だけ。

・ 　　　　　　　　　・ 000110 DATA DIVISION. 000120 WORKING-STORAGE SECTION. 000130 01 WINFILE. 000140 05 FILLER PIC X(04) VALUE ""27"Q00".　<-- 最初にこの文字列を書く。 おまじないみたいなものです。 000150 05 APNAME. 000160 10 INDATA PIC X(60) VALUE SPACE. <-- 実行したい命令を250バイトで指定する。 000170 10 FILLER PIC X(190) VALUE SPACE.　　　後ろは空白でパディングすること。 このサンプルAPは60バイト分しか入力できない ようになっている。 ・ 　　　　　　　　　・ 　　　　　　　　　・ 000280 01 DSP-OUTWIN. 000290 05 LINE 1 COLUMN 1 PIC X(254) FROM WINFILE.　<--画面のどこに出力すればよいのか、よく 　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　わからないが、とりあえず１行１列目に出力する よう指定した。 ・ 　　　　　　　　　・ 　　　　　　　　　・ 000370** Ｗｉｎｄｏｗｓアプリケーション起動 000380 DISPLAY DSP-OUTWIN.　　　　　　　　　　　　　<-- ここで画面出力すると、PC/WSエミュレータの 　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　画面に表示される代わりに指定のWindowsアプ リケーションが起動される。