In dieser Sitzung erstellen Sie eine Maske, indem Sie das Layout einer anderen Maske benutzen.

Um eine Maske auf der Basis eines Masken-Layouts zu erstellen:

1. Führen Sie im Menü Edit Map die Funktion Initialize new Map aus, um eine Maske mit dem Namen MAP003 zu erstellen.

2. Ändern Sie im Bildschirm Define Map Settings for MAP die Seitenlänge (Page Size) auf 60, markieren Sie WRITE Statement, und entfernen Sie die Markierung bei INPUT Statement, und geben Sie MAP002 neben Layout ein.

3. Drücken Sie Enter.

   Die Masken-Einstellungen sehen nun folgendermaßen aus:

   16:57:39 Define Map Settings for MAP 2007-12-14 Delimiters Format Context ----------------- --------------------------- -------------------------- Cls Att CD Del Page Size ...... 60 Device Check .... ________ T D BLANK Line Size ...... 79 WRITE Statement X T I ? Column Shift ... 0 (0/1) INPUT Statement _ Layout ......... MAP002__ Help ____________________ dynamic ....... N (Y/N) as field default N (Y/N) Zero Print ..... N (Y/N) Case Default ... UC (UC/LC) Manual Skip .... N (Y/N) Automatic Rule Rank 1 O D + Decimal Char ... . Profile Name .... SYSPROF O I ( Standard Keys .. N (Y/N) Justification .. L (L/R) Filler Characters Print Mode ..... __ ------------------------ Optional, Partial .... Control Var .... ________ Required, Partial .... Optional, Complete ... Required, Complete ... Enter-PF1---PF2---PF3---PF4---PF5---PF6---PF7---PF8---PF9---PF10--PF11--PF12--- Help Exit Let

4. Drücken Sie Enter.

   Der Masken-Editier-Bildschirm erscheint mit dem Layout der Maske MAP002.

5. Löschen Sie CITY:(XXXXXXXXXXXXXXXXXXXX, indem Sie das Feld-Kommando .T benutzen.

6. Verschieben Sie das zweite der verbleibenden Ausgabefelder in die unten gezeigte Position, indem Sie das Feld-Kommando .M benutzen..

   Der Bildschirm sieht dann folgendermaßen aus:

   Ob _ Ob D CLS ATT DEL CLS ATT DEL . . T D Blnk T I ? . . . . . . O D + . . O I ( . . 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

7. Fügen Sie den Text FIRST NAME: so wie unten gezeigt in die Zeile ein:

   Ob _ Ob D CLS ATT DEL CLS ATT DEL . . T D Blnk T I ? . . . . . . O D + . . O I ( . . 001 --010---+----+----+---030---+----+----+---050---+----+----+---070---+---- NAME:(XXXXXXXXXXXXXXXXXXXX FIRST NAME: (XXXXXXXXXXXXXXXXXXXX Enter-PF1---PF2---PF3---PF4---PF5---PF6---PF7---PF8---PF9---PF10--PF11--PF12--- Help Mset Exit Test Edit -- - + Full < > Let

8. Drücken Sie PF3.

   Das Menü Edit Map erscheint.

9. Katalogisieren und speichern Sie die Maske MAP003, indem Sie die Funktion Stow Map ausführen.

Sie können nun fortfahren mit Maske mit WRITE USING MAP aufrufen.