2007/10/29

BMC,ZOS] SMP/E apply JCL (with CHECK option)

//BMCINSTL JOB (PLS,81038),CLASS=A,MSGCLASS=H,MSGLEVEL=(1,1),
// NOTIFY=SYSPRG1
/*JOBPARM L=9999
//BMCSMP PROC GBL='BMC1026A.SMPE.GLOBAL.CSI',
// SMPDS='BMC1026A.SMPE',
// DHLQ='BMC1026A.SMPE.DLIB.CSI',
// THLQ='BMC1026A.SMPE.TARGET.CSI',
// RGN=0K, REGION SIZE SET FOR MAX. REGION
// SOUT='*', SYSOUT CLASS
// WRKCYL=75, CYL ALLOC. FOR SMPWRKX
// UTCYL=35, CYL ALLOC. FOR SYSUTX
// DIRBLKS=999 DIR BLKS FOR SMPWRKX
//SMP EXEC PGM=GIMSMP,PARM='DATE=U',REGION=&RGN,TIME=1440
//SMPCSI DD DSN=&GBL,DISP=SHR GLOBAL ZONE
//BMC0DZN DD DSN=&DHLQ,DISP=OLD DLIB ZONE
//BMC0TZN DD DSN=&THLQ,DISP=SHR TARGET ZONE
//SMPPTS DD DSN=&SMPDS..SMPPTS,DISP=SHR SMP/E DATA SETS
//SMPMTS DD DSN=&SMPDS..SMPMTS,DISP=SHR
//SMPLTS DD DSN=&SMPDS..SMPLTS,DISP=SHR
//SMPSTS DD DSN=&SMPDS..SMPSTS,DISP=SHR
//SMPSCDS DD DSN=&SMPDS..SMPSCDS,DISP=SHR
//SMPLOG DD DSN=&SMPDS..SMPLOG,DISP=MOD
//SMPRPT DD SYSOUT=&SOUT SYSOUT
//SMPOUT DD SYSOUT=&SOUT SYSOUT
//SMPLIST DD SYSOUT=&SOUT SYSOUT
//SYSPRINT DD SYSOUT=&SOUT SYSOUT
//SYSTERM DD SYSOUT=&SOUT SYSOUT
//SMPWRK1 DD UNIT=SYSDA,SPACE=(CYL,(&WRKCYL,15,&DIRBLKS)), WORK
// DCB=(BLKSIZE=6160,RECFM=FB,LRECL=80)
//SMPWRK2 DD UNIT=SYSDA,SPACE=(CYL,(&WRKCYL,15,&DIRBLKS)),
// DCB=(BLKSIZE=6160,RECFM=FB,LRECL=80)
//SMPWRK3 DD UNIT=SYSDA,SPACE=(CYL,(&WRKCYL,15,&DIRBLKS)),
// DCB=(BLKSIZE=6160,RECFM=FB,LRECL=80)
//SMPWRK4 DD UNIT=SYSDA,SPACE=(CYL,(&WRKCYL,15,&DIRBLKS)),
// DCB=(BLKSIZE=6160,RECFM=FB,LRECL=80)
//SMPWRK6 DD UNIT=SYSDA,SPACE=(CYL,(&WRKCYL,15,&DIRBLKS)),
// DCB=(BLKSIZE=6160,RECFM=FB,LRECL=80)
//SYSLIB DD DSN=&SMPDS..SMPMTS,DISP=SHR SYSLIB
//SYSUT1 DD UNIT=SYSDA,SPACE=(CYL,(&UTCYL,5)) WORK
//SYSUT2 DD UNIT=SYSDA,SPACE=(CYL,(&UTCYL,5))
//SYSUT3 DD UNIT=SYSDA,SPACE=(CYL,(&UTCYL,5))
//SYSUT4 DD UNIT=SYSDA,SPACE=(CYL,(&UTCYL,5))
// PEND
//*
//APPLY EXEC BMCSMP
//SMP.SMPCNTL DD *
SET BDY(BMC0TZN).
APPLY SELECT(
BPU0172,BPU0174,BPU0176,BPU0177,BPU0178,BPU0193
BPU0197,BPU0227,BPU0229,BPU0232,BPU0238,BPU0270
BPU0277,BPU0290,BPU0297,BPU0301
)
GROUPEXTEND
BYPASS(HOLDSYS(DOC,ACTION,DELETE))
CHECK
.
/*

댓글 없음: