Using ADRDSSU to dump and restore datasets

Monday, November 12, 20120 comments

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



Share this article :

Post a Comment

 
Support : Creating Website | Johny Template | Mas Template
Copyright © 2011. Atom's Arena - All Rights Reserved
Template Created by Creating Website Published by Mas Template
Proudly powered by Blogger