/* update */ rc=rxfuncadd('sysloadfuncs','rexxutil','sysloadfuncs') rc=sysloadfuncs() rc=sysfiletree("*.htm*","files.","fo") kount = 0 do i = 1 to files.0 fname = files.i buffer=charin(fname,1,1024000) rc=lineout(fname) parse upper var buffer ubuffer if pos("OMAKAU",ubuffer) = 0 then iterate kount = kount + 1 say fname /* parse var buffer a "R D 1, Omakau 9182, Central Otago" b rc=sysfiledelete(fname) say "RC" rc "From Sysfiledelete" fname rc=charout(fname,a || "P.O.Box 17, Dunedin" || b, 1) rc=lineout(fname) */ end say kount