Cobol - Source

[CAS]

So hier nun zu meinem Prob:
Es ist ein einfacher cobol Source doch diese
:mad: Spache liegt mir einfach nicht!

Ich verstehe folgende Zeile nicht:
Perform Varying sub from 1 by 1 until sub = n

Also my question:Was ist varying, und sub from 1 by 1?
THX im voraus.

[juggler]

@CAS ,das ist eine ganz einfache Zählschleife

Perform varying = Anweisung
sub = Zählvariable
from 1 by 1 = Startwert und Schrittweite, also beginne bei 1 und erhöhe bei jedem Durchgang um den Wert 1
until sub = n Endebedingung, wenn Var. sub der Var n entspricht.

Ich hoffe, ich konnte Dir helfen.

juggler

[juggler]

Ja damit hat es zu tun. Es ist einfach eine der vielen Varianten in Cobol eine Schleife zu verwenden. Bei der Konstruktion kannst Du in einer Anweisung alle relevanten Angaben loswerden. Um die sonstigen Verwaltungstätigkeiten, wie Erhöhung des Zählers brauchst Du Dich nicht mehr zu kümmern. Du könntest die Schleife auch so proggen:

move 1 to sub
move 100 to n (zum Beispiel)
perform test before until sub = n
anweisung 1
anweisung 2
....
add 1 to sub
end perform

Du spart Dir halt damit 3 Codezeilen. Einen Nachteil gibt es allerdings. Der Wert der Variablen sub wird in der Variante mit varying vom System verwaltet und kann normalerweise vom Programmierer nicht geändert werden. Ein Veränderung kann zum Absturz führen oder auch schlicht ignoriert werden. Alles ist möglich.

Während bei meinem Beispiel jederzeit während des Schleifendurchlaufs der Wert von sub neu gesetzt werden kann.

Falls Du mehr Infos zur Perform-Anweisung brauchst muß ich leider passen, ich habe mich seit ein paar Jahren nicht mehr mit Cobol befaßt und kenne nicht mehr alle Varianten. Ich müßte erstmal im Keller mein privates PC-Antiquariat durchstöbern, da liegen sicherlich noch ein paar Bücher. Dazu habe ich aber heute keine Lust mehr.

juggler