Can File Master Plus copy multiple GDGs to one GDG?
search cancel

Can File Master Plus copy multiple GDGs to one GDG?

book

Article ID: 47354

calendar_today

Updated On:

Products

File Master Plus for IMS File Master Plus for DB2 for z/OS

Issue/Introduction

Can File Master Plus copy multiple GDGs to one GDG?

Resolution

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

//*******************************************************************
//*** CA FILE MASTER PLUS - COPY A GDG FILES
//*******************************************************************
//COPY EXEC PGM=CAWABATC,REGION=2M
//STEPLIB DD DSN=hlq.CDBILOAD,DISP=SHR
//*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//*
//SYSUT1 DD DSN=XXXXXXX.GDGFM.G0001V00,DISP=SHR
// DD DSN=XXXXXXX.GDGFM.G0002V00,DISP=SHR
// DD DSN=XXXXXXX.GDGFM.G0003V00,DISP=SHR
// DD DSN=XXXXXXX.GDGFM.G0004V00,DISP=SHR
// DD DSN=XXXXXXX.GDGFM.G0005V00,DISP=SHR
// DD DSN=XXXXXXX.GDGFM.G0006V00,DISP=SHR
// DD DSN=XXXXXXX.GDGFM.G0007V00,DISP=SHR
// DD DSN=XXXXXXX.GDGFM.G0008V00,DISP=SHR
// DD DSN=XXXXXXX.GDGFM.G0009V00,DISP=SHR
// DD DSN=XXXXXXX.GDGFM.G0010V00,DISP=SHR
// DD DSN=XXXXXXX.GDGFM.G0011V00,DISP=SHR
//*
//SYSUT1O DD DSN=XXXXXXX.GDGFM.GLOBAL.G0001V00,
// DISP=SHR
//SYSIN DD *
 COPY,
 INFILE(SYSUT1),
 OUTFILE(SYSUT1O)
 /*
 
//*******************************************************************
//*** CA FILE MASTER PLUS - COPY GDG FILES
//*******************************************************************
//COPY EXEC PGM=CAWABATC,REGION=2M
//STEPLIB DD DSN=hlq.CDBILOAD,DISP=SHR
//*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//*
//SYSUT1 DD DSN=XXXXXXX.GDGFM.G0001V00,DISP=SHR
// DD DSN=XXXXXXX.GDGFM.G0002V00,DISP=SHR
// DD DSN=XXXXXXX.GDGFM.G0003V00,DISP=SHR
// DD DSN=XXXXXXX.GDGFM.G0004V00,DISP=SHR
// DD DSN=XXXXXXX.GDGFM.G0005V00,DISP=SHR
// DD DSN=XXXXXXX.GDGFM.G0006V00,DISP=SHR
// DD DSN=XXXXXXX.GDGFM.G0007V00,DISP=SHR
// DD DSN=XXXXXXX.GDGFM.G0008V00,DISP=SHR
// DD DSN=XXXXXXX.GDGFM.G0009V00,DISP=SHR
// DD DSN=XXXXXXX.GDGFM.G0010V00,DISP=SHR
// DD DSN=XXXXXXX.GDGFM.G0011V00,DISP=SHR
//*
//SYSUT1O DD DSN=XXXXXXX.GDGFM.GLOBAL(1),
// DISP=(NEW,CATLG),SPACE=(TRK,(5,2))
//SYSIN DD *
 COPY,
 INFILE(SYSUT1),
 OUTFILE(SYSUT1O)
/*
Powered by Wolken Software