In dieser Sitzung definieren Sie die Eigenschaften eines Feldes.
Um die Eigenschaften eines Feldes zu definieren:
Geben Sie im Feld Code im Menü Edit
Map ein E und im Feld Name den
Maskennamen MAP001 ein (falls der nicht schon eingegeben ist).
Der Masken-Editier-Bildschirm erscheint und die Maske
MAP001 wird im Editier-Bereich angezeigt.
Geben Sie zusätzlichen Text 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::XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
PLEASE Enter CITY::XXXXXXXXXXXXXXXXXXXX
TYPE IN?. TO STOP OR?? FOR HELP.
Enter-PF1---PF2---PF3---PF4---PF5---PF6---PF7---PF8---PF9---PF10--PF11--PF12---
Help Mset Exit Test Edit -- - + Full < > Let
|
Das fett markierte Fragezeichen (?) ist das Begrenzungszeichen (Delimiter) für hervorgehobene Textfelder.
Geben Sie das Feld-Kommando .E 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:.EXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
PLEASE Enter CITY::XXXXXXXXXXXXXXXXXXXX
TYPE IN?. TO STOP OR?? FOR HELP.
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 erweiterte Feld-Editier-Bereich zu dem Feld, in dem das Kommando eingegeben wurde, erscheint:
Fld #NAME Fmt A40
-------------------------------------------------------------------------------
AD= MIT'_'____ ZP= SG= HE= _____________________ Rls 2
AL= _____ CD= __ CV= ________________________________ Mod User
PM= __ DF= DY= ______________________________
EM= __________________________ SB= ________________________________
001 --010---+----+----+---030---+----+----+---050---+----+----+---070---+----
*******************************************************************************
(XXXXXXXX PERSONNEL INFORMATION
(XXXXXXXX
PLEASE Enter NAME:.EXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
PLEASE Enter CITY::XXXXXXXXXXXXXXXXXXXX
TYPE IN?. TO STOP OR?? FOR HELP.
Enter-PF1---PF2---PF3---PF4---PF5---PF6---PF7---PF8---PF9---PF10--PF11--PF12---
HELP Mset Exit <--- ---> -- - + < > Let |
Ersetzen Sie im Feld Fmt den aktuellen Wert durch
A20, und geben Sie im Feld HE= den Wert
'HELP001' (in Hochkommas) so wie unten gezeigt ein:
Fld #NAME Fmt A20
-------------------------------------------------------------------------------
AD= MIT'_'____ ZP= SG= HE= 'HELP001'____________ Rls 2
AL= _____ CD= __ CV= ________________________________ Mod User
PM= __ DF= DY= ______________________________
EM= __________________________ SB= ________________________________
001 --010---+----+----+---030---+----+----+---050---+----+----+---070---+----
*******************************************************************************
(XXXXXXXX PERSONNEL INFORMATION
(XXXXXXXX
PLEASE Enter NAME:.EXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
PLEASE Enter CITY::XXXXXXXXXXXXXXXXXXXX
TYPE IN?. TO STOP OR?? FOR HELP.
Enter-PF1---PF2---PF3---PF4---PF5---PF6---PF7---PF8---PF9---PF10--PF11--PF12---
HELP Mset Exit <--- ---> -- - + < > Let |
Drücken Sie Enter.
Der erweiterte Feld-Editier-Bereich verschwindet. HELP001
(die noch zu erstellen ist) wird als Helproutine/Hilfe-Maske zu dem Feld
zugewiesen und die Feldlänge wird auf 20 verringert:
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::XXXXXXXXXXXXXXXXXXXX
PLEASE Enter CITY::XXXXXXXXXXXXXXXXXXXX
TYPE IN?. TO STOP OR?? FOR HELP.
Enter-PF1---PF2---PF3---PF4---PF5---PF6---PF7---PF8---PF9---PF10--PF11--PF12---
Help Mset Exit Test Edit -- - + Full < > Let |
Drücken Sie PF3 zweimal.
Das Menü Edit Map erscheint.
Katalogisieren und speichern Sie die Maske MAP001, indem
Sie die Funktion ausführen.
Sie können nun fortfahren mit Hilfe-Maske erstellen und testen.