Hi Sysprog,
DB8G is Down after a job Testing. Please start DB2. I do not have Authority to start DB2 . Can u provide mw access to this Command.
Moderators: sysprog, prino, sfan, steve-myers, Tim001
madhan_17 wrote:DB8G is Down after a job Testing. Please start DB2.
//N243617 JOB (12345678),N243617,MSGCLASS=H,
// MSGLEVEL=(1,1),CLASS=A,NOTIFY=&SYSUID
//***************************************************************
//***************JCL CREATED BY MADHAN *********************
//***************************************************************
//RENAME EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSIN DD *
ALTER DSN810.BSDS01 -
NEWNAME(DSN810.BSDS01.OLD)
ALTER DSN810.BSDS01.DATA -
NEWNAME(DSN810.BSDS01.DATA.OLD)
ALTER DSN810.BSDS01.INDEX -
NEWNAME(DSN810.BSDS01.INDEX.OLD)
ALTER DSN810.BSDS02 -
NEWNAME(DSN810.BSDS02.OLD)
ALTER DSN810.BSDS02.DATA -
NEWNAME(DSN810.BSDS02.DATA.OLD)
ALTER DSN810.BSDS02.INDEX -
NEWNAME(DSN810.BSDS02.INDEX.OLD)
//ALLOC EXEC PGM=IDCAMS,COND=(4,LT)
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSIN DD *
DEFINE CLUSTER -
( NAME(DSN810.BSDS01) -
VOLUMES(DBLT18) -
REUSE -
SHAREOPTIONS(2 3) ) -
DATA -
( NAME(DSN810.BSDS01.DATA) -
CYLINDERS(15 15) -
RECORDSIZE(4089 4089) -
CONTROLINTERVALSIZE(4096) -
FREESPACE(0 20) -
KEYS(4 0) ) -
INDEX -
( NAME(DSN810.BSDS01.INDEX) -
CYLINDERS(5 5) -
CONTROLINTERVALSIZE(1024) )
DEFINE CLUSTER -
( NAME(DSN810.BSDS02) -
VOLUMES(DBLT19) -
REUSE -
SHAREOPTIONS(2 3) ) -
DATA -
( NAME(DSN810.BSDS02.DATA) -
CYLINDERS(15 15) -
RECORDSIZE(4089 4089) -
CONTROLINTERVALSIZE(4096) -
FREESPACE(0 20) -
KEYS(4 0) ) -
INDEX -
( NAME(DSN810.BSDS02.INDEX) -
CYLINDERS(5 5) -
CONTROLINTERVALSIZE(1024) )
//REPRO1 EXEC PGM=IDCAMS,COND=(4,LT)
//SYSPRINT DD SYSOUT=*
//DD1 DD DISP=OLD,DSN=DSN810.BSDS01.OLD,DCB=BUFNO=20
//DD2 DD DISP=OLD,DSN=DSN810.BSDS01,DCB=BUFNO=20
//SYSIN DD *
REPRO INFILE(DD1) OUTFILE(DD2)
//REPRO2 EXEC PGM=IDCAMS,COND=(4,LT)
//SYSPRINT DD SYSOUT=*
//DD1 DD DISP=OLD,DSN=DSN810.BSDS02.OLD,DCB=BUFNO=20
//DD2 DD DISP=OLD,DSN=DSN810.BSDS02,DCB=BUFNO=20
//SYSIN DD *
REPRO INFILE(DD1) OUTFILE(DD2)
//*-------------------------------------------------------------------*
//CONVRT EXEC PGM=DSNJCNVB,COND=(4,LT)
//STEPLIB DD DISP=SHR,DSN=DSN810.SDSNEXIT
// DD DISP=SHR,DSN=DSN810.SDSNLOAD
//SYSUT1 DD DISP=OLD,DSN=DSN810.BSDS01
//SYSUT2 DD DISP=OLD,DSN=DSN810.BSDS02
//SYSPRINT DD SYSOUT=*
madhan_17 wrote:I do not have Authority to start DB2 . Can u provide mw access to this Command.
Return to Dezhi systems: Mainframe
Users browsing this forum: No registered users and 0 guests