In dieser Sitzung werden Sie eine Maske erstellen, indem Sie Felddefinitionen aus einem Datendefinitionsmodul (DDM) kopieren. Außerdem werden Sie die Maskeneinstellungen so ändern, dass Sie das Statement WRITE USING MAP benutzen können.

Um eine Maske aus DDM-Feldern zu erstellen:

1. Setzen Sie am Eingabeaufforderungszeichen (>) des Programm-Editors das folgende Kommando ab:

   EDIT MAP

   Das Menü Edit Map erscheint:

2. Führen Sie die Funktion Initialize new Map aus, um eine Maske mit dem Namen MAP002 zu erstellen.

   Der Bildschirm Define Map Settings For MAP erscheint.

3. Ändern Sie die Seitenlänge (Page Size) auf 60. Markieren Sie WRITE Statement, indem Sie ein X in das daneben befindliche Eingabefeld eingeben. Entfernen Sie die Markierung bei INPUT Statement, indem Sie das daneben befindliche X durch Drücken der Leertaste überschreiben.

4. Drücken Sie Enter.

   Die WRITE Statement-Option ist markiert, was bedeutet, dass diese Maske nur mit einem WRITE USING MAP-Statement aus einem Programm aufgerufen weren kann.

5. Drücken Sie Enter zweimal.

   Der Masken-Editier-Bildschirm erscheint:

6. Geben Sie neben den Ob-Eingabefeld im oberen Bereich des Bildschirms Folgendes ein:

   V EMPLOYEES

7. Drücken Sie Enter.

   Die Felddefinitionen des Datendefinitionsmoduls (DDM) EMPLOYEES werden aufgelistet:

   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

8. Geben Sie im Editier-Bildschirm Folgendes ein:

   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

   Dadurch werden zwei Felder für die Maske definiert, deren Definitionen aus dem DDM kopiert werden: Die eingegebene Folgenummer 4 bewirkt das Kopieren der Definition des entsprechenden Feldes NAME und die Nummer 2 bewirkt das Kopieren der Definition des entsprechenden Feldes FIRST-NAME.

9. Drücken Sie Enter.

   Die Felddefinitionen werden aus dem DDM in die Maske kopiert:

   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

10. Benutzen Sie das Kommando .M, um das in der zweiten Zeile des Editier-Bereichs befindliche Feld an die unten gezeigte Position zu verschieben:

    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

11. Ersetzen Sie im Ob-Eingabefeld das V durch eine Pluszeichen (+) und drücken Sie Enter.

    Die nächste Seite mit Felddefinitionen wird angezeigt.

12. Wiederholen Sie den vorigen Schritt, bis das Feld CITY in der Liste erscheint. Ersetzen Sie das V durch ein Minuszeichen (-), wenn Sie eine Seite in der Liste nach oben blättern müssen.

13. Geben Sie CITY:(2 so wie unten gezeigt ein:

    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

14. Drücken Sie Enter.

    Der Bildschirm sieht jetzt folgendermaßen aus:

    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

15. Drücken Sie PF3.

    Das Menü Edit Map erscheint.

16. Katalogisieren und speichern Sie die Maske MAP002, indem Sie die Funktion Stow Map ausführen.

Sie können nun fortfahren mit Layout einer Maske wiederverwenden.