Wondered if you have the concept of zipping files and transferring them to a different system - available in mainframe domain? Yes, You have a similar concept of dumping datasets to a dump file and use it to store or transfer to a different mainframe system and later restore the dumped datasets. Here is how You can do it.
Dump multiple datasets to a single dump:
//AIWCDMP JOB (WA2,,'ADMIN',GM,0085,), 00010006
// 'JCL MANAGEMENT 10.0', 00020000
// MSGCLASS=V, 00030000
// CLASS=E, 00040000
// REGION=0M, 00050000
// NOTIFY=&SYSUID 00060000
//*MAIN SYSTEM=ANZH 00110009
//*-------------------------------------------------------------------- 00790000
//* JS010 - DUMP DATASETS TO CTAPE - 00800000
//* - 00810000
//*-------------------------------------------------------------------- 00820000
//JS010 EXEC PGM=ADRDSSU, 00840000
// PARM='SIZE=4096K', 00850000
// TIME=540, 00851000
// COND=(0,NE) 00860000
//SYSPRINT DD SYSOUT=* 00870000
//DUMPDS DD DSN=AIW.AIW133.WR5347.DS.BKUP2, 00880009
// BLKSIZE=32760, 00890000
// LABEL=(1,SL), 00910000
// DATACLAS=DCBLANK, 00920003
// RETPD=2, 00930001
// VOL=(,,,20), 00940004
// DISP=(NEW,CATLG,DELETE), 00950000
// UNIT=RTAPE 00960000
//SYSIN DD * 00970000
DUMP DATASET(INCLUDE( - 00980000
DAIW.DS.X.TWDL066D - 00990009
DAIW.DS.X.TWDL066O - 01000009
DAIW.DS.X.TWDL072D - 01010009
DAIW.DS.X.TWDL072O - 01020009
DAIW.DS.X.TWDL129D - 01030009
DAIW.DS.X.TWDL129O - 01040009
DAIW.DS.X.TWDS010D - 01050009
DAIW.DS.X.TWDS010O - 01060009
DAIW.DS.X.TWDS014D - 01061009
DAIW.DS.X.TWDS014O - 01062009
DAIW.DS.X.TWGT001D - 01063009
DAIW.DS.X.TWGT001O - 01064009
DAIW.DS.X.TWGT002D - 01064109
DAIW.DS.X.TWGT002O - 01064209
DAIW.DS.X.TWGT003D - 01064309
DAIW.DS.X.TWGT003O - 01064409
DAIW.DS.X.TWIN006D - 01064509
DAIW.DS.X.TWIN006O - 01064609
DAIW.DS.X.TWIN011D - 01064709
DAIW.DS.X.TWIN011O - 01064809
DAIW.DS.X.TWIR002D - 01064909
DAIW.DS.X.TWIR002O - 01065009
DAIW.DS.X.TWLM001D - 01065109
DAIW.DS.X.TWLM001O - 01065209
DAIW.DS.X.TWPD002D - 01065309
DAIW.DS.X.TWPD002O - 01065409
DAIW.DS.X.TWRT060D - 01065509
DAIW.DS.X.TWRT060O - 01065609
DAIW.DS.X.TWSY004D - 01065709
DAIW.DS.X.TWSY004O - 01065809
DAIW.DS.X.TWSY005D - 01065909
DAIW.DS.X.TWSY005O - 01066009
DAIW.DS.X.TWSY006D - 01066109
DAIW.DS.X.TWSY006O - 01066209
DAIW.DS.X.TWSY011D - 01066309
DAIW.DS.X.TWSY011O - 01066409
DAIW.DS.X.TWSY188D - 01066509
DAIW.DS.X.TWSY188O - 01066609
))- 01066705
OUTDDNAME(DUMPDS)- 01066805
SHARE - 01066905
TOLERATE(ENQFAILURE) - 01067005
COMPRESS 01068005
/* 01070000
//* 01080000
You can now FTP or simply store the output dump which contains all the listed datasets.
Restore the dumped datasets:
//AIWRDMP JOB (WB9,,'CFS INTERNATIONAL',GM,0085,),
// 'JCL MANAGEMENT 10.2',
// MSGCLASS=V,
// CLASS=E,
// REGION=0M,
// NOTIFY=&SYSUID
//*MAIN SYSTEM=ANZH
//*---------------------------------------------------------------------
//*
//* RETRIEVE THE DATASET MENTIONED IN THE INCLUDE OPTION FROM INPUT
//* TAPEI DATASET
//*
//*---------------------------------------------------------------------
//JS010 EXEC PGM=ADRDSSU,
// REGION=0M,TIME=540
//TAPEI DD DSN=AIW.AIW133.CDUMP3,
// VOL=SER=D23554,
// DISP=SHR
//SYSIN DD *
RESTORE INDDNAME(TAPEI) -
DATASET(INCLUDE( -
PAIW.** -
)) -
RENUNC((PAIW.**,DAIW.**))
/*
//SYSPRINT DD SYSOUT=*
/*
//
TOL(ENQF) -
TGTA(SRC) -
SPHERE -
TGTGDS(ACTIVE) -
CAT
Dump multiple datasets to a single dump:
//AIWCDMP JOB (WA2,,'ADMIN',GM,0085,), 00010006
// 'JCL MANAGEMENT 10.0', 00020000
// MSGCLASS=V, 00030000
// CLASS=E, 00040000
// REGION=0M, 00050000
// NOTIFY=&SYSUID 00060000
//*MAIN SYSTEM=ANZH 00110009
//*-------------------------------------------------------------------- 00790000
//* JS010 - DUMP DATASETS TO CTAPE - 00800000
//* - 00810000
//*-------------------------------------------------------------------- 00820000
//JS010 EXEC PGM=ADRDSSU, 00840000
// PARM='SIZE=4096K', 00850000
// TIME=540, 00851000
// COND=(0,NE) 00860000
//SYSPRINT DD SYSOUT=* 00870000
//DUMPDS DD DSN=AIW.AIW133.WR5347.DS.BKUP2, 00880009
// BLKSIZE=32760, 00890000
// LABEL=(1,SL), 00910000
// DATACLAS=DCBLANK, 00920003
// RETPD=2, 00930001
// VOL=(,,,20), 00940004
// DISP=(NEW,CATLG,DELETE), 00950000
// UNIT=RTAPE 00960000
//SYSIN DD * 00970000
DUMP DATASET(INCLUDE( - 00980000
DAIW.DS.X.TWDL066D - 00990009
DAIW.DS.X.TWDL066O - 01000009
DAIW.DS.X.TWDL072D - 01010009
DAIW.DS.X.TWDL072O - 01020009
DAIW.DS.X.TWDL129D - 01030009
DAIW.DS.X.TWDL129O - 01040009
DAIW.DS.X.TWDS010D - 01050009
DAIW.DS.X.TWDS010O - 01060009
DAIW.DS.X.TWDS014D - 01061009
DAIW.DS.X.TWDS014O - 01062009
DAIW.DS.X.TWGT001D - 01063009
DAIW.DS.X.TWGT001O - 01064009
DAIW.DS.X.TWGT002D - 01064109
DAIW.DS.X.TWGT002O - 01064209
DAIW.DS.X.TWGT003D - 01064309
DAIW.DS.X.TWGT003O - 01064409
DAIW.DS.X.TWIN006D - 01064509
DAIW.DS.X.TWIN006O - 01064609
DAIW.DS.X.TWIN011D - 01064709
DAIW.DS.X.TWIN011O - 01064809
DAIW.DS.X.TWIR002D - 01064909
DAIW.DS.X.TWIR002O - 01065009
DAIW.DS.X.TWLM001D - 01065109
DAIW.DS.X.TWLM001O - 01065209
DAIW.DS.X.TWPD002D - 01065309
DAIW.DS.X.TWPD002O - 01065409
DAIW.DS.X.TWRT060D - 01065509
DAIW.DS.X.TWRT060O - 01065609
DAIW.DS.X.TWSY004D - 01065709
DAIW.DS.X.TWSY004O - 01065809
DAIW.DS.X.TWSY005D - 01065909
DAIW.DS.X.TWSY005O - 01066009
DAIW.DS.X.TWSY006D - 01066109
DAIW.DS.X.TWSY006O - 01066209
DAIW.DS.X.TWSY011D - 01066309
DAIW.DS.X.TWSY011O - 01066409
DAIW.DS.X.TWSY188D - 01066509
DAIW.DS.X.TWSY188O - 01066609
))- 01066705
OUTDDNAME(DUMPDS)- 01066805
SHARE - 01066905
TOLERATE(ENQFAILURE) - 01067005
COMPRESS 01068005
/* 01070000
//* 01080000
You can now FTP or simply store the output dump which contains all the listed datasets.
Restore the dumped datasets:
//AIWRDMP JOB (WB9,,'CFS INTERNATIONAL',GM,0085,),
// 'JCL MANAGEMENT 10.2',
// MSGCLASS=V,
// CLASS=E,
// REGION=0M,
// NOTIFY=&SYSUID
//*MAIN SYSTEM=ANZH
//*---------------------------------------------------------------------
//*
//* RETRIEVE THE DATASET MENTIONED IN THE INCLUDE OPTION FROM INPUT
//* TAPEI DATASET
//*
//*---------------------------------------------------------------------
//JS010 EXEC PGM=ADRDSSU,
// REGION=0M,TIME=540
//TAPEI DD DSN=AIW.AIW133.CDUMP3,
// VOL=SER=D23554,
// DISP=SHR
//SYSIN DD *
RESTORE INDDNAME(TAPEI) -
DATASET(INCLUDE( -
PAIW.** -
)) -
RENUNC((PAIW.**,DAIW.**))
/*
//SYSPRINT DD SYSOUT=*
/*
//
TOL(ENQF) -
TGTA(SRC) -
SPHERE -
TGTGDS(ACTIVE) -
CAT
No comments:
Post a Comment