View Full Version : CL: Linie in Loop einlesen
...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
:D
Ich entschuldige mich hiermit ganz öffentlich für das böse Wort
GOTO
Gruß
Ronald
:)
holgerscherer
12-08-10, 10:37
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 <g>
-h
AS400.lehrling
12-08-10, 10:42
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
Vielleicht ginge ja auch was mit SQL oder Java oder beidem. ;)
andreaspr@aon.at
12-08-10, 11:13
Oder ein WebService, dass dann über ein Java-PGM aufgerufen wird ;)
RobertMack
12-08-10, 11:51
PGM
DCL VAR(&COUNT) TYPE(*DEC) LEN(2 0)
DOUNTIL COND(&COUNT *EQ 5)
CHGVAR VAR(&COUNT) VALUE(&COUNT + 1)
/* :) */
ENDDO
ENDPGM
KingofKning
12-08-10, 14:47
na klar kann man ohne GOTO die ersten 5 Zeilen lesen:
RCVF
RCVF
RCVF
RCVF
RCVF
:D
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
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
15-02-11, 10:03
Ich sach mal "Modularisieren".
Wenn Du das Lesen in ein externes Unterprogramm packst, kannst Du das sooft aufrufen und lesen wie Du willst.
GG