CL: Wert aus Tabelle holen

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