In dieser Sitzung werden Sie Verarbeitungsregeln für ein Maskenfeld definieren.
Um Verarbeitungsregeln zu definieren:
Geben Sie im Feld Code des Menüs Edit
Map ein E ein und geben Sie im Feld
Name den Maskennamen MAP001 ein.
Masken-Editier-Bildschirm erscheint jetzt im Split-Screen-Modus und
die Maske MAP001 wird im Editier-Bereich angezeigt.
Geben Sie das Feld-Kommando .P so wie unten
gezeigt ein:
Ob _ Ob D CLS ATT DEL CLS ATT DEL
. . T D Blnk T I ?
. . A D _ A I )
. . A N ¬ M D &
. . M I : O D +
. . O I (
. .
001 --010---+----+----+---030---+----+----+---050---+----+----+---070---+----
*******************************************************************************
(XXXXXXXX PERSONNEL INFORMATION
(XXXXXXXX
PLEASE Enter NAME:.PXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
PLEASE Enter CITY::XXXXXXXXXXXXXXXXXXXX
Enter-PF1---PF2---PF3---PF4---PF5---PF6---PF7---PF8---PF9---PF10--PF11--PF12---
Help Mset Exit Test Edit -- - + Full < > Let |
Drücken Sie Enter.
Der Verarbeitungsregel-Editor erscheint für das Feld, in dem das Kommando eingegeben wurde:
Variables used in current map Mod
#001(A40)
#002(A20)
Rule ________________________________ Field #001
> > + Rank 0 S L 1 Struct Mode
ALL ....+....10...+....+....+....30...+....+....+....50...+....+....+....70.
0010
0020
0030
0040
0050
0060
0070
0080
0090
0100
0110
0120
0130
0140
0150
0160
0170
0180
Enter-PF1---PF2---PF3---PF4---PF5---PF6---PF7---PF8---PF9---PF10--PF11--PF12---
Help Mset Exit Test -- - + Full Sc= Let
|
Geben Sie die folgende Verarbeitungsregel ein:
Rule ________________________________ Field #001
> > + Rank 0 S L 1 Struct Mode
ALL ....+....10...+....+....+....30...+....+....+....50...+....+....+....70.
0010 *
0020 IF & = ' ' REINPUT 'PLEASE TYPE IN A NAME'
0030 MARK *&
0040 END-IF
0050 *
0060
0070
0080
0090
0100
0110
0120
0130
0140
0150
0160
0170
0180
Enter-PF1---PF2---PF3---PF4---PF5---PF6---PF7---PF8---PF9---PF10--PF11--PF12---
Help Mset Exit Test -- - + Full Sc= Let
|
Das kaufmännische Und-Zeichen (&) in der Verarbeitungsregel wird dynamisch durch den Namen des Feldes ersetzt, mit dem die Verarbeitungsregel verknüpft ist.
Drücken Sie Enter und dann PF3.
Der Masken-Editier-Bildschirm erscheint.
Drücken Sie PF4, um die Maske zu testen.
Der Test-Bildschirm erscheint.
Drücken Sie Enter, um die Verarbeitungsregel zu testen.
Die Verarbeitungsregel wird ausgeführt und der in der Regel angegebene Text erscheint:
*******************************************************************************
07-12-14 PERSONNEL INFORMATION
16:04:15
PLEASE ENTER NAME: ________________________________________
PLEASE ENTER CITY: ____________________
*******************************************************************************
PLEASE TYPE IN A NAME |
Anmerkung:
Der Text PLEASE TYPE IN A NAME muss nicht unbedingt
(so wie oben gezeigt) am unteren Bildschirmrand erscheinen. Je nachdem, wie der
Natural-Administrator die Nachrichtenzeile eingestellt hat, kann er auch in
einer anderen Zeile erscheinen.
Geben Sie an der ersten Stelle des Eingabefeldes neben PLEASE
ENTER NAME: ein beliebiges Zeichen ein und drücken Sie
Enter.
Der Test wird beendet und der Masken-Editier-Bildschirm erscheint.
Geben Sie das Feld-Kommando .P an der
gleichen Stelle wie zuvor ein und drücken Sie Enter.
Die Verarbeitungsregel für den Rang (Priorität) 0 des Feldes, in dem das Kommando eingegeben wurde, wird wieder angezeigt.
Geben Sie das Kommando P=5 so wie unten
gezeigt ein:
Rule ________________________________ Field #001
> P=5 > + Rank 0 S 5 L 1 Struct Mode
ALL ....+....10...+....+....+....30...+....+....+....50...+....+....+....70.
0010 *
0020 IF & = ' ' REINPUT 'PLEASE TYPE IN A NAME'
0030 MARK *&
0040 END-IF
0050 *
0060
0070
0080
0090
0100
0110
0120
0130
0140
0150
0160
0170
0180
Enter-PF1---PF2---PF3---PF4---PF5---PF6---PF7---PF8---PF9---PF10--PF11--PF12---
Help Mset Exit Test -- - + Full Sc= Let
|
Drücken Sie Enter.
Die Verarbeitungsregel, der vorher der Rang 0 zugewiesen worden war, erhält jetzt den Rang 5 (die Verarbeitung der Verarbeitungsregeln erfolgt in aufsteigender Reihenfolge und beginnt bei Rang 0).
Geben Sie das Kommando P0 so wie unten
gezeigt ein:
Rule ________________________________ Field #001
> P0 > + Rank 5 S 5 L 1 Struct Mode
ALL ....+....10...+....+....+....30...+....+....+....50...+....+....+....70..
0010 *
0020 IF & = ' ' REINPUT 'PLEASE TYPE IN A NAME'
0030 MARK *&
0040 END-IF
0050 *
0060
0070
0080
0090
0100
0110
0120
0130
0140
0150
0160
0170
0180
Enter-PF1---PF2---PF3---PF4---PF5---PF6---PF7---PF8---PF9---PF10--PF11--PF12---
Help Mset Exit Test -- - + Full Sc= Let
|
Drücken Sie Enter.
Es erscheint jetzt ein leerer Verarbeitungsregel-Editor-Bildschirm, weil zu Rang 0 keine Verarbeitungsregel mehr zugewiesen ist.
Rule ________________________________ Field #001
> > + Rank 0 S L 1 Struct Mode
ALL ....+....10...+....+....+....30...+....+....+....50...+....+....+....70.
0010
0020
0030
0040
0050
0060
0070
0080
0090
0100
0110
0120
0130
0140
0150
0160
0170
0180
Enter-PF1---PF2---PF3---PF4---PF5---PF6---PF7---PF8---PF9---PF10--PF11--PF12---
Help Mset Exit Test -- - + Full Sc= Let
|
Geben Sie die folgende Verarbeitungsregel ein:
Rule ________________________________ Field #001
> > + Rank 0 S 0 L 1 Struct Mode
ALL ....+....10...+....+....+....30...+....+....+....50...+....+....+....70..
0010 *
0020 IF & = MASK ('.') STOP
0030 END-IF
0040 *
0050
0060
0070
0080
0090
0100
0110
0120
0130
0140
0150
0160
0170
0180
Enter-PF1---PF2---PF3---PF4---PF5---PF6---PF7---PF8---PF9---PF10--PF11--PF12---
Help Mset Exit Test -- - + Full Sc= Let
|
Drücken Sie Enter und dann PF3.
Der Masken-Editier-Bildschirm erscheint.
Sie können nun fortfahren mit Felder benennen und Maske speichern/katalogisieren.