COPY
TABLESPACE XKRADB26.XKRATS26
FULL YES
DSNUM(num)
COPYDDAN(COPY1,COPY2)
RECOVERYDDN(COPY3,COPY4)
CHANGELIMIT(10,20)
PARALLEL
SHRLEVEL
NONE/REFERENCE/CHANGE
LISTDEF
CPY1 INCLUDE TABLESPACE LDEFDB.*
EXCLUDE
TABLESPACE LDEFDB.LDEFTS2
COPY
LIST CPY1 COPYDDN(DDO,DDT)
LISTDEF
CPY1 INCLUDE TABLESPACE LDEFDB.*
EXCLUDE TABLESPACE LDEFDB.LDEFTS2
TEMPLATE
TMP1 DSN (OZA058.&DB..&TS..D&DATE..T&TIME.)
DISP (MOD,CATLG,CATLG)
COPY
LIST CPY1 COPYDDN (TMP1) SHRLEVEL REFERENCE
COPYTOCOPY
TABLESPACE XKRAdb26.XKRAts26
COPYDDN(syscopy,sysCOPY2)
MERGECOPY
TABLESPACE WINODDB3.WINODTS3
NEWCOPY NO/YES
LISTDEF
LIST1 INCLUDE TABLESPACE LDEFDB.*
EXCLUDE TABLESPACE LDEFDB.LDEFTS2
QUIESCE
LIST LIST1
QUIESCE
TABLESPACE XKRADB26.XKRATS26
WRITE YES/NO
RECOVER
TABLESPACE XKRADB701.XKRATS705
TOCOPY
OZA058.XKRADB701.XKRATS705.MAY30
RECOVER
TABLESPACE XKRADB26.XKRATS26
TOLASTFULLCOPY
RECOVER
TABLESPACE XKRADB701.XKRATS705
TOCOPY OZA058.XKRADB701.XKRATS705.MAY30
RECOVER
TABLESPACE DBADB2DB.SAMPLETS
TORBA X'0152E3A517BA'
MODIFY
RECOVERY TABLESPACE SATDB1.SATTS1
DELETE
AGE(1/*/date/ )
CHECK
DATA TABLESPACE XKRADB26.XKRATS26
FOR EXCEPTION IN OZA059.XKRATB26 USE OZA059.EXP_XKRATS
DELETE YES/NO
CHECK
INDEX (ALL) TABLESPACE XKRADB.SAMPLETS
REPAIR
SET TABLESPACE XKRADB26.XKRATS26
NOCOPYPEND
NORBDPEND
NORCVRPEND
NOCHKPEND
NOAREOPEND
NO
runstats
tablespace XKRAdb26.XKRAts26 UPDATE NONE/ACCESSPATH/ALL REPORT SAMPLE XX
UNLOAD
TABLESPACE XKRADB701.XKRATS705
FROM TABLE XKRATB705
LOAD
DATA XKRADN SYSREC LOG NO RESUME YES
EBCDIC CCSID(00037,00000,00000)
INTO TABLE
"OZA058 "."DEPTKR "
WHEN(00001:00002 =
X'0013')
( "DEPTNO " POSITION( 00004:00007) CHAR(00004)
NULLIF(00003)=X'FF'
, "DNAME " POSITION( 00009:00018) CHAR(00010)
NULLIF(00008)=X'FF'
, "LOC " POSITION( 00020:00029) CHAR(00010)
NULLIF(00019)=X'FF'
)
REORG
TABLESPACE XKRADB26.XKRATS26
SHRLEVEL
REFERENCE
REORG
TABLESPACE XKRADB26.XKRATS26
SHRLEVEL CHANGE
MAPPINGTABLE MYMAPPING_TABLE
REORG TABLESPACE DSNDB01.XKRATS1
COPYDDN(C1)
RECOVERYDDN(C2)
SHRLEVEL CHANGE
MAPPINGG TABLE
DSNKRMAP_TBL
DEADLINE CURRENT TIMESTAMP + 8 HOURS
MAXROW 240
LONGLOG
DRAIN DELAY 900
REBUILD
INDEX(ALL) TABLESPACE DBADB2DB.SAMPLETS
STOSPACE
STOGROUP XKRASG26
OFFLINE UTILITIES ::
//OZA059UT JOB (ACCOUNT),'XKRAUS',CLASS=A,
//* HERE WE HAVE TO SPECIFY OLD ID'S AND NEW ID'S
//* OLD,NEW
//* 268,268
//* 24,21
//* 25,22
//* THAT IS LIKE THIS
//EXECUTE EXEC PGM=DSN1COPY,PARM=(OBIDXLAT,RESET)
//SYSPRINT DD SYSOUT=*
//SYSUT1 DD DSN=OZA059.XKRADB26.XKRATS26.FCPJUN19,
//
DISP=OLD
//SYSUT2 DD DSN=OZADB2.DSNDBD.XKRADB26.XKRATS26.I0001.A001,
//
DISP=SHR
//SYSXLAT DD *
372,372
2,2
3,3
/*
//OZA058A JOB (777),'XKRAUS',CLASS=A,MSGCLASS=A,MSGLEVEL=(1,1),
//
NOTIFY=OZA058
//* HAI THIS IS COMP TECHNIC HERE WE GET COPRESSION IS GUD R
NOT
//*
//STEP2 EXEC PGM=DSN1COMP,
//PARM='LARGE,PCTFREE(30),FREEPAGE(30),REORG,ROWLIMIT(1000)'
//SYSPRINT DD SYSOUT=A
//SYSDUMP DD SYSOUT=A
//SYSABEND DD SYSOUT=A
//SYSUT1 DD DSN=OZADB2.DSNDBD.DBADB2DB.SAMPLETS.I0001.A001,DISP=SHR
//SYSUT2 DD SYSOUT=A
// 
No comments:
Post a Comment