演習 5
ここでは mylookup ルーチンを使用します。このルーチンは、名前、電話番号、誕生日を検索します。以下に、記述が必要なプロシージャの名前と用途を示しています。
-
新規にルーチンを作成します。データ入力ルーチンと同様に、最初に main セクション (プロシージャではなく) を使用します。残りのコードは、getsubmit、help、dob、および display の 4 つの部分で構成します。
-
main セクションには getsubmit を呼び出すループがあり、ユーザに文字入力を要求します。このバージョンでは、ユーザが ? を入力するとヘルプが表示され、誕生日を入力するか、あるいは Enter を押して終了します。$$validDOB^mydatent() を使用して誕生日を検証します。ユーザが ? を入力すると help プロシージャにより、他の検索データ (ここでは誕生日のみ) を表示します。
-
ユーザが有効な誕生日を入力すると、dob プロシージャは誕生日の内部形式が ^PersonI に存在するかどうかを検証し、インデックスをループして、同じ誕生日を持つ個人 ID すべてを検索します。個人データは display プロシージャで表示されます。このプロシージャはパラメータとして ID を受け入れ、個人データをすべて表示します。
詳細を表示するには、下記をクリックします。