guptae
Moderator
Joined: 14 Oct 2005
Posts: 1208
Location: Bangalore,India
|
|
|
|
Hi,
Load jcl :
//T6329EGN JOB (0,1704),'LOAD PUSDSMX ', 00010003
// CLASS=L,
// MSGLEVEL=(1,1),
// MSGCLASS=Y,
// NOTIFY=&SYSUID
//*
//***********************************************************
//* 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 ABLE
//**********************************************************
//*
//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
//*
//***********************************************************
//* 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
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//*
//SYSTSIN DD *
DSN SYSTEM(GRT1)
-START DATABASE(P338) SPACENAM(PUSDSMX) ACCESS(FORCE)
END
/*
//
UNLOAD JCL
//T6327PGA 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 |
|
.jpg)
