このセッションでは、サンプルプログラム PROG001 を作成および実行し、マップ MAP001 を呼び出すステートメント INPUT USING MAP の影響をテストします。
PROG001 は Natural システムライブラリ SYSEXPG に用意されています。詳細については、Natural システム管理者に問い合わせてください。
PROG001 を作成および実行するには
PROG001 のコピーにアクセスできる場合は、［Edit Map］メニューのコマンド行に次のように入力します。
EDIT PROG001
プログラムエディタが呼び出され、PROG001 のソースコードが編集エリアに表示されます。 読み込まれたプログラムが、次に示すプログラムと同じであることを確認してください。
または:
PROG001 のコピーにアクセスできない場合は、［Edit Map］メニューのコマンド行に次のように入力します。
EDIT PROGRAM
プログラムエディタが起動します。 必要に応じて、プログラムエディタのコマンドプロンプト（>）にコマンド CLEAR を入力して、編集エリアをクリアします。 次のプログラムを入力します。
** Example 'PROG001': Example program for the Map Tutorial
************************************************************************
DEFINE DATA LOCAL
01 PERS-VIEW VIEW OF EMPLOYEES
02 NAME
02 FIRST-NAME
02 CITY
*
01 #NAME (A20)
01 #CITY (A20)
END-DEFINE
*
REPEAT
/*
INPUT USING MAP 'MAP001'
/*
IF #CITY NE ' ' AND #NAME NE ' '
FIND PERS-VIEW WITH NAME = #NAME AND CITY = #CITY
IF NO RECORDS FOUND
REINPUT 'NO ONE BY THIS NAME LIVING IN THIS CITY.'
MARK *#CITY
END-NOREC
/*
DISPLAY NOTITLE NAME FIRST-NAME CITY
/*
END-FIND
ELSE
IF #NAME NE ' '
FIND PERS-VIEW WITH NAME = #NAME
IF NO RECORDS FOUND
REINPUT 'PLEASE TRY ANOTHER NAME.'
END-NOREC
/*
DISPLAY NOTITLE NAME FIRST-NAME CITY
/*
END-FIND
END-IF
END-IF
/*
END-REPEAT
END エディタの最上行にプログラム名が表示されない場合は、プログラムエディタのコマンドプロンプトにコマンド STOW PROG001 を入力します。
または:
エディタの最上行にプログラム名 PROG001 が表示される場合は、プログラムエディタのコマンドプロンプトにコマンド STOW を入力します。
必要に応じて構文エラーを修正し、STOW を再度実行します。
STOW が正常に完了すると、そのプログラムはソースオブジェクトおよびカタログ化オブジェクトとして、現在のシステムファイル内の、現在の Natural ライブラリに保存されます。
プログラムエディタのコマンドプロンプトで、次のように入力します。
RUN
PROG001 が実行され、マップ MAP001 が表示されます。
MAP001 が意図したとおりに動作するかどうかを確認するには
何も入力しないで Enter キーを押します。
メッセージ「PLEASE TYPE IN A NAME」が表示されます。
最初の入力フィールドに疑問符（?）を入力し、Enter キーを押します。
ヘルプマップ HELP001 が表示されます。
Enter キーを押します。
ヘルプマップが非表示になります。
最初の入力フィールドに名前「MCKENNA」を入力し、Enter キーを押します。
メッセージ「PLEASE TRY ANOTHER NAME」が表示されます。
「MCKENNA」を「JONES」に置き換え、Enter キーを押します。
プログラムが次のリストを生成します。
NAME FIRST-NAME CITY
-------------------- -------------------- --------------------
JONES VIRGINIA TULSA
JONES MARSHA MOBILE
JONES ROBERT MILWAUKEE
JONES LILLY BEVERLEY HILLS
JONES EDWARD CAMDEN
JONES MARTHA KALAMAZOO
JONES LAUREL BALTIMORE
JONES KEVIN DERBY
JONES GREGORY NOTTINGHAM
|
Enter キーを押します。
MAP001 が表示されます。
マップの最初の入力フィールドに名前「JONES」を入力し、2 番目のフィールドに名前「DUNFERMLINE」を入力します。
Enter キーを押します。
メッセージ「NO ONE BY THIS NAME LIVING IN THIS CITY」が表示されます。
マップの最初の入力フィールドに名前「JONES」を入力し、2 番目のフィールドに名前「TULSA」を入力します。
Enter キーを押します。
プログラムが次のリストを生成します。
NAME FIRST-NAME CITY
-------------------- -------------------- --------------------
JONES VIRGINIA TULSA
|
Enter キーを押します。
MAP001 が表示されます。
最初の入力フィールドにピリオド（.）を入力し、Enter キーを押します。
プログラムエディタが開き、編集エリアに PROG001 のソースコードが表示されます。
「WRITE を使用するマップの作成、およびフィールド定義のコピー」に進みます。
