Maske für WRITE erstellen und Feld-Definitionen kopieren

#### Search Results

Search

# Maske für WRITE erstellen und Feld-Definitionen kopieren

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.