新しく作成したフォームを、ダイアログボックスとして開くために、以下の手続きを追加します。
［商品の追加］ボタンをクリックしたときの手続き(BT-ADD-Click)
ポイント
ダイアログボックスとして開くので、「開くフォームを識別するためのIDの定義(WORKING-STORAGE)」および「開いたフォームが閉じられたときの手続き(MainForm-CloseChild)」を記述する必要はありません。
BT-ADD-Click
［商品の追加］ウィンドウを、ダイアログボックスとして開きます。
ENVIRONMENT DIVISION. DATA DIVISION. WORKING-STORAGE SECTION. 01 ReturnValue PIC S9(9) COMP-5. PROCEDURE DIVISION. * 商品追加用のダイアログボックスを開きます。 INVOKE POW-SELF "CallForm" USING "AddForm"
