|
|
| Author |
Message |
pbgunasekar
Warnings : 1
New User
Joined: 28 May 2005
Posts: 28
|
|
|
|
hi all,
i wrote a program to get all members from the PDS mentiones in the PS. but it giving nothing.
please correct the errors.
| Code: |
/* REXX */
"ALLOC DA('PS.contains.pds') F(MAD) SHR REUSE"
"EXECIO * DISKR MAD(STEM GUN. FINIS"
DO I= 1 TO GUN.0
PDS=GUN.I
PDS= "'"STRIP(PDS,"B","'")"'"
SAY PDS
A=0
X = OUTTRAP("LIBMEM.")
ADDRESS TSO "LISTDS "PDS" M"
X = OUTTRAP("OFF")
DO I = 7 TO LIBMEM.0
A = A + 1
ARR.A = LIBMEM.I
SAY ARR.A
END
end.
|
PS.contains.PDS having the values
'pds.aaa.bbb'
'pds.bbbb.ccc'
Please correct the errors. |
|
| Back to top |
|
 |
References
|
|
 |
Paddy
Active User
Joined: 12 Sep 2005
Posts: 54
Location: Paris France
|
|
|
|
Hi friend,
Here the modified code that works at my place, try the and said me this that you some think.
| Code: |
/* REXX */
"ALLOC DA('"Your PS name"') F(MAD) SHR REUSE"
"EXECIO * DISKR MAD(STEM GUN. FINIS"
DO I= 1 TO GUN.0
PDS = GUN.I
PDS = STRIP(PDS,B,)
SAY PDS
A=0
X = OUTTRAP("LIBMEM.")
ADDRESS TSO "LISTDS '"PDS"' M"
X = OUTTRAP("OFF")
DO I = 7 TO LIBMEM.0
A = A + 1
ARR.A = LIBMEM.I
SAY ARR.A
END
END
|
I hope to have to help you
Regards.
Paddy  |
|
| Back to top |
|
|
superk
Moderator Team Head
Joined: 26 Apr 2004
Posts: 3264
Location: Charlotte,NC USA
|
|
|
|
pbgunasekar, a couple of points:
1. Do NOT post code and ask the forum members to fix it for you.
2. Did you not notice that you have a loop within a loop using the same loop control (DO I= 1 TO GUN.0 and DO I = 7 TO LIBMEM.0). Use a different loop control, i.e. DO J = 7 TO LIBMEM.0.
3. You did not mention what the attributes of your input dataset 'PS.contains.pds' are, but unless it is defined as RECFM=VB, or, if there are imbedded blanks after the list of PDS names, then you need to
strip the trailing blanks off. Is your LISTDS command ending with RC(12)? |
|
| Back to top |
|
|
pbgunasekar
Warnings : 1
New User
Joined: 28 May 2005
Posts: 28
|
|
|
|
ok,
hereafter i will take on this. |
|
| Back to top |
|
|
|
|
