IBM Mainframe Forum Index
 
Log In
 
IBM Mainframe Forum Index Mainframe: Search IBM Mainframe Forum: FAQ Register
 

Duplicate several members of/in one library


IBM Mainframe Forums -> JCL & VSAM
Post new topic   Reply to topic
View previous topic :: View next topic  
Author Message
Auryn

New User


Joined: 11 Jan 2006
Posts: 84
Location: Lower Saxony (DE)

PostPosted: Fri Jun 02, 2023 1:11 pm
Reply with quote

Hello and good morning everybody,

in my JCL proc library I stored some members, let's call'em ALPHA001, BRAVO001, CHARLY01 - and some more.
I'd like do generate circa ten duplicates of them in this library - first of all without caring their content.
Thought I could use IEBCOPY for this that provides "Rename Member While Copying PDS To PDS".
So I tried
Code:
COPY INDD=INLIB,OUTDD=OUTLIB                           
 SELECT MEMBER=((ALPHA001,ALPHA002),(ALPHA001,ALPHA003),
                (ALPHA001,ALPHA004),
                (BRAVO001,BRAVO002),(BRAVO001,BRAVO003),
                (BRAVO001,BRAVO004),
                (CHARLY01,CHARLY02),(CHARLY01,CHARLY03),
                (CHARLY01,CHARLY04))

- both, with and withou continuation sign comma and / or dash.
Note: INLIB and OUTLIB are assigned to the same DSN, both with DISP=SHR.

Sorry, but I was not able to find really proper samples or a unambigous railroad diagram.
So I try and try and try - and error and error and error
» IEB137I CAN NOT SPECIFY DUPLICATE MEMBER NAMES FOR SELECT/EXCLUDE/RENAME
» IEB107I INVALID CONTINUATION
» IEB106I UNEQUAL PARENTHESIS

It seems one of my problems is the limitation of 72 chars each line.
But may I start coding the member names (old,new) in col 20 or so or must I start coding the following member name lines at a specific col further left?

And it seems the only way to be successful is to code a single copy statement for each duplicate.

Is there no other way to specify lots of selected source members and their renamed duplicates?
Back to top
View user's profile Send private message
Joerg.Findeisen

Senior Member


Joined: 15 Aug 2015
Posts: 1335
Location: Bamberg, Germany

PostPosted: Fri Jun 02, 2023 1:25 pm
Reply with quote

Continuation sign is for ex an 'X' in col 72, see manual. icon_wink.gif
Back to top
View user's profile Send private message
Auryn

New User


Joined: 11 Jan 2006
Posts: 84
Location: Lower Saxony (DE)

PostPosted: Fri Jun 02, 2023 2:22 pm
Reply with quote

Joerg.Findeisen wrote:
Continuation sign is for ex an 'X' in col 72, see manual. icon_wink.gif

» Which manual? Where in the web can I find it / its PDF?
» Where is the "X" you mentioned documentated?
» What about the problem with IEB137I CAN NOT SPECIFY DUPLICATE MEMBER NAMES FOR SELECT/EXCLUDE/RENAME
Back to top
View user's profile Send private message
Joerg.Findeisen

Senior Member


Joined: 15 Aug 2015
Posts: 1335
Location: Bamberg, Germany

PostPosted: Fri Jun 02, 2023 2:29 pm
Reply with quote

From DFSMSdfp Utilities manual

To continue the copy control statement, stop at a comma. Put any nonblank character in column 72 and start in column 16 on the next record.
Back to top
View user's profile Send private message
Auryn

New User


Joined: 11 Jan 2006
Posts: 84
Location: Lower Saxony (DE)

PostPosted: Fri Jun 02, 2023 2:57 pm
Reply with quote

Joerg.Findeisen wrote:
From DFSMSdfp Utilities manual

To continue the copy control statement, stop at a comma. Put any nonblank character in column 72 and start in column 16 on the next record.


Thanks, that was helpful, solves most of my problems / questions.
But unfortunately did not solve the question IEB137I

But this works o.k. this way:
Code:
   COPY INDD=INLIB,OUTDD=OUTLIB                                         
    SELECT MEMBER=((ALPHA001,ALPHA002,R),                              X
              (BRAVO001,BRAVO002,R),                                   X
              (CHARLY01,CHARLY02,R))                                   
   COPY INDD=INLIB,OUTDD=OUTLIB                                         
    SELECT MEMBER=((ALPHA001,ALPHA003,R),                              X
              (BRAVO001,BRAVO003,R),                                   X
              (CHARLY01,CHARLY03,R))                                   
   COPY INDD=INLIB,OUTDD=OUTLIB                                         
    SELECT MEMBER=((ALPHA001,ALPHA003,R),                              X
              (BRAVO001,BRAVO004,R),                                   X
              (CHARLY01,CHARLY04,R))                                   
Back to top
View user's profile Send private message
enrico-sorichetti

Superior Member


Joined: 14 Mar 2007
Posts: 10888
Location: italy

PostPosted: Fri Jun 02, 2023 3:49 pm
Reply with quote

Quote:
But unfortunately did not solve the question IEB137I

yes ... it did

what was not clear in the error message you received

Quote:
IEB137I CAN NOT SPECIFY DUPLICATE MEMBER NAMES FOR SELECT/EXCLUDE/RENAME


which is a different way of saying
CAN NOT SPECIFY MULTIPLE TIMES THE SAME MEMBER NAME IN A SELECT/EXCLUDE/RENAME CLAUSE
so you have no reason to complain
Back to top
View user's profile Send private message
Joerg.Findeisen

Senior Member


Joined: 15 Aug 2015
Posts: 1335
Location: Bamberg, Germany

PostPosted: Fri Jun 02, 2023 6:06 pm
Reply with quote

Basically you can also use IDCAMS REPRO IDS/ODS for your requirement.
Back to top
View user's profile Send private message
Willy Jensen

Active Member


Joined: 01 Sep 2015
Posts: 734
Location: Denmark

PostPosted: Fri Jun 02, 2023 11:09 pm
Reply with quote

I much prefer the REPRO subcommand of the PDS86 program in file 182 at CBTTAPE.ORG .
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic View Bookmarks
All times are GMT + 6 Hours
Forum Index -> JCL & VSAM

 


Similar Topics
Topic Forum Replies
No new posts Duplicate transid's declared using CEDA CICS 3
No new posts Calling an Open C library function in... CICS 1
No new posts Submit multiple jobs from a library t... JCL & VSAM 14
No new posts Issue after ISPF copy to Linklist Lib... TSO/ISPF 1
No new posts Newbie Stuck on "Duplicate Datas... TSO/ISPF 5
Search our Forums:

Back to Top