Last update : 11/5/2017
Same principles as the Rexx to Aggregate acct to 1 hour interval
/*REXX*/ 00010003
/*********************************************************************/ 00020003
/* Ce programme reporte les accounting DB2 sur chaque LPAR en format */ 00021003
/* summary : 1 enregistrement / heure/ type de connexion (Batch, */ 00022003
/* CICS, DDF ... ) . Il s'exécute tous les jours et produit un */ 00023003
/* fichier qui sera par la suite charger en table DB2 */ 00024003
/*********************************************************************/ 00025003
arg Smforig 00026003
clnt='' 00027018
lpar=MVSVAR(SYSNAME) 00027118
lpar='IPO4' 00027221
hlq='SYSTMP.DBDC.DB2' 00028003
/* Input SMF file */ 00029003
call SetSmfDS 00030003
/*************************************************/ 00040003
/* Label start_pgm for repeated runs */ 00050003
/* (If several DB2 by LPAR) */ 00060003
/*************************************************/ 00070003
if SmfOrig='B' then do 00081017
/* Input file : SMF dataset from z/OS 2.1 */ 00090003
address TSO 00100003
"ALLOC DD(INP) SHR bufno(80)" 00110003
say 'Alloc SMF dd INP rc =' rc 00120003
end 00130003
else do 00140003
address TSO 00150003
"ALLOC DD(INP) DS('"oufl"') SHR REU bufno(80)" 00160003
say 'Alloc SMF dsn rc =' rc 00170003
end 00180003
00181017
00190003
start_pgm: 00200003
00210003
/* compteurs input/output */ 00360003
reci= 0 00370003
reco= 0 00380003
recs= 0 00390003
rupture = 0 00400003
nbr_conntype=0 00410003
/* Ecriture Header pour CSV */ 00420003
/* Call Write_Header */ 00430003
00440003
/*==================*/ 00450003
/* START PROCESSING */ 00460003
/*==================*/ 00470003
Do Forever 00480003
/* Read SMF record */ 00490003
"EXECIO 1 DISKR INP" 00500003
IF RC > 0 THEN DO 00510003
rcalloc=rc 00520003
if rc = 2 then 00530003
do 00540003
SAY 'End of SMF dataset - input records' reci 00550003
call write_summary 00560003
end 00570003
else 00580003
say 'SMF read error' rc 00590003
LEAVE /* sortir de la boucle Do Forever */ 00600003
END 00610003
PARSE PULL INPUT_REC 00620003
reci = reci+1 00630003
OFFSET = 1 00640003
/* Decode SMF HEADER */ 00650003
CALL DSNDQWAS 00660003
IF result = 0 then /* SSID Ok And SMF101 */ 00670008
DO 00680003
recs=recs+1 /* compteurs records smf101*/ 00690003
/*DSNDQWA0 MAP SELF-DEFINING SECT */ 00700003
CALL DSNDQWA0 /* MAP SELF-DEFINING SECT */ 00710003
OFFSET = QWA01PSO - 4 + 1 00720003
/* These headers are always present */ 00730003
CALL DSNDQWHS /* MAP product section STANDARD HEADER */ 00740003
CALL DSNDQWHC /* MAP CORRELATED HEADER, just after the standard*/ 00750003
/* header Product Section */ 00760003
00770003
/* pointeur vers accounting section DSNDQWAC */ 00780003
OFFSET = QWA01R1O - 4 + 1 00790003
/* process each ifcid */ 00800003
Select 00810003
When ifcid = 3 Then 00820003
do 00830003
/* general accounting data */ 00840003
CALL DSNDQWAC 00850003
/* sql stats */ 00860003
if QWA01R2O > 0 & lg > 0 then 00870012
do 00871012
OFFSET = QWA01R2O - 4 + 1 00880003
CALL DSNDQXST 00890003
end 00900003
else do 00910003
/* pas de données sql*/ 00920003
selects =0 00930003
inserts =0 00940003
updates =0 00950003
deletes =0 00960003
opens =0 00970003
fetchs =0 00980003
end 00990003
/* s'il existe des donnees buffer, les chercher*/ 01000003
if QWA01R3O > 0 then do 01010003
OFFSET = QWA01R3O - 4 + 1 01020003
CALL DSNDQBAC 01030003
end 01040003
else do 01050003
/* pas de données buffer manager */ 01060003
getp =0 01070003
syncio =0 01080003
syncwr =0 01090003
sio =0 01100003
end 01110003
end /* end when ifcid=3*/ 01120003
Otherwise 01130003
do 01140003
nop 01150003
end 01160003
end /* select */ 01170003
/* on part du principe que ifcid03 est le record accounting */ 01180003
/* maitre , a voir si on commence a traiter les autres */ 01190003
if ifcid=3 then 01200003
do 01210003
CALL process_summary 01220003
end 01230003
END /* IF SM101RTY = 101 */ 01240003
END /* Do forever */ 01250003
01260003
/* close output file */ 01270003
"EXECIO 0 DISKW OUFS (STEM INL. FINIS" 01280003
"FREE DD(OUFS)" 01290003
/* close input file (SMF ) */ 01300003
"EXECIO 0 DISKR INP (STEM INL. FINIS" 01310003
01320003
/* report counters */ 01330003
Say 'Output records : ' reco 01340003
if lpar = 'IPO4' then 01350003
do 01360003
/* process DSNI now */ 01370003
if ssid = 'DSNI' then /* avoid forever loop */ 01380003
do 01390003
say 'End processing' 01400003
end 01410003
else 01420003
do 01430003
ssid = 'DSNI' 01440003
signal start_pgm 01450003
end 01460003
end 01470003
if lpar = 'ZPR1' then 01471006
do 01472006
/* process DSNH now */ 01473006
if ssid = 'DB2E' then /* avoid forever loop */ 01474007
do 01475006
ssid = 'DB2H' 01475107
signal start_pgm 01475206
end 01477006
else 01478006
do 01479006
if ssid = 'DB2H' then 01479107
do 01479206
ssid = 'DB2I' 01479307
signal start_pgm 01479406
end 01479506
else 01479606
do 01479706
/* je suis la parce que ssid = 'DSNI'*/ 01479806
say 'Tous les DB2 de ZPR1 sont traités' 01479906
end 01480006
end 01480806
end 01480906
"FREE DD(INP)" 01481006
EXIT rcalloc 01490003
01500003
01510003
/* decode smf header */ 01520003
DSNDQWAS: 01530003
OFFSET = OFFSET + 1 01540003
/* SM100RTY DS XL1 RECORD TYPE X'64' OR 101 */ 01550003
SM101RTY = C2D(SUBSTR(INPUT_REC,OFFSET,1)) 01560003
if sm101rty <> 101 then return 4; 01570008
sm101ssi = SUBSTR(INPUT_REC,OFFSET+13,4) 01571008
if clnt <> 'CAAGIS' then 01572018
if sm101ssi <> ssid then return 4; 01573018
OFFSET = OFFSET + 1 01580003
01590003
/* SM101TME DS XL4 TIME SMF MOVED RECORD */ 01600003
SM101TME = C2D(SUBSTR(INPUT_REC,OFFSET,4)) 01610003
OFFSET = OFFSET + 4 01620003
CALL GET_FMT_TIME 01630003
field = C2X(SUBSTR(INPUT_REC,OFFSET,4)) 01640003
parse value field with 1 . 2 c 3 yy 5 ddd 8 . 01650003
if (c = 0) then 01660003
yyyy = '19'!!yy 01670003
else 01680003
yyyy = '20'!!yy 01690003
sm101dte = yyyy!!'.'!!ddd 01700003
OFFSET = OFFSET + 4 01710003
/* smf id */ 01720003
sm101sid = SUBSTR(INPUT_REC,OFFSET,4) 01730003
OFFSET = OFFSET + 4 01740003
/* SM100SSI DS CL4 SSID */ 01750003
/* sm101ssi = SUBSTR(INPUT_REC,OFFSET,4) */ 01760008
OFFSET = OFFSET + 10 01770003
/* TOTAL LENGTH = 28 */ 01780003
RETURN 0 01790008
01800003
DSNDQWA0: /* MAP SELF-DEFINING SECT */ 01810003
/* QWA01PSO DS AL4 OFFSET TO THE PRODUCT SECTION */ 01820003
QWA01PSO = C2D(SUBSTR(INPUT_REC,OFFSET,4)) 01830003
OFFSET = OFFSET + 8 01840003
/* QWA01R1O DS AL4 OFFSET TO THE ACCOUNTING SECTION */ 01850003
/* DSNDQWAC ACCOUNTING SECTION */ 01860003
QWA01R1O = C2D(SUBSTR(INPUT_REC,OFFSET,4)) 01870003
OFFSET = OFFSET + 8 /* 4+2+2 */ 01880003
/* DSNDQXST RDS DATA : NB selects ... */ 01890003
QWA01R2O = C2D(SUBSTR(INPUT_REC,OFFSET,4)) 01900003
OFFSET = OFFSET + 4 01900109
lg = C2D(SUBSTR(INPUT_REC,OFFSET,2)) 01901009
OFFSET = OFFSET + 4 01902009
/* DSNDQBAC Buffer manager */ 01920003
QWA01R3O = C2D(SUBSTR(INPUT_REC,OFFSET,4)) 01930003
offset = offset +6 01940003
nb_pools = C2D(SUBSTR(INPUT_REC,OFFSET,2)) 01950003
/* DSNDQTXA Lock manager */ 01960003
/* DSNDQTXA Lock manager */ 01970003
/* DSNDQLAC DDF */ 01980003
/* DSNDQMDA DDF DRDA > V2R3 */ 01990003
/* DSNDQIFA IFI */ 02000003
/* DSNDQWAR Rollup acct info */ 02010003
/* DSNDQBGA GroupBuffer */ 02020003
/* DSNDQTGA Global Locking */ 02030003
/* DSNDQWDA DataSharing (pas encore utilise) */ 02040003
/* DSNDQWAX Acctg overflow */ 02050003
/* DSNDQ8AC Accelerator acctg */ 02060003
/*OFFSET = OFFSET + 96 */ 02070003
return 02080003
02090003
/* product section std header */ 02100003
DSNDQWHS: 02110003
QWHSLEN = C2D(SUBSTR(INPUT_REC,OFFSET,2)) 02120003
OFFSET = OFFSET + 2 02130003
QWHSTYP = C2D(SUBSTR(INPUT_REC,OFFSET,1)) 02140003
OFFSET = OFFSET + 1 + 1 02150003
/* QWHSIID DS XL2 Ifcid */ 02160003
Ifcid = C2D(SUBSTR(INPUT_REC,OFFSET,2)) 02170003
OFFSET = OFFSET + 2 02180003
OFFSET = OFFSET + 6 02190003
/* QWHSSSID DS CL4 SUBSYSTEM NAME */ 02200003
QWHSSSID = SUBSTR(INPUT_REC,OFFSET,4) 02210003
OFFSET = OFFSET + 74 02220003
RETURN 02230003
02240003
/* correlation header */ 02250003
DSNDQWHC: 02260003
offset_corr=offset 02270003
QWHCLEN = C2D(SUBSTR(INPUT_REC,OFFSET,2)) 02280003
OFFSET = OFFSET + 2 02290003
OFFSET = OFFSET + 2 02300003
OFFSET = OFFSET + 8 02310003
OFFSET = OFFSET + 12 02320003
OFFSET = OFFSET + 8 02330003
OFFSET = OFFSET + 8 02340003
OFFSET = OFFSET + 8 02350003
/* QWHCATYP Type de connection*/ 02360003
QWHCATYP = C2D(SUBSTR(INPUT_REC,OFFSET,4)) 02370003
Select 02380003
When QWHCATYP = 4 Then do 02390003
conntype='CICS' 02400003
end 02410003
When QWHCATYP = 2 Then do 02420003
conntype='DB2CAL' 02430003
end 02440003
When QWHCATYP = 1 Then do 02450003
conntype='BATCH' 02460003
end 02470003
When QWHCATYP = 3 Then do 02480003
conntype='DL1' 02490003
end 02500003
When QWHCATYP = 5 Then do 02510003
conntype='IMSBMP' 02520003
end 02530003
When QWHCATYP = 6 Then do 02540003
conntype='IMSMPP' 02550003
end 02560003
When QWHCATYP = 8 Then do 02570003
conntype='DRDA' 02580003
end 02590003
When QWHCATYP = 9 Then do 02600003
conntype='IMSCTR' 02610003
end 02620003
When QWHCATYP = 10 Then do 02630003
conntype='TRNBMP' /*IMS */ 02640003
end 02650003
When QWHCATYP = 11 Then do 02660003
conntype='DB2UTI' 02670003
end 02680003
When QWHCATYP = 12 Then do 02690003
conntype='RRSAF' 02700003
end 02710003
Otherwise say 'QWHCATYP' QWHCATYP 'not processed' 02720003
end /* select */ 02730003
/* Record in Conntype List */ 02740003
Call record_conntype 02750003
02760003
OFFSET = OFFSET + 28 02770003
RETURN 02780003
02790003
DSNDQWAC: /* MAP ACCOUNTING DATA SECTION */ 02800003
/* QWACBSC DS XL8 CLASS 1 BEGINNING STORE CLOCK VALUE*/ 02810003
NUMERIC DIGITS 30 02820003
OFFSET = OFFSET + 8 02830003
OFFSET = OFFSET + 8 02840003
/* QWACBJST DS XL8 BEGINNING TCB CPU TIME FROM MVS (CLASS 1)*/ 02850003
QWACBJST = C2X(SUBSTR(INPUT_REC,OFFSET,8)) /*CONVERT INTO HEX VALUE*/ 02860003
QWACBJST = X2D(SUBSTR(QWACBJST,1,13)) /*ELIMINATE 1.5 BYTES */ 02870003
OFFSET = OFFSET + 8 02880003
/* QWACEJST DS XL8 ENDING TCB CPU TIME IN ALL ENVIRONMENTS */ 02890003
QWACEJST = C2X(SUBSTR(INPUT_REC,OFFSET,8)) /*CONVERT INTO HEX VALUE*/ 02900003
QWACEJST = X2D(SUBSTR(QWACEJST,1,13)) /*ELIMINATE 1.5 BYTES */ 02910003
TCB_TIME = (QWACEJST - QWACBJST)/1000000 02920003
OFFSET = OFFSET + 24 02930003
OFFSET = OFFSET + 20 02940003
OFFSET = OFFSET + 4 02950003
OFFSET = OFFSET + 12 02960003
/* QWACAJST DB2 CPU en stck value */ 02970003
/* attention : this is stck time , not local time ! */ 02980003
DB2_cpu = C2X(SUBSTR(INPUT_REC,OFFSET,8)) 02990003
offset=offset + 8 03000003
DB2_cpu = X2D(SUBSTR(DB2_cpu,1,13)) 03010003
DB2_cpu = DB2_cpu/1000000 03020003
/* Skip next 8 bytes */ 03030003
offset=offset + 8 03040003
/* Wait I/O QWACAWTI */ 03050003
time8=c2x(SUBSTR(INPUT_REC,OFFSET,8)) 03060003
offset=offset + 8 03070003
WaitIO =x_time(time8) 03080003
offset=offset + 8 + 8 03090003
/* Wait other Read */ 03100003
offset=offset + 8 03110003
/* Wait other write*/ 03120003
offset=offset + 8 03130003
offset=offset + 16+24 03140003
/* Wait write log QWACAWLG*/ 03150003
time8=c2x(SUBSTR(INPUT_REC,OFFSET,8)) 03160003
WaitWrLog=x_time(time8) 03170003
/* skip xx bytes */ 03180003
offset=offset + 48 03190003
/* Wait global locks QWACAWTJ */ 03200003
offset=offset + 8 03210003
time8=c2x(SUBSTR(INPUT_REC,OFFSET,8)) 03220003
WaitGlLock=x_time(time8) 03230003
/* skip xx bytes */ 03240003
offset=offset + 68 03250003
/* log records QWACLRN */ 03260003
logrec = C2D(SUBSTR(INPUT_REC,OFFSET,4)) 03270003
offset=offset + 4 + 2 03280003
/* log bytes written QWACLRAB */ 03290003
logbytes = C2D(SUBSTR(INPUT_REC,OFFSET,6)) 03300003
RETURN 03310003
03320003
/* buffer manager data */ 03330003
DSNDQBAC: 03340003
numeric digits 15 03350003
i = 0 03360003
getp=0 03370003
syncio=0 03380003
syncwr=0 03390003
sio =0 03400003
/* say 'buffer manager for plan' QWHCPLAN */ 03410003
do until i= nb_pools 03420003
i = i+1 03430003
QBACPID = C2D(SUBSTR(INPUT_REC,OFFSET,4)) 03440003
offset=offset + 4 03450003
QBACGET = C2D(SUBSTR(INPUT_REC,OFFSET,4)) 03460003
getp = getp+QBACGET 03470003
offset = offset + 12 03480003
QBACRIO = C2D(SUBSTR(INPUT_REC,OFFSET,4)) 03490003
syncio = syncio+QBACRIO 03500003
offset = offset + 4 03510003
offset = offset + 4 03520003
QBACIMW = C2D(SUBSTR(INPUT_REC,OFFSET,4)) 03530003
syncwr = syncwr + QBACIMW 03540003
offset = offset + 4 03550003
offset = offset + 4 03560003
offset = offset + 24 03570003
QBACSIO = C2D(SUBSTR(INPUT_REC,OFFSET,4)) 03580003
sio = sio +QBACSIO 03590003
offset = offset + 8 03600003
/* say ' ', */ 03610003
/* 'buffer id' QBACPID 'gp:' QBACGET 'syncio' QBACRIO,*/ 03620003
/* 'syncwr' QBACIMW 'SIO' QBACSIO */ 03630003
end 03640003
03650003
return 03660003
/* sql statements */ 03670003
DSNDQXST: 03680003
numeric digits 15 03681010
selects =0 03690003
inserts =0 03700003
updates =0 03710003
deletes =0 03720003
opens =0 03730003
fetchs =0 03740003
offset=offset + 4 03750003
eye_catch = SUBSTR(INPUT_REC,OFFSET,4) 03760003
if eye_catch <> 'QXST' then 03770003
do 03780003
say 'QXST eye catcher not found at record' reci, 03790003
' offset' offset 03800003
exit 8 03810003
end 03820003
offset=offset + 4 03830003
selects = C2D(SUBSTR(INPUT_REC,OFFSET,8)) 03840003
offset=offset + 8 03850003
inserts = C2D(SUBSTR(INPUT_REC,OFFSET,8)) 03860003
offset=offset + 8 03870003
updates = C2D(SUBSTR(INPUT_REC,OFFSET,8)) 03880003
offset=offset + 8 03890003
deletes = C2D(SUBSTR(INPUT_REC,OFFSET,8)) 03900003
offset=offset + 24 03910003
opens = C2D(SUBSTR(INPUT_REC,OFFSET,8)) 03920003
offset=offset + 136 /* 17*8*/ 03930003
fetchs = C2D(SUBSTR(INPUT_REC,OFFSET,8)) 03940003
return 03950003
03960003
GET_FMT_TIME: 03970003
RUN_HH = SM101TME % 360000 03980003
RUN_HH = RIGHT(RUN_HH,2,'0') 03990003
RUN_MIN = SM101TME % 6000 - RUN_HH*60 04000003
RUN_MIN = RIGHT(RUN_MIN,2,'0') 04010003
RUN_SEC = SM101TME % 100 - RUN_HH *3600 - RUN_MIN*60 04020003
RUN_SEC = RIGHT(RUN_SEC,2,'0') 04030003
RUN_FMT_TIME = RUN_HH!!':'!!RUN_MIN!!':'!!RUN_SEC 04040003
RETURN 04050003
04060003
write_header: 04070003
say 'file ' oufs ' will be produced' 04080003
queue "Lpar,Ssid,Date,Hour,Conntype,", 04090003
"Cl1Cpu,Cl2Cpu,", 04100003
"Getp,SyncIo,SyncWr,Sio,", 04110003
"Selects,Inserts,Updates,Deletes,Opens,Fetchs,", 04120003
"WaitIO,", 04130003
"WaitWrLog," , 04140003
"WaitGlLock,", 04150003
"Logrec," , 04160003
"Logbytes" 04170003
04180003
"EXECIO" queued() "DISKW OUFs" 04190003
reco=reco+1 04200003
return 04210003
04220003
process_summary: 04230003
hour = left(run_fmt_time,2) 04241016
/* pas de rupture pour le 1er record lu */ 04250003
if rupture = 0 04260003
then do 04270003
rupture=1 04280003
s_hour=hour 04290003
end 04300003
/* detection rupture,declenche ecriture*/ 04310003
if hour <> s_hour 04320003
then do 04330003
call write_summary 04340003
do i=1 to nbr_conntype 04350003
conntmp = lst_conntype.i 04360003
if conntmp = conntype then 04370003
do 04380003
/* summary counters of the current conntype */ 04390003
sm_tcb_time.conntype = tcb_time 04400003
sm_DB2_cpu.conntype = DB2_cpu /* DB2 CPU */ 04410003
sm_getp.conntype = getp 04420003
sm_syncio.conntype = syncio 04430003
sm_syncwr.conntype = syncwr 04440003
sm_sio.conntype = sio 04450003
sm_selects.conntype = selects 04460003
sm_inserts.conntype = inserts 04470003
sm_updates.conntype = updates 04480003
sm_deletes.conntype = deletes 04490003
sm_opens.conntype = opens 04500003
sm_fetchs.conntype = fetchs 04510003
sm_WaitIO.conntype = WaitIO 04520003
sm_WaitWrLog.conntype = WaitWrLog 04530003
sm_WaitGlLock.conntype= WaitGlLock 04540003
sm_logrec.conntype = logrec 04550003
sm_logbytes.conntype = logbytes 04560003
end 04570003
else do 04580003
sm_tcb_time.conntmp = 0 04590003
sm_DB2_cpu.conntmp = 0 04600003
sm_getp.conntmp = 0 04610003
sm_syncio.conntmp = 0 04620003
sm_syncwr.conntmp = 0 04630003
sm_sio.conntmp = 0 04640003
sm_selects.conntmp = 0 04650003
sm_inserts.conntmp = 0 04660003
sm_updates.conntmp = 0 04670003
sm_deletes.conntmp = 0 04680003
sm_opens.conntmp = 0 04690003
sm_fetchs.conntmp = 0 04700003
sm_WaitIO.conntmp = 0 04710003
sm_WaitWrLog.conntmp = 0 04720003
sm_WaitGlLock.conntmp = 0 04730003
sm_logrec.conntmp = 0 04740003
sm_logbytes.conntmp = 0 04750003
end 04760003
end /* end do for */ 04770003
04780003
s_hour=hour 04790003
04800003
end 04810003
/*pas de rupture , on accumule les valeurs */ 04820003
else do 04830003
sm_tcb_time.conntype = tcb_time + sm_tcb_time.conntype 04840003
sm_DB2_cpu.conntype = DB2_cpu + sm_DB2_cpu.conntype 04850003
sm_getp.conntype = getp + sm_getp.conntype 04860003
sm_syncio.conntype = syncio + sm_syncio.conntype 04870003
sm_syncwr.conntype = syncwr + sm_syncwr.conntype 04880003
sm_sio.conntype = sio + sm_sio.conntype 04890003
sm_selects.conntype = selects + sm_selects.conntype 04900003
sm_inserts.conntype = inserts + sm_inserts.conntype 04910003
sm_updates.conntype = updates + sm_updates.conntype 04920003
sm_deletes.conntype = deletes + sm_deletes.conntype 04930003
sm_opens.conntype = opens + sm_opens.conntype 04940003
sm_fetchs.conntype = fetchs + sm_fetchs.conntype 04950003
sm_WaitIO.conntype = WaitIO + sm_WaitIO.conntype 04960003
sm_WaitWrLog.conntype = WaitWrLog + sm_WaitWrLog.conntype 04970003
sm_WaitGlLock.conntype= WaitGlLock+ sm_WaitGlLock.conntype 04980003
sm_logrec.conntype = logrec + sm_logrec.conntype 04990003
sm_logbytes.conntype = logbytes + sm_logbytes.conntype 05000003
05010003
end/*pas de rupture , on accumule les valeurs */ 05020003
05030003
return 05040003
05050003
write_summary: 05060003
if reco = 0 then call croutput 05070020
05080003
/* loop to write all connectype */ 05090003
do i=1 to nbr_conntype 05100003
ConnTmp = Lst_Conntype.i 05110003
sm_logbytes.ConnTmp=sm_logbytes.ConnTmp/1048576 05120003
sm_logbytes.ConnTmp=format(sm_logbytes.ConnTmp,,0) 05130003
reco=reco+1 05131004
queue sm101sid !! ',' !! sm101ssi !! ',' , 05140003
!! sm101dte !! ',' , 05150003
!! s_hour !! ',' , 05160003
!! '"' !! ConnTmp !! '"' !! ',' , 05170003
!! sm_tcb_time.ConnTmp !! ',' , 05180003
!! sm_DB2_cpu.ConnTmp !! ',' , 05190003
!! format(sm_getp.ConnTmp,,0,0) !! ',' , 05200013
!! sm_syncio.ConnTmp !! ',' , 05210003
!! sm_syncwr.ConnTmp !! ',' , 05220003
!! sm_sio.ConnTmp !! ',' , 05230003
!! format(sm_selects.ConnTmp,,0,0) !! ',' , 05240013
!! sm_inserts.ConnTmp !! ',' , 05250003
!! sm_updates.ConnTmp !! ',' , 05260003
!! sm_deletes.ConnTmp !! ',' , 05270003
!! sm_opens.ConnTmp !! ',' , 05280003
!! sm_fetchs.ConnTmp !! ',' , 05290003
!! sm_WaitIO.ConnTmp !! ',' , 05300003
!! sm_WaitWrLog.ConnTmp !! ',' , 05310003
!! sm_WaitGlLock.ConnTmp!! ',' , 05320003
!! sm_logrec.ConnTmp !! ',' , 05330003
!! sm_logbytes.ConnTmp !! ',' 05340003
end 05350003
05360003
"EXECIO" queued() "DISKW OUFS" 05370003
return 05380003
05390003
x_time: 05400003
arg time8 05410003
time8 = X2D(SUBSTR(time8,1,13)) 05420003
time8 = time8/1000000 05430003
return time8 05440003
05450003
record_conntype: 05460003
found=0 05470003
do i = 1 to nbr_conntype 05480003
if lst_conntype.i = conntype then 05490003
do 05500003
found=1 05510003
leave 05520003
end 05530003
end 05540003
/* not found : add new conntype to list*/ 05550003
if found=0 then 05560003
do 05570003
nbr_conntype = nbr_conntype + 1 05580003
lst_conntype.nbr_conntype = conntype 05590003
/* Initialize variables */ 05600003
sm_tcb_time.conntype = 0 05610003
sm_DB2_cpu.conntype = 0 05620003
sm_getp.conntype = 0 05630003
sm_syncio.conntype = 0 05640003
sm_syncwr.conntype = 0 05650003
sm_sio.conntype = 0 05660003
sm_selects.conntype = 0 05670003
sm_inserts.conntype = 0 05680003
sm_updates.conntype = 0 05690003
sm_deletes.conntype = 0 05700003
sm_opens.conntype = 0 05710003
sm_fetchs.conntype = 0 05720003
sm_WaitIO.conntype = 0 05730003
sm_WaitWrLog.conntype = 0 05740003
sm_WaitGlLock.conntype= 0 05750003
sm_logrec.conntype = 0 05760003
sm_logbytes.conntype = 0 05770003
05780003
end 05790003
return 05800003
/*========================================== */ 05810003
/* Set SMF data set name , depending on lpar */ 05820003
/*========================================== */ 05830003
SetSmfDs: 05840003
oufl = 'systmp.wsyngud.smfexta' 05850003
Select 05860003
When lpar = 'XX10' then 05870003
do 05880003
oufl='systmp.wsyngud.smfexta' 05890003
ssid='DB2B' 05900003
end 05910003
When lpar = 'LIM' then 05920003
do 05930003
call GetDate 05940003
oufl="GEB.BSMF"!!Lpar!!".DB2.D"!!dd!!"J"!!yy1 05950003
ssid='DBP1' 05960003
end 05970003
When lpar = 'LIM2' then 05980003
do 05990003
call GetDate 06000003
oufl="GEB.BSMF"!!Lpar!!".DB2.D"!!dd!!"J"!!yy1 06010003
ssid='DBP2' 06020003
end /* end Lpar XX10 Sofinco */ 06030003
When lpar = 'LIM3' then 06040003
do 06050003
call GetDate 06060003
oufl="GEB.BSMF"!!Lpar!!".DB2.D"!!dd!!"J"!!yy1 06070003
ssid='DBP3' 06080003
end /* end Lpar XX10 Sofinco */ 06090003
When lpar = 'LIM4' then 06100003
do 06110003
call GetDate 06120003
oufl="GEB.BSMF"!!Lpar!!".DB2.D"!!dd!!"J"!!yy1 06130003
ssid='DBP8' 06140003
end /* end Lpar XX10 Sofinco */ 06150003
When lpar = 'IPO4' then 06160003
do 06170003
oufl='NotUsed' 06180003
ssid='DSN2' 06190003
end /* end Lpar IPO4 CACIB */ 06200005
When lpar = 'MVSA' then 06201005
do 06202005
oufl='NotUsed' 06203005
ssid='DB2P' 06204005
end /* end Lpar MVSA CARIPARMA*/ 06205005
When lpar = 'ZPR1' then 06206006
do 06207006
oufl='NotUsed' 06208006
ssid='DB2E' 06209006
end /* end Lpar MVSA CARIPARMA*/ 06209106
When lpar = 'PROD' then 06209216
do 06209315
clnt='CAAGIS' 06209418
oufl='NotUsed' 06209518
ssid='XXXX' 06209618
end /* end Lpar caagis */ 06209716
Otherwise 06211015
do 06220003
say 'Lpar not processed - End of program' 06230003
exit(0) 06240003
end 06250003
end /* End select */ 06260003
return 06270003
GetDate: 06280003
hier=DATE('E',DATE(B)-1,'B') 06290003
dd=substr(hier,1,2) 06300003
yy1=substr(hier,8,1) 06310003
return 06320003
/* Report dataset on output */ 06330016
Croutput: 06331016
/* caagis ssid = celui qui est en entree */ 06340016
if clnt = 'CAAGIS' then 06340119
do 06340216
ssidx = sm101ssi 06340316
if ssidx = 'DBPR' then lpar='SUDM' 06340416
if ssidx = 'DB2I' then lpar='SUDB' 06340616
end 06340716
else ssidx = ssid 06340816
oufs = "'" !! hlq !! '.reportA.' !! lpar !! '.' !! ssidx !! "'" 06341016
"DELETE" oufs "PURGE" 06350016
"ALLOC FI(OUFs) DA("oufs") NEW CATALOG REUSE" , 06360016
"LRECL(320) RECFM(V B) TRACKS SPACE(15,15)" 06370016
rcalloc = rc 06380016
if rcalloc <> 0 then Do 06390016
say "**********************************************" 06400016
say " Error allocating report file" rcalloc 06410016
say " Abnormal end " 06420016
say "**********************************************" 06430016
Exit 8 06440016
end 06450016
return 06460016
