Am einfachsten ist es direkt mit SQL:

/exec sql
select * from artikel
where ArtBez like :Input
/end-exec



Um dies in RPGIII bzw IV zu lösen ist das schon etwas aufwändiger, da OPNQRYF immer wieder neu Durchgeführt werden muss:

1. RPG mit UserEingabe
2. CLP mit OPNQRYF und OVRDBF ... SHARE(*YES)
opnqryf ... QRYSLT(('fieldx *eq %like(' *cat UserI *cat ')')
3. RPG mit Ausgabe in Subfile und Anzeige