CL: Linie in Loop einlesen

[cbe]

...wie das dann ohne GOTO gehen soll, das würde ich doch mal gerne sehen

na klar kann man ohne GOTO die ersten 5 Zeilen lesen:

RCVF
RCVF
RCVF
RCVF
RCVF

[malzusrex]

Ich entschuldige mich hiermit ganz öffentlich für das böse Wort
GOTO

Gruß
Ronald

[RobertMack]

PGM
DCL VAR(&COUNT) TYPE(*DEC) LEN(2 0)

DOUNTIL COND(&COUNT *EQ 5)
CHGVAR VAR(&COUNT) VALUE(&COUNT + 1)
/* */
ENDDO

ENDPGM

[KingofKning]

na klar kann man ohne GOTO die ersten 5 Zeilen lesen:

RCVF
RCVF
RCVF
RCVF
RCVF

Naja Er sagte ja zum Beispiel Zeile 1 - 5 wenn er aber 10 - 20 haben will......

Außerdem bin ich mit goto groß geworden und selbst in Cobol habe ich es ab und zu benutzt.
Und wenn ich mir so manchen Code von heute anschaue besonders das alte RPG dann finde ich das eine oder andere alte Basic noch besser.

Ich sach ja früher war alles besser......

GG

[Tobse77]

Hallo zusammen,
habe hierzu noch eine weiterführende Frage.
Wenn ich die in deklarierte File im Zuge des CLs neu fülle und anschließend nochmals einlesen möchte, bekomme ich sofort CPF0864.
Würde die Datei gerne mit etwas wie ENDRCV (geht nur für DSPF), CLOSE oder RCL** zurücksetzen, so dass ich sie wiederholt einlesen kann.
Kann mir jemand weiterhelfen?

DCLF FILE(ftplib/LSOUTPUT)
CHGCURLIB CURLIB(ftplib)
/* Verzeichnis auf Webserver auf Lockfile prüfen */
AGAIN:CLRPFM FILE(lib/QCLSRC) MBR(FTPWEBLOG)
OVRDBF FILE(INPUT) TOFILE(lib/QCLSRC) MBR(FTPWEB1)
OVRDB FFILE(OUTPUT) TOFILE(lib/QCLSRC) MBR(FTPWEBLOG)
FTP RMTSYS('255.255.255.0') CCSID(*DFT)
--> Input:
Benutzername Passwort
lcd ftplib
ls (disk
quit

/* Datei lesen */
NEXT: RCVF
/* Wenn Dateiende erreicht, export.lock nicht gefunden! */
MONMSG MSGID(CPF0864) EXEC(GOTO CMDLBL(IMPORT))
CHGVAR VAR(&LOGFILE) VALUE(%SST(&LSOUTPUT111))
IF COND(&LOGFILE='export.lock') THEN(do)
DLYJOB DLY(5)
GOTOCMDLBL(AGAIN)
enddo
GOTO CMDLBL(NEXT)