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.