如何使用ADRDSSU


  • administrators

    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                                                        
    //           
    

Log in to reply
 

Looks like your connection to MainFrame was lost, please wait while we try to reconnect.