zOs/JCL/QZT00
$#:
$*( wsh script fuer ControlSummary Job QZT00??P
|| Version 2015: ein jobName pro dbSys,
lctl in dsn.db2.lctl mit PlexChar in member ||
P02: tso, z.B. um Besenwagen zu starten
P03: dsnTep2: controlSummary SQL
$*)
rz = RZ4
dbSys = DP4G
rzP =- iiRz2P($rz)
dbC =- iidbSys2C($dbSys)
job = QZT000${dbC}P
l7 = QZT00$rzP$dbC
$;
$>. fEdit() $** ('A540769.tmp.tecsv('$-l7'P) ::f')
@=/jcl/
//$job JOB (PD00,KE50,,SP00000000),'DB2 tecSv',
// MSGCLASS=T,CLASS=M1,
// SCHENV=DB2
//*
//* ControlSummary job $job fuer $rz/$dbSys, lctl=$l7*
//*
//*------- tso, z.B. um Besenwagen zu starten -----------------------
//P02 EXEC PGM=IKJEFT01,DYNAMNBR=20
//SYSEXEC DD DSN=DSN.DB2.EXEC,DISP=SHR
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//DDOUT DD DSN=DSN.ABLF.TECSV.$dbSys.CONSUM,
// DISP=(MOD,DELETE)
//DDENV DD *
$rz $rzP $dbSys CONSUM $job $l7
//SYSTSIN DD DISP=SHR,DSN=DSN.DB2.LCTL(${l7}0)
//*
// IF (P02.RC = 0 ) THEN
//*
//*------- dsnTep2: controlSummary SQL ------------------------------
//P03 EXEC PGM=IKJEFT01,
// DYNAMNBR=20
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD DSN=*.P02.DDOUT,
// DISP=(,CATLG),
// MGMTCLAS=BAT#AT,
// SPACE=(CYL,(15,75),RLSE)
//SYSTSIN DD *
DSN SYSTEM($dbSys)
RUN PROGRAM (DSNTEP2) PLAN(DSNTEP2) PARMS('/ALIGN(LHS) MIXED')
//SYSIN DD DISP=SHR,DSN=DSN.DB2.LCTL(${l7}1)
// ENDIF
$/jcl/
$#out 20160812 17:37:31
$#out 20160812 17:37:07
$#out 20160808 11:57:05
$#out 20160805 21:48:39
$#out 20160425 17:11:12
$#out 20160417 11:58:56
$#out 20160417 11:58:22
$#out 20150113 11:55:50
$#out 20150113 11:55:40
$#out 20150112 09:35:37
$#out 20150112 09:35:19
$#out 20150112 09:34:41
$#out 20150105 10:58:22
$#out 20150105 10:40:45
$#out 20150105 10:06:48