このセッションでは、サンプルプログラム PROG002 を作成および実行し、マップ MAP002 および MAP003 を呼び出すステートメント WRITE USING MAP の影響をテストします。
PROG002 を作成するには
［Edit Map］メニューのコマンド行に次のように入力します。
EDIT PROG002
プログラムエディタが起動され、PROG002 のソースコードが編集エリアに表示されます。
プログラムエディタのコマンドプロンプトで、次のように入力します。
SAVE PROG002
プログラム PROG001 のコピーが、PROG002 という名前のソースオブジェクトとして、現在のシステムファイル内の Natural ライブラリに保存されます。
プログラムエディタのコマンドプロンプトで、次のように入力します。
READ PROG002
プログラム PROG002 のソースコードがプログラムエディタの編集エリアに表示されます。
DISPLAY ステートメントを、次に太字で示されているソースコード行に置き換えます。
** Example 'PROG002': 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
/*
AT START OF DATA
WRITE 'THE FOLLOWING EMPLOYEES LIVE IN' CITY
END-START
WRITE USING MAP 'MAP003'
/*
END-FIND
ELSE
IF #NAME NE ' '
FIND PERS-VIEW WITH NAME = #NAME
IF NO RECORDS FOUND
REINPUT 'PLEASE TRY ANOTHER NAME.'
END-NOREC
/*
WRITE USING MAP 'MAP002'
/*
END-FIND
END-IF
END-IF
/*
END-REPEAT
END すべての変更を行ったら、プログラムエディタのプロンプトに次のように入力します。
STOW
PROG002 のソースが更新され、カタログ化オブジェクトが作成され、現在のシステムファイル内の現在の Natural ライブラリに保存されます。
PROG002 を実行するには
プログラムエディタのコマンドプロンプトで、次のように入力します。
PROG002
プログラムの実行が始まり、MAP001 が表示されます。
名前「JONES」を入力し、2 番目の入力フィールドは空にします。
Enter キーを押します。
プログラムで生成されるリストに MAP002 が使用されます。
Page 1 07-12-14 17:12:41
NAME: JONES VIRGINIA CITY: TULSA
NAME: JONES MARSHA CITY: MOBILE
NAME: JONES ROBERT CITY: MILWAUKEE
NAME: JONES LILLY CITY: BEVERLEY HILLS
NAME: JONES EDWARD CITY: CAMDEN
NAME: JONES MARTHA CITY: KALAMAZOO
NAME: JONES LAUREL CITY: BALTIMORE
NAME: JONES KEVIN CITY: DERBY
NAME: JONES GREGORY CITY: NOTTINGHAM
|
Enter キーを押します。
MAP001 が表示されます。
名前「JONES」はそのままにし、都市「DERBY」を入力します。
Enter キーを押します。
プログラムで生成されるリストに MAP003 が使用されます。
Page 2 07-12-14 17:15:18
THE FOLLOWING EMPLOYEES LIVE IN DERBY
NAME: JONES FIRST NAME: KEVIN
|
Enter キーを押します。
MAP001 が表示されます。
［Name］フィールドの最初の桁にピリオド（.）を入力します。
［Edit Map］メニューが表示されます。
これで、チュートリアルがすべて完了しました。
