Can CA File Master Plus copy multiple GDGs to one GDG?

Document ID : KB000047354
Last Modified Date : 14/02/2018
Show Technical Document Details

Question:

Can CA File Master Plus copy multiple GDGs to one GDG?

 

Answer:

See the two following sample JCL for CA File Master Plus copy GDGs in Batch (CAWABATC):

000006 //*******************************************************************
000007 //*** CA FILE MASTER PLUS - COPY A GDG FILES
000008 //*******************************************************************
000009 //COPY EXEC PGM=CAWABATC,REGION=2M
000010 //STEPLIB DD DSN=hlq.CDBILOAD,DISP=SHR
000011 //*
000012 //SYSPRINT DD SYSOUT=*
000013 //SYSUDUMP DD SYSOUT=*
000014 //*
000015 //SYSUT1 DD DSN=METLI02.GDGFM.G0001V00,DISP=SHR
000016 // DD DSN=XXXXXXX.GDGFM.G0002V00,DISP=SHR
000017 // DD DSN=XXXXXXX.GDGFM.G0003V00,DISP=SHR
000018 // DD DSN=XXXXXXX.GDGFM.G0004V00,DISP=SHR
000019 // DD DSN=XXXXXXX.GDGFM.G0005V00,DISP=SHR
000020 // DD DSN=XXXXXXX.GDGFM.G0006V00,DISP=SHR
000021 // DD DSN=XXXXXXX.GDGFM.G0007V00,DISP=SHR
000022 // DD DSN=XXXXXXX.GDGFM.G0008V00,DISP=SHR
000023 // DD DSN=XXXXXXX.GDGFM.G0009V00,DISP=SHR
000024 // DD DSN=XXXXXXX.GDGFM.G0010V00,DISP=SHR
000025 // DD DSN=XXXXXXX.GDGFM.G0011V00,DISP=SHR
000026 //*
000027 //SYSUT1O DD DSN=XXXXXXX.GDGFM.GLOBAL.G0001V00,
000028 // DISP=SHR
000029 //SYSIN DD *
000030 COPY,
000031 INFILE(SYSUT1),
000032 OUTFILE(SYSUT1O)
000033 /*
 
000006 //*******************************************************************
000007 //*** CA FILE MASTER PLUS - COPY GDG FILES
000008 //*******************************************************************
000009 //COPY EXEC PGM=CAWABATC,REGION=2M
000010 //STEPLIB DD DSN=CAIPROD.FILEMSTR.R090S0A.CDBILOAD,DISP=SHR
000011 //*
000012 //SYSPRINT DD SYSOUT=*
000013 //SYSUDUMP DD SYSOUT=*
000014 //*
000015 //SYSUT1 DD DSN=XXXXXXX.GDGFM.G0001V00,DISP=SHR
000016 // DD DSN=XXXXXXX.GDGFM.G0002V00,DISP=SHR
000017 // DD DSN=XXXXXXX.GDGFM.G0003V00,DISP=SHR
000018 // DD DSN=XXXXXXX.GDGFM.G0004V00,DISP=SHR
000019 // DD DSN=XXXXXXX.GDGFM.G0005V00,DISP=SHR
000020 // DD DSN=XXXXXXX.GDGFM.G0006V00,DISP=SHR
000021 // DD DSN=XXXXXXX.GDGFM.G0007V00,DISP=SHR
000022 // DD DSN=XXXXXXX.GDGFM.G0008V00,DISP=SHR
000023 // DD DSN=XXXXXXX.GDGFM.G0009V00,DISP=SHR
000024 // DD DSN=XXXXXXX.GDGFM.G0010V00,DISP=SHR
000025 // DD DSN=XXXXXXX.GDGFM.G0011V00,DISP=SHR
000026 //*
000026 //*
000027 //SYSUT1O DD DSN=XXXXXXX.GDGFM.GLOBAL(1),
000028 // DISP=(NEW,CATLG),SPACE=(TRK,(5,2))
000029 //SYSIN DD *
000030 COPY,
000031 INFILE(SYSUT1),
000032 OUTFILE(SYSUT1O)
000033 /*