*N/A

tekst (a*)

Een veld waarin zich de te controleren tekst bevindt.

zoek (a*)

De tekst waarnaar gezocht moet worden. De routine kan op dit moment slechts 1 wildcard teken begrijpen, te weten de '*'. Indien met wildcards gewerkt wordt, kan zoek er als volgt uitzien:

• Een * aan het begin, dus *XXXX
  Dit betekent dat XXXX het einde van tekst moet zijn, wil retval de waarde 1 krijgen.
• Een * aan het einde, dus XXXX*
  Dit betekent dat XXXX aan het begin van tekst moet staan, wil retval de waarde 1 krijgen.
• Een * aan beide einden, dus *XXXX*
  Dit betekent dat de tekst XXXX ergens in tekst voor moet komen, wil retval de waarde 1 krijgen.
• Een combinatie van genoemde drie, dus [*]XX[*YY...][*]
  Het betekent dat XX in tekst voor moet komen en YY ook, maar YY moet ná XX voorkomen, wil RETVAL de waarde 1 krijgen. Het gebruik van de wildcard er tussenin, kan ongelimiteerd worden toegepast.

retval (d1)

Een match (1) of geen match (0)

*N/A

while .not.e$_err begin

; Zoek alle klanten met een plaatsnaam
; eindigend op DRECHT (dorDRECHT, zwijnDRECHT, etc.)
if %e$chkwld(klant.plaats, '*DRECHT') begin
   ...
   ...
end

xcall e$ismio (1, chklt, klant)

end

De routine is niet lettergevoelig. Alles wordt intern eerst naar hoofdletters omgezet, voordat er geëvalueerd wordt.