*RDMASK Prozedurvariable über FHS-Format verändern
*RDMASK (format [,bibl] ) [TAR=n,] [&var1, &var2, ... ]
Die Anweisung *RDMASK gibt am Bildschirm ein FHS *-Format aus, wobei die Inhalte der angegebenen Prozedurvariablen in den variablen Feldern des FHS-Formats angezeigt werden. Nach dem Senden des Formats mit der Datenübertragungstaste ENTER werden die Inhalte der modifizierbaren Maskenfelder in die angegebenen Prozedurvariablen zurückübertragen. Hierbei wird das erste Eingabefeld der Maske in die als erstes angegebene Prozedurvariable übertragen, das zweite Maskenfeld in die zweite Prozedurvariable, usw.
format Formatname der FHS-Maske in der CFSLIB.
(format,bibl) Formatname der FHS-Maske in der angegebenen Formatbibliothek.
TAR=n Tabulator rechts. Nach Ausgabe der Maske steht der Cursor standardmäßig im ersten Eingabefeld (TAR=0). Mit dem Parameter TAR=n (n = 1, 2, ...) wird der Cursor in das zweite (TAR=1), dritte (TAR=2) usw. Eingabefeld der Maske positioniert.
Der Parameter kann in der Regel weggelassen werden.
&var1 Name der mit dem Inhalt des ersten Maskenfeldes zu füllenden Prozedurvariablen. Falls die Variable noch nicht existiert, wird sie von CFS als Leervariable neu angelegt. Es ist zu beachten, daß der Datenteil von CFS-Prozedurvariablen maximal 80 Bytes umfaßt. Hieraus ergibt sich, daß längere Maskenfelder bei der Übertragung in die Prozedurvariable gekürzt werden. Bei der Ausgabe der Maske werden die Inhalte der Prozedurvariablen in den entsprechenden Maskenfeldern dargestellt.
Falls mehr variable Felder in der Maske existieren als Prozedurvariablen angegeben wurden, so gehen die Eingaben in den überschüssigen Maskenfeldern verloren.
Hinweise:
Um die in der RDMASK-Maske betätigte Datenübertragungstaste abzufragen ist nach *RDMASK die CFS-interne Variable &RDMASKIN auszuwerten. Dazu ist die folgende Anweisung anzugeben: *IF &RDMASKIN = t-bez SKIP .label
Beispiel: *IF &RDMASKIN = K1 SKIP .ENDE
In der Anweisung *RDMASK dürfen als Eingabeparameter keine CFS-internen Variablen wie z.B. &DATE, &TIME angegeben werden. Ausnahme: &CFSMSG.
Vor der ersten Anwendung einer *RDMASK-Anweisung muß per File-Kommando die MFHSROUT-Bibliothek zugewiesen werden: /FILE bibl,LINK=MROUTLIB
Mit der Anweisung *RDMASK können nur mit FHS definierte *-Formate ausgegeben werden. Bei der Erstellung eines FHS *-Formats mit IFG sind folgende Besonderheiten zu beachten: In der Maske "Adressierungshilfen, Benutzerprofil, Standardwerte zur Einsatzvorbereitung für FHS" sind im Abschnitt "Struktur des Datenübergabebereichs" folgende Eintragungen notwendig:
getrennte Attributblöcke und Feldinhalte : NEIN
ausgerichtet , mit Attributfeldern : NEIN
nicht ausgerichtet , mit Attributfeldern : NEIN
nicht ausgerichtet , ohne Attributfelder : JA
Entsprechende Angaben sind notwendig bei der Definition des Formats mit FHS-Makros.
Die Anweisung *RDMASK kann auch zum bloßen Ausgeben einer FHS-Maske in einer CFS-Prozedur verwendet werden: *RDMASK (format,bibl)
Die Anweisung *RDMASK kann innerhalb der Prozedur über mehrere Zeilen fortgesetzt werden. Als Fortsetzungszeichen ist '-' zu verwenden. In der Fortsetzungszeile wird ein * als erstes Zeichen erwartet.