guptae
Moderator
Joined: 14 Oct 2005
Posts: 1208
Location: Bangalore,India
|
|
|
|
Load utility
//T6329EGN JOB (0,1704),'LOAD PUSDSMX ',
// CLASS=L,
// MSGLEVEL=(1,1),
// MSGCLASS=Y,
// NOTIFY=&SYSUID
//*** RESTART=STARTDB
/*ROUTE PRINT PUBLIC
//*
//***********************************************************
//* STOP DATA BASE
//***********************************************************
//*
//STOPDB EXEC PGM=IKJEFT01,DYNAMNBR=20
//STEPLIB DD DSN=TSYS.DSNLOAD,DISP=SHR
//*
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTSIN DD *
DSN SYSTEM(GRT1)
-START DATABASE(P338) SPACENAM(PUSDSMX) ACCESS(UT)
END
//***********************************************************
//* L O A D - P C U H S U M T A B L E
//***********************************************************
//*
//PUSRTPY EXEC DSNUPROC,SYSTEM=GRT1,UID='PUSDSMX',UTPROC=''
//*
//* INPUT DATA -
//DSNUPROC.SYSREC00 DD DSN=T6329EG.DATA.PUSDSMX,
// DISP=MOD
//* INPUT UNLOAD CARDS FOR TABLE -
//DSNUPROC.SYSIN DD DSN=T6329EG.UNLOAD.SYSPUNCH.PUSDSMX,DISP=SHR
//*
//*
//DSNUPROC.SORTWK01 DD UNIT=DISK,SPACE=(CYL,(50,10))
//DSNUPROC.SORTWK02 DD UNIT=DISK,SPACE=(CYL,(50,10))
//DSNUPROC.SORTWK03 DD UNIT=DISK,SPACE=(CYL,(50,10))
//DSNUPROC.SORTWK04 DD UNIT=DISK,SPACE=(CYL,(50,10))
//DSNUPROC.SORTWK05 DD UNIT=DISK,SPACE=(CYL,(50,10))
//DSNUPROC.SORTWK06 DD UNIT=DISK,SPACE=(CYL,(50,10))
//DSNUPROC.SORTWK07 DD UNIT=DISK,SPACE=(CYL,(50,10))
//DSNUPROC.SORTWK08 DD UNIT=DISK,SPACE=(CYL,(50,10))
//DSNUPROC.SORTWK09 DD UNIT=DISK,SPACE=(CYL,(50,10))
//DSNUPROC.SORTWK10 DD UNIT=DISK,SPACE=(CYL,(50,10))
//DSNUPROC.SORTWK11 DD UNIT=DISK,SPACE=(CYL,(50,10))
//*
//DSNUPROC.SORTOUT DD UNIT=DISK,SPACE=(CYL,(50,10))
//*
//***********************************************************
//* REFERNTIAL CONSTRAINT VIOLATIONS GOES TO SYSDISC.
//***********************************************************
//*
//DSNUPROC.SYSDISC DD DSN=&SYSUID..DXTDATA.PUSDSMX.REJECT,
// DISP=(MOD,CATLG),
// SPACE=(22000,(20,20),,,ROUND),
// UNIT=DISK
//*
//**************************************************************// 00461000
//* DUPLICATE KEY ERROR INFO. GOES TO SYSERR *//
//***********************************************************
//DSNUPROC.SYSERR DD DSN=&SYSUID..DXTDATA.PUSDSMX.ERROR,
// DISP=(MOD,DELETE,CATLG),
// SPACE=(100,(20,20),,,ROUND),
// UNIT=DISK
//*
//***********************************************************
//* REPORTS OF UNIQUE INDEX VIOLATIONS AND REFERENTIAL KEY
//* VIOLATIONS GOES TO SYSPRINT *//
//***********************************************************
//***********************************************************
//* SYSMAP DD CARD REQUIRED
//*
//* ALLOW ENOUGH SPACE TO STORE A 50 BYTE RECORD FOR EACH Row
//* BEING LOADED
//***********************************************************
//DSNUPROC.SYSMAP DD DSN=&SYSUID..DXTDATA.PUSDSMX.MAPERR,
// DISP=(MOD,DELETE,CATLG),
// SPACE=(CYL,(10,5),RLSE),
// UNIT=DISK
//*
//*********************************************************
//* POPULATES SYSUT1 WITH INDEX AND FORIGN KEY DATA IN
//* RELOAD PHASE
//***********************************************************
//DSNUPROC.SYSUT1 DD UNIT=DISK,SPACE=(CYL,(10,5))
//***********************************************************
//* RUN STATS ON PUSRTPY TABLE *
//***********************************************************
//*RSTAT EXEC DSNUPROC,SYSTEM=DT11,UID='PUSRTPY',UTPROC=''
//*DSNUPROC.SYSIN DD *
//* RUNSTATS TABLESPACE P330.PUSRTPY INDEX (ALL)
//*
//*
//***********************************************************
//* START THE DATABASE WITH ACCESS FORCE
//***********************************************************
//STARTDB EXEC PGM=IKJEFT01,DYNAMNBR=20,COND=EVEN
//STEPLIB DD DSN=TSYS.DSNLOAD,DISP=SHR 00900000
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//*
//SYSTSIN DD *
DSN SYSTEM(GRT1)
-START DATABASE(P338) SPACENAM(PUSDSMX) ACCESS(FORCE) END
/*
//
UNload utility
//T6329EGA JOB (0,17XX),'EXTRACT PUSRTPY',CLASS=B,
// MSGCLASS=Y,MSGLEVEL=(0,0),NOTIFY=&SYSUID
//********************************************************************
//* EXTRACT DATA FROM DB2 TABLES
//********************************************************************
//STEP005 EXEC UCC11RMS,TYPRUN=F
//*
//STEP010 EXEC PGM=IKJEFT01
//STEPLIB DD DSN=DB2P.RUNLIB.LOAD,DISP=SHR
//SYSTSPRT DD SYSOUT=*
//SYSTSIN DD *
DSN SYSTEM(GRT1)
RUN PROGRAM(DSNTIAUL) PLAN(DSNTIAUL) PARMS('SQL')
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//*
//SYSPUNCH DD DSN=T6329EG.UNLOAD.SYSPUNCH.PUSDSMX,
// DISP=(MOD,CATLG,DELETE),
// SPACE=(CYL,(92,18),RLSE)
//SYSREC00 DD DSN=T6329EG.DATA.PUSDSMX,
// DISP=OLD
//SYSIN DD *
SELECT *
FROM ODDCDB2P.P.PUSDSMX ;
/*
Hope it will be helpful |
|
