CL: Linie in Loop einlesen

[B.Hauser]

... es soll außerdem noch Firmen geben die noch nicht Release V5R3 haben oder alles auf Release V5R2 runterwandeln müssen und somit noch keine Lese-Schleifen in CL einsetzen können.

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

Birgitta

[BenderD]

... muss es denn unbedingt CL sein?

D*B

dessen Magen momentan wegen intensiver Beschäftigung mit binary huddle, shudder und modder etwas nervös ist, was einem da von der Datenbank so alles in ein SQL Client Integration Exit Program reingeworfen wird und welchen Datenkompost die da zurück haben wollen...

... es soll außerdem noch Firmen geben die noch nicht Release V5R3 haben oder alles auf Release V5R2 runterwandeln müssen und somit noch keine Lese-Schleifen in CL einsetzen können.

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

Birgitta

[Pikachu]

... muss es denn unbedingt CL sein?

CL ist manchmal ganz praktisch, und da gibts einige Fälle in denen man dann doch sowas wie einen GOTO braucht.

[holgerscherer]

dessen Magen momentan wegen intensiver Beschäftigung mit binary huddle, shudder und modder etwas nervös ist, was einem da von der Datenbank so alles in ein SQL Client Integration Exit Program reingeworfen wird und welchen Datenkompost die da zurück haben wollen...

Wenn Du eine Selbsthilfegruppe brauchst, ruf mal Rolf B. an, der hat mir gestern auch sein Leid geklagt

-h

[AS400.lehrling]

Ist es denn gänzlich unüblich für solche Sachen ein RPG zu schreiben , zb als Modul um daraus ein Service PGM zu machen ?

Gruß AS400.lehrling

[Pikachu]

Vielleicht ginge ja auch was mit SQL oder Java oder beidem.

[andreaspr@aon.at]

Oder ein WebService, dass dann über ein Java-PGM aufgerufen wird

[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)