Hi ,
My requirement is
1. To list out all members of a PDS
2. Find for a word in side the Content of member(this process has to be carried out for all members)
I need to do this in REXX with out using IEBPTPCH utility .
Can you please help me with the Code...........
x = outtrap(stem.)
"listds '"pdsname"' members"
x = outtrap(off)
do i = 7 to stem.0 /* 1 to 6 contains info abt the pds */
member = strip(stem.i)
dset = pdsname||'('||member||')'
/* macronm is the macro which will find strings */
ADDRESS ISPEXEC "edit dataset("dset") macro(macronm)"
end
exit
/************************************/
/* REXX */
RESULT.=''
FILE='ABC.TRAINING.PDS'
X=OUTTRAP("RES.")
ADDRESS TSO "LISTDS ('"FILE"') MEMBERS"
X=OUTTRAP("OFF")
DO I = 7 TO RES.0
RES.I = STRIP(RES.I)
SAY
SAY "CONTENT OF MEMBER : " RES.I
DS = FILE || "(" || RES.I || ")"
END
EXIT