Appreciate your concern about good IT practices,
but let me re-re-phrase my need, the thing is I needed the 'string' given in SYSIN which is not found in any of the members of PDS containing 1000's members,
that's why I required a code that stops after the first match for each string, and as I already mentioned I simply cannot use this in Production env.
also I needed this code to search for my own purpose not to promote anywhere...