CL: Linie in Loop einlesen

[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

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

[KingofKning]

Ich sach mal "Modularisieren".

Wenn Du das Lesen in ein externes Unterprogramm packst, kannst Du das sooft aufrufen und lesen wie Du willst.

GG

[Joe]

Hallo.

Versuchs mal mit CLOF...

IBM i information center

Gruß joe

[Tobse77]

Hallo.

Versuchs mal mit CLOF...

IBM i information center

Gruß joe

Danke für den Tipp. Klappt aber leider nicht. Objekt-ID kann in DCLF zwar zugeteilt werden, wird aber dann im CLOF nicht gefunden.

[Tobse77]

Ich sach mal "Modularisieren".

Wenn Du das Lesen in ein externes Unterprogramm packst, kannst Du das sooft aufrufen und lesen wie Du willst.

GG

So werde ich's dann wohl tun müssen, wenn es keinen geeigneten CL-Befehl gibt. Dachte halt, wenn RPG schon mit einem CLOSE-Befehl aufwarten kann, dann kann CL das allemal.

[Fuerchau]

CLOF wirkt nur auf vorher mit OPNDBF geöffnete Dateien.
Der interne Open des CLP's läßt sich damit leider nicht schließen.

Man kann auch per TFRCTL an Stelle eines Call's sich selber wieder aufrufen.

In CLLE kann man mit DCLF ... OPNID(MYFILE) einen Namen vergeben, der dann auch per CLOF schließbar ist, der nächste RCVF müsste die dann wieder öffnen.
Probiert habe ich das aber noch nicht.