CL: Wert aus Tabelle holen

[linguin]

Hallo,

jetzt habe ich das nächste Problem:

Ich muss aus der Tabelle "WERTE" aus einem CL einen Wert abfragen:

Tabelle WERT:

Fa Wert
10 ABC
20 XYZ

Die Firma habe ich als Parameter bereits im CL. Jetzt brauch ich noch den Wert dazu. Es gibt für jede Fa. nur 1x den Wert dazu. dh. Es können keine 2 Werte zurückgegeben werden.

Danke !!

[kuempi von stein]

so mal ganz grob:


DCLF FILE(WRKLIB/WERT)

.....

LESEN: RCVF
MONMSG MSGID(CPF0864) EXEC(GOTO RAUS) /* DATEI-ENDE */

/* AUS DEM GELESENEN SATZ Daten extrahieren */
/* &FIRMA oder &WERT hier im Zugriff */
/* Hier also was mit IF und GOTO oder was auch immer */

GOTO LESEN

RAUS:

......

k.

[Khholm]

Wenn nur ein Datensatz gelesen werden soll, geht es auch so

Marke . . . . . . . . . . . . .
Überschriebene Datei . . . . . . > MCB0P Name
Überschr. mit Datenbankdatei . . *FILE Name, *FILE
Bibliothek . . . . . . . . . . Name, *LIBL, *CURLIB
Überschreibungsteildatei . . . . Name, *FIRST, *LAST, *ALL
Startposition in Datei:
Abrufreihenfolge . . . . . . . > *KEYAE *NONE, *START, *END, *RRN...
*RRN-Satznr.*KEY-Schl.feldanz. > 3 Zahl
*KEY-Satzformat mit Schlüssel > MCB0F Name
*KEY-Schlüsselwert . . . . . . > 'TAGV001 '

mit dem passenden Schlüsselwert sollte dann genau der passende Satz gefunden werden



Karl-Heinz

[Pikachu]

Befehl OVRDBF, Parameter siehe voriger Beitrag. ;)