|
View previous topic :: View next topic
|
| Author |
Message |
pradeepkit
Warnings : 1
New User
Joined: 25 Jun 2008
Posts: 60
Location: chennai
|
|
|
|
Hi,
I am copying selective members from a pds to make a rexx backup tool.
I am using iebcopy utility.
COPYMODULE:
ARG INDD,OUTDD,R
CTLCARD.1 = ' COPY OUTDD=SYSUT2,INDD=SYSUT1 SELECT MEMBER=((ARRAY))'
"DELETE '"USERID()".CTLTEMP'"
"ALLOCATE DA('"USERID()".CTLTEMP') FI(CTLCRD) NEW REUSE ",
"SPACE(1 0) TRACKS NEW BLKSIZE(80) RECFM(F,B) LRECL(80)"
"EXECIO 1 DISKW CTLCRD(STEM CTLCARD. FINIS"
"FREE FILE(CTLCRD)"
"ALLOCATE DA('"USERID()".TEMP') FI(SYSPRINT) NEW DELETE REUSE"
"ALLOC FILE(SYSIN) DA('"USERID()".CTLTEMP') SHR REUSE"
IF I <> 0 THEN
"CALL 'SYS1.LINKLIB(IEBCOPY)' ',REGION=1024K'"
"FREE ALL"
TRACE OFF
RETURN
the code used is this . but it is copying the whole of the pds not selecting the particular member.
Can anybody help???????????? |
|
| Back to top |
|
 |
Anuj Dhawan
Superior Member
Joined: 22 Apr 2006
Posts: 6250
Location: Mumbai, India
|
|
|
|
Hi,
I can't help much with REXX but can help with IEBCOPY. You might like to check the below link for IEBCOPY to copy selected member & then appropriate changes in REXX/CLSIT can follow -
ibmmainframes.com/about10496.html
Please use BBcode when You post some code, that's rather readable. |
|
| Back to top |
|
|
superk
Global Moderator
Joined: 26 Apr 2004
Posts: 4652
Location: Raleigh, NC, USA
|
|
|
|
| I have this feeling that SELECT MEMBER should be on a different line by itself. I'll have to run a little test and see ... |
|
| Back to top |
|
|
expat
Global Moderator
Joined: 14 Mar 2007
Posts: 8797
Location: Welsh Wales
|
|
|
|
| Yes, each member should have its own line
|
|
| Back to top |
|
|
gcicchet
Senior Member
Joined: 28 Jul 2006
Posts: 1702
Location: Australia
|
|
|
|
Hi Expat,
you can code multiple members per line
| Code: |
SELECT MEMBER=(A,AA,AAA,AAAAA)
SELECT MEMBER=(AAAA)
|
Gerry |
|
| Back to top |
|
|
|
|
