作成方法としては 統合開発環境（ＩＤＥ）とよばれる画面からプロジェクトを作成する形でプログラムを作成していきます。ソースファイルの中身は全くのＣＯＢＯＬです。エディッターもＣＯＢＯＬ強調表示があり使い良いです。コンパイル・リンクのボタン一つです。アニメータもここから起動します。ステップ単位のデバッグが非常に効率よく出来ます。
１.既存のＤＯＳマシンで動いているようなＣＯＢＯＬプログラムを動かしてみる。
以下の画面のようになります。ＬＥＶＥＬUＣＯＢＯＬをＷｉｎｄｏｗｓのＤＯＳ窓で動かしたような感じですね。
2.Ｗｉｎｄｏｗｓ ＧＵＩプログラムを入門書の手順で作成してみる。
入門書の説明が良いのか 意外と簡単に出来ました。この調子でＷｉｎｄｏｗｓ ＧＵＩプログラムが作成できるのであれば かなり生産性は良いと感じました。また、ある程度経験のあるＣＯＢＯＬプログラマーでしたらＷｉｎｄｏｗｓ ＧＵＩプログラム習得までに時間はかからないと思います。
以下 は実行時の画面とプログラムソースです。ＥＮＴＥＲ ＮＡＭＥに文字を入れＳＴＡＲＴボタンを押すと ＧＲＥＥＴＩＮＧにＨＥＬＬＯ＋”ＥＮＴＥＲＮＡＭＥで入力した文字”が表示されるプログラムです。
プログラムはほとんど自動生成され実際にコーディングしたのはしたのソースで赤表示している
STRING "HELLO " I-NAME DELIMITED BY SIZE INTO GREETING
の１行だけです。
以下プログラムソースです。
****************************************************************
* Copyright Micro Focus Limited 1993-97. All Rights Reserved. *
* This demonstration program is provided for use by users of *
* Micro Focus products and may be used, modified and *
* distributed as part of your application provided that you *
* properly acknowledge the copyright of Micro Focus in this *
* material. *
****************************************************************
DATA DIVISION.
WORKING-STORAGE SECTION.
78 dialog-system VALUE "DSGRUN".
01 Display-Error-No PIC 9(4).
01 Display-Details-1 PIC 9(4).
01 Display-Details-2 PIC 9(4).
COPY "DS-CNTRL.MF".
COPY "WELCOM.CPB".
PROCEDURE DIVISION.
*---------------------------------------------------------------*
Main-Process SECTION.
PERFORM Program-Initialize
PERFORM Program-Body UNTIL EXIT-FLAG-TRUE
PERFORM Program-Terminate
.
*---------------------------------------------------------------*
Program-Initialize SECTION.
INITIALIZE Ds-Control-Block
INITIALIZE Data-block
MOVE Data-block-version-no
TO Ds-Data-Block-Version-No
MOVE Version-no TO Ds-Version-No
MOVE Ds-New-Set TO Ds-Control
MOVE "WELCOM" TO Ds-Set-Name
.
*---------------------------------------------------------------*
Program-Body SECTION.
PERFORM Call-Dialog-System
STRING "HELLO " I-NAME DELIMITED BY SIZE INTO GREETING
.
*---------------------------------------------------------------*
Program-Terminate SECTION.
STOP RUN
.
*---------------------------------------------------------------*
Call-Dialog-System SECTION.
CALL dialog-system USING Ds-Control-Block,
Data-Block
IF NOT Ds-No-Error
MOVE Ds-Error-Code TO Display-error-no
DISPLAY "DS ERROR NO: " Display-error-no
DISPLAY "Error Details(1) : " Display-Details-1
DISPLAY "Error Details(2) : " Display-Details-2
PERFORM Program-Terminate
END-IF
3 .Ｗｅｂアプリケーションを入門書の手順で作成してみる。
これもＷｉｎｄｏｗｓ ＧＵＩプログラムと同様 入門書の説明が良いのか 意外と簡単に出来ました。
以下 は実行時の画面とプログラムソースです。enter nameに文字を入れクエリ送信ボタンを押すと greetingにhellow＋”enter nameで入力した文字”が表示されるプログラムです。
プログラムはほとんど自動生成され実際にコーディングしたのは以下のソースで赤表示している
string " hello " input1 delimited by size into input2
の１行だけです。
今回サーバープログラム（以下のＣＯＢＯＬプログラムにあたります）はクライアント側（ＷＩＮ９８）で動かしています。テスト時には自動的にＳｏｌｏと呼ばれるＷｅｂサーバーソフト（インターネットアプリケーションテスト用のＨＴＴＰＤのような物）が起動されプログラムが実行されます。これは既存のＷｅｂサーバーソフトでも代用できるようです。
