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                                                        
//
Copyright © OneZos all right reserved,powered by Gitbook本书发布时间: 2021-06-09 11:08:04

results matching ""

    No results matching ""