Navigation

    DDBB

    • Register
    • Login
    • Categories
    • Recent
    • Tags
    • Popular
    • Users
    • Groups

    如何使用ADRDSSU

    IBM UTILITIES & TOOLS
    1
    1
    83
    Loading More Posts
    • Oldest to Newest
    • Newest to Oldest
    • Most Votes
    Reply
    • Reply as topic
    Log in to reply
    This topic has been deleted. Only users with topic management privileges can see it.
    • A
      admin last edited by

      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                                                        
      //           
      
      1 Reply Last reply Reply Quote 0
      • First post
        Last post