如何使用ADRDSSU

admin

ADRDSSU是DF/DSS工具中的一员，是DASD DATA和SPACE的管理工具，常用来BACKUP,RESTORE DATASETS和VOLUME

参数说明：

DUMP DATASET表示要DUMP的是DATASET
OUTDDNAME表示把文件DUMP到哪里
SPHERE带有VSAM文件时指定
COMPRESS压缩
ALLDATA（*）copy所有被allocated的space（文件不为空）
ALLEXCP：copy所有被allocated的space（文件可以为空），一般和ALLDATA互相作用，组合使用
TOLERATE（ENQF）即使要处理的datasets被适用也可以COPY，和FULL,TRACKS冲突
OPT(1)默认指定，一次读一track，（2）一次读2track，（3）一次读5track，（4）一次读一cylinder
ADMIN移动高权限的文件时指定
PROCESS(SYS1)COPY SYS1时指定
BYPASSACS(**) NULLSTORCLAS回避SMS rules
REPLACE，PURGE都可以用来覆盖目标卷已经存在的同名文件
DELETE移动后uncataloged

JCL1:
STEP00 如果用来备份得文件存在，则先删除
STEP01 备份VSAM文件（STJI.MJA.VE025.TESTVS）到文件（STJI.MJA.VE025.TESTVS.BAK）中

//JOBCARD                                                        
//*===================================================================*
//*    << FILE DELETE >>                         
//*===================================================================*   
//STEP00   EXEC PGM=IEFBR14                                                        
//DD1      DD DISP=(MOD,DELETE),DSN=YOUR.LIB.BAK         
//*===================================================================* 
//*    << BACKUP >>                                             
//*===================================================================*
//STEP01   EXEC PGM=ADRDSSU                                                        
//SYSPRINT DD SYSOUT=*                                                        
//INPUT    DD DSN=YOUR.LIB.BAK,                                                        
//            SPACE=(CYL,(1,0),RLSE),UNIT=SYSDA,                                                        
//            DISP=(,CATLG),DCB=(DSCB)                                                        
//SYSIN    DD *                                                        
  DUMP DATASET(INCLUDE(        -                                                        
  YOUR.VSLIB  -                                                        
  )  -                                                        
  ) -                                                        
  OUTDDNAME(INPUT)     -                                                        
  SPHERE               -                                                        
  COMPRESS             -                                                        
  ALLDATA(*) ALLEXCP   -                                                        
  TOLERATE(ENQFAILURE) -                                                        
  OPT(1)                                                        
/*

JCL2:
恢复被dump的dataset

//JOBCARD                        
//*====================================================================* 
//*   VSM -> DASD RESTORE    
//*====================================================================*
//STEP01   EXEC PGM=ADRDSSU                                                        
//SYSPRINT DD SYSOUT=*                                                        
//SYSUDUMP DD SYSOUT=*                                                        
//INDD     DD DSN=YOUR.LIB.BAK,                                                        
//         DISP=SHR                                                        
//SYSIN    DD *                                                        
  RESTORE INDDNAME(INDD)          -                                                        
  DATASET(INCLUDE(        -                                                        
  YOUR.VSLIB))    -                                                        
  CATALOG -                                                          
  REPLACE -                                                          
  SPHERE -                                                           
  TOL(ENQFAILURE)  -                                                         
/*

JCL3:
把文件从一个卷XXX1,COPY到另一个卷XXX2

//JOBCARD                                                        
//*********************************************************************
//*       ADRDSSU  
//*********************************************************************
//STEP02   EXEC PGM=ADRDSSU,REGION=2M                                                        
//FROMVOL  DD UNIT=3390,DISP=SHR,VOL=SER=XXX1                                                        
//TOVOL    DD UNIT=3390,DISP=SHR,VOL=SER=XXX2                                                        
//SYSPRINT DD SYSOUT=*                                                        
//SYSIN    DD *                                                        
  COPY DATASET(INCLUDE(YOUR.LIB.*)) -                                                        
  INDD(FROMVOL) OUTDD(TOVOL) -                                                        
  ALLDATA(*) -                                                        
  DELETE                                                        
//