@SEQUENCE (Format 1) - Zeilen nummerieren

Die Anweisung @SEQUENCE (Format 1) bewirkt, dass der EDT in jede Zeile eines zusammenhängenden Zeilenbereichs eine Zahl schreibt.
In die erste Zeile des Zeilenbereichs wird eine vorgegebene, maximal 8-stellige Zahl geschrieben (eventuell mit führenden Nullen), die auch die Stellenzahl aller folgenden Zahlen festlegt. Alle folgenden Zahlen sind jeweils die Summe aus der vorhergehenden Zahl und einer vorgegebenen Schrittweite. Würde dabei eine Zahl mit einer größeren Stellenzahl als die der Startzahl entstehen, werden von rechts nur so viele Stellen genommen, wie die Startzahl hat.

Diese Anweisung überschreibt den etwaigen Inhalt der Spalten, in die die Zahlen geschrieben werden.

Operation	Operanden	F-Modus, L-Modus
@SEQUENCE	[ {lines | svars} ] [: [col] [: [n1] [(n2)] ] ]

lines svars	In jede Zeile des angegebenen Zeilenbereichs schreibt der EDT eine Zahl. In jede Zeichenfolgevariable des angegebenen Bereichs von Zeichenfolgevariablen schreibt der EDT eine Zahl.
col	Der Operand gibt die Spalte an, in der die erste Ziffer der zu schreibenden Zahl stehen soll. Hat eine Zeile des angegebenen Zeilenbereichs weniger Spalten, als durch den Operand col spezifiziert, so werden die Spalten zwischen dem bisherigen Zeilenende und der Spalte col mit Leerzeichen aufgefüllt. Fehlt der Operand col, schreibt der EDT die erste Ziffer in Spalte 73.
n1	Der Operand gibt die Ganzzahl an, die der EDT in die erste Zeile des betrachteten Zeilenbereichs als Dezimalzahl schreibt. Der Operand n1 darf maximal 8 Stellen haben (eventuell mit führenden Nullen). Die Zahlen, die in die folgenden Zeilen geschrieben werden, haben die gleiche Stellenanzahl. Fehlt der Operand n1, schreibt der EDT in die erste betrachtete Zeile die Zahl 00000100.
n2	Der Operand gibt die ganzzahlige Schrittweite zur Bildung der folgenden Zahlen an. Diese sind jeweils die Summe aus der vorhergehenden Zahl und der Schrittweite, wobei von rechts nur so viele Stellen genommen werden, wie die Startzahl n1 aufweist. Fehlt der Operand n2, nimmt der EDT als Schrittweite den Wert 100.

Fehlt sowohl der Operand lines als auch der Operand svars, schreibt der EDT in jede Zeile der aktuellen Arbeitsdatei eine Zahl.

Wird die Anweisung mit [K2] unterbrochen und der EDT-Lauf mit /INFORM-PROGRAM fortgesetzt, so wird die Bearbeitung der Anweisung abgebrochen und die Meldung EDT5501 ausgegeben.

Hinweis

Ob die durch die Anweisung @SEQUENCE (Format 1) erzeugte Zahlenfolge aufsteigend, absteigend oder konstant ist, hängt von der Wahl des Startwerts und der Schrittweite ab. So erzeugt der Startwert 0100 und die Schrittweite 100 die aufsteigende Zahlenfolge 0100, 0200, 0300, usw., zumindest bis zum Wert 9900.
Danach springt der Wert auf 0000 und es geht danach wieder mit 0100, 0200 usw. weiter.
Wählt man als Startwert die Zahl 999 und als Schrittweite die Zahl 998, entsteht eine absteigende Folge von Zahlen und zwar 999, 997, 995, usw. Nachdem die Zahl 001 erreicht wurde ist die nächste Zahl wieder 999 und Zahlenfolge beginnt von vorn.

Das gleiche Ergebnis erhält man auch, wenn man im vorangehenden Beispiel die Schrittweite z.B. auf 3998 setzt, da die führende 3 bei jeder neuen Zahlenbildung wegfällt.
Eine alternierende Zahlenfolge erhält man z.B. durch den Startwert 3 und die Schrittweite 5: 3, 8, 3, 8, usw. Eine konstante Zahlenfolge erhält man am einfachsten durch die Wahl der Schrittweite 0.