PDA

View Full Version : Datei auslesen mit CL-Programme


Jenne
20-10-04, 16:38
Guten Tag Kollegen,
ich möchte per CL Programm eine Datenbank auslesen und via Variablen die Feldinhalte kontrollieren.
Leider habe ich keine Idee wie das möglich ist.

Vielen Dank im Voraus
RobertMack
20-10-04, 20:33
Hallo Jenne,

PGM

DCLF FILE(DATEINAME)

LOOP: RCVF
MONMSG MSGID(CPF0864) EXEC(GOTO CMDLBL(ENDE))

IF COND(&FELD *EQ 'X') THEN(DO)
ENDDO

GOTO CMDLBL(LOOP)

ENDE: ENDPGM

P.S. Durch das Übersetzen stehen automatisch alle Dateifelder zur Verfügung, aus FELD wird &FELD, d.h. es braucht keine DCL.

Viel Erfolg,

Robert
Jenne
21-10-04, 10:21
Danke Robert,

hat toll geklappt !

Gruß
Jenne