Answer Posted / shekar

If the member is in one of the allocated datasets, then the
following REXX would help you:

/* REXX COMMAND TO search the member in the allocated
dataset */
arg
mem

mem = strip
(mem)

say ' '

if (mem = '' | mem = ' ')
then

do

say 'please give the member to be searched as
argument'

exit


end



/*trace
I*/

call on
error

ADDRESS ISPEXEC "CONTROL ERRORS
RETURN"
call
outtrap "LINE."

ADDRESS
TSO "LISTALC"

call
outtrap "OFF"

say mem
N = line.0
a = 0

ADDRESS TSOEXEC
do I = 1 to N
dataset = line.i
fullds = "'"dataset"("MEM")'"
foundmem = SYSDSN(fullds)
if foundmem = 'OK' then
do
a = a + 1
say '"'MEM'" is found in "'dataset'"'
end
end
if a = 0
then
say '"'MEM'" is not found in list of allocated
datasets'
exit



error:

zerrsm = "Return code"
rc
zerrlm = "Return code from command is"
rc
zerralrm
= "YES"
zerrhm
= "*"
address ispexec "SETMSG MSG
(ISRZ002)"
return

How to compare two files in SYNCSORT and on the mismatch record should be deleted from second file.

5475

---

Explain the purpose of the dd keylen parameter?

1099

---

How to pass the parameter in parm using linkage section ? (syntax)?

1069

---

how do you code a null statement?

1275

---

Explain how can a stopped job be started again?

1080

---

What is Cataloged Procedures?

1104

---

In sms datasets, what is the function of the dd mgmtclas keyword?

1340

---

Mention the types of job control statements?

1124

---

How does jcl specify the job to the operating system?

1184

---

How does jcl act on a cobol code?

1104

---

Explain how can the attributes of one sms dataset be copied to another dataset?

1157

---

I want my job (careerride) to be executed in 1 minute and 2 seconds. How do I do that?

1175

---

what is the resolution for sb37 error

8951

---

which parameter is use to declare the name of dataset in dd statement?

1194

---

When output dataset space is required, what quantity categories are used?

1299

---