MVSFORUMS.com Forum Index MVSFORUMS.com
A Community of and for MVS Professionals
 
 FAQFAQ   SearchSearch   Quick Manuals   RegisterRegister 
 ProfileProfile   Log in to check your private messagesLog in to check your private messages   Log inLog in 

Append the records using JCL

 
Post new topic   Reply to topic   printer-friendly view    MVSFORUMS.com Forum Index -> Job Control Language(JCL)
View previous topic :: View next topic  
Author Message
venkata
Beginner


Joined: 31 Dec 2002
Posts: 16
Topics: 8
Location: India

PostPosted: Mon Apr 28, 2003 8:20 am    Post subject: Append the records using JCL Reply with quote

Hi friends,

I have 2 PDSs and each one has a member that contains 20000 lines. I tried to append the records using cut and paste. But I was getting some ABEND code and I couldn't the paste the lines.

Can anybody provide the solution to accomplish my task?

Thanks in Advance,
Venkata
Back to top
View user's profile Send private message
Dibakar
Advanced


Joined: 02 Dec 2002
Posts: 700
Topics: 63
Location: USA

PostPosted: Mon Apr 28, 2003 8:50 am    Post subject: Reply with quote

venkata,

You can open one dataset1 in edit mode and use "COPY 'DATASET2'" edit command with an (A)fter or (B)efore line command as you do with cut and paste.

Diba.
Back to top
View user's profile Send private message Send e-mail
semigeezer
Supermod


Joined: 03 Jan 2003
Posts: 1014
Topics: 13
Location: Atlantis

PostPosted: Mon Apr 28, 2003 9:18 am    Post subject: Reply with quote

The error was probably an out of storage error. I suppose there are many ways to do this, but an easy JCL solition is just a bunch of ICEGENER steps.
1) Copy the contents to a temp sequential file because you can't append to a PDS member
2) append the new data (DISP=MOD)
3) copy back to the original PDS.
Depending on your data source, 1 & 2 can be combined by concatenation on SYSUT1.
Back to top
View user's profile Send private message Visit poster's website
venkata
Beginner


Joined: 31 Dec 2002
Posts: 16
Topics: 8
Location: India

PostPosted: Mon Apr 28, 2003 11:06 pm    Post subject: Reply with quote

Dibakar

I tried with ur suggestion, But again same ABEND CODE I got.

Semigeezer,

Can you elaborate ur explanation, b'caz I am poor at JCL?



Thanks,
Venkata
Back to top
View user's profile Send private message
Dibakar
Advanced


Joined: 02 Dec 2002
Posts: 700
Topics: 63
Location: USA

PostPosted: Tue Apr 29, 2003 2:26 am    Post subject: Reply with quote

Venkata, Try this ...

Code:
//MERGEJCL  JOB (09002T),'MERGING FILES',MSGCLASS=X,CLASS=B,
//             NOTIFY=&SYSUID
//MERGE     EXEC PGM=IEBGENER
//SYSUT1    DD DSN=BOTTOM.DATASET.NAME,DISP=SHR
//SYSUT2    DD DSN=TOP.DATASET.NAME,DISP=MOD
//SYSIN     DD *
//SYSPRINT  DD SYSOUT=*
//AMSDUMP   DD SYSOUT=*


SYSUT2 will contain combined output.
Diba.
Back to top
View user's profile Send private message Send e-mail
CaptBill
Beginner


Joined: 02 Dec 2002
Posts: 100
Topics: 2
Location: Pasadena, California, USA

PostPosted: Tue Apr 29, 2003 11:39 am    Post subject: Reply with quote

Venkata,

What is the exact abend you are getting? Knowing that would go a long way in resolving your problem.

Please tell us what it is.
Back to top
View user's profile Send private message Send e-mail Visit poster's website
Display posts from previous:   
Post new topic   Reply to topic   printer-friendly view    MVSFORUMS.com Forum Index -> Job Control Language(JCL) All times are GMT - 5 Hours
Page 1 of 1

 
Jump to:  
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum


MVSFORUMS
Powered by phpBB © 2001, 2005 phpBB Group