@SET (Format 5) - Datum und Uhrzeit

Mit diesem Format der Anweisung @SET wird Datum oder Uhrzeit ab einer gewünschten Spalte in einer Zeichenfolgevariablen oder in einer Arbeitsdateizeile abgelegt.

Operation	Operanden	F-Modus, L-Modus
@SET	{svarex | lvar} [,col]={DATE [ISO[4] ] | TIME}

svarex	Zeichenfolgevariable (#S0..#S20), in der Datum oder Uhrzeit eingefügt werden sollen. Vorhandene Zeichen in den betroffenen Positionen werden überschrieben.
lvar	Zeilennummervariable (#L0..#L20), die angibt, in welcher Zeile Datum oder Uhrzeit eingefügt werden sollen. Existiert die Zeile noch nicht, wird sie neu angelegt. Vorhandene Zeichen in den betroffenen Positionen werden überschrieben.
col	Spalte, ab der Datum bzw. Uhrzeit abgelegt werden soll. Ist col nicht angegeben, wird ab Spalte 1 eingefügt. Liegt col hinter dem Zeilenende, wird die Zeile bis zur Spalte col mit Leerzeichen aufgefüllt.
DATE	Das aktuelle Datum wird in der angegebenen Zeichenfolgevariablen bzw. Zeile in der gewünschten Form eingefügt. Ist ISO nicht angegeben, wird die Form mm/dd/yyjjj verwendet. Durch mm wird der Monat, durch dd der Tag, durch yy das Jahr und durch jjj der Jahrestag angegeben.
ISO ISO4	gibt an, dass das Datum im Format yy-mm-ddjjj ausgegeben werden soll. gibt an, dass das Datum im Format yyyy-mm-ddjjj ausgegeben werden soll.
TIME	Die Uhrzeit wird in der angegebenen Zeichenfolgevariablen bzw. Zeile in der Form hhmmss abgelegt. Durch hh werden die Stunden, durch mm die Minuten und durch ss die Sekunden angegeben.

Wird durch das Einfügen die maximale Länge von 32768 überschritten, wird die Anweisung mit der Meldung EDT5474 abgewiesen.

Wird die Information in eine Zeile eingefügt, hängt der Zeichensatz von der Arbeitsdatei ab. Hat die aktuelle Arbeitsdatei bereits einen Zeichensatz, wird der Wert in diesem Zeichensatz eingefügt. Ist die Arbeitsdatei leer und hat sie den Zeichensatz *NONE, erhält sie vor dem Einfügen den Zeichensatz EDF041.

Wird die Information in eine Zeichenfolgevariable eingefügt, wird sie vor dem Einfügen in den Zeichensatz der Zeichenfolgevariablen konvertiert.

Bei dieser Anweisung darf der Anweisungsname ganz entfallen. Im F-Modus darf zusätzlich auch das Anweisungssymbol fehlen.

Beispiel

1.     @SET #L0 = 1 -------------------------------------------------- (1)
1.     @SET #L0 = DATE ----------------------------------------------- (2)
1.     @SET #L0 ,13 = DATE ISO --------------------------------------- (3)
1.     @SET #S0 = TIME ----------------------------------------------- (4)
1.     @SET #S0 ,13 = DATE ISO4 -------------------------------------- (5)
1.     @PRINT 1 ------------------------------------------------------ (6)
1.0000 02/07/06038 06-02-07038
1.     @PRINT #S00 --------------------------------------------------- (7)
  #S00 165941      2006-02-07038

(1)	Der Zeilennummervariablen #L0 wird der Wert 0001.0000 zugewiesen.
(2)	In die Zeile 1 wird ab Spalte 1 das Datum eingefügt.
(3)	In die Zeile 1 wird ab Spalte 13 das Datum im ISO-Format eingefügt.
(4)	In die Zeichenfolgevariable #S00 wird ab Spalte 1 die Uhrzeit eingefügt.
(5)	In die Zeichenfolgevariable #S00 wird ab Spalte 13 das Datum im ISO4-Format eingefügt.
(6)	Zeile 1 wird ausgegeben
(7)	Zeichenfolgevariable #S00 wird ausgegeben.