このセッションでは、DDM（データ定義モジュール）からフィールド定義をコピーしてマップを作成します。 また、WRITE USING MAP ステートメントを使用できるようにマップ設定を変更します。
DDM フィールドからマップを作成するには
プログラムエディタのコマンドプロンプトで、次のように入力します。
EDIT MAP
［Edit Map］メニューが表示されます。
［Initialize new Map］機能を実行して、MAP002 という名前のマップを作成します。
［Define Map Settings for MAP］画面が開きます。
［Page Size］を「60」に変更します。 ［WRITE Statement］の横の入力フィールドに「X」を入力してマークします。 ［INPUT Statement］の横のフィールドの「X」をスペースキーを使用して削除してマークを解除します。
Enter キーを押します。
［WRITE Statement］オプションがマークされ、このマップは WRITE USING MAP ステートメントを使用するプログラムからの呼び出しのみ可能になります。
Enter キーを 2 回押します。
マップ編集画面が表示されます。
画面最上部の［Ob］入力フィールドの横に、次のように入力します。
V EMPLOYEES
Enter キーを押します。
DDM EMPLOYEES のフィールド定義が表示されます。
Ob V EMPLOYEES Ob D CLS ATT DEL CLS ATT DEL
1 PERSONNEL-ID A8 . T D Blnk T I ?
. FULL-NAME *G1 . A D _ A I )
2 FIRST-NAME A20 . A N ¬ M D &
3 MIDDLE-I A1 . M I : O D +
4 NAME A20 . O I (
5 MIDDLE-NAME A20 .
001 --010---+----+----+---030---+----+----+---050---+----+----+---070---+----
Enter-PF1---PF2---PF3---PF4---PF5---PF6---PF7---PF8---PF9---PF10--PF11--PF12---
Help Mset Exit Test Edit -- - + Full < > Let |
編集エリアに次を入力します。
Ob V EMPLOYEES Ob D CLS ATT DEL CLS ATT DEL
1 PERSONNEL-ID A8 . T D Blnk T I ?
. FULL-NAME *G1 .
2 FIRST-NAME A20 .
3 MIDDLE-I A1 . O D +
4 NAME A20 . O I (
5 MIDDLE-NAME A20 .
001 --010---+----+----+---030---+----+----+---050---+----+----+---070---+----
NAME:(4
(2
Enter-PF1---PF2---PF3---PF4---PF5---PF6---PF7---PF8---PF9---PF10--PF11--PF12---
Help Mset Exit Test Edit -- - + Full < > Let
|
これによりマップに 2 つのフィールドが定義され、その定義内容は DDM からコピーされます。入力されたシーケンス番号 4 により、対応するフィールド NAME の定義がコピーされ、シーケンス番号 2 により対応するフィールド FIRST-NAME の定義がコピーされます。
Enter キーを押します。
DDM のフィールド定義がマップにコピーされます。
Ob V EMPLOYEES Ob D CLS ATT DEL CLS ATT DEL
1 PERSONNEL-ID A8 . T D Blnk T I ?
. FULL-NAME *G1 .
2 FIRST-NAME A20 .
3 MIDDLE-I A1 . O D +
4 NAME A20 . O I (
5 MIDDLE-NAME A20 .
001 --010---+----+----+---030---+----+----+---050---+----+----+---070---+----
NAME:(XXXXXXXXXXXXXXXXXXXX
(XXXXXXXXXXXXXXXXXXXX
Enter-PF1---PF2---PF3---PF4---PF5---PF6---PF7---PF8---PF9---PF10--PF11--PF12---
Help Mset Exit Test Edit -- - + Full < > Let
|
フィールドコマンド「.M」を使用して、編集エリアの 2 行目に配置されているフィールドを、次に示す位置に移動します。
Ob V EMPLOYEES Ob D CLS ATT DEL CLS ATT DEL
1 PERSONNEL-ID A8 . T D Blnk T I ?
. FULL-NAME *G1 .
2 FIRST-NAME A20 .
3 MIDDLE-I A1 . O D +
4 NAME A20 . O I (
5 MIDDLE-NAME A20 .
001 --010---+----+----+---030---+----+----+---050---+----+----+---070---+----
NAME:(XXXXXXXXXXXXXXXXXXXX(XXXXXXXXXXXXXXXXXXXX
Enter-PF1---PF2---PF3---PF4---PF5---PF6---PF7---PF8---PF9---PF10--PF11--PF12---
Help Mset Exit Test Edit -- - + Full < > Let
|
［Ob］入力フィールドの［V］をプラス記号（+）に置き換え、Enter キーを押します。
フィールド定義の次のページが表示されます。
前の手順を繰り返して、フィールド CITY をリストに表示します。 リストを上に 1 ページスクロールするには、［V］をマイナス記号（-）に置き換えます。
次に示すように、「CITY:(2」を入力します。
Ob V EMPLOYEES Ob D CLS ATT DEL CLS ATT DEL
. FULL-ADDRESS *G1 . T D Blnk T I ?
1 ADDRESS-LINE A20 . A D _ A I )
2 CITY A20 . A N ¬ M D &
3 ZIP A10 . M I : O D +
4 POST-CODE A10 . O I (
5 COUNTRY A3 .
001 --010---+----+----+---030---+----+----+---050---+----+----+---070---+----
NAME:(XXXXXXXXXXXXXXXXXXXX(XXXXXXXXXXXXXXXXXXXX CITY:(2
Enter-PF1---PF2---PF3---PF4---PF5---PF6---PF7---PF8---PF9---PF10--PF11--PF12---
Help Mset Exit Test Edit -- - + Full < > Let
|
Enter キーを押します。
画面は次のようになります。
Ob V EMPLOYEES Ob D CLS ATT DEL CLS ATT DEL
. FULL-ADDRESS *G1 . T D Blnk T I ?
1 ADDRESS-LINE A20 . A D _ A I )
2 CITY A20 . A N ¬ M D &
3 ZIP A10 . M I : O D +
4 POST-CODE A10 . O I (
5 COUNTRY A3 .
001 --010---+----+----+---030---+----+----+---050---+----+----+---070---+----
NAME:(XXXXXXXXXXXXXXXXXXXX(XXXXXXXXXXXXXXXXXXXX CITY:(XXXXXXXXXXXXXXXXXXXX
Enter-PF1---PF2---PF3---PF4---PF5---PF6---PF7---PF8---PF9---PF10--PF11--PF12---
Help Mset Exit Test Edit -- - + Full < > Let
|
PF3 キーを押します。
［Edit Map］メニューが表示されます。
該当するメニュー機能を使用してマップ MAP002 を STOW します。
「マップのレイアウトの再利用」に進みます。
