Or a combination of SRCHFOR and SAS
//SEARCH EXEC PGM=ISRSUPC,
// PARM=(SRCHCMP,'ANYC,FINDALL,XREF,NOPRTCC,NOSUMS')
//NEWDD DD DSN=<input_dataset>,DISP=SHR
//OUTDD DD DSN=&&LISTING,DISP=(,PASS),SPACE=(CYL,1)
//SYSIN DD *
SRCHFOR '%sysfunc'
SRCHFOR 'getoption'
SRCHFOR 'outfile'
CMPCOLM 1:72
LNCT 45
//STEP010 EXEC SAS8,OPTIONS='noovp nonews ls=79 ps=40',COND=(1,NE)
//SRCHFOR DD DSN=&&LISTING,DISP=(OLD,DELETE)
//SYSIN DD *
data memnames (keep=member) / view=memnames;
infile srchfor;
input;
if scan(_infile_,-2,' ') ne 'IN' then delete;
if input(scan(_infile_,1,' '),?? 6.) ne . then delete;
member = scan(_infile_,-1,' ');
run;
proc sql;
select * from
( select count(member) as number, member
from memnames group by member )
having number = max(number)
order by member
;
quit;
//
With the usual caveats like "one should not rely on output
listings as API", "developed in haste" etc. etc. Should you have
access to SAS you might give it a try.
Sorry for misreading your inital post.
Robert
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html
