View previous topic :: View next topic |
Author |
Message |
venkata Beginner
Joined: 31 Dec 2002 Posts: 16 Topics: 8 Location: India
|
Posted: Mon Apr 28, 2003 8:20 am Post subject: Append the records using JCL |
|
|
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 |
|
|
Dibakar Advanced
Joined: 02 Dec 2002 Posts: 700 Topics: 63 Location: USA
|
Posted: Mon Apr 28, 2003 8:50 am Post subject: |
|
|
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 |
|
|
semigeezer Supermod
Joined: 03 Jan 2003 Posts: 1014 Topics: 13 Location: Atlantis
|
Posted: Mon Apr 28, 2003 9:18 am Post subject: |
|
|
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 |
|
|
venkata Beginner
Joined: 31 Dec 2002 Posts: 16 Topics: 8 Location: India
|
Posted: Mon Apr 28, 2003 11:06 pm Post subject: |
|
|
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 |
|
|
Dibakar Advanced
Joined: 02 Dec 2002 Posts: 700 Topics: 63 Location: USA
|
Posted: Tue Apr 29, 2003 2:26 am Post subject: |
|
|
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 |
|
|
CaptBill Beginner
Joined: 02 Dec 2002 Posts: 100 Topics: 2 Location: Pasadena, California, USA
|
Posted: Tue Apr 29, 2003 11:39 am Post subject: |
|
|
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 |
|
|
|
|