How to combine two gdg 's into a single gdg?

Guest

• Jun 14th, 2006

 

Hi,

This is very simple.Please use the JCL to merge both the GDG's into a new GDG.

//S1    EXEC PGM=ICETOOL
//TOOLMSG   DD SYSOUT=*
//DFSMSG    DD SYSOUT=*
//IN1 DD DSN=...  GDG1,DISP=SHR
//    DD DSN=...  GDG2,DISP=SHR

//OUT DD DSN=GDG NEW,DISP=SHR 
//TOOLIN DD *
SORT FROM(IN1) TO(OUT) USING(CTL1)
/*
//CTL1CNTL DD *
  SORT FIELDS=COPY

Thank you

Krishy

jvsamycts

 Profile Answers by jvsamycts 

• Oct 10th, 2009

 

Use IEBGENER and give the two gdg's in SYSUT1 and concatenated gdg will be created in SYSUT2. SYSIN should be DD DUMMY.

vinod.thete

 Profile Answers by vinod.thete 

• Aug 31st, 2013

 

We can achieve using ICEGENER Utility also

Code
//step   EXEC   PGM = ICEGENER


//SYSUT1 DD DSN=AISSTMP.MILN.TEST(0),


//                 DISP=SHR


//             DD DSN=AISSTMP.MILN.TEST(1),


//                 DISP=SHR


//SYSOUT DD DSN=AISSTMP.MILN.TESTOUT,


//                 DISP=OLD


//SYSOUT DD SYSOUT=*


//SYSOUT DD DUMMY


 

Note : correct me if i am wrong

PK.Ganapathy

• Jan 7th, 2015

 

There are multiple utilities. Personally, I use SORT with SORTIN to include the 2 GDGs, and the SORTOUT with the output GDG. Your SYSIN will be SORT FIELDS=COPY

Code
//SORTIN DD DISP=SHR,DSN=<gdg1>



//               DD DISP=SHR,DSN=<gdg 2>



//SORTOUT DD DISP=(NEW,CATLG),DSN=<new gdg(+1)>,SPACE=<space parms>



//SYSIN DD *



SORT FIELDS=COPY