sudhakar532
New User
Joined: 10 May 2006 Posts: 4
|
|
|
|
Hi All,
I want to migrate all the files and source code, control cards, copy books and bind cards from one Mainframe to another mainframes. we have two IBM utilites one is ADRDSSU and second one is FATTER.
Could you please send the code By use these utilites and explain about all parameter.
Thank you
Sudhakar. |
|
UmeySan
Active Member
Joined: 22 Aug 2006 Posts: 771 Location: Germany
|
|
|
|
Hi !
First, it's not FATTER, it's called FAVOR, a third-party-produkt.
Your choice of ADRDSSU is good, it is availiable in all IBM environments.
"Could you please send the code By use these utilites and explain about all parameter"
I think, it's better you take a look at Bookmanager, then let us write a whole broshure about ADRDSSU.
Here's a little example of dumping (backing up) files from one system
and copying (restoring) them on other system:
//DUMP EXEC PGM=ADRDSSU,REGION=8M,COND=(0,NE)
//SYSPRINT DD SYSOUT=*
//OUTTEMP DD DSN=&&OUTTEMP,SPACE=(CYL,(50,5)),
// UNIT=SYSDA,DISP=(NEW,PASS)
//SYSIN DD *
DUMP OUTDDNAME(OUTTEMP) -
DATASET(INCLUDE(SYS1.OPC.SEQQCLIB -
SYS1.OPC.SEQQDATA -
SYS1.OPC.SEQQTBL0)) -
ALLDATA(*) -
CANCELERROR -
CONCURRENT NOTIFYCC -
DYNALLOC -
LOGINDYNAM((SYMR1T,SYSDA)) -
SHARE -
TOLERATE(ENQFAILURE)
/*
//RESTORE EXEC PGM=ADRDSSU,REGION=8M,COND=(0,NE)
//SYSPRINT DD SYSOUT=*
//OUTTEMP DD DSN=&&OUTTEMP,DISP=(OLD,PASS)
//DAUGHTER DD UNIT=SYSDA,VOL=SER=SYMR1T,DISP=SHR
//SYSIN DD *
RESTORE INDDNAME(OUTTEMP) -
OUTDDNAME(DAUGHTER) -
DATASET(INCLUDE(**)) -
RENAMEUNCONDITIONAL( -
(SYS1.OPC.SEQQCLIB,SYS1.OPC.SEQQCLIB.NEW) -
(SYS1.OPC.SEQQDATA,SYS1.OPC.SEQQDATA.NEW) -
(SYS1.OPC.SEQQTBL0,SYS1.OPC.SEQQTBL0.NEW) -
) -
CANCELERROR -
CATALOG -
DYNALLOC -
SHARE -
TGTALLOC(SOURCE) -
TOLERATE(ENQFAILURE)
//*
Regards, UmeySan |
|