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.