/* COPYRIGHT (C) 1984, 2022 BY MERRILL CONSULTANTS DALLAS TEXAS USA*/ %PUT MXGNOTE: VMAC7072 LAST UPDATED: JUN 25, 2022. CHANGE 40.078; /* DEFAULT LIBRARY/DSNAME AND DATASET OPTION MACROS FOR VMAC7072. */ /*===END OF COMMENTS===*/ /* DEFAULT DISABLES DEBUGGING PUTLOGS AND VMXGPRA1: */ /* _XANT AND _XNTLPAR ARE INTERNAL MXG DEBUGGING TOOLS */ /* SYNTAX TO ENABLE DEBUGGING PUTLOGS AND VMXGPRA1: */ /* MACRO _XNTLPAR WHERE LPARNAME='SYSH ' % */ /* MACRO _XANT 0=0 % */ /* TO ENABLE DEBUG: */ /* 1. SET _XANT AND _XNTLPAR as above, IN THE TWO LINES BELOW. */ /* 2. C ' *title' ' TITLE' ALL */ /* 3. C ' *%%vmxgpra' ' %%VMXGPRA' ALL */ /* 4. C ' PROC DELETE' '*PROC DELETE' ALL */ MACRO _XANT 0=1 % MACRO _XNTLPAR % MACRO _VTY70 /*&PTY70..TYPE70 */ KEEP=APPC00 -APPC11 APPCAVG APPCMAX APPCMIN BATCH00 -BATCH11 BATCHAVG BATCHMAX BATCHMIN CPUTYPE CPUVERSN CPUSER CPUWAITM CYCLE CPUUPTM CPUACTTM CPUEFFTM CPUPDTTM CPUPATTM DURATM EXTNDSTO ESCACONF ESCAENAB GMTOFFTM IN00 -IN11 INAVG INMAX INMIN IORATE LRDY00 -LRDY11 LRDYAVG LRDYMAX LRDYMIN LWAIT00 -LWAIT11 LWAITAVG LWAITMAX LWAITMIN MVSLEVEL NRCPUS NRSAMPLE NRCPUD OUT00 -OUT11 OUTAVG OUTMAX OUTMIN PARTISHN PCTCPUBY PCTTPI PARTNCPU PCTCPUEF PCTRDYWT PCTRDQWT READY00 -READY15 READYAVG READYMAX READYMIN RELEASE SMFTIME STARTIME STC00 -STC11 STCAVG STCMAX STCMIN SUPATERN SYSTEM SYSPLEX SYSNAME TSO00 -TSO11 TSOAVG TSOMAX TSOMIN TYPEIOML VERSNRMF WAIT00 -WAIT11 WAITAVG WAITMAX WAITMIN ZDATE /*ADDED BY MVS/ESA 4.3:*/ SYNCTIME INTRVSYN OMVS00 -OMVS11 OMVSAVG OMVSMAX OMVSMIN /* ADDED BY MXG 12.12, FOR APAR OW07986 */ PCTMVSBY MVSWAITM SHORTCPS PLCPRDYQ /* ADDED BY MXG 13.09 */ MXGVERSN CPUMVSTM /* ADDED BY MXG CHANGE 16.342 */ CECSER SMF70GIE /* ADDED BY MXG CHANGE 18.134 */ SMF70DSA /* ADDED BY APAR OW37254, CHANGE 18.258 */ CPCMODEL /* ADDED BY Z/OS 1.1 */ CPUADJCH SUAVAICH SMF70CPA SMF70LAC SMF70WLA PRODUCT /* ADDED BY CHANGE 21.170 */ SMF70ONT /* ADDED BY CHANGE 21.303 */ ZARCHMDE /* ADDED BY CHANGE 22.152 */ IFAAVAIL SMF70IFA IFAACTTM IFAUPTM NRIFAS PCTIFABY ZIPACTTM ZIPUPTM NRZIPCPU PCTZIPBY /* ADDED BY CHANGE 22.307 */ LPARWLMG /* ADDED BY CHANGE 23.132 */ MACHTIME SMF70HOF STFBIT03 STFBIT04 SMF70HWM SMF70Q00-SMF70Q12 /* ADDED BY CHANGE 23.335 */ SMF70OIL SMF70SYN /* ADDED BY CHANGE 24.046 */ SMF70SUP ZIPAVAIL /* ADDED BY CHANGE 24.092 */ SMF70GJT SMF70POM SMF70CSC /*ADDED BY APAR OA18244 CHANGE 25.176*/ STFBIT05 STFBIT06 SMF70PMI SMF70PML SMF70PMP SMF70PMT SMF70PMU SMF70PMW /*ADDED BY CHANGE 25.205 */ PRSMSYST /*ADDED BY CHANGE 26.025 OA12774*/ SMF70MCR SMF70MPC SMF70MPR SMF70MTC SMF70MTR /*ADDED BY CHANGE 26.030 OA24074*/ SMF70HHF /*ADDED BY CHANGE 26.226*/ SMF70ZEP SMF70ZER SMF70ZEE SMF70ZEC /*ADDED BY CHANGE 26.243*/ SMF70NRM /*ADDED BY CHANGE 28.080*/ SMF70GAU /* ARRAYS FOR ENGINES - CHANGE 28.143 */ CAI0 -CAI9 CAIA CAIB CAIC CAID CAIE CAIF CAIG CAIH CAII CAIJ CAIK CAIL CAIN CAIO CAIP CAIQ CAIR CAIS CAIT CAIU CAIV CAIW CAIX CAIY CAIZ CAIZA CAIZB CAIZC CAIZD CAIZE CAIZF CAIZG CAIZH CAIZI CAIZJ CAIZK CAIZL CAIZM CAIZN CAIZO CAIZP CAIZQ CAIZR CAIZS CAIZT CAIZU CAIZV CAIZW CAIZX CAIZY CAIZZ CAIYA CAIYB CAIYC CAIYD CAIYE CAIYF CAIYG CAIYH CAIYI CAIYJ CAIYK CAIYL CAIYM CAIYN CAIYO CAIYP CAIYQ CAIYR CAIYS CAIYT CAIYU CAIYV CAIYW CAIYX CAIYY CAIYZ CAIVA CAIVB CAIVC CAIVD CAIVE CAIVF CAIVG CAIVH CAIVI CPUSER0 -CPUSER9 CPUSERA CPUSERB CPUSERC CPUSERD CPUSERE CPUSERF CPUSERG CPUSERH CPUSERI CPUSERJ CPUSERK CPUSERL CPUSERN CPUSERO CPUSERP CPUSERQ CPUSERR CPUSERS CPUSERT CPUSERU CPUSERV CPUSERW CPUSERX CPUSERY CPUSERZ CPUSERZA CPUSERZB CPUSERZC CPUSERZD CPUSERZE CPUSERZF CPUSERZG CPUSERZH CPUSERZI CPUSERZJ CPUSERZK CPUSERZL CPUSERZM CPUSERZN CPUSERZO CPUSERZP CPUSERZQ CPUSERZR CPUSERZS CPUSERZT CPUSERZU CPUSERZV CPUSERZW CPUSERZX CPUSERZY CPUSERZZ CPUSERYA CPUSERYB CPUSERYC CPUSERYD CPUSERYE CPUSERYF CPUSERYG CPUSERYH CPUSERYI CPUSERYJ CPUSERYK CPUSERYL CPUSERYM CPUSERYN CPUSERYO CPUSERYP CPUSERYQ CPUSERYR CPUSERYS CPUSERYT CPUSERYU CPUSERYV CPUSERYW CPUSERYX CPUSERYY CPUSERYZ CPUSERVA CPUSERVB CPUSERVC CPUSERVD CPUSERVE CPUSERVF CPUSERVG CPUSERVH CPUSERVI IFATYP0 -IFATYP9 IFATYPA IFATYPB IFATYPC IFATYPD IFATYPE IFATYPF IFATYPG IFATYPH IFATYPI IFATYPJ IFATYPK IFATYPL IFATYPN IFATYPO IFATYPP IFATYPQ IFATYPR IFATYPS IFATYPT IFATYPU IFATYPV IFATYPW IFATYPX IFATYPY IFATYPZ IFATYPZA IFATYPZB IFATYPZC IFATYPZD IFATYPZE IFATYPZF IFATYPZG IFATYPZH IFATYPZI IFATYPZJ IFATYPZK IFATYPZL IFATYPZM IFATYPZN IFATYPZO IFATYPZP IFATYPZQ IFATYPZR IFATYPZS IFATYPZT IFATYPZU IFATYPZV IFATYPZW IFATYPZX IFATYPZY IFATYPZZ IFATYPYA IFATYPYB IFATYPYC IFATYPYD IFATYPYE IFATYPYF IFATYPYG IFATYPYH IFATYPYI IFATYPYJ IFATYPYK IFATYPYL IFATYPYM IFATYPYN IFATYPYO IFATYPYP IFATYPYQ IFATYPYR IFATYPYS IFATYPYT IFATYPYU IFATYPYV IFATYPYW IFATYPYX IFATYPYY IFATYPYZ IFATYPVA IFATYPVB IFATYPVC IFATYPVD IFATYPVE IFATYPVF IFATYPVG IFATYPVH IFATYPVI CPUWAIT0-CPUWAIT9 CPUWAITA CPUWAITB CPUWAITC CPUWAITD CPUWAITE CPUWAITF CPUWAITG CPUWAITH CPUWAITI CPUWAITJ CPUWAITK CPUWAITL CPUWAITN CPUWAITO CPUWAITP CPUWAITQ CPUWAITR CPUWAITS CPUWAITT CPUWAITU CPUWAITV CPUWAITW CPUWAITX CPUWAITY CPUWAITZ CPUWAIZA CPUWAIZB CPUWAIZC CPUWAIZD CPUWAIZE CPUWAIZF CPUWAIZG CPUWAIZH CPUWAIZI CPUWAIZJ CPUWAIZK CPUWAIZL CPUWAIZM CPUWAIZN CPUWAIZO CPUWAIZP CPUWAIZQ CPUWAIZR CPUWAIZS CPUWAIZT CPUWAIZU CPUWAIZV CPUWAIZW CPUWAIZX CPUWAIZY CPUWAIZZ CPUWAIYA CPUWAIYB CPUWAIYC CPUWAIYD CPUWAIYE CPUWAIYF CPUWAIYG CPUWAIYH CPUWAIYI CPUWAIYJ CPUWAIYK CPUWAIYL CPUWAIYM CPUWAIYN CPUWAIYO CPUWAIYP CPUWAIYQ CPUWAIYR CPUWAIYS CPUWAIYT CPUWAIYU CPUWAIYV CPUWAIYW CPUWAIYX CPUWAIYY CPUWAIYZ CPUWAIVA CPUWAIVB CPUWAIVC CPUWAIVD CPUWAIVE CPUWAIVF CPUWAIVG CPUWAIVH CPUWAIVI IFAWAIT0-IFAWAIT9 IFAWAITA IFAWAITB IFAWAITC IFAWAITD IFAWAITE IFAWAITF IFAWAITG IFAWAITH IFAWAITI IFAWAITJ IFAWAITK IFAWAITL IFAWAITN IFAWAITO IFAWAITP IFAWAITQ IFAWAITR IFAWAITS IFAWAITT IFAWAITU IFAWAITV IFAWAITW IFAWAITX IFAWAITY IFAWAITZ IFAWAIZA IFAWAIZB IFAWAIZC IFAWAIZD IFAWAIZE IFAWAIZF IFAWAIZG IFAWAIZH IFAWAIZI IFAWAIZJ IFAWAIZK IFAWAIZL IFAWAIZM IFAWAIZN IFAWAIZO IFAWAIZP IFAWAIZQ IFAWAIZR IFAWAIZS IFAWAITM IFAWAIZT IFAWAIZU IFAWAIZV IFAWAIZW IFAWAIZX IFAWAIZY IFAWAIZZ IFAWAIYA IFAWAIYB IFAWAIYC IFAWAIYD IFAWAIYE IFAWAIYF IFAWAIYG IFAWAIYH IFAWAIYI IFAWAIYJ IFAWAIYK IFAWAIYL IFAWAIYM IFAWAIYN IFAWAIYO IFAWAIYP IFAWAIYQ IFAWAIYR IFAWAIYS IFAWAIYT IFAWAIYU IFAWAIYV IFAWAIYW IFAWAIYX IFAWAIYY IFAWAIYZ IFAWAIVA IFAWAIVB IFAWAIVC IFAWAIVD IFAWAIVE IFAWAIVF IFAWAIVG IFAWAIVH IFAWAIVI ZIPWAIT0-ZIPWAIT9 ZIPWAITA ZIPWAITB ZIPWAITC ZIPWAITD ZIPWAITE ZIPWAITF ZIPWAITG ZIPWAITH ZIPWAITI ZIPWAITJ ZIPWAITK ZIPWAITL ZIPWAITN ZIPWAITO ZIPWAITP ZIPWAITQ ZIPWAITR ZIPWAITS ZIPWAITT ZIPWAITU ZIPWAITV ZIPWAITW ZIPWAITX ZIPWAITY ZIPWAITZ ZIPWAIZA ZIPWAIZB ZIPWAIZC ZIPWAIZD ZIPWAIZE ZIPWAIZF ZIPWAIZG ZIPWAIZH ZIPWAIZI ZIPWAIZJ ZIPWAIZK ZIPWAIZL ZIPWAIZM ZIPWAIZN ZIPWAIZO ZIPWAIZP ZIPWAIZQ ZIPWAIZR ZIPWAIZS ZIPWAITM ZIPWAIZT ZIPWAIZU ZIPWAIZV ZIPWAIZW ZIPWAIZX ZIPWAIZY ZIPWAIZZ ZIPWAIYA ZIPWAIYB ZIPWAIYC ZIPWAIYD ZIPWAIYE ZIPWAIYF ZIPWAIYG ZIPWAIYH ZIPWAIYI ZIPWAIYJ ZIPWAIYK ZIPWAIYL ZIPWAIYM ZIPWAIYN ZIPWAIYO ZIPWAIYP ZIPWAIYQ ZIPWAIYR ZIPWAIYS ZIPWAIYT ZIPWAIYU ZIPWAIYV ZIPWAIYW ZIPWAIYX ZIPWAIYY ZIPWAIYZ ZIPWAIVA ZIPWAIVB ZIPWAIVC ZIPWAIVD ZIPWAIVE ZIPWAIVF ZIPWAIVG ZIPWAIVH ZIPWAIVI CPUEDTM0-CPUEDTM9 CPUEDTMA CPUEDTMB CPUEDTMC CPUEDTMD CPUEDTME CPUEDTMF CPUEDTMG CPUEDTMH CPUEDTMI CPUEDTMJ CPUEDTMK CPUEDTML CPUEDTMN CPUEDTMO CPUEDTMP CPUEDTMQ CPUEDTMR CPUEDTMS CPUEDTMT CPUEDTMU CPUEDTMV CPUEDTMW CPUEDTMX CPUEDTMY CPUEDTMZ CPUEDTZA CPUEDTZB CPUEDTZC CPUEDTZD CPUEDTZE CPUEDTZF CPUEDTZG CPUEDTZH CPUEDTZI CPUEDTZJ CPUEDTZK CPUEDTZL CPUEDTZM CPUEDTZN CPUEDTZO CPUEDTZP CPUEDTZQ CPUEDTZR CPUEDTZS CPUEDTZT CPUEDTZU CPUEDTZV CPUEDTZW CPUEDTZX CPUEDTZY CPUEDTZZ CPUEDTYA CPUEDTYB CPUEDTYC CPUEDTYD CPUEDTYE CPUEDTYF CPUEDTYG CPUEDTYH CPUEDTYI CPUEDTYJ CPUEDTYK CPUEDTYL CPUEDTYM CPUEDTYN CPUEDTYO CPUEDTYP CPUEDTYQ CPUEDTYR CPUEDTYS CPUEDTYT CPUEDTYU CPUEDTYV CPUEDTYW CPUEDTYX CPUEDTYY CPUEDTYZ CPUEDTVA CPUEDTVB CPUEDTVC CPUEDTVD CPUEDTVE CPUEDTVF CPUEDTVG CPUEDTVH CPUEDTVI CPUPDTM0-CPUPDTM9 CPUPDTMA CPUPDTMB CPUPDTMC CPUPDTMD CPUPDTME CPUPDTMF CPUPDTMG CPUPDTMH CPUPDTMI CPUPDTMJ CPUPDTMK CPUPDTML CPUPDTMN CPUPDTMO CPUPDTMP CPUPDTMQ CPUPDTMR CPUPDTMS CPUPDTMT CPUPDTMU CPUPDTMV CPUPDTMW CPUPDTMX CPUPDTMY CPUPDTMZ CPUPDTZA CPUPDTZB CPUPDTZC CPUPDTZD CPUPDTZE CPUPDTZF CPUPDTZG CPUPDTZH CPUPDTZI CPUPDTZJ CPUPDTZK CPUPDTZL CPUPDTZM CPUPDTZN CPUPDTZO CPUPDTZP CPUPDTZQ CPUPDTZR CPUPDTZS CPUPDTZT CPUPDTZU CPUPDTZV CPUPDTZW CPUPDTZX CPUPDTZY CPUPDTZZ CPUPDTYA CPUPDTYB CPUPDTYC CPUPDTYD CPUPDTYE CPUPDTYF CPUPDTYG CPUPDTYH CPUPDTYI CPUPDTYJ CPUPDTYK CPUPDTYL CPUPDTYM CPUPDTYN CPUPDTYO CPUPDTYP CPUPDTYQ CPUPDTYR CPUPDTYS CPUPDTYT CPUPDTYU CPUPDTYV CPUPDTYW CPUPDTYX CPUPDTYY CPUPDTYZ CPUPDTVA CPUPDTVB CPUPDTVC CPUPDTVD CPUPDTVE CPUPDTVF CPUPDTVG CPUPDTVH CPUPDTVI IORATE0- IORATE9 IORATEA IORATEB IORATEC IORATED IORATEE IORATEF IORATEG IORATEH IORATEI IORATEJ IORATEK IORATEL IORATEN IORATEO IORATEP IORATEQ IORATER IORATES IORATET IORATEU IORATEV IORATEW IORATEX IORATEY IORATEZ IORATEZA IORATEZB IORATEZC IORATEZD IORATEZE IORATEZF IORATEZG IORATEZH IORATEZI IORATEZJ IORATEZK IORATEZL IORATEZM IORATEZN IORATEZO IORATEZP IORATEZQ IORATEZR IORATEZS IORATEZT IORATEZU IORATEZV IORATEZW IORATEZX IORATEZY IORATEZZ IORATEYA IORATEYB IORATEYC IORATEYD IORATEYE IORATEYF IORATEYG IORATEYH IORATEYI IORATEYJ IORATEYK IORATEYL IORATEYM IORATEYN IORATEYO IORATEYP IORATEYQ IORATEYR IORATEYS IORATEYT IORATEYU IORATEYV IORATEYW IORATEYX IORATEYY IORATEYZ IORATEVA IORATEVB IORATEVC IORATEVD IORATEVE IORATEVF IORATEVG IORATEVH IORATEVI PCTCPBY0-PCTCPBY9 PCTCPBYA PCTCPBYB PCTCPBYC PCTCPBYD PCTCPBYE PCTCPBYF PCTCPBYG PCTCPBYH PCTCPBYI PCTCPBYJ PCTCPBYK PCTCPBYL PCTCPBYN PCTCPBYO PCTCPBYP PCTCPBYQ PCTCPBYR PCTCPBYS PCTCPBYT PCTCPBYU PCTCPBYV PCTCPBYW PCTCPBYX PCTCPBYY PCTCPBYZ PCTCPBZA PCTCPBZB PCTCPBZC PCTCPBZD PCTCPBZE PCTCPBZF PCTCPBZG PCTCPBZH PCTCPBZI PCTCPBZJ PCTCPBZK PCTCPBZL PCTCPBZM PCTCPBZN PCTCPBZO PCTCPBZP PCTCPBZQ PCTCPBZR PCTCPBZS PCTCPBZT PCTCPBZU PCTCPBZV PCTCPBZW PCTCPBZX PCTCPBZY PCTCPBZZ PCTCPBXA PCTCPBXB PCTCPBXC PCTCPBXD PCTCPBXE PCTCPBXF PCTCPBXG PCTCPBXH PCTCPBXI PCTCPBXJ PCTCPBXK PCTCPBXL PCTCPBXM PCTCPBXN PCTCPBXO PCTCPBXP PCTCPBXQ PCTCPBXR PCTCPBXS PCTCPBXT PCTCPBXU PCTCPBXV PCTCPBXW PCTCPBXX PCTCPBXY PCTCPBXZ PCTCPBUA PCTCPBUB PCTCPBUC PCTCPBUD PCTCPBUE PCTCPBUF PCTCPBUG PCTCPBUH PCTCPBUI PCTCPBUJ PCTCPBUK PCTCPBUL PCTCPBUM PCTCPBUN PCTCPBUO PCTTPI0 -PCTTPI9 PCTTPIA PCTTPIB PCTTPIC PCTTPID PCTTPIE PCTTPIF PCTTPIG PCTTPIH PCTTPII PCTTPIJ PCTTPIK PCTTPIL PCTTPIN PCTTPIO PCTTPIP PCTTPIQ PCTTPIR PCTTPIS PCTTPIT PCTTPIU PCTTPIV PCTTPIW PCTTPIX PCTTPIY PCTTPIZ PCTTPIZA PCTTPIZB PCTTPIZC PCTTPIZD PCTTPIZE PCTTPIZF PCTTPIZG PCTTPIZH PCTTPIZI PCTTPIZJ PCTTPIZK PCTTPIZL PCTTPIZM PCTTPIZN PCTTPIZO PCTTPIZP PCTTPIZQ PCTTPIZR PCTTPIZS PCTTPIZT PCTTPIZU PCTTPIZV PCTTPIZW PCTTPIZX PCTTPIZY PCTTPIZZ PCTTPIYA PCTTPIYB PCTTPIYC PCTTPIYD PCTTPIYE PCTTPIYF PCTTPIYG PCTTPIYH PCTTPIYI PCTTPIYJ PCTTPIYK PCTTPIYL PCTTPIYM PCTTPIYN PCTTPIYO PCTTPIYP PCTTPIYQ PCTTPIYR PCTTPIYS PCTTPIYT PCTTPIYU PCTTPIYV PCTTPIYW PCTTPIYX PCTTPIYY PCTTPIYZ PCTTPIVA PCTTPIVB PCTTPIVC PCTTPIVD PCTTPIVE PCTTPIVF PCTTPIVG PCTTPIVH PCTTPIVI VFAFFTM0-VFAFFTM9 VFAFFTMA VFAFFTMB VFAFFTMC VFAFFTMD VFAFFTME VFAFFTMF VFAFFTMG VFAFFTMH VFAFFTMI VFAFFTMJ VFAFFTMK VFAFFTML VFAFFTMN VFAFFTMO VFAFFTMP VFAFFTMQ VFAFFTMR VFAFFTMS VFAFFTMT VFAFFTMU VFAFFTMV VFAFFTMW VFAFFTMX VFAFFTMY VFAFFTMZ VFAFFTZA VFAFFTZB VFAFFTZC VFAFFTZD VFAFFTZE VFAFFTZF VFAFFTZG VFAFFTZH VFAFFTZI VFAFFTZJ VFAFFTZK VFAFFTZL VFAFFTZM VFAFFTZN VFAFFTZO VFAFFTZP VFAFFTZQ VFAFFTZR VFAFFTZS VFAFFTZT VFAFFTZU VFAFFTZV VFAFFTZW VFAFFTZX VFAFFTZY VFAFFTZZ VFAFFTYA VFAFFTYB VFAFFTYC VFAFFTYD VFAFFTYE VFAFFTYF VFAFFTYG VFAFFTYH VFAFFTYI VFAFFTYJ VFAFFTYK VFAFFTYL VFAFFTYM VFAFFTYN VFAFFTYO VFAFFTYP VFAFFTYQ VFAFFTYR VFAFFTYS VFAFFTYT VFAFFTYU VFAFFTYV VFAFFTYW VFAFFTYX VFAFFTYY VFAFFTYZ VFAFFTVA VFAFFTVB VFAFFTVC VFAFFTVD VFAFFTVE VFAFFTVF VFAFFTVG VFAFFTVH VFAFFTVI VFON0 -VFON9 VFONA VFONB VFONC VFOND VFONE VFONF VFONG VFONH VFONI VFONJ VFONK VFONL VFONN VFONO VFONP VFONQ VFONR VFONS VFONT VFONU VFONV VFONW VFONX VFONY VFONZ VFONZA VFONZB VFONZC VFONZD VFONZE VFONZF VFONZG VFONZH VFONZI VFONZJ VFONZK VFONZL VFONZM VFONZN VFONZO VFONZP VFONZQ VFONZR VFONZS VFONZT VFONZU VFONZV VFONZW VFONZX VFONZY VFONZZ VFONYA VFONYB VFONYC VFONYD VFONYE VFONYF VFONYG VFONYH VFONYI VFONYJ VFONYK VFONYL VFONYM VFONYN VFONYO VFONYP VFONYQ VFONYR VFONYS VFONYT VFONYU VFONYV VFONYW VFONYX VFONYY VFONYZ VFONVA VFONVB VFONVC VFONVD VFONVE VFONVF VFONVG VFONVH VFONVI MVSWAIT0-MVSWAIT9 MVSWAITA MVSWAITB MVSWAITC MVSWAITD MVSWAITE MVSWAITF MVSWAITG MVSWAITH MVSWAITI MVSWAITJ MVSWAITK MVSWAITL MVSWAITN MVSWAITO MVSWAITP MVSWAITQ MVSWAITR MVSWAITS MVSWAITT MVSWAITU MVSWAITV MVSWAITW MVSWAITX MVSWAITY MVSWAITZ MVSWAIZA MVSWAIZB MVSWAIZC MVSWAIZD MVSWAIZE MVSWAIZF MVSWAIZG MVSWAIZH MVSWAIZI MVSWAIZJ MVSWAIZK MVSWAIZL MVSWAIZM MVSWAIZN MVSWAIZO MVSWAIZP MVSWAIZQ MVSWAIZR MVSWAIZS MVSWAIZT MVSWAIZU MVSWAIZV MVSWAIZW MVSWAIZX MVSWAIZY MVSWAIZZ MVSWAIYA MVSWAIYB MVSWAIYC MVSWAIYD MVSWAIYE MVSWAIYF MVSWAIYG MVSWAIYH MVSWAIYI MVSWAIYJ MVSWAIYK MVSWAIYL MVSWAIYM MVSWAIYN MVSWAIYO MVSWAIYP MVSWAIYQ MVSWAIYR MVSWAIYS MVSWAIYT MVSWAIYU MVSWAIYV MVSWAIYW MVSWAIYX MVSWAIYY MVSWAIYZ MVSWAIVA MVSWAIVB MVSWAIVC MVSWAIVD MVSWAIVE MVSWAIVF MVSWAIVG MVSWAIVH MVSWAIVI PCTIFBY0-PCTIFBY9 PCTIFBYA PCTIFBYB PCTIFBYC PCTIFBYD PCTIFBYE PCTIFBYF PCTIFBYG PCTIFBYH PCTIFBYI PCTIFBYJ PCTIFBYK PCTIFBYL PCTIFBYN PCTIFBYO PCTIFBYP PCTIFBYQ PCTIFBYR PCTIFBYS PCTIFBYT PCTIFBYU PCTIFBYV PCTIFBYW PCTIFBYX PCTIFBYY PCTIFBYZ PCTIFBZA PCTIFBZB PCTIFBZC PCTIFBZD PCTIFBZE PCTIFBZF PCTIFBZG PCTIFBZH PCTIFBZI PCTIFBZJ PCTIFBZK PCTIFBZL PCTIFBZM PCTIFBZN PCTIFBZO PCTIFBZP PCTIFBZQ PCTIFBZR PCTIFBZS PCTIFBZT PCTIFBZU PCTIFBZV PCTIFBZW PCTIFBZX PCTIFBZY PCTIFBZZ PCTIFBXA PCTIFBXB PCTIFBXC PCTIFBXD PCTIFBXE PCTIFBXF PCTIFBXG PCTIFBXH PCTIFBXI PCTIFBXJ PCTIFBXK PCTIFBXL PCTIFBXM PCTIFBXN PCTIFBXO PCTIFBXP PCTIFBXQ PCTIFBXR PCTIFBXS PCTIFBXT PCTIFBXU PCTIFBXV PCTIFBXW PCTIFBXX PCTIFBXY PCTIFBXZ PCTIFBUA PCTIFBUB PCTIFBUC PCTIFBUD PCTIFBUE PCTIFBUF PCTIFBUG PCTIFBUH PCTIFBUI PCTZIBY0-PCTZIBY9 PCTZIBYA PCTZIBYB PCTZIBYC PCTZIBYD PCTZIBYE PCTZIBYF PCTZIBYG PCTZIBYH PCTZIBYI PCTZIBYJ PCTZIBYK PCTZIBYL PCTZIBYN PCTZIBYO PCTZIBYP PCTZIBYQ PCTZIBYR PCTZIBYS PCTZIBYT PCTZIBYU PCTZIBYV PCTZIBYW PCTZIBYX PCTZIBYY PCTZIBYZ PCTZIBZA PCTZIBZB PCTZIBZC PCTZIBZD PCTZIBZE PCTZIBZF PCTZIBZG PCTZIBZH PCTZIBZI PCTZIBZJ PCTZIBZK PCTZIBZL PCTZIBZM PCTZIBZN PCTZIBZO PCTZIBZP PCTZIBZQ PCTZIBZR PCTZIBZS PCTZIBZT PCTZIBZU PCTZIBZV PCTZIBZW PCTZIBZX PCTZIBZY PCTZIBZZ PCTZIBXA PCTZIBXB PCTZIBXC PCTZIBXD PCTZIBXE PCTZIBXF PCTZIBXG PCTZIBXH PCTZIBXI PCTZIBXJ PCTZIBXK PCTZIBXL PCTZIBXM PCTZIBXN PCTZIBXO PCTZIBXP PCTZIBXQ PCTZIBXR PCTZIBXS PCTZIBXT PCTZIBXU PCTZIBXV PCTZIBXW PCTZIBXX PCTZIBXY PCTZIBXZ PCTZIBUA PCTZIBUB PCTZIBUC PCTZIBUD PCTZIBUE PCTZIBUF PCTZIBUG PCTZIBUH PCTZIBUI PCTONLN0-PCTONLN9 PCTONLNA PCTONLNB PCTONLNC PCTONLND PCTONLNE PCTONLNF PCTONLNG PCTONLNH PCTONLNI PCTONLNJ PCTONLNK PCTONLNL PCTONLNN PCTONLNO PCTONLNP PCTONLNQ PCTONLNR PCTONLNS PCTONLNT PCTONLNU PCTONLNV PCTONLNW PCTONLNX PCTONLNY PCTONLNZ PCTONLZA PCTONLZB PCTONLZC PCTONLZD PCTONLZE PCTONLZF PCTONLZG PCTONLZH PCTONLZI PCTONLZJ PCTONLZK PCTONLZL PCTONLZM PCTONLZN PCTONLZO PCTONLZP PCTONLZQ PCTONLZR PCTONLZS PCTONLZT PCTONLZU PCTONLZV PCTONLZW PCTONLZX PCTONLZY PCTONLZZ PCTONLYA PCTONLYB PCTONLYC PCTONLYD PCTONLYE PCTONLYF PCTONLYG PCTONLYH PCTONLYI PCTONLYJ PCTONLYK PCTONLYL PCTONLYM PCTONLYN PCTONLYO PCTONLYP PCTONLYQ PCTONLYR PCTONLYS PCTONLYT PCTONLYU PCTONLYV PCTONLYW PCTONLYX PCTONLYY PCTONLYZ PCTONLVA PCTONLVB PCTONLVC PCTONLVD PCTONLVE PCTONLVF PCTONLVG PCTONLVH PCTONLVI /* WILL BE CREATED IN SORT STEP, NOT NEEDED HERE PCTCIBY0-PCTCIBY9 PCTCIBYA PCTCIBYB PCTCIBYC PCTCIBYD PCTCIBYE PCTCIBYF PCTCIBYG PCTCIBYH PCTCIBYI PCTCIBYJ PCTCIBYK PCTCIBYL PCTCIBYN PCTCIBYO PCTCIBYP PCTCIBYQ PCTCIBYR PCTCIBYS PCTCIBYT PCTCIBYU PCTCIBYV PCTCIBYW PCTCIBYX PCTCIBYY PCTCIBYZ PCTCIBZA PCTCIBZB PCTCIBZC PCTCIBZD PCTCIBZE PCTCIBZF PCTCIBZG PCTCIBZH PCTCIBZI PCTCIBZJ PCTCIBZK PCTCIBZL PCTCIBZM PCTCIBZN PCTCIBZO PCTCIBZP PCTCIBZQ PCTCIBZR PCTCIBZS PCTCIBZT PCTCIBZU PCTCIBZV PCTCIBZW PCTCIBZX PCTCIBZY PCTCIBZZ PCTCIBXA PCTCIBXB PCTCIBXC PCTCIBXD PCTCIBXE PCTCIBXF PCTCIBXG PCTCIBXH PCTCIBXI PCTCIBXJ PCTCIBXK PCTCIBXL PCTCIBXM PCTCIBXN PCTCIBXO PCTCIBXP PCTCIBXQ PCTCIBXR PCTCIBXS PCTCIBXT PCTCIBXU PCTCIBXV PCTCIBXW PCTCIBXX PCTCIBXY PCTCIBXZ PCTCIBUA PCTCIBUB PCTCIBUC PCTCIBUD PCTCIBUE PCTCIBUF PCTCIBUG PCTCIBUH PCTCIBUI PCTCIBUJ PCTCIBUK PCTCIBUL PCTCIBUM PCTCIBUN PCTCIBUO */ CPUPATM0-CPUPATM9 CPUPATMA CPUPATMB CPUPATMC CPUPATMD CPUPATME CPUPATMF CPUPATMG CPUPATMH CPUPATMI CPUPATMJ CPUPATMK CPUPATML CPUPATMN CPUPATMO CPUPATMP CPUPATMQ CPUPATMR CPUPATMS CPUPATMT CPUPATMU CPUPATMV CPUPATMW CPUPATMX CPUPATMY CPUPATMZ CPUPATZA CPUPATZB CPUPATZC CPUPATZD CPUPATZE CPUPATZF CPUPATZG CPUPATZH CPUPATZI CPUPATZJ CPUPATZK CPUPATZL CPUPATZM CPUPATZN CPUPATZO CPUPATZP CPUPATZQ CPUPATZR CPUPATZS CPUPATZT CPUPATZU CPUPATZV CPUPATZW CPUPATZX CPUPATZY CPUPATZZ CPUPATYA CPUPATYB CPUPATYC CPUPATYD CPUPATYE CPUPATYF CPUPATYG CPUPATYH CPUPATYI CPUPATYJ CPUPATYK CPUPATYL CPUPATYM CPUPATYN CPUPATYO CPUPATYP CPUPATYQ CPUPATYR CPUPATYS CPUPATYT CPUPATYU CPUPATYV CPUPATYW CPUPATYX CPUPATYY CPUPATYZ CPUPATVA CPUPATVB CPUPATVC CPUPATVD CPUPATVE CPUPATVF CPUPATVG CPUPATVH CPUPATVI /* ADDED BY CHANGE 28.143 */ SMF70CR SMF70ZEI SMF70NCR SMF70NPR SMF70NTR SMF70CAI SMF70CCR SMF70SRM SMF70CMN SMF70CMM SMF70CTT SMF70DMN SMF70DMM SMF70DTT SMF70EMN SMF70EMM SMF70ETT SMF70U00-SMF70U15 /* ADDED BY CHANGE 28.143 */ PCTWUQWT /* ADDED BY CHANGE 29.239 */ SHIFT /* ADDED BY CHANGE 30.010*/ STFBIT07 /* ADDED BY CHANGE 30.062 */ ENHDATAR /* ADDED BY CHANGE 31.099 */ SMF70MCP SMF70ICP SMF70CCP SMF70CPA_ACTUAL SMF70CPA_SCALING_FACTOR SMF70CPA_RATIO /* ADDED BY CHANGE 31.187*/ VMSYSTEM /* ADDED BY CHANGE 32.102*/ OS390 /* ADDED BY CHANGE 33.046*/ SMF70MCF SMF70MCFS SMF70MCFI SMF70CF SMF70CFS SMF70CFI SMF70ATD SMF70ATDS SMF70ATDI /* ADDED BY CHANGE 33.216*/ SMF70LACM SMF70LACA SMF70LACB /* ADDED BY CHANGE 34.139*/ ZIPCPUS /* ADDED BY CHANGE 34.228*/ SMF70ABSMSU /* ADDED BY CHANGE 35.120*/ SMF70DAT1 SMF70DAT2 /* ADDED BY CHANGE 35.270*/ SMF70ADJ ORG70CPA /* ADDED BY CHANGE 36.073*/ SMF70MAXPU /* ADDED BY CHANGE 36.126*/ SMF70MDL_CBP SMF70MCR_CBP SMF70NCR_CBP SMF70LAC_CBP SMF70CPA_ACTUAL_CBP /* ADDED BY CHANGE 36.208*/ SMF70LACCR SMF70OS_PRTCT /* ADDED BY CHANGE 37.037*/ SMF70_IPL_TIME SMF70_TRG_M_COUNT /* ADDED BY CHANGE 37.104*/ SMF70PRTCTV /* ADDED BY CHANGE 38.031*/ BOOSTACTIVE BOOSTCLASS /* ADDED BY CHANGE 38.103*/ SMF70CPC_TYPE % MACRO _WTY70SP &WTY70SP..TYPE70SP % MACRO _ETY70SP %%INCLUDE SOURCLIB(EXTY70SP); /* _WTY70SP OUTPUTS TYPE70SP */ % MACRO _BTY70 SYSPLEX SYSTEM SYSNAME STARTIME % MACRO _LTY70 &PTY70..TYPE70 % MACRO _WTY70 &WTY70..TYPE70 % MACRO _KTY70 % MACRO _ETY70 %%INCLUDE SOURCLIB(EXTY70); /* _WTY70 OUTPUTS TYPE70 */ % MACRO _KTY70DR % /*SEE CHANGE 33.239*/ MACRO _2TY70 IF CPUPATTM GT 0 THEN NRCPUS=(SMF70ONT-CPUPATTM)/DURATM;/*CH 26.270*/ IF NRCPUS LE 1 THEN PCTRDYWT=SUM(OF READY02-READY15); ELSE IF NRCPUS LE 2 THEN PCTRDYWT=SUM(OF READY03-READY15); ELSE IF NRCPUS LE 3 THEN PCTRDYWT=SUM(OF READY04-READY15); ELSE IF NRCPUS LE 4 THEN PCTRDYWT=SUM(OF READY05-READY15); ELSE IF NRCPUS LE 5 THEN PCTRDYWT=SUM(OF READY06-READY15); ELSE IF NRCPUS LE 6 THEN PCTRDYWT=SUM(OF READY07-READY15); ELSE IF NRCPUS LE 7 THEN PCTRDYWT=SUM(OF READY08-READY15); ELSE IF NRCPUS LE 8 THEN PCTRDYWT=SUM(OF READY09-READY15); ELSE IF NRCPUS LE 9 THEN PCTRDYWT=SUM(OF READY10-READY15); ELSE IF NRCPUS LE 10 THEN PCTRDYWT=SUM(OF READY11-READY15); ELSE IF NRCPUS LE 11 THEN PCTRDYWT=SUM(OF READY12-READY15); ELSE IF NRCPUS LE 12 THEN PCTRDYWT=SUM(OF READY13-READY15); ELSE IF NRCPUS LE 13 THEN PCTRDYWT=SUM(OF READY14-READY15); ELSE IF NRCPUS LE 14 THEN PCTRDYWT=READY15; CPUUPTM=NRCPUS*DURATM; CPUWAITM=CPUUPTM-CPUACTTM; /*ADDED 30.233*/ IF CPUUPTM GT 0 THEN DO; PCTCPUBY=100*CPUACTTM/CPUUPTM; PCTCPUEF=100*CPUEFFTM/CPUUPTM; END; %%INCLUDE SOURCLIB(E2TY70); /* _LTY70 OUTPUTS TYPE70 */ % /*=== _STY70 =====MACRO _STY70 RECREATE TYPE70 AND TYPE70PR ========*/ MACRO _STY70 /*RE-CREATES BOTH TYPE70 AND TYPE70PR DATASETS */ RUN; %%VMXGWORL(DDDDDD=TY70PR); PROC DATASETS NOLIST LIB=&MXGWORLLIB; MODIFY &MXGWORLDSN; LABEL PCTCPUBY='LPAR*CPU*BUSY'; _STY70EC; _STY70EL; _STY70EN; RUN; PROC SORT NODUP DATA=_WTY70SP OUT=SORT70SP; BY SYSPLEX SYSTEM SYSNAME SMF70GIE GMTOFFTM STARTIME SMFTIME; *TITLE 'DEBUG J: DATA=SORT70SP'; *%%VMXGPRA1(DATASET=SORT70SP,nobs=41); RUN; /* 00W LOGIC */ *TITLE 'DEBUG K: DATA=_WTY70PR'; *%%VMXGPRA1(DATASET=_WTY70PR,WHERE=_XNTLPAR,nobs=41); PROC SORT NODUP DATA=_WTY70PR OUT=PHYCPS01 (RENAME=(NRPHYCPS=NRPHYCPX NRPRCS=NRPRCX)); BY SYSPLEX SYSTEM SYSNAME SMF70GIE GMTOFFTM STARTIME; *TITLE 'DEBUG L: DATA=PHYCPS01'; *%%VMXGPRA1(DATASET=PHYCPS01,nobs=41); PROC MEANS NOPRINT DATA=PHYCPS01; BY SYSPLEX SYSTEM SYSNAME SMF70GIE GMTOFFTM STARTIME; OUTPUT OUT=PHYCPS02 (DROP=_TYPE_ _FREQ_) MAX=NRPHYCPS NRPRCS; VARIABLES NRPHYCPX NRPRCX; *TITLE 'DEBUG M: DATA=PHYCPS02'; *%%VMXGPRA1(DATASET=PHYCPS02,nobs=41); /*=== _STY70 =====DATA STEP _WTY70PR===MERGE PHYCPS02 PHYCPS01======*/ DATA _WTY70PR; MERGE PHYCPS02 (IN=INCPS) PHYCPS01 (IN=INPHY); BY SYSPLEX SYSTEM SYSNAME SMF70GIE GMTOFFTM STARTIME; LENGTH DEFAULT=&MXGLEN NRPRCS NRPHYCPS &MXGLEN; DROP NRPHYCPX NRPRCX; *TITLE 'DEBUG N:DATA=WTY70PRNRS'; *%%VMXGPRA1(DATASET=_WTY70PR,WHERE=_XNTLPAR,nobs=41); PROC DELETE DATA=PHYCPS01 PHYCPS02; PROC SORT NODUP DATA=_WTY70PR (WHERE=(LPARNAME='PHYSICAL')) OUT=PHYSICAL (KEEP=SYSPLEX SYSTEM SYSNAME STARTIME SMF70GIE GMTOFFTM SMF70CIN NRPHYCPS NRCPSCPU NRICFCPU NRIFLCPU NRIFACPU NRZIPCPU AVCPSCPU AVICFCPU AVIFLCPU AVIFACPU AVZIPCPU); BY SYSPLEX SYSTEM SYSNAME SMF70GIE GMTOFFTM STARTIME LCPUADDR SMFTIME; *TITLE 'DEBUG O: DATA=PHYSICAL'; *%%VMXGPRA1(DATASET=PHYSICAL,nobs=41); /*=== _STY70 =====DATA STEP NUCPSCPU===SET PHYSICAL=================*/ DATA NUCPSCPU (KEEP=SYSPLEX SYSTEM SYSNAME SMF70GIE GMTOFFTM STARTIME NRICFCPU NRIFACPU NRIFLCPU NRCPSCPU NRZIPCPU AVICFCPU AVIFACPU AVIFLCPU AVCPSCPU AVZIPCPU); SET PHYSICAL; BY SYSPLEX SYSTEM SYSNAME SMF70GIE GMTOFFTM STARTIME; LENGTH DEFAULT=&MXGLEN; IF FIRST.STARTIME; *TITLE 'DEBUG P: DATA=NUCPSCPU'; *%%VMXGPRA1(DATASET=PHYSICAL,nobs=41); PROC SORT DATA=_WTY70PR (WHERE=(PARTISHN=LPARNUM)) OUT=THISPART (RENAME=(LCPUWAIT=PRSMWAIT)); BY SYSPLEX SYSTEM SYSNAME SMF70GIE GMTOFFTM STARTIME; *TITLE 'DEBUG Q: DATA=THISPART'; *%%VMXGPRA1(DATASET=THISPART,nobs=41); /*=== _STY70 =====DATA STEP FROM70PR===FROM THISPART (_WTY70PR) ====*/ DATA FROM70PR; SET THISPART; BY SYSPLEX SYSTEM SYSNAME SMF70GIE GMTOFFTM STARTIME; LENGTH DEFAULT=&MXGLEN; KEEP SYSPLEX SYSTEM SYSNAME SMF70GIE GMTOFFTM STARTIME LPARNAME LCPUDED LPARWLMG SMF70BDA ZIPACTTM LEDTM0 -LEDTM8 LEDTM9 LEDTMA LEDTMB LEDTMC LEDTMD LEDTME LEDTMF LEDTMG LEDTMH LEDTMI LEDTMJ LEDTMK LEDTML LEDTMN LEDTMO LEDTMP LEDTMQ LEDTMR LEDTMS LEDTMT LEDTMU LEDTMV LEDTMW LEDTMX LEDTMY LEDTMZ LEDTMZA LEDTMZB LEDTMZC LEDTMZD LEDTMZE LEDTMZF LEDTMZG LEDTMZH LEDTMZI LEDTMZJ LEDTMZK LEDTMZL LEDTMZM LEDTMZN LEDTMZO LEDTMZP LEDTMZQ LEDTMZR LEDTMZS LEDTMZT LEDTMZU LEDTMZV LEDTMZW LEDTMZX LEDTMZY LEDTMZZ LEDTMYA LEDTMYB LEDTMYC LEDTMYD LEDTMYE LEDTMYF LEDTMYG LEDTMYH LEDTMYI LEDTMYJ LEDTMYK LEDTMYL LEDTMYM LEDTMYN LEDTMYO LEDTMYP LEDTMYQ LEDTMYR LEDTMYS LEDTMYT LEDTMYU LEDTMYV LEDTMYW LEDTMYX LEDTMYY LEDTMYZ LEDTMVA LEDTMVB LEDTMVC LEDTMVD LEDTMVE LEDTMVF LEDTMVG LEDTMVH LEDTMVI LPDTM0 -LPDTM8 LPDTM9 LPDTMA LPDTMB LPDTMC LPDTMD LPDTME LPDTMF LPDTMG LPDTMH LPDTMI LPDTMJ LPDTMK LPDTML LPDTMN LPDTMO LPDTMP LPDTMQ LPDTMR LPDTMS LPDTMT LPDTMU LPDTMV LPDTMW LPDTMX LPDTMY LPDTMZ LPDTMZA LPDTMZB LPDTMZC LPDTMZD LPDTMZE LPDTMZF LPDTMZG LPDTMZH LPDTMZI LPDTMZJ LPDTMZK LPDTMZL LPDTMZM LPDTMZN LPDTMZO LPDTMZP LPDTMZQ LPDTMZR LPDTMZS LPDTMZT LPDTMZU LPDTMZV LPDTMZW LPDTMZX LPDTMZY LPDTMZZ LPDTMYA LPDTMYB LPDTMYC LPDTMYD LPDTMYE LPDTMYF LPDTMYG LPDTMYH LPDTMYI LPDTMYJ LPDTMYK LPDTMYL LPDTMYM LPDTMYN LPDTMYO LPDTMYP LPDTMYQ LPDTMYR LPDTMYS LPDTMYT LPDTMYU LPDTMYV LPDTMYW LPDTMYX LPDTMYY LPDTMYZ LPDTMVA LPDTMVB LPDTMVC LPDTMVD LPDTMVE LPDTMVF LPDTMVG LPDTMVH LPDTMVI ONTM0 -ONTM8 ONTM9 ONTMA ONTMB ONTMC ONTMD ONTME ONTMF ONTMG ONTMH ONTMI ONTMJ ONTMK ONTML ONTMN ONTMO ONTMP ONTMQ ONTMR ONTMS ONTMT ONTMU ONTMV ONTMW ONTMX ONTMY ONTMZ ONTMZA ONTMZB ONTMZC ONTMZD ONTMZE ONTMZF ONTMZG ONTMZH ONTMZI ONTMZJ ONTMZK ONTMZL ONTMZM ONTMZN ONTMZO ONTMZP ONTMZQ ONTMZR ONTMZS ONTMZT ONTMZU ONTMZV ONTMZW ONTMZX ONTMZY ONTMZZ ONTMYA ONTMYB ONTMYC ONTMYD ONTMYE ONTMYF ONTMYG ONTMYH ONTMYI ONTMYJ ONTMYK ONTMYL ONTMYM ONTMYN ONTMYO ONTMYP ONTMYQ ONTMYR ONTMYS ONTMYT ONTMYU ONTMYV ONTMYW ONTMYX ONTMYY ONTMYZ ONTMVA ONTMVB ONTMVC ONTMVD ONTMVE ONTMVF ONTMVG ONTMVH ONTMVI LCPUDED0-LCPUDED8 LCPUDED9 LCPUDEDA LCPUDEDB LCPUDEDC LCPUDEDD LCPUDEDE LCPUDEDF LCPUDEDG LCPUDEDH LCPUDEDI LCPUDEDJ LCPUDEDK LCPUDEDL LCPUDEDN LCPUDEDO LCPUDEDP LCPUDEDQ LCPUDEDR LCPUDEDS LCPUDEDT LCPUDEDU LCPUDEDV LCPUDEDW LCPUDEDX LCPUDEDY LCPUDEDZ LCPUDEZA LCPUDEZB LCPUDEZC LCPUDEZD LCPUDEZE LCPUDEZF LCPUDEZG LCPUDEZH LCPUDEZI LCPUDEZJ LCPUDEZK LCPUDEZL LCPUDEZM LCPUDEZN LCPUDEZO LCPUDEZP LCPUDEZQ LCPUDEZR LCPUDEZS LCPUDEZT LCPUDEZU LCPUDEZV LCPUDEZW LCPUDEZX LCPUDEZY LCPUDEZZ LCPUDEYA LCPUDEYB LCPUDEYC LCPUDEYD LCPUDEYE LCPUDEYF LCPUDEYG LCPUDEYH LCPUDEYI LCPUDEYJ LCPUDEYK LCPUDEYL LCPUDEYM LCPUDEYN LCPUDEYO LCPUDEYP LCPUDEYQ LCPUDEYR LCPUDEYS LCPUDEYT LCPUDEYU LCPUDEYV LCPUDEYW LCPUDEYX LCPUDEYY LCPUDEYZ LCPUDEVA LCPUDEVB LCPUDEVC LCPUDEVD LCPUDEVE LCPUDEVF LCPUDEVG LCPUDEVH LCPUDEVI LCPUWAI0-LCPUWAI8 LCPUWAI9 LCPUWAIA LCPUWAIB LCPUWAIC LCPUWAID LCPUWAIE LCPUWAIF LCPUWAIG LCPUWAIH LCPUWAII LCPUWAIJ LCPUWAIK LCPUWAIL LCPUWAIN LCPUWAIO LCPUWAIP LCPUWAIQ LCPUWAIR LCPUWAIS LCPUWAIT LCPUWAIU LCPUWAIV LCPUWAIW LCPUWAIX LCPUWAIY LCPUWAIZ LCPUWAZA LCPUWAZB LCPUWAZC LCPUWAZD LCPUWAZE LCPUWAZF LCPUWAZG LCPUWAZH LCPUWAZI LCPUWAZJ LCPUWAZK LCPUWAZL LCPUWAZM LCPUWAZN LCPUWAZO LCPUWAZP LCPUWAZQ LCPUWAZR LCPUWAZS LCPUWAZT LCPUWAZU LCPUWAZV LCPUWAZW LCPUWAZX LCPUWAZY LCPUWAZZ LCPUWAYA LCPUWAYB LCPUWAYC LCPUWAYD LCPUWAYE LCPUWAYF LCPUWAYG LCPUWAYH LCPUWAYI LCPUWAYJ LCPUWAYK LCPUWAYL LCPUWAYM LCPUWAYN LCPUWAYO LCPUWAYP LCPUWAYQ LCPUWAYR LCPUWAYS LCPUWAYT LCPUWAYU LCPUWAYV LCPUWAYW LCPUWAYX LCPUWAYY LCPUWAYZ LCPUWAVA LCPUWAVB LCPUWAVC LCPUWAVD LCPUWAVE LCPUWAVF LCPUWAVG LCPUWAVH LCPUWAVI PART70PU NRPHYCPS NRCPSCPU NRICFCPU NRIFLCPU NRIFACPU NRZIPCPU AVCPSCPU AVICFCPU AVIFLCPU AVIFACPU AVZIPCPU; ARRAY EDTM (256) LEDTM0 -LEDTM8 LEDTM9 LEDTMA LEDTMB LEDTMC LEDTMD LEDTME LEDTMF LEDTMG LEDTMH LEDTMI LEDTMJ LEDTMK LEDTML LEDTMN LEDTMO LEDTMP LEDTMQ LEDTMR LEDTMS LEDTMT LEDTMU LEDTMV LEDTMW LEDTMX LEDTMY LEDTMZ LEDTMZA LEDTMZB LEDTMZC LEDTMZD LEDTMZE LEDTMZF LEDTMZG LEDTMZH LEDTMZI LEDTMZJ LEDTMZK LEDTMZL LEDTMZM LEDTMZN LEDTMZO LEDTMZP LEDTMZQ LEDTMZR LEDTMZS LEDTMZT LEDTMZU LEDTMZV LEDTMZW LEDTMZX LEDTMZY LEDTMZZ LEDTMYA LEDTMYB LEDTMYC LEDTMYD LEDTMYE LEDTMYF LEDTMYG LEDTMYH LEDTMYI LEDTMYJ LEDTMYK LEDTMYL LEDTMYM LEDTMYN LEDTMYO LEDTMYP LEDTMYQ LEDTMYR LEDTMYS LEDTMYT LEDTMYU LEDTMYV LEDTMYW LEDTMYX LEDTMYY LEDTMYZ LEDTMVA LEDTMVB LEDTMVC LEDTMVD LEDTMVE LEDTMVF LEDTMVG LEDTMVH LEDTMVI LEDTMVJ LEDTMVK LEDTMVL LEDTMVM LEDTMVN LEDTMVO LEDTM102-LEDTM255; ARRAY PDTM (256) LPDTM0 -LPDTM8 LPDTM9 LPDTMA LPDTMB LPDTMC LPDTMD LPDTME LPDTMF LPDTMG LPDTMH LPDTMI LPDTMJ LPDTMK LPDTML LPDTMN LPDTMO LPDTMP LPDTMQ LPDTMR LPDTMS LPDTMT LPDTMU LPDTMV LPDTMW LPDTMX LPDTMY LPDTMZ LPDTMZA LPDTMZB LPDTMZC LPDTMZD LPDTMZE LPDTMZF LPDTMZG LPDTMZH LPDTMZI LPDTMZJ LPDTMZK LPDTMZL LPDTMZM LPDTMZN LPDTMZO LPDTMZP LPDTMZQ LPDTMZR LPDTMZS LPDTMZT LPDTMZU LPDTMZV LPDTMZW LPDTMZX LPDTMZY LPDTMZZ LPDTMYA LPDTMYB LPDTMYC LPDTMYD LPDTMYE LPDTMYF LPDTMYG LPDTMYH LPDTMYI LPDTMYJ LPDTMYK LPDTMYL LPDTMYM LPDTMYN LPDTMYO LPDTMYP LPDTMYQ LPDTMYR LPDTMYS LPDTMYT LPDTMYU LPDTMYV LPDTMYW LPDTMYX LPDTMYY LPDTMYZ LPDTMVA LPDTMVB LPDTMVC LPDTMVD LPDTMVE LPDTMVF LPDTMVG LPDTMVH LPDTMVI LPDTMVJ LPDTMVK LPDTMVL LPDTMVM LPDTMVN LPDTMVO LPDTM102-LPDTM255; ARRAY ONTM (256) ONTM0 -ONTM8 ONTM9 ONTMA ONTMB ONTMC ONTMD ONTME ONTMF ONTMG ONTMH ONTMI ONTMJ ONTMK ONTML ONTMN ONTMO ONTMP ONTMQ ONTMR ONTMS ONTMT ONTMU ONTMV ONTMW ONTMX ONTMY ONTMZ ONTMZA ONTMZB ONTMZC ONTMZD ONTMZE ONTMZF ONTMZG ONTMZH ONTMZI ONTMZJ ONTMZK ONTMZL ONTMZM ONTMZN ONTMZO ONTMZP ONTMZQ ONTMZR ONTMZS ONTMZT ONTMZU ONTMZV ONTMZW ONTMZX ONTMZY ONTMZZ ONTMYA ONTMYB ONTMYC ONTMYD ONTMYE ONTMYF ONTMYG ONTMYH ONTMYI ONTMYJ ONTMYK ONTMYL ONTMYM ONTMYN ONTMYO ONTMYP ONTMYQ ONTMYR ONTMYS ONTMYT ONTMYU ONTMYV ONTMYW ONTMYX ONTMYY ONTMYZ ONTMVA ONTMVB ONTMVC ONTMVD ONTMVE ONTMVF ONTMVG ONTMVH ONTMVI ONTMVJ ONTMVK ONTMVL ONTMVM ONTMVN ONTMVO ONTM102-ONTM255; ARRAY LDED (256) $1 LCPUDED0-LCPUDED8 LCPUDED9 LCPUDEDA LCPUDEDB LCPUDEDC LCPUDEDD LCPUDEDE LCPUDEDF LCPUDEDG LCPUDEDH LCPUDEDI LCPUDEDJ LCPUDEDK LCPUDEDL LCPUDEDN LCPUDEDO LCPUDEDP LCPUDEDQ LCPUDEDR LCPUDEDS LCPUDEDT LCPUDEDU LCPUDEDV LCPUDEDW LCPUDEDX LCPUDEDY LCPUDEDZ LCPUDEZA LCPUDEZB LCPUDEZC LCPUDEZD LCPUDEZE LCPUDEZF LCPUDEZG LCPUDEZH LCPUDEZI LCPUDEZJ LCPUDEZK LCPUDEZL LCPUDEZM LCPUDEZN LCPUDEZO LCPUDEZP LCPUDEZQ LCPUDEZR LCPUDEZS LCPUDEZT LCPUDEZU LCPUDEZV LCPUDEZW LCPUDEZX LCPUDEZY LCPUDEZZ LCPUDEYA LCPUDEYB LCPUDEYC LCPUDEYD LCPUDEYE LCPUDEYF LCPUDEYG LCPUDEYH LCPUDEYI LCPUDEYJ LCPUDEYK LCPUDEYL LCPUDEYM LCPUDEYN LCPUDEYO LCPUDEYP LCPUDEYQ LCPUDEYR LCPUDEYS LCPUDEYT LCPUDEYU LCPUDEYV LCPUDEYW LCPUDEYX LCPUDEYY LCPUDEYZ LCPUDEVA LCPUDEVB LCPUDEVC LCPUDEVD LCPUDEVE LCPUDEVF LCPUDEVG LCPUDEVH LCPUDEVI LCPUDEVJ LCPUDEVK LCPUDEVL LCPUDEVM LCPUDEVN LCPUDEVO LCPUDE102-LCPUDE255; ARRAY LWAI (256) $1 LCPUWAI0-LCPUWAI8 LCPUWAI9 LCPUWAIA LCPUWAIB LCPUWAIC LCPUWAID LCPUWAIE LCPUWAIF LCPUWAIG LCPUWAIH LCPUWAII LCPUWAIJ LCPUWAIK LCPUWAIL LCPUWAIN LCPUWAIO LCPUWAIP LCPUWAIQ LCPUWAIR LCPUWAIS LCPUWAIT LCPUWAIU LCPUWAIV LCPUWAIW LCPUWAIX LCPUWAIY LCPUWAIZ LCPUWAZA LCPUWAZB LCPUWAZC LCPUWAZD LCPUWAZE LCPUWAZF LCPUWAZG LCPUWAZH LCPUWAZI LCPUWAZJ LCPUWAZK LCPUWAZL LCPUWAZM LCPUWAZN LCPUWAZO LCPUWAZP LCPUWAZQ LCPUWAZR LCPUWAZS LCPUWAZT LCPUWAZU LCPUWAZV LCPUWAZW LCPUWAZX LCPUWAZY LCPUWAZZ LCPUWAYA LCPUWAYB LCPUWAYC LCPUWAYD LCPUWAYE LCPUWAYF LCPUWAYG LCPUWAYH LCPUWAYI LCPUWAYJ LCPUWAYK LCPUWAYL LCPUWAYM LCPUWAYN LCPUWAYO LCPUWAYP LCPUWAYQ LCPUWAYR LCPUWAYS LCPUWAYT LCPUWAYU LCPUWAYV LCPUWAYW LCPUWAYX LCPUWAYY LCPUWAYZ LCPUWAVA LCPUWAVB LCPUWAVC LCPUWAVD LCPUWAVE LCPUWAVF LCPUWAVG LCPUWAVH LCPUWAVI LCPUWAVJ LCPUWAVK LCPUWAVL LCPUWAVM LCPUWAVN LCPUWAVO LCPUWA102-LCPUWA255; LABEL LCPUDED0='LCPU 0*DEDICATED?' LCPUDED1='LCPU 1*DEDICATED?' LCPUDED2='LCPU 2*DEDICATED?' LCPUDED3='LCPU 3*DEDICATED?' LCPUDED4='LCPU 4*DEDICATED?' LCPUDED5='LCPU 5*DEDICATED?' LCPUDED6='LCPU 6*DEDICATED?' LCPUDED7='LCPU 7*DEDICATED?' LCPUDED8='LCPU 8*DEDICATED?' LCPUDED9='LCPU 9*DEDICATED?' LCPUDEDA='LCPU 10*DEDICATED?' LCPUDEDB='LCPU 11*DEDICATED?' LCPUDEDC='LCPU 12*DEDICATED?' LCPUDEDD='LCPU 13*DEDICATED?' LCPUDEDE='LCPU 14*DEDICATED?' LCPUDEDF='LCPU 15*DEDICATED?' LCPUDEDG='LCPU 16*DEDICATED?' LCPUDEDH='LCPU 17*DEDICATED?' LCPUDEDI='LCPU 18*DEDICATED?' LCPUDEDJ='LCPU 19*DEDICATED?' LCPUDEDK='LCPU 20*DEDICATED?' LCPUDEDL='LCPU 21*DEDICATED?' LCPUDEDN='LCPU 22*DEDICATED?' LCPUDEDO='LCPU 23*DEDICATED?' LCPUDEDP='LCPU 24*DEDICATED?' LCPUDEDQ='LCPU 25*DEDICATED?' LCPUDEDR='LCPU 26*DEDICATED?' LCPUDEDS='LCPU 27*DEDICATED?' LCPUDEDT='LCPU 28*DEDICATED?' LCPUDEDU='LCPU 29*DEDICATED?' LCPUDEDV='LCPU 30*DEDICATED?' LCPUDEDW='LCPU 31*DEDICATED?' LCPUDEDX='LCPU 32*DEDICATED?' LCPUDEDY='LCPU 33*DEDICATED?' LCPUDEDZ='LCPU 34*DEDICATED?' LCPUDEZA='LCPU 35*DEDICATED?' LCPUDEZB='LCPU 36*DEDICATED?' LCPUDEZC='LCPU 37*DEDICATED?' LCPUDEZD='LCPU 38*DEDICATED?' LCPUDEZE='LCPU 39*DEDICATED?' LCPUDEZF='LCPU 40*DEDICATED?' LCPUDEZG='LCPU 41*DEDICATED?' LCPUDEZH='LCPU 42*DEDICATED?' LCPUDEZI='LCPU 43*DEDICATED?' LCPUDEZJ='LCPU 44*DEDICATED?' LCPUDEZK='LCPU 45*DEDICATED?' LCPUDEZL='LCPU 46*DEDICATED?' LCPUDEZM='LCPU 47*DEDICATED?' LCPUDEZN='LCPU 48*DEDICATED?' LCPUDEZO='LCPU 49*DEDICATED?' LCPUDEZP='LCPU 50*DEDICATED?' LCPUDEZQ='LCPU 51*DEDICATED?' LCPUDEZR='LCPU 52*DEDICATED?' LCPUDEZS='LCPU 53*DEDICATED?' LCPUDEZT='LCPU 54*DEDICATED?' LCPUDEZU='LCPU 55*DEDICATED?' LCPUDEZV='LCPU 56*DEDICATED?' LCPUDEZW='LCPU 57*DEDICATED?' LCPUDEZX='LCPU 58*DEDICATED?' LCPUDEZY='LCPU 59*DEDICATED?' LCPUDEZZ='LCPU 60*DEDICATED?' LCPUDEYA='LCPU 61*DEDICATED?' LCPUDEYB='LCPU 62*DEDICATED?' LCPUDEYC='LCPU 63*DEDICATED?' LCPUDEYD='LCPU 64*DEDICATED?' LCPUDEYE='LCPU 65*DEDICATED?' LCPUDEYF='LCPU 66*DEDICATED?' LCPUDEYG='LCPU 67*DEDICATED?' LCPUDEYH='LCPU 68*DEDICATED?' LCPUDEYI='LCPU 69*DEDICATED?' LCPUDEYJ='LCPU 70*DEDICATED?' LCPUDEYK='LCPU 71*DEDICATED?' LCPUDEYL='LCPU 72*DEDICATED?' LCPUDEYM='LCPU 73*DEDICATED?' LCPUDEYN='LCPU 74*DEDICATED?' LCPUDEYO='LCPU 75*DEDICATED?' LCPUDEYP='LCPU 76*DEDICATED?' LCPUDEYQ='LCPU 77*DEDICATED?' LCPUDEYR='LCPU 78*DEDICATED?' LCPUDEYS='LCPU 79*DEDICATED?' LCPUDEYT='LCPU 80*DEDICATED?' LCPUDEYU='LCPU 81*DEDICATED?' LCPUDEYV='LCPU 82*DEDICATED?' LCPUDEYW='LCPU 83*DEDICATED?' LCPUDEYX='LCPU 84*DEDICATED?' LCPUDEYY='LCPU 85*DEDICATED?' LCPUDEYZ='LCPU 86*DEDICATED?' LCPUDEVA='LCPU 87*DEDICATED?' LCPUDEVB='LCPU 88*DEDICATED?' LCPUDEVC='LCPU 89*DEDICATED?' LCPUDEVD='LCPU 90*DEDICATED?' LCPUDEVE='LCPU 91*DEDICATED?' LCPUDEVF='LCPU 92*DEDICATED?' LCPUDEVG='LCPU 93*DEDICATED?' LCPUDEVH='LCPU 94*DEDICATED?' LCPUDEVI='LCPU 95*DEDICATED?' LCPUDEVJ='LCPU 96*DEDICATED?' LCPUDEVK='LCPU 97*DEDICATED?' LCPUDEVL='LCPU 98*DEDICATED?' LCPUDEVM='LCPU 99*DEDICATED?' LCPUDEVN='LCPU 100*DEDICATED?' LCPUDEVO='LCPU 101*DEDICATED?' LCPUWAI0='LCPU 0*WAIT*COMPLETE?' LCPUWAI1='LCPU 1*WAIT*COMPLETE?' LCPUWAI2='LCPU 2*WAIT*COMPLETE?' LCPUWAI3='LCPU 3*WAIT*COMPLETE?' LCPUWAI4='LCPU 4*WAIT*COMPLETE?' LCPUWAI5='LCPU 5*WAIT*COMPLETE?' LCPUWAI6='LCPU 6*WAIT*COMPLETE?' LCPUWAI7='LCPU 7*WAIT*COMPLETE?' LCPUWAI8='LCPU 8*WAIT*COMPLETE?' LCPUWAI9='LCPU 9*WAIT*COMPLETE?' LCPUWAIA='LCPU 10*WAIT*COMPLETE?' LCPUWAIB='LCPU 11*WAIT*COMPLETE?' LCPUWAIC='LCPU 12*WAIT*COMPLETE?' LCPUWAID='LCPU 13*WAIT*COMPLETE?' LCPUWAIE='LCPU 14*WAIT*COMPLETE?' LCPUWAIF='LCPU 15*WAIT*COMPLETE?' LCPUWAIG='LCPU 16*WAIT*COMPLETE?' LCPUWAIH='LCPU 17*WAIT*COMPLETE?' LCPUWAII='LCPU 18*WAIT*COMPLETE?' LCPUWAIJ='LCPU 19*WAIT*COMPLETE?' LCPUWAIK='LCPU 20*WAIT*COMPLETE?' LCPUWAIL='LCPU 21*WAIT*COMPLETE?' LCPUWAIN='LCPU 22*WAIT*COMPLETE?' LCPUWAIO='LCPU 23*WAIT*COMPLETE?' LCPUWAIP='LCPU 24*WAIT*COMPLETE?' LCPUWAIQ='LCPU 25*WAIT*COMPLETE?' LCPUWAIR='LCPU 26*WAIT*COMPLETE?' LCPUWAIS='LCPU 27*WAIT*COMPLETE?' LCPUWAIT='LCPU 28*WAIT*COMPLETE?' LCPUWAIU='LCPU 29*WAIT*COMPLETE?' LCPUWAIV='LCPU 30*WAIT*COMPLETE?' LCPUWAIW='LCPU 31*WAIT*COMPLETE?' LCPUWAIX='LCPU 32*WAIT*COMPLETE?' LCPUWAIY='LCPU 33*WAIT*COMPLETE?' LCPUWAIZ='LCPU 34*WAIT*COMPLETE?' LCPUWAZA='LCPU 35*WAIT*COMPLETE?' LCPUWAZB='LCPU 36*WAIT*COMPLETE?' LCPUWAZC='LCPU 37*WAIT*COMPLETE?' LCPUWAZD='LCPU 38*WAIT*COMPLETE?' LCPUWAZE='LCPU 39*WAIT*COMPLETE?' LCPUWAZF='LCPU 40*WAIT*COMPLETE?' LCPUWAZG='LCPU 41*WAIT*COMPLETE?' LCPUWAZH='LCPU 42*WAIT*COMPLETE?' LCPUWAZI='LCPU 43*WAIT*COMPLETE?' LCPUWAZJ='LCPU 44*WAIT*COMPLETE?' LCPUWAZK='LCPU 45*WAIT*COMPLETE?' LCPUWAZL='LCPU 46*WAIT*COMPLETE?' LCPUWAZM='LCPU 47*WAIT*COMPLETE?' LCPUWAZN='LCPU 48*WAIT*COMPLETE?' LCPUWAZO='LCPU 49*WAIT*COMPLETE?' LCPUWAZP='LCPU 50*WAIT*COMPLETE?' LCPUWAZQ='LCPU 51*WAIT*COMPLETE?' LCPUWAZR='LCPU 52*WAIT*COMPLETE?' LCPUWAZS='LCPU 53*WAIT*COMPLETE?' LCPUWAZT='LCPU 54*WAIT*COMPLETE?' LCPUWAZU='LCPU 55*WAIT*COMPLETE?' LCPUWAZV='LCPU 56*WAIT*COMPLETE?' LCPUWAZW='LCPU 57*WAIT*COMPLETE?' LCPUWAZX='LCPU 58*WAIT*COMPLETE?' LCPUWAZY='LCPU 59*WAIT*COMPLETE?' LCPUWAZZ='LCPU 60*WAIT*COMPLETE?' LCPUWAYA='LCPU 61*WAIT*COMPLETE?' LCPUWAYB='LCPU 62*WAIT*COMPLETE?' LCPUWAYC='LCPU 63*WAIT*COMPLETE?' LCPUWAYD='LCPU 64*WAIT*COMPLETE?' LCPUWAYE='LCPU 65*WAIT*COMPLETE?' LCPUWAYF='LCPU 66*WAIT*COMPLETE?' LCPUWAYG='LCPU 67*WAIT*COMPLETE?' LCPUWAYH='LCPU 68*WAIT*COMPLETE?' LCPUWAYI='LCPU 69*WAIT*COMPLETE?' LCPUWAYJ='LCPU 70*WAIT*COMPLETE?' LCPUWAYK='LCPU 71*WAIT*COMPLETE?' LCPUWAYL='LCPU 72*WAIT*COMPLETE?' LCPUWAYM='LCPU 73*WAIT*COMPLETE?' LCPUWAYN='LCPU 74*WAIT*COMPLETE?' LCPUWAYO='LCPU 75*WAIT*COMPLETE?' LCPUWAYP='LCPU 76*WAIT*COMPLETE?' LCPUWAYQ='LCPU 77*WAIT*COMPLETE?' LCPUWAYR='LCPU 78*WAIT*COMPLETE?' LCPUWAYS='LCPU 79*WAIT*COMPLETE?' LCPUWAYT='LCPU 80*WAIT*COMPLETE?' LCPUWAYU='LCPU 81*WAIT*COMPLETE?' LCPUWAYV='LCPU 82*WAIT*COMPLETE?' LCPUWAYW='LCPU 83*WAIT*COMPLETE?' LCPUWAYX='LCPU 84*WAIT*COMPLETE?' LCPUWAYY='LCPU 85*WAIT*COMPLETE?' LCPUWAYZ='LCPU 86*WAIT*COMPLETE?' LCPUWAVA='LCPU 87*WAIT*COMPLETE?' LCPUWAVB='LCPU 88*WAIT*COMPLETE?' LCPUWAVC='LCPU 89*WAIT*COMPLETE?' LCPUWAVD='LCPU 90*WAIT*COMPLETE?' LCPUWAVE='LCPU 91*WAIT*COMPLETE?' LCPUWAVF='LCPU 92*WAIT*COMPLETE?' LCPUWAVG='LCPU 93*WAIT*COMPLETE?' LCPUWAVH='LCPU 94*WAIT*COMPLETE?' LCPUWAVI='LCPU 95*WAIT*COMPLETE?' LCPUWAVJ='LCPU 96*WAIT*COMPLETE?' LCPUWAVK='LCPU 97*WAIT*COMPLETE?' LCPUWAVL='LCPU 98*WAIT*COMPLETE?' LCPUWAVM='LCPU 99*WAIT*COMPLETE?' LCPUWAVN='LCPU 100*WAIT*COMPLETE?' LCPUWAVO='LCPU 101*WAIT*COMPLETE?' ; IF FIRST.STARTIME THEN DO; DO _I_=0 TO 255; EDTM(_I_+1)=.; PDTM(_I_+1)=.; ONTM(_I_+1)=.; LDED(_I_+1)=' '; LWAI(_I_+1)=' '; END; SUMZIPACTTM=0; END; SUMZIPACTTM+ZIPACTTM; EDTM(LCPUADDR+1)=LCPUEDTM; PDTM(LCPUADDR+1)=LCPUPDTM; ONTM(LCPUADDR+1)=SMF70ONT; LDED(LCPUADDR+1)=LCPUDED; LWAI(LCPUADDR+1)=PRSMWAIT; RETAIN EDTM PDTM ONTM LDED LWAI; PART70PU=PARTNCPU; IF LAST.STARTIME THEN DO; ZIPACTTM=SUMZIPACTTM; OUTPUT FROM70PR; END; *TITLE 'DEBUG R: DATA=FROM70PR'; *%%VMXGPRA1(DATASET=FROM70PR,WHERE=_XNTLPAR,nobs=41); PROC SORT NODUP DATA=_WTY70PR OUT=FORPLAT (KEEP=SYSPLEX SYSTEM SYSNAME STARTIME SMF70GIE GMTOFFTM LPARNAME SMF70CIN PARTISHN LPARNUM SMF70NCA NRCPSCPU NRZIPCPU NRIFLCPU NRICFCPU nrifacpu LCPUPDTM DURATM LCPUSHAR SMF70ACS SMF70NSW SMF70DSA ); /*DESCENDING TO FORCE PHYSICAL LPARNUM 0 TO BE LAST */ BY SYSPLEX SYSTEM SYSNAME SMF70GIE GMTOFFTM STARTIME DESCENDING LPARNUM SMF70CIN LPARNAME LCPUADDR SMFTIME; *TITLE 'DEBUG S: DATA=FORPLAT'; *%%VMXGPRA1(DATASET=FORPLAT,WHERE=_XNTLPAR,nobs=41); /*=== _STY70 ==================DATA STEP PLATBUSY===================*/ DATA PLATBUSY (KEEP=SYSPLEX SYSTEM SYSNAME SMF70GIE GMTOFFTM STARTIME LPARNSW TOTSHARC TOTSHARE LPARSHAC LPARSHAR PLATBUSY PLATCPUS PARTNCPU LPARNCA ZIPSHARC ZIPSHARE LZIPSHAC LZIPSHAR PLATZIPBUSY PLATIFLBUSY PLATICFBUSY PLATIFABUSY IFASHARC IFASHARE LIFASHAC LIFASHAR ZIPPLATTM PLATZIPCPUS PLATIFLCPUS PLATICFCPUS PLATIFACPUS ); SET FORPLAT; BY SYSPLEX SYSTEM SYSNAME SMF70GIE GMTOFFTM STARTIME DESCENDING LPARNUM SMF70CIN; LABEL LPARNCA ='PCT WHEN*CAPPING*DELAYED*WORK' LPARNSW ='PCT WHEN*LPAR WAS*SOFT CAPPED' PLATBUSY='PLATFORM*PERCENT*HARDWARE BUSY' PLATCPUS='PLATFORM*NUMBER OF*CP*ENGINES' PLATIFABUSY='PLATFORM*PERCENT*CBP BUSY' PLATIFACPUS='PLATFORM*NUMBER OF*CBP*ENGINES' PLATZIPBUSY='PLATFORM*PERCENT*ZIP BUSY' ZIPPLATTM='PLATFORM*ZIP BUSY*DURATION' PLATZIPCPUS='PLATFORM*NUMBER OF*ZIP*ENGINES' PLATIFLBUSY='PLATFORM*PERCENT*IFL BUSY' PLATIFLCPUS='PLATFORM*NUMBER OF*IFL*ENGINES' PLATICFBUSY='PLATFORM*PERCENT*ICF BUSY' PLATICFCPUS='PLATFORM*NUMBER OF*ICF*ENGINES' PARTNCPU='TOTAL*NUMBER OF*CPUS*IN THE CEC' LPARSHAC='LPAR*CURRENT*CP SHARE*WEIGHT' LPARSHAR='LPAR*INITIAL*CP SHARE*WEIGHT' TOTSHARC='TOTAL*CURRENT*CP SHARE*WEIGHT' TOTSHARE='TOTAL*INITIAL*CP SHARE*WEIGHT' ZIPSHARC='TOTAL*CURRENT*ZIIP SHARE*WEIGHT' ZIPSHARE='TOTAL*INITIAL*ZIIP SHARE*WEIGHT' IFASHARC='TOTAL*CURRENT*ZCBP SHARE*WEIGHT' IFASHARE='TOTAL*INITIAL*ZCBP SHARE*WEIGHT' LZIPSHAC ='LPAR*ZIIP SHARE*CURRENT*WEIGHT*PCT' LZIPSHAR ='LPAR*ZIIP SHARE*INITIAL*WEIGHT*PCT' LIFASHAC ='LPAR*ZCBP SHARE*CURRENT*WEIGHT*PCT' LIFASHAR ='LPAR*ZCBP SHARE*INITIAL*WEIGHT*PCT' ; LENGTH DEFAULT=&MXGLEN; FORMAT LPARNCA LPARNSW PLATBUSY PLATICFBUSY 5.1 PLATIFABUSY PLATIFLBUSY PLATZIPBUSY 5.1 ; IF FIRST.STARTIME THEN DO; LPARNCA=0; LPARNSW=0; TOTSHARC=0; TOTSHARE=0; LPARSHAR=0; LPARSHAC=0; ZIPSHARC=0; ZIPSHARE=0; IFASHARC=0; IFASHARE=0; LZIPSHAR=0; LZIPSHAC=0; LIFASHAR=0; LIFASHAC=0; PLATBUSY=0; PLATIFABUSY=0; PLATZIPBUSY=0; PLATIFLBUSY=0; PLATICFBUSY=0; LPARDSA=SMF70DSA; LPARDUR=DURATM; RETAIN LPARNSW TOTSHARC TOTSHARE LPARSHAC LPARSHAR PLATBUSY LPARDSA LPARDUR LPARNCA ZIPSHARC ZIPSHARE LZIPSHAR LZIPSHAC IFASHARC IFASHARE LIFASHAR LIFASHAC PLATIFABUSY PLATZIPBUSY PLATIFLBUSY PLATICFBUSY; END; *putlog _N_= startime= lparnum= smf70cin= lparname= lcpupdtm= ; IF SMF70CIN='CP ' THEN PLATBUSY+LCPUPDTM; IF SMF70CIN='IIP' THEN PLATZIPBUSY+LCPUPDTM; IF SMF70CIN='IFA' THEN PLATIFABUSY+LCPUPDTM; IF SMF70CIN='IFL' THEN PLATIFLBUSY+LCPUPDTM; IF SMF70CIN='ICF' THEN PLATICFBUSY+LCPUPDTM; IF FIRST.SMF70CIN THEN DO; IF SMF70CIN='CP ' AND LCPUSHAR NE 0FFFFX THEN DO; TOTSHARE+LCPUSHAR; IF SMF70ACS GT 0 THEN TOTSHARC+SMF70ACS; ELSE TOTSHARC+LCPUSHAR; IF PARTISHN=LPARNUM THEN DO; LPARNCA=SMF70NCA; /*MOVE HERE, CHANGE 24.010 */ LPARNSW=SMF70NSW; /*MOVE HERE, CHANGE 24.010 */ LPARSHAR=LCPUSHAR; IF SMF70ACS GT 0 THEN LPARSHAC=SMF70ACS; ELSE LPARSHAC=LCPUSHAR; END; END; ELSE IF SMF70CIN='IIP' AND LCPUSHAR NE 0FFFFX THEN DO; ZIPSHARE+LCPUSHAR; IF SMF70ACS GT 0 THEN ZIPSHARC+SMF70ACS; ELSE ZIPSHARC+LCPUSHAR; IF PARTISHN=LPARNUM THEN DO; LZIPSHAR=LCPUSHAR; IF SMF70ACS GT 0 THEN LZIPSHAC=SMF70ACS; ELSE LZIPSHAC=LCPUSHAR; END; END; ELSE IF SMF70CIN='IFA' AND LCPUSHAR NE 0FFFFX THEN DO; IFASHARE+LCPUSHAR; IF SMF70ACS GT 0 THEN IFASHARC+SMF70ACS; ELSE IFASHARC+LCPUSHAR; IF PARTISHN=LPARNUM THEN DO; LIFASHAR=LCPUSHAR; IF SMF70ACS GT 0 THEN LIFASHAC=SMF70ACS; ELSE LIFASHAC=LCPUSHAR; END; END; END; IF LAST.STARTIME THEN DO; PLATCPUS=NRCPSCPU; PLATZIPCPUS=NRZIPCPU; PLATIFACPUS=NRIFACPU; PLATIFLCPUS=NRIFLCPU; PLATICFCPUS=NRICFCPU; PARTNCPU=PLATCPUS; IF LPARDUR*PLATCPUS GT 0 THEN PLATBUSY=100*PLATBUSY/(LPARDUR*PLATCPUS); ELSE PLATBUSY=.; IF LPARDUR*PLATIFACPUS GT 0 THEN DO; PLATIFABUSY=100*PLATIFABUSY/(LPARDUR*PLATIFACPUS); END; ELSE PLATIFABUSY=.; ZIPPLATTM=PLATZIPBUSY; IF LPARDUR*PLATZIPCPUS GT 0 THEN PLATZIPBUSY=100*PLATZIPBUSY/(LPARDUR*PLATZIPCPUS); ELSE PLATZIPBUSY=.; IF LPARDUR*PLATIFLCPUS GT 0 THEN PLATIFLBUSY=100*PLATIFLBUSY/(LPARDUR*PLATIFLCPUS); ELSE PLATIFLBUSY=.; IF LPARDUR*PLATICFCPUS GT 0 THEN PLATICFBUSY=100*PLATICFBUSY/(LPARDUR*PLATICFCPUS); ELSE PLATICFBUSY=.; IF TOTSHARC GT 0 THEN DO; LPARSHAR=100*LPARSHAR/TOTSHARC; LPARSHAC=100*LPARSHAC/TOTSHARC; END; ELSE DO; LPARSHAR=0; LPARSHAC=0; END; IF ZIPSHARC GT 0 THEN DO; LZIPSHAR=100*LZIPSHAR/ZIPSHARC; LZIPSHAC=100*LZIPSHAC/ZIPSHARC; END; ELSE DO; LZIPSHAR=0; LZIPSHAC=0; END; IF IFASHARC GT 0 THEN DO; LIFASHAR=100*LIFASHAR/IFASHARC; LIFASHAC=100*LIFASHAC/IFASHARC; END; ELSE DO; LIFASHAR=0; LIFASHAC=0; END; OUTPUT PLATBUSY; END; *PROC PRINT DATA=SORT70SP; *TITLE 'DEBUG U: DATA=SORT70SP';run; *%%VMXGPRA1(DATASET=SORT70SP,nobs=41); *PROC PRINT DATA=from70pr; *TITLE 'DEBUG U: DATA=from70pr';run; *%%VMXGPRA1(DATASET=from70pr,nobs=41); *PROC PRINT DATA=PLATBUSY; *TITLE 'DEBUG U: DATA=PLATBUSY';run; *%%VMXGPRA1(DATASET=PLATBUSY,nobs=41); PROC DELETE DATA=FORPLAT; /*=== _STY70 ==================DATA STEP _LTY70 ===================*/ DATA MERGETY70; MERGE SORT70SP (IN=IN70SP DROP=LPARWLMG PARTNCPU ZIPACTTM) FROM70PR (IN=FROMPR) PLATBUSY (IN=INPLAT); BY SYSPLEX SYSTEM SYSNAME SMF70GIE GMTOFFTM STARTIME; TOTZIPACTTM=ZIPACTTM; RETAIN TOTZIPACTTM; DROP TOTZIPACTTM; ARRAY LDED (256) $1 LCPUDED0-LCPUDED8 LCPUDED9 LCPUDEDA LCPUDEDB LCPUDEDC LCPUDEDD LCPUDEDE LCPUDEDF LCPUDEDG LCPUDEDH LCPUDEDI LCPUDEDJ LCPUDEDK LCPUDEDL LCPUDEDN LCPUDEDO LCPUDEDP LCPUDEDQ LCPUDEDR LCPUDEDS LCPUDEDT LCPUDEDU LCPUDEDV LCPUDEDW LCPUDEDX LCPUDEDY LCPUDEDZ LCPUDEZA LCPUDEZB LCPUDEZC LCPUDEZD LCPUDEZE LCPUDEZF LCPUDEZG LCPUDEZH LCPUDEZI LCPUDEZJ LCPUDEZK LCPUDEZL LCPUDEZM LCPUDEZN LCPUDEZO LCPUDEZP LCPUDEZQ LCPUDEZR LCPUDEZS LCPUDEZT LCPUDEZU LCPUDEZV LCPUDEZW LCPUDEZX LCPUDEZY LCPUDEZZ LCPUDEYA LCPUDEYB LCPUDEYC LCPUDEYD LCPUDEYE LCPUDEYF LCPUDEYG LCPUDEYH LCPUDEYI LCPUDEYJ LCPUDEYK LCPUDEYL LCPUDEYM LCPUDEYN LCPUDEYO LCPUDEYP LCPUDEYQ LCPUDEYR LCPUDEYS LCPUDEYT LCPUDEYU LCPUDEYV LCPUDEYW LCPUDEYX LCPUDEYY LCPUDEYZ LCPUDEVA LCPUDEVB LCPUDEVC LCPUDEVD LCPUDEVE LCPUDEVF LCPUDEVG LCPUDEVH LCPUDEVI LCPUDEVJ LCPUDEVK LCPUDEVL LCPUDEVM LCPUDEVN LCPUDEVO LCPUDE102-LCPUDE255; ARRAY LWAI (256) $1 LCPUWAI0-LCPUWAI8 LCPUWAI9 LCPUWAIA LCPUWAIB LCPUWAIC LCPUWAID LCPUWAIE LCPUWAIF LCPUWAIG LCPUWAIH LCPUWAII LCPUWAIJ LCPUWAIK LCPUWAIL LCPUWAIN LCPUWAIO LCPUWAIP LCPUWAIQ LCPUWAIR LCPUWAIS LCPUWAIT LCPUWAIU LCPUWAIV LCPUWAIW LCPUWAIX LCPUWAIY LCPUWAIZ LCPUWAZA LCPUWAZB LCPUWAZC LCPUWAZD LCPUWAZE LCPUWAZF LCPUWAZG LCPUWAZH LCPUWAZI LCPUWAZJ LCPUWAZK LCPUWAZL LCPUWAZM LCPUWAZN LCPUWAZO LCPUWAZP LCPUWAZQ LCPUWAZR LCPUWAZS LCPUWAZT LCPUWAZU LCPUWAZV LCPUWAZW LCPUWAZX LCPUWAZY LCPUWAZZ LCPUWAYA LCPUWAYB LCPUWAYC LCPUWAYD LCPUWAYE LCPUWAYF LCPUWAYG LCPUWAYH LCPUWAYI LCPUWAYJ LCPUWAYK LCPUWAYL LCPUWAYM LCPUWAYN LCPUWAYO LCPUWAYP LCPUWAYQ LCPUWAYR LCPUWAYS LCPUWAYT LCPUWAYU LCPUWAYV LCPUWAYW LCPUWAYX LCPUWAYY LCPUWAYZ LCPUWAVA LCPUWAVB LCPUWAVC LCPUWAVD LCPUWAVE LCPUWAVF LCPUWAVG LCPUWAVH LCPUWAVI LCPUWAVJ LCPUWAVK LCPUWAVL LCPUWAVM LCPUWAVN LCPUWAVO LCPUWA102-LCPUWA255; ARRAY CAI (256) $1 CAI0 -CAI8 CAI9 CAIA CAIB CAIC CAID CAIE CAIF CAIG CAIH CAII CAIJ CAIK CAIL CAIN CAIO CAIP CAIQ CAIR CAIS CAIT CAIU CAIV CAIW CAIX CAIY CAIZ CAIZA CAIZB CAIZC CAIZD CAIZE CAIZF CAIZG CAIZH CAIZI CAIZJ CAIZK CAIZL CAIZM CAIZN CAIZO CAIZP CAIZQ CAIZR CAIZS CAIZT CAIZU CAIZV CAIZW CAIZX CAIZY CAIZZ CAIYA CAIYB CAIYC CAIYD CAIYE CAIYF CAIYG CAIYH CAIYI CAIYJ CAIYK CAIYL CAIYM CAIYN CAIYO CAIYP CAIYQ CAIYR CAIYS CAIYT CAIYU CAIYV CAIYW CAIYX CAIYY CAIYZ CAIVA CAIVB CAIVC CAIVD CAIVE CAIVF CAIVG CAIVH CAIVI CAIVJ CAIVK CAIVL CAIVM CAIVN CAIVO CAI102-CAI255; ARRAY IFARRAY (256) IFATYP0 -IFATYP9 IFATYPA IFATYPB IFATYPC IFATYPD IFATYPE IFATYPF IFATYPG IFATYPH IFATYPI IFATYPJ IFATYPK IFATYPL IFATYPN IFATYPO IFATYPP IFATYPQ IFATYPR IFATYPS IFATYPT IFATYPU IFATYPV IFATYPW IFATYPX IFATYPY IFATYPZ IFATYPZA IFATYPZB IFATYPZC IFATYPZD IFATYPZE IFATYPZF IFATYPZG IFATYPZH IFATYPZI IFATYPZJ IFATYPZK IFATYPZL IFATYPZM IFATYPZN IFATYPZO IFATYPZP IFATYPZQ IFATYPZR IFATYPZS IFATYPZT IFATYPZU IFATYPZV IFATYPZW IFATYPZX IFATYPZY IFATYPZZ IFATYPYA IFATYPYB IFATYPYC IFATYPYD IFATYPYE IFATYPYF IFATYPYG IFATYPYH IFATYPYI IFATYPYJ IFATYPYK IFATYPYL IFATYPYM IFATYPYN IFATYPYO IFATYPYP IFATYPYQ IFATYPYR IFATYPYS IFATYPYT IFATYPYU IFATYPYV IFATYPYW IFATYPYX IFATYPYY IFATYPYZ IFATYPVA IFATYPVB IFATYPVC IFATYPVD IFATYPVE IFATYPVF IFATYPVG IFATYPVH IFATYPVI IFATYPVJ IFATYPVK IFATYPVL IFATYPVM IFATYPVN IFATYPVO IFATYP102-IFATYP255; ARRAY EDTM (256) LEDTM0 -LEDTM9 LEDTMA LEDTMB LEDTMC LEDTMD LEDTME LEDTMF LEDTMG LEDTMH LEDTMI LEDTMJ LEDTMK LEDTML LEDTMN LEDTMO LEDTMP LEDTMQ LEDTMR LEDTMS LEDTMT LEDTMU LEDTMV LEDTMW LEDTMX LEDTMY LEDTMZ LEDTMZA LEDTMZB LEDTMZC LEDTMZD LEDTMZE LEDTMZF LEDTMZG LEDTMZH LEDTMZI LEDTMZJ LEDTMZK LEDTMZL LEDTMZM LEDTMZN LEDTMZO LEDTMZP LEDTMZQ LEDTMZR LEDTMZS LEDTMZT LEDTMZU LEDTMZV LEDTMZW LEDTMZX LEDTMZY LEDTMZZ LEDTMYA LEDTMYB LEDTMYC LEDTMYD LEDTMYE LEDTMYF LEDTMYG LEDTMYH LEDTMYI LEDTMYJ LEDTMYK LEDTMYL LEDTMYM LEDTMYN LEDTMYO LEDTMYP LEDTMYQ LEDTMYR LEDTMYS LEDTMYT LEDTMYU LEDTMYV LEDTMYW LEDTMYX LEDTMYY LEDTMYZ LEDTMVA LEDTMVB LEDTMVC LEDTMVD LEDTMVE LEDTMVF LEDTMVG LEDTMVH LEDTMVI LEDTMVJ LEDTMVK LEDTMVL LEDTMVM LEDTMVN LEDTMVO LEDTM102-LEDTM255; ARRAY PDTM (256) LPDTM0 -LPDTM9 LPDTMA LPDTMB LPDTMC LPDTMD LPDTME LPDTMF LPDTMG LPDTMH LPDTMI LPDTMJ LPDTMK LPDTML LPDTMN LPDTMO LPDTMP LPDTMQ LPDTMR LPDTMS LPDTMT LPDTMU LPDTMV LPDTMW LPDTMX LPDTMY LPDTMZ LPDTMZA LPDTMZB LPDTMZC LPDTMZD LPDTMZE LPDTMZF LPDTMZG LPDTMZH LPDTMZI LPDTMZJ LPDTMZK LPDTMZL LPDTMZM LPDTMZN LPDTMZO LPDTMZP LPDTMZQ LPDTMZR LPDTMZS LPDTMZT LPDTMZU LPDTMZV LPDTMZW LPDTMZX LPDTMZY LPDTMZZ LPDTMYA LPDTMYB LPDTMYC LPDTMYD LPDTMYE LPDTMYF LPDTMYG LPDTMYH LPDTMYI LPDTMYJ LPDTMYK LPDTMYL LPDTMYM LPDTMYN LPDTMYO LPDTMYP LPDTMYQ LPDTMYR LPDTMYS LPDTMYT LPDTMYU LPDTMYV LPDTMYW LPDTMYX LPDTMYY LPDTMYZ LPDTMVA LPDTMVB LPDTMVC LPDTMVD LPDTMVE LPDTMVF LPDTMVG LPDTMVH LPDTMVI LPDTMVJ LPDTMVK LPDTMVL LPDTMVM LPDTMVN LPDTMVO LPDTM102-LPDTM255; ARRAY ONTM (256) ONTM0 -ONTM9 ONTMA ONTMB ONTMC ONTMD ONTME ONTMF ONTMG ONTMH ONTMI ONTMJ ONTMK ONTML ONTMN ONTMO ONTMP ONTMQ ONTMR ONTMS ONTMT ONTMU ONTMV ONTMW ONTMX ONTMY ONTMZ ONTMZA ONTMZB ONTMZC ONTMZD ONTMZE ONTMZF ONTMZG ONTMZH ONTMZI ONTMZJ ONTMZK ONTMZL ONTMZM ONTMZN ONTMZO ONTMZP ONTMZQ ONTMZR ONTMZS ONTMZT ONTMZU ONTMZV ONTMZW ONTMZX ONTMZY ONTMZZ ONTMYA ONTMYB ONTMYC ONTMYD ONTMYE ONTMYF ONTMYG ONTMYH ONTMYI ONTMYJ ONTMYK ONTMYL ONTMYM ONTMYN ONTMYO ONTMYP ONTMYQ ONTMYR ONTMYS ONTMYT ONTMYU ONTMYV ONTMYW ONTMYX ONTMYY ONTMYZ ONTMVA ONTMVB ONTMVC ONTMVD ONTMVE ONTMVF ONTMVG ONTMVH ONTMVI ONTMVJ ONTMVK ONTMVL ONTMVM ONTMVN ONTMVO ONTM102-ONTM255; ARRAY IFAWAIT (256) IFAWAIT0-IFAWAIT9 IFAWAITA IFAWAITB IFAWAITC IFAWAITD IFAWAITE IFAWAITF IFAWAITG IFAWAITH IFAWAITI IFAWAITJ IFAWAITK IFAWAITL IFAWAITN IFAWAITO IFAWAITP IFAWAITQ IFAWAITR IFAWAITS IFAWAITT IFAWAITU IFAWAITV IFAWAITW IFAWAITX IFAWAITY IFAWAITZ IFAWAIZA IFAWAIZB IFAWAIZC IFAWAIZD IFAWAIZE IFAWAIZF IFAWAIZG IFAWAIZH IFAWAIZI IFAWAIZJ IFAWAIZK IFAWAIZL IFAWAIZM IFAWAIZN IFAWAIZO IFAWAIZP IFAWAIZQ IFAWAIZR IFAWAIZS IFAWAIZT IFAWAIZU IFAWAIZV IFAWAIZW IFAWAIZX IFAWAIZY IFAWAIZZ IFAWAIYA IFAWAIYB IFAWAIYC IFAWAIYD IFAWAIYE IFAWAIYF IFAWAIYG IFAWAIYH IFAWAIYI IFAWAIYJ IFAWAIYK IFAWAIYL IFAWAIYM IFAWAIYN IFAWAIYO IFAWAIYP IFAWAIYQ IFAWAIYR IFAWAIYS IFAWAIYT IFAWAIYU IFAWAIYV IFAWAIYW IFAWAIYX IFAWAIYY IFAWAIYZ IFAWAIVA IFAWAIVB IFAWAIVC IFAWAIVD IFAWAIVE IFAWAIVF IFAWAIVG IFAWAIVH IFAWAIVI IFAWAIVJ IFAWAIVK IFAWAIVL IFAWAIVM IFAWAIVN IFAWAIVO IFAWAI102-IFAWAI255; ARRAY ZIPWAIT (256) ZIPWAIT0-ZIPWAIT9 ZIPWAITA ZIPWAITB ZIPWAITC ZIPWAITD ZIPWAITE ZIPWAITF ZIPWAITG ZIPWAITH ZIPWAITI ZIPWAITJ ZIPWAITK ZIPWAITL ZIPWAITN ZIPWAITO ZIPWAITP ZIPWAITQ ZIPWAITR ZIPWAITS ZIPWAITT ZIPWAITU ZIPWAITV ZIPWAITW ZIPWAITX ZIPWAITY ZIPWAITZ ZIPWAIZA ZIPWAIZB ZIPWAIZC ZIPWAIZD ZIPWAIZE ZIPWAIZF ZIPWAIZG ZIPWAIZH ZIPWAIZI ZIPWAIZJ ZIPWAIZK ZIPWAIZL ZIPWAIZM ZIPWAIZN ZIPWAIZO ZIPWAIZP ZIPWAIZQ ZIPWAIZR ZIPWAIZS ZIPWAIZT ZIPWAIZU ZIPWAIZV ZIPWAIZW ZIPWAIZX ZIPWAIZY ZIPWAIZZ ZIPWAIYA ZIPWAIYB ZIPWAIYC ZIPWAIYD ZIPWAIYE ZIPWAIYF ZIPWAIYG ZIPWAIYH ZIPWAIYI ZIPWAIYJ ZIPWAIYK ZIPWAIYL ZIPWAIYM ZIPWAIYN ZIPWAIYO ZIPWAIYP ZIPWAIYQ ZIPWAIYR ZIPWAIYS ZIPWAIYT ZIPWAIYU ZIPWAIYV ZIPWAIYW ZIPWAIYX ZIPWAIYY ZIPWAIYZ ZIPWAIVA ZIPWAIVB ZIPWAIVC ZIPWAIVD ZIPWAIVE ZIPWAIVF ZIPWAIVG ZIPWAIVH ZIPWAIVI ZIPWAIVJ ZIPWAIVK ZIPWAIVL ZIPWAIVM ZIPWAIVN ZIPWAIVO ZIPWAI102-ZIPWAI255; ARRAY CPUPAT (256) CPUPATM0-CPUPATM9 CPUPATMA CPUPATMB CPUPATMC CPUPATMD CPUPATME CPUPATMF CPUPATMG CPUPATMH CPUPATMI CPUPATMJ CPUPATMK CPUPATML CPUPATMN CPUPATMO CPUPATMP CPUPATMQ CPUPATMR CPUPATMS CPUPATMT CPUPATMU CPUPATMV CPUPATMW CPUPATMX CPUPATMY CPUPATMZ CPUPATZA CPUPATZB CPUPATZC CPUPATZD CPUPATZE CPUPATZF CPUPATZG CPUPATZH CPUPATZI CPUPATZJ CPUPATZK CPUPATZL CPUPATZM CPUPATZN CPUPATZO CPUPATZP CPUPATZQ CPUPATZR CPUPATZS CPUPATZT CPUPATZU CPUPATZV CPUPATZW CPUPATZX CPUPATZY CPUPATZZ CPUPATYA CPUPATYB CPUPATYC CPUPATYD CPUPATYE CPUPATYF CPUPATYG CPUPATYH CPUPATYI CPUPATYJ CPUPATYK CPUPATYL CPUPATYM CPUPATYN CPUPATYO CPUPATYP CPUPATYQ CPUPATYR CPUPATYS CPUPATYT CPUPATYU CPUPATYV CPUPATYW CPUPATYX CPUPATYY CPUPATYZ CPUPATVA CPUPATVB CPUPATVC CPUPATVD CPUPATVE CPUPATVF CPUPATVG CPUPATVH CPUPATVI CPUPATVJ CPUPATVK CPUPATVL CPUPATVM CPUPATVN CPUPATVO CPUPAT102-CPUPAT255; ARRAY RWAIT (256) CPUWAIT0-CPUWAIT9 CPUWAITA CPUWAITB CPUWAITC CPUWAITD CPUWAITE CPUWAITF CPUWAITG CPUWAITH CPUWAITI CPUWAITJ CPUWAITK CPUWAITL CPUWAITN CPUWAITO CPUWAITP CPUWAITQ CPUWAITR CPUWAITS CPUWAITT CPUWAITU CPUWAITV CPUWAITW CPUWAITX CPUWAITY CPUWAITZ CPUWAIZA CPUWAIZB CPUWAIZC CPUWAIZD CPUWAIZE CPUWAIZF CPUWAIZG CPUWAIZH CPUWAIZI CPUWAIZJ CPUWAIZK CPUWAIZL CPUWAIZM CPUWAIZN CPUWAIZO CPUWAIZP CPUWAIZQ CPUWAIZR CPUWAIZS CPUWAIZT CPUWAIZU CPUWAIZV CPUWAIZW CPUWAIZX CPUWAIZY CPUWAIZZ CPUWAIYA CPUWAIYB CPUWAIYC CPUWAIYD CPUWAIYE CPUWAIYF CPUWAIYG CPUWAIYH CPUWAIYI CPUWAIYJ CPUWAIYK CPUWAIYL CPUWAIYM CPUWAIYN CPUWAIYO CPUWAIYP CPUWAIYQ CPUWAIYR CPUWAIYS CPUWAIYT CPUWAIYU CPUWAIYV CPUWAIYW CPUWAIYX CPUWAIYY CPUWAIYZ CPUWAIVA CPUWAIVB CPUWAIVC CPUWAIVD CPUWAIVE CPUWAIVF CPUWAIVG CPUWAIVH CPUWAIVI CPUWAIVJ CPUWAIVK CPUWAIVL CPUWAIVM CPUWAIVN CPUWAIVO CPUWAI102-CPUWAI255; ARRAY REDTM (256) CPUEDTM0-CPUEDTM9 CPUEDTMA CPUEDTMB CPUEDTMC CPUEDTMD CPUEDTME CPUEDTMF CPUEDTMG CPUEDTMH CPUEDTMI CPUEDTMJ CPUEDTMK CPUEDTML CPUEDTMN CPUEDTMO CPUEDTMP CPUEDTMQ CPUEDTMR CPUEDTMS CPUEDTMT CPUEDTMU CPUEDTMV CPUEDTMW CPUEDTMX CPUEDTMY CPUEDTMZ CPUEDTZA CPUEDTZB CPUEDTZC CPUEDTZD CPUEDTZE CPUEDTZF CPUEDTZG CPUEDTZH CPUEDTZI CPUEDTZJ CPUEDTZK CPUEDTZL CPUEDTZM CPUEDTZN CPUEDTZO CPUEDTZP CPUEDTZQ CPUEDTZR CPUEDTZS CPUEDTZT CPUEDTZU CPUEDTZV CPUEDTZW CPUEDTZX CPUEDTZY CPUEDTZZ CPUEDTYA CPUEDTYB CPUEDTYC CPUEDTYD CPUEDTYE CPUEDTYF CPUEDTYG CPUEDTYH CPUEDTYI CPUEDTYJ CPUEDTYK CPUEDTYL CPUEDTYM CPUEDTYN CPUEDTYO CPUEDTYP CPUEDTYQ CPUEDTYR CPUEDTYS CPUEDTYT CPUEDTYU CPUEDTYV CPUEDTYW CPUEDTYX CPUEDTYY CPUEDTYZ CPUEDTVA CPUEDTVB CPUEDTVC CPUEDTVD CPUEDTVE CPUEDTVF CPUEDTVG CPUEDTVH CPUEDTVI CPUEDTVJ CPUEDTVK CPUEDTVL CPUEDTVM CPUEDTVN CPUEDTVO CPUEDT102-CPUEDT255; ARRAY RPDTM (256) CPUPDTM0-CPUPDTM9 CPUPDTMA CPUPDTMB CPUPDTMC CPUPDTMD CPUPDTME CPUPDTMF CPUPDTMG CPUPDTMH CPUPDTMI CPUPDTMJ CPUPDTMK CPUPDTML CPUPDTMN CPUPDTMO CPUPDTMP CPUPDTMQ CPUPDTMR CPUPDTMS CPUPDTMT CPUPDTMU CPUPDTMV CPUPDTMW CPUPDTMX CPUPDTMY CPUPDTMZ CPUPDTZA CPUPDTZB CPUPDTZC CPUPDTZD CPUPDTZE CPUPDTZF CPUPDTZG CPUPDTZH CPUPDTZI CPUPDTZJ CPUPDTZK CPUPDTZL CPUPDTZM CPUPDTZN CPUPDTZO CPUPDTZP CPUPDTZQ CPUPDTZR CPUPDTZS CPUPDTZT CPUPDTZU CPUPDTZV CPUPDTZW CPUPDTZX CPUPDTZY CPUPDTZZ CPUPDTYA CPUPDTYB CPUPDTYC CPUPDTYD CPUPDTYE CPUPDTYF CPUPDTYG CPUPDTYH CPUPDTYI CPUPDTYJ CPUPDTYK CPUPDTYL CPUPDTYM CPUPDTYN CPUPDTYO CPUPDTYP CPUPDTYQ CPUPDTYR CPUPDTYS CPUPDTYT CPUPDTYU CPUPDTYV CPUPDTYW CPUPDTYX CPUPDTYY CPUPDTYZ CPUPDTVA CPUPDTVB CPUPDTVC CPUPDTVD CPUPDTVE CPUPDTVF CPUPDTVG CPUPDTVH CPUPDTVI CPUPDTVJ CPUPDTVK CPUPDTVL CPUPDTVM CPUPDTVN CPUPDTVO CPUPDT102-CPUPDT255; ARRAY PONTM (256) PCTONLN0-PCTONLN9 PCTONLNA PCTONLNB PCTONLNC PCTONLND PCTONLNE PCTONLNF PCTONLNG PCTONLNH PCTONLNI PCTONLNJ PCTONLNK PCTONLNL PCTONLNN PCTONLNO PCTONLNP PCTONLNQ PCTONLNR PCTONLNS PCTONLNT PCTONLNU PCTONLNV PCTONLNW PCTONLNX PCTONLNY PCTONLNZ PCTONLZA PCTONLZB PCTONLZC PCTONLZD PCTONLZE PCTONLZF PCTONLZG PCTONLZH PCTONLZI PCTONLZJ PCTONLZK PCTONLZL PCTONLZM PCTONLZN PCTONLZO PCTONLZP PCTONLZQ PCTONLZR PCTONLZS PCTONLZT PCTONLZU PCTONLZV PCTONLZW PCTONLZX PCTONLZY PCTONLZZ PCTONLYA PCTONLYB PCTONLYC PCTONLYD PCTONLYE PCTONLYF PCTONLYG PCTONLYH PCTONLYI PCTONLYJ PCTONLYK PCTONLYL PCTONLYM PCTONLYN PCTONLYO PCTONLYP PCTONLYQ PCTONLYR PCTONLYS PCTONLYT PCTONLYU PCTONLYV PCTONLYW PCTONLYX PCTONLYY PCTONLYZ PCTONLVA PCTONLVB PCTONLVC PCTONLVD PCTONLVE PCTONLVF PCTONLVG PCTONLVH PCTONLVI PCTONLVJ PCTONLVK PCTONLVL PCTONLVM PCTONLVN PCTONLVO PCTONL102-PCTONL255; ARRAY PCPBY (256) PCTCPBY0-PCTCPBY9 PCTCPBYA PCTCPBYB PCTCPBYC PCTCPBYD PCTCPBYE PCTCPBYF PCTCPBYG PCTCPBYH PCTCPBYI PCTCPBYJ PCTCPBYK PCTCPBYL PCTCPBYN PCTCPBYO PCTCPBYP PCTCPBYQ PCTCPBYR PCTCPBYS PCTCPBYT PCTCPBYU PCTCPBYV PCTCPBYW PCTCPBYX PCTCPBYY PCTCPBYZ PCTCPBZA PCTCPBZB PCTCPBZC PCTCPBZD PCTCPBZE PCTCPBZF PCTCPBZG PCTCPBZH PCTCPBZI PCTCPBZJ PCTCPBZK PCTCPBZL PCTCPBZM PCTCPBZN PCTCPBZO PCTCPBZP PCTCPBZQ PCTCPBZR PCTCPBZS PCTCPBZT PCTCPBZU PCTCPBZV PCTCPBZW PCTCPBZX PCTCPBZY PCTCPBZZ PCTCPBXA PCTCPBXB PCTCPBXC PCTCPBXD PCTCPBXE PCTCPBXF PCTCPBXG PCTCPBXH PCTCPBXI PCTCPBXJ PCTCPBXK PCTCPBXL PCTCPBXM PCTCPBXN PCTCPBXO PCTCPBXP PCTCPBXQ PCTCPBXR PCTCPBXS PCTCPBXT PCTCPBXU PCTCPBXV PCTCPBXW PCTCPBXX PCTCPBXY PCTCPBXZ PCTCPBUA PCTCPBUB PCTCPBUC PCTCPBUD PCTCPBUE PCTCPBUF PCTCPBUG PCTCPBUH PCTCPBUI PCTCPBUJ PCTCPBUK PCTCPBUL PCTCPBUM PCTCPBUN PCTCPBUO PCTCPB102-PCTCPB255; ARRAY MVSWAI (256) MVSWAIT0-MVSWAIT9 MVSWAITA MVSWAITB MVSWAITC MVSWAITD MVSWAITE MVSWAITF MVSWAITG MVSWAITH MVSWAITI MVSWAITJ MVSWAITK MVSWAITL MVSWAITN MVSWAITO MVSWAITP MVSWAITQ MVSWAITR MVSWAITS MVSWAITT MVSWAITU MVSWAITV MVSWAITW MVSWAITX MVSWAITY MVSWAITZ MVSWAIZA MVSWAIZB MVSWAIZC MVSWAIZD MVSWAIZE MVSWAIZF MVSWAIZG MVSWAIZH MVSWAIZI MVSWAIZJ MVSWAIZK MVSWAIZL MVSWAIZM MVSWAIZN MVSWAIZO MVSWAIZP MVSWAIZQ MVSWAIZR MVSWAIZS MVSWAIZT MVSWAIZU MVSWAIZV MVSWAIZW MVSWAIZX MVSWAIZY MVSWAIZZ MVSWAIYA MVSWAIYB MVSWAIYC MVSWAIYD MVSWAIYE MVSWAIYF MVSWAIYG MVSWAIYH MVSWAIYI MVSWAIYJ MVSWAIYK MVSWAIYL MVSWAIYM MVSWAIYN MVSWAIYO MVSWAIYP MVSWAIYQ MVSWAIYR MVSWAIYS MVSWAIYT MVSWAIYU MVSWAIYV MVSWAIYW MVSWAIYX MVSWAIYY MVSWAIYZ MVSWAIVA MVSWAIVB MVSWAIVC MVSWAIVD MVSWAIVE MVSWAIVF MVSWAIVG MVSWAIVH MVSWAIVI MVSWAIVJ MVSWAIVK MVSWAIVL MVSWAIVM MVSWAIVN MVSWAIVO MVSWAI102-MVSWAI255; ARRAY PCIBY (256) PCTCIBY0-PCTCIBY9 PCTCIBYA PCTCIBYB PCTCIBYC PCTCIBYD PCTCIBYE PCTCIBYF PCTCIBYG PCTCIBYH PCTCIBYI PCTCIBYJ PCTCIBYK PCTCIBYL PCTCIBYN PCTCIBYO PCTCIBYP PCTCIBYQ PCTCIBYR PCTCIBYS PCTCIBYT PCTCIBYU PCTCIBYV PCTCIBYW PCTCIBYX PCTCIBYY PCTCIBYZ PCTCIBZA PCTCIBZB PCTCIBZC PCTCIBZD PCTCIBZE PCTCIBZF PCTCIBZG PCTCIBZH PCTCIBZI PCTCIBZJ PCTCIBZK PCTCIBZL PCTCIBZM PCTCIBZN PCTCIBZO PCTCIBZP PCTCIBZQ PCTCIBZR PCTCIBZS PCTCIBZT PCTCIBZU PCTCIBZV PCTCIBZW PCTCIBZX PCTCIBZY PCTCIBZZ PCTCIBXA PCTCIBXB PCTCIBXC PCTCIBXD PCTCIBXE PCTCIBXF PCTCIBXG PCTCIBXH PCTCIBXI PCTCIBXJ PCTCIBXK PCTCIBXL PCTCIBXM PCTCIBXN PCTCIBXO PCTCIBXP PCTCIBXQ PCTCIBXR PCTCIBXS PCTCIBXT PCTCIBXU PCTCIBXV PCTCIBXW PCTCIBXX PCTCIBXY PCTCIBXZ PCTCIBUA PCTCIBUB PCTCIBUC PCTCIBUD PCTCIBUE PCTCIBUF PCTCIBUG PCTCIBUH PCTCIBUI PCTCIBUJ PCTCIBUK PCTCIBUL PCTCIBUM PCTCIBUN PCTCIBUO PCTCIB102-PCTCIB255; ARRAY IORAT (256) IORATE0- IORATE9 IORATEA IORATEB IORATEC IORATED IORATEE IORATEF IORATEG IORATEH IORATEI IORATEJ IORATEK IORATEL IORATEN IORATEO IORATEP IORATEQ IORATER IORATES IORATET IORATEU IORATEV IORATEW IORATEX IORATEY IORATEZ IORATEZA IORATEZB IORATEZC IORATEZD IORATEZE IORATEZF IORATEZG IORATEZH IORATEZI IORATEZJ IORATEZK IORATEZL IORATEZM IORATEZN IORATEZO IORATEZP IORATEZQ IORATEZR IORATEZS IORATEZT IORATEZU IORATEZV IORATEZW IORATEZX IORATEZY IORATEZZ IORATEYA IORATEYB IORATEYC IORATEYD IORATEYE IORATEYF IORATEYG IORATEYH IORATEYI IORATEYJ IORATEYK IORATEYL IORATEYM IORATEYN IORATEYO IORATEYP IORATEYQ IORATEYR IORATEYS IORATEYT IORATEYU IORATEYV IORATEYW IORATEYX IORATEYY IORATEYZ IORATEVA IORATEVB IORATEVC IORATEVD IORATEVE IORATEVF IORATEVG IORATEVH IORATEVI IORATEVJ IORATEVK IORATEVL IORATEVM IORATEVN IORATEVO IORATE102-IORATE255; LABEL PCTCIBY0='IFA-ZIP 0*LOGICAL*BUSY' PCTCIBY1='IFA-ZIP 1*LOGICAL*BUSY' PCTCIBY2='IFA-ZIP 2*LOGICAL*BUSY' PCTCIBY3='IFA-ZIP 3*LOGICAL*BUSY' PCTCIBY4='IFA-ZIP 4*LOGICAL*BUSY' PCTCIBY5='IFA-ZIP 5*LOGICAL*BUSY' PCTCIBY6='IFA-ZIP 6*LOGICAL*BUSY' PCTCIBY7='IFA-ZIP 7*LOGICAL*BUSY' PCTCIBY8='IFA-ZIP 8*LOGICAL*BUSY' PCTCIBY9='IFA-ZIP 9*LOGICAL*BUSY' PCTCIBYA='IFA-ZIP 10*LOGICAL*BUSY' PCTCIBYB='IFA-ZIP 11*LOGICAL*BUSY' PCTCIBYC='IFA-ZIP 12*LOGICAL*BUSY' PCTCIBYD='IFA-ZIP 13*LOGICAL*BUSY' PCTCIBYE='IFA-ZIP 14*LOGICAL*BUSY' PCTCIBYF='IFA-ZIP 15*LOGICAL*BUSY' PCTCIBYG='IFA-ZIP 16*LOGICAL*BUSY' PCTCIBYH='IFA-ZIP 17*LOGICAL*BUSY' PCTCIBYI='IFA-ZIP 18*LOGICAL*BUSY' PCTCIBYJ='IFA-ZIP 19*LOGICAL*BUSY' PCTCIBYK='IFA-ZIP 20*LOGICAL*BUSY' PCTCIBYL='IFA-ZIP 21*LOGICAL*BUSY' PCTCIBYN='IFA-ZIP 22*LOGICAL*BUSY' PCTCIBYO='IFA-ZIP 23*LOGICAL*BUSY' PCTCIBYP='IFA-ZIP 24*LOGICAL*BUSY' PCTCIBYQ='IFA-ZIP 25*LOGICAL*BUSY' PCTCIBYR='IFA-ZIP 26*LOGICAL*BUSY' PCTCIBYS='IFA-ZIP 27*LOGICAL*BUSY' PCTCIBYT='IFA-ZIP 28*LOGICAL*BUSY' PCTCIBYU='IFA-ZIP 29*LOGICAL*BUSY' PCTCIBYV='IFA-ZIP 30*LOGICAL*BUSY' PCTCIBYW='IFA-ZIP 31*LOGICAL*BUSY' PCTCIBYX='IFA-ZIP 32*LOGICAL*BUSY' PCTCIBYY='IFA-ZIP 33*LOGICAL*BUSY' PCTCIBYZ='IFA-ZIP 34*LOGICAL*BUSY' PCTCIBZA='IFA-ZIP 35*LOGICAL*BUSY' PCTCIBZB='IFA-ZIP 36*LOGICAL*BUSY' PCTCIBZC='IFA-ZIP 37*LOGICAL*BUSY' PCTCIBZD='IFA-ZIP 38*LOGICAL*BUSY' PCTCIBZE='IFA-ZIP 39*LOGICAL*BUSY' PCTCIBZF='IFA-ZIP 40*LOGICAL*BUSY' PCTCIBZG='IFA-ZIP 41*LOGICAL*BUSY' PCTCIBZH='IFA-ZIP 42*LOGICAL*BUSY' PCTCIBZI='IFA-ZIP 43*LOGICAL*BUSY' PCTCIBZJ='IFA-ZIP 44*LOGICAL*BUSY' PCTCIBZK='IFA-ZIP 45*LOGICAL*BUSY' PCTCIBZL='IFA-ZIP 46*LOGICAL*BUSY' PCTCIBZM='IFA-ZIP 47*LOGICAL*BUSY' PCTCIBZN='IFA-ZIP 48*LOGICAL*BUSY' PCTCIBZO='IFA-ZIP 49*LOGICAL*BUSY' PCTCIBZP='IFA-ZIP 50*LOGICAL*BUSY' PCTCIBZQ='IFA-ZIP 51*LOGICAL*BUSY' PCTCIBZR='IFA-ZIP 52*LOGICAL*BUSY' PCTCIBZS='IFA-ZIP 53*LOGICAL*BUSY' PCTCIBZT='IFA-ZIP 54*LOGICAL*BUSY' PCTCIBZU='IFA-ZIP 55*LOGICAL*BUSY' PCTCIBZV='IFA-ZIP 56*LOGICAL*BUSY' PCTCIBZW='IFA-ZIP 57*LOGICAL*BUSY' PCTCIBZX='IFA-ZIP 58*LOGICAL*BUSY' PCTCIBZY='IFA-ZIP 59*LOGICAL*BUSY' PCTCIBZZ='IFA-ZIP 60*LOGICAL*BUSY' PCTCIBXA='IFA-ZIP 61*LOGICAL*BUSY' PCTCIBXB='IFA-ZIP 62*LOGICAL*BUSY' PCTCIBXC='IFA-ZIP 63*LOGICAL*BUSY' PCTCIBXD='IFA-ZIP 64*LOGICAL*BUSY' PCTCIBXE='IFA-ZIP 65*LOGICAL*BUSY' PCTCIBXF='IFA-ZIP 66*LOGICAL*BUSY' PCTCIBXG='IFA-ZIP 67*LOGICAL*BUSY' PCTCIBXH='IFA-ZIP 68*LOGICAL*BUSY' PCTCIBXI='IFA-ZIP 69*LOGICAL*BUSY' PCTCIBXJ='IFA-ZIP 70*LOGICAL*BUSY' PCTCIBXK='IFA-ZIP 71*LOGICAL*BUSY' PCTCIBXL='IFA-ZIP 72*LOGICAL*BUSY' PCTCIBXM='IFA-ZIP 73*LOGICAL*BUSY' PCTCIBXN='IFA-ZIP 74*LOGICAL*BUSY' PCTCIBXO='IFA-ZIP 75*LOGICAL*BUSY' PCTCIBXP='IFA-ZIP 76*LOGICAL*BUSY' PCTCIBXQ='IFA-ZIP 77*LOGICAL*BUSY' PCTCIBXR='IFA-ZIP 78*LOGICAL*BUSY' PCTCIBXS='IFA-ZIP 79*LOGICAL*BUSY' PCTCIBXT='IFA-ZIP 80*LOGICAL*BUSY' PCTCIBXU='IFA-ZIP 81*LOGICAL*BUSY' PCTCIBXV='IFA-ZIP 82*LOGICAL*BUSY' PCTCIBXW='IFA-ZIP 83*LOGICAL*BUSY' PCTCIBXX='IFA-ZIP 84*LOGICAL*BUSY' PCTCIBXY='IFA-ZIP 85*LOGICAL*BUSY' PCTCIBXZ='IFA-ZIP 86*LOGICAL*BUSY' PCTCIBUA='IFA-ZIP 87*LOGICAL*BUSY' PCTCIBUB='IFA-ZIP 88*LOGICAL*BUSY' PCTCIBUC='IFA-ZIP 89*LOGICAL*BUSY' PCTCIBUD='IFA-ZIP 90*LOGICAL*BUSY' PCTCIBUE='IFA-ZIP 91*LOGICAL*BUSY' PCTCIBUF='IFA-ZIP 92*LOGICAL*BUSY' PCTCIBUG='IFA-ZIP 93*LOGICAL*BUSY' PCTCIBUH='IFA-ZIP 94*LOGICAL*BUSY' PCTCIBUI='IFA-ZIP 95*LOGICAL*BUSY' PARTNICF='INSTALLED*NUMBER OF*ICF*ENGINES' PARTNIFA='INSTALLED*NUMBER OF*ZCBP*ENGINES' PARTNIFL='INSTALLED*NUMBER OF*IFL*ENGINES' PARTNZIP='INSTALLED*NUMBER OF*ZIIP*ENGINES' ; LENGTH DEFAULT=&MXGLEN; FORMAT PCTCIBY0-PCTCIBY8 PCTCIBY9 PCTCIBYA PCTCIBYB PCTCIBYC 5.1 PCTCIBYD PCTCIBYE PCTCIBYF PCTCIBYG PCTCIBYH PCTCIBYI 5.1 PCTCIBYJ PCTCIBYK PCTCIBYL PCTCIBYN PCTCIBYO PCTCIBYP 5.1 PCTCIBYQ PCTCIBYR PCTCIBYS PCTCIBYT PCTCIBYU PCTCIBYV 5.1 PCTCIBYW PCTCIBYX PCTCIBYY PCTCIBYZ PCTCIBZA PCTCIBZB 5.1 PCTCIBZC PCTCIBZD PCTCIBZE PCTCIBZF PCTCIBZG PCTCIBZH 5.1 PCTCIBZI PCTCIBZJ PCTCIBZK PCTCIBZL PCTCIBZM PCTCIBZN 5.1 PCTCIBZO PCTCIBZP PCTCIBZQ PCTCIBZR PCTCIBZS 5.1 PCTCIBZT PCTCIBZU PCTCIBZV PCTCIBZW PCTCIBZX 5.1 PCTCIBZY PCTCIBZZ PCTCIBXA PCTCIBXB PCTCIBXC 5.1 PCTCIBXD PCTCIBXE PCTCIBXF PCTCIBXG PCTCIBXH PCTCIBXI 5.1 PCTCIBXJ PCTCIBXK PCTCIBXL PCTCIBXM PCTCIBXN PCTCIBXO 5.1 PCTCIBXP PCTCIBXQ PCTCIBXR PCTCIBXS PCTCIBXT PCTCIBXU 5.1 PCTCIBXV PCTCIBXW PCTCIBXX PCTCIBXY PCTCIBXZ PCTCIBUA 5.1 PCTCIBUB PCTCIBUC PCTCIBUD PCTCIBUE PCTCIBUF PCTCIBUG 5.1 PCTCIBUH PCTCIBUI 5.1 PCTCIBUJ PCTCIBUK PCTCIBUL PCTCIBUM PCTCIBUN PCTCIBUO 5.1 PCTCIB102-PCTCIB255 5.1 ; IFAUPTM=.; IFAACTTM=.; ZIPUPTM=.; ZIPACTTM=.; SMF70ONT=0; NRIFAS=0; IF LPARNAME NE ' '; IF PRSMSYST='Y' THEN DO LCPUADDR=0 TO 255; IF IFARRAY(LCPUADDR+1)=0 THEN DO; /*CP*/ IF CAI(LCPUADDR+1) EQ '.......1'B OR ONTM(LCPUADDR+1) GT 0 THEN DO; REDTM(LCPUADDR+1)=EDTM(LCPUADDR+1); RPDTM(LCPUADDR+1)=PDTM(LCPUADDR+1); IF ONTM(LCPUADDR+1) GT . THEN DO; PONTM(LCPUADDR+1)=100*ONTM(LCPUADDR+1)/DURATM; IF PONTM(LCPUADDR+1) GT 100 THEN PONTM(LCPUADDR+1)=100; RWAIT(LCPUADDR+1)=ONTM(LCPUADDR+1)-RPDTM(LCPUADDR+1); SMF70ONT=SUM(SMF70ONT,ONTM(LCPUADDR+1)); END; ELSE IF DURATM GT 0 THEN DO; PONTM(LCPUADDR+1)=100; RWAIT(LCPUADDR+1)=DURATM-RPDTM(LCPUADDR+1); END; ELSE DO; PONTM(LCPUADDR+1)=.; RWAIT(LCPUADDR+1)=.; END; IF LDED(LCPUADDR+1)='Y' THEN DO; IF ONTM(LCPUADDR+1) GT 0 THEN DO; PCPBY(LCPUADDR+1)= 100*(ONTM(LCPUADDR+1)-MVSWAI(LCPUADDR+1))/ONTM(LCPUADDR+1); END; ELSE IF DURATM GT 0 THEN DO; PCPBY(LCPUADDR+1)=100*(DURATM-MVSWAI(LCPUADDR+1))/DURATM; END; ELSE DO; PCTCPUBY=.; END; RWAIT(LCPUADDR+1)=MVSWAI(LCPUADDR+1); END; ELSE IF LWAI(LCPUADDR+1)='Y' THEN DO; IF DURATM GT 0 AND MVSWAI(LCPUADDR+1) GT . AND ONTM(LCPUADDR+1) GT 0 THEN DO; PCPBY(LCPUADDR+1)= 100*(RPDTM(LCPUADDR+1)-MVSWAI(LCPUADDR+1))/DURATM; END; IF DURATM GT 0 AND MVSWAI(LCPUADDR+1) GT . THEN DO; PCPBY(LCPUADDR+1)= 100*(RPDTM(LCPUADDR+1)-MVSWAI(LCPUADDR+1))/DURATM; END; ELSE DO; PCPBY(LCPUADDR+1)=.; END; END; ELSE DO; IF ONTM(LCPUADDR+1) GT 0 THEN DO; PCPBY(LCPUADDR+1)=100*RPDTM(LCPUADDR+1)/ONTM(LCPUADDR+1); END; ELSE IF DURATM GT 0 THEN DO; PCPBY(LCPUADDR+1)=100*RPDTM(LCPUADDR+1)/DURATM; SMF70ONT=.; PONTM(LCPUADDR+1)=.; END; ELSE DO; PCTCPUBY=.; END; END; END; END; ELSE IF IFARRAY(LCPUADDR+1)=1 THEN DO; /*IFA*/ NRIFAS+1; IFAUPTM=SUM(IFAUPTM,ONTM(LCPUADDR+1)-CPUPAT(LCPUADDR+1)); IF LDED(LCPUADDR+1)='Y' THEN DO; IFAACTTM=SUM(IFAACTTM,(ONTM(LCPUADDR+1)-IFAWAIT(LCPUADDR+1))); IF ONTM(LCPUADDR+1) GT 0 THEN PCIBY(LCPUADDR+1)=100*IFAACTTM/ONTM(LCPUADDR+1); ELSE PCIBY(LCPUADDR+1)=.; END; ELSE DO; IFAACTTM=SUM(IFAACTTM,PDTM(LCPUADDR+1)); IF ONTM(LCPUADDR+1) GT 0 THEN PCIBY(LCPUADDR+1)=100*PDTM(LCPUADDR+1)/ONTM(LCPUADDR+1); ELSE PCIBY(LCPUADDR+1)=.; END; RPDTM(LCPUADDR+1)=.; REDTM(LCPUADDR+1)=.; PONTM(LCPUADDR+1)=.; END; ELSE IF IFARRAY(LCPUADDR+1)=2 THEN DO; /*ZIP*/ ZIPUPTM=SUM(ZIPUPTM,ONTM(LCPUADDR+1)-CPUPAT(LCPUADDR+1)); IF LDED(LCPUADDR+1)='Y' THEN DO; ZIPACTTM=SUM(ZIPACTTM,(ONTM(LCPUADDR+1)-ZIPWAIT(LCPUADDR+1))); IF ONTM(LCPUADDR+1) GT 0 THEN PCIBY(LCPUADDR+1)=100*ZIPACTTM/ONTM(LCPUADDR+1); ELSE PCIBY(LCPUADDR+1)=.; END; ELSE DO; ZIPACTTM=SUM(ZIPACTTM,PDTM(LCPUADDR+1)); IF ONTM(LCPUADDR+1) GT 0 THEN PCIBY(LCPUADDR+1)=100*PDTM(LCPUADDR+1)/ONTM(LCPUADDR+1); ELSE PCIBY(LCPUADDR+1)=.; END; RPDTM(LCPUADDR+1)=.; REDTM(LCPUADDR+1)=.; PONTM(LCPUADDR+1)=.; END; IF ONTM(LCPUADDR+1) GT 0 AND IORAT(LCPUADDR+1) GT 0 THEN DO; IORAT(LCPUADDR+1)=IORAT(LCPUADDR+1)*DURATM/ONTM(LCPUADDR+1); END; END; CPUWAITM=SUM(OF CPUWAIT0-CPUWAIT9 CPUWAITA CPUWAITB CPUWAITC CPUWAITD CPUWAITE CPUWAITF CPUWAITG CPUWAITH CPUWAITI CPUWAITJ CPUWAITK CPUWAITL CPUWAITN CPUWAITO CPUWAITP CPUWAITQ CPUWAITR CPUWAITS CPUWAITT CPUWAITU CPUWAITV CPUWAITW CPUWAITX CPUWAITY CPUWAITZ CPUWAIZA CPUWAIZB CPUWAIZC CPUWAIZD CPUWAIZE CPUWAIZF CPUWAIZG CPUWAIZH CPUWAIZI CPUWAIZJ CPUWAIZK CPUWAIZL CPUWAIZM CPUWAIZN CPUWAIZO CPUWAIZP CPUWAIZQ CPUWAIZR CPUWAIZS CPUWAIZT CPUWAIZU CPUWAIZV CPUWAIZW CPUWAIZX CPUWAIZY CPUWAIZZ CPUWAIYA CPUWAIYB CPUWAIYC CPUWAIYD CPUWAIYE CPUWAIYF CPUWAIYG CPUWAIYH CPUWAIYI CPUWAIYJ CPUWAIYK CPUWAIYL CPUWAIYM CPUWAIYN CPUWAIYO CPUWAIYP CPUWAIYQ CPUWAIYR CPUWAIYS CPUWAIYT CPUWAIYU CPUWAIYV CPUWAIYW CPUWAIYX CPUWAIYY CPUWAIYZ CPUWAIVA CPUWAIVB CPUWAIVC CPUWAIVD CPUWAIVE CPUWAIVF CPUWAIVG CPUWAIVH CPUWAIVI CPUWAIVJ CPUWAIVK CPUWAIVL CPUWAIVM CPUWAIVN CPUWAIVO); MVSWAITM=SUM(OF MVSWAIT0-MVSWAIT9 MVSWAITA MVSWAITB MVSWAITC MVSWAITD MVSWAITE MVSWAITF MVSWAITG MVSWAITH MVSWAITI MVSWAITJ MVSWAITK MVSWAITL MVSWAITN MVSWAITO MVSWAITP MVSWAITQ MVSWAITR MVSWAITS MVSWAITT MVSWAITU MVSWAITV MVSWAITW MVSWAITX MVSWAITY MVSWAITZ MVSWAIZA MVSWAIZB MVSWAIZC MVSWAIZD MVSWAIZE MVSWAIZF MVSWAIZG MVSWAIZH MVSWAIZI MVSWAIZJ MVSWAIZK MVSWAIZL MVSWAIZM MVSWAIZN MVSWAIZO MVSWAIZP MVSWAIZQ MVSWAIZR MVSWAIZS MVSWAIZT MVSWAIZU MVSWAIZV MVSWAIZW MVSWAIZX MVSWAIZY MVSWAIZZ MVSWAIYA MVSWAIYB MVSWAIYC MVSWAIYD MVSWAIYE MVSWAIYF MVSWAIYG MVSWAIYH MVSWAIYI MVSWAIYJ MVSWAIYK MVSWAIYL MVSWAIYM MVSWAIYN MVSWAIYO MVSWAIYP MVSWAIYQ MVSWAIYR MVSWAIYS MVSWAIYT MVSWAIYU MVSWAIYV MVSWAIYW MVSWAIYX MVSWAIYY MVSWAIYZ MVSWAIVA MVSWAIVB MVSWAIVC MVSWAIVD MVSWAIVE MVSWAIVF MVSWAIVG MVSWAIVH MVSWAIVI MVSWAIVJ MVSWAIVK MVSWAIVL MVSWAIVM MVSWAIVN MVSWAIVO MVSWAI102-MVSWAI255); CPUPDTTM=SUM(OF CPUPDTM0-CPUPDTM9 CPUPDTMA CPUPDTMB CPUPDTMC CPUPDTMD CPUPDTME CPUPDTMF CPUPDTMG CPUPDTMH CPUPDTMI CPUPDTMJ CPUPDTMK CPUPDTML CPUPDTMN CPUPDTMO CPUPDTMP CPUPDTMQ CPUPDTMR CPUPDTMS CPUPDTMT CPUPDTMU CPUPDTMV CPUPDTMW CPUPDTMX CPUPDTMY CPUPDTMZ CPUPDTZA CPUPDTZB CPUPDTZC CPUPDTZD CPUPDTZE CPUPDTZF CPUPDTZG CPUPDTZH CPUPDTZI CPUPDTZJ CPUPDTZK CPUPDTZL CPUPDTZM CPUPDTZN CPUPDTZO CPUPDTZP CPUPDTZQ CPUPDTZR CPUPDTZS CPUPDTZT CPUPDTZU CPUPDTZV CPUPDTZW CPUPDTZX CPUPDTZY CPUPDTZZ CPUPDTYA CPUPDTYB CPUPDTYC CPUPDTYD CPUPDTYE CPUPDTYF CPUPDTYG CPUPDTYH CPUPDTYI CPUPDTYJ CPUPDTYK CPUPDTYL CPUPDTYM CPUPDTYN CPUPDTYO CPUPDTYP CPUPDTYQ CPUPDTYR CPUPDTYS CPUPDTYT CPUPDTYU CPUPDTYV CPUPDTYW CPUPDTYX CPUPDTYY CPUPDTYZ CPUPDTVA CPUPDTVB CPUPDTVC CPUPDTVD CPUPDTVE CPUPDTVF CPUPDTVG CPUPDTVH CPUPDTVI CPUPDTVJ CPUPDTVK CPUPDTVL CPUPDTVM CPUPDTVN CPUPDTVO CPUPDT102-CPUPDT255); CPUPATTM=0; /*WANT ONLY CP PARKED TIME HERE */ DO LCPUADDR=0 TO 255; IF IFARRAY(LCPUADDR+1)=0 THEN CPUPATTM=SUM(CPUPATTM,CPUPAT(LCPUADDR+1)); END; CPUEFFTM=SUM(OF CPUEDTM0-CPUEDTM9 CPUEDTMA CPUEDTMB CPUEDTMC CPUEDTMD CPUEDTME CPUEDTMF CPUEDTMG CPUEDTMH CPUEDTMI CPUEDTMJ CPUEDTMK CPUEDTML CPUEDTMN CPUEDTMO CPUEDTMP CPUEDTMQ CPUEDTMR CPUEDTMS CPUEDTMT CPUEDTMU CPUEDTMV CPUEDTMW CPUEDTMX CPUEDTMY CPUEDTMZ CPUEDTZA CPUEDTZB CPUEDTZC CPUEDTZD CPUEDTZE CPUEDTZF CPUEDTZG CPUEDTZH CPUEDTZI CPUEDTZJ CPUEDTZK CPUEDTZL CPUEDTZM CPUEDTZN CPUEDTZO CPUEDTZP CPUEDTZQ CPUEDTZR CPUEDTZS CPUEDTZT CPUEDTZU CPUEDTZV CPUEDTZW CPUEDTZX CPUEDTZY CPUEDTZZ CPUEDTYA CPUEDTYB CPUEDTYC CPUEDTYD CPUEDTYE CPUEDTYF CPUEDTYG CPUEDTYH CPUEDTYI CPUEDTYJ CPUEDTYK CPUEDTYL CPUEDTYM CPUEDTYN CPUEDTYO CPUEDTYP CPUEDTYQ CPUEDTYR CPUEDTYS CPUEDTYT CPUEDTYU CPUEDTYV CPUEDTYW CPUEDTYX CPUEDTYY CPUEDTYZ CPUEDTVA CPUEDTVB CPUEDTVC CPUEDTVD CPUEDTVE CPUEDTVF CPUEDTVG CPUEDTVH CPUEDTVI CPUEDTVJ CPUEDTVK CPUEDTVL CPUEDTVM CPUEDTVN CPUEDTVO CPUEDT102-CPUEDT255); IF IFAUPTM GT 0 THEN PCTIFABY=100*IFAACTTM/IFAUPTM; ELSE PCTIFABY=.; IF ZIPUPTM GT 0 THEN PCTZIPBY=100*ZIPACTTM/ZIPUPTM; ELSE PCTZIPBY=.; *IF SYSTEM='A090' THEN PUTLOG _N_= STARTIME= SMF70ONT= NRCPUS= CPUWAIYD= CPUSERYD= ; IF SMF70ONT GT 0 AND NRCPUS GT 0 THEN NRCPUS=ROUND((SMF70ONT)/DURATM,.001); /*IRD INACTIVE*/ IF NRCPUS LE 1 THEN PCTRDYWT=SUM(OF READY02-READY15); ELSE IF NRCPUS LE 2 THEN PCTRDYWT=SUM(OF READY03-READY15); ELSE IF NRCPUS LE 3 THEN PCTRDYWT=SUM(OF READY04-READY15); ELSE IF NRCPUS LE 4 THEN PCTRDYWT=SUM(OF READY05-READY15); ELSE IF NRCPUS LE 5 THEN PCTRDYWT=SUM(OF READY06-READY15); ELSE IF NRCPUS LE 6 THEN PCTRDYWT=SUM(OF READY07-READY15); ELSE IF NRCPUS LE 7 THEN PCTRDYWT=SUM(OF READY08-READY15); ELSE IF NRCPUS LE 8 THEN PCTRDYWT=SUM(OF READY09-READY15); ELSE IF NRCPUS LE 9 THEN PCTRDYWT=SUM(OF READY10-READY15); ELSE IF NRCPUS LE 10 THEN PCTRDYWT=SUM(OF READY11-READY15); ELSE IF NRCPUS LE 11 THEN PCTRDYWT=SUM(OF READY12-READY15); ELSE IF NRCPUS LE 12 THEN PCTRDYWT=SUM(OF READY13-READY15); ELSE IF NRCPUS LE 13 THEN PCTRDYWT=SUM(OF READY14-READY15); ELSE IF NRCPUS LE 14 THEN PCTRDYWT=READY15; ELSE PCTRDYWT=.; CPUUPTM=NRCPUS*DURATM; CPUACTTM=CPUUPTM-CPUWAITM; CPUMVSTM=CPUUPTM-MVSWAITM; IF CPUUPTM GT 0 THEN DO; PCTCPUBY=100*CPUACTTM/CPUUPTM; PCTCPUEF=100*CPUEFFTM/CPUUPTM; PCTMVSBY=100*CPUMVSTM/CPUUPTM; END; IF CPUACTTM=. AND CPUPDTTM=. AND PCTCPUBY=. AND PCTMVSBY GT 0 AND CPUMVSTM GT 0 THEN DO; /*NON-LPAR SYSTEM*/ PCTCPUBY=PCTMVSBY; CPUACTTM=CPUMVSTM; END; IF PCTMVSBY GT 0 AND PCTCPUBY GT 0 AND CPUACTTM GT 10 THEN DO; SHORTCPS=PCTMVSBY/PCTCPUBY; PLCPRDYQ=100*(PCTMVSBY-PCTCPUBY)/PCTMVSBY; IF . LT PLCPRDYQ LT 0 THEN DO; SHORTCPS=1; PLCPRDYQ=0; END; END; ELSE DO; SHORTCPS=.; PLCPRDYQ=.; END; PARTNCPU=NRCPSCPU; PARTNIFA=NRIFACPU; PARTNZIP=NRZIPCPU; PARTNICF=NRICFCPU; PARTNIFL=NRIFLCPU; ZIPACTTM=TOTZIPACTTM; OUTPUT MERGETY70; DROP PART70PU LEDTM0 -LEDTM8 LEDTM9 LEDTMA LEDTMB LEDTMC LEDTMD LEDTME LEDTMF LEDTMG LEDTMH LEDTMI LEDTMJ LEDTMK LEDTML LEDTMN LEDTMO LEDTMP LEDTMQ LEDTMR LEDTMS LEDTMT LEDTMU LEDTMV LEDTMW LEDTMX LEDTMY LEDTMZ LEDTMZA LEDTMZB LEDTMZC LEDTMZD LEDTMZE LEDTMZF LEDTMZG LEDTMZH LEDTMZI LEDTMZJ LEDTMZK LEDTMZL LEDTMZM LEDTMZN LEDTMZO LEDTMZP LEDTMZQ LEDTMZR LEDTMZS LEDTMZT LEDTMZU LEDTMZV LEDTMZW LEDTMZX LEDTMZY LEDTMZZ LEDTMYA LEDTMYB LEDTMYC LEDTMYD LEDTMYE LEDTMYF LEDTMYG LEDTMYH LEDTMYI LEDTMYJ LEDTMYK LEDTMYL LEDTMYM LEDTMYN LEDTMYO LEDTMYP LEDTMYQ LEDTMYR LEDTMYS LEDTMYT LEDTMYU LEDTMYV LEDTMYW LEDTMYX LEDTMYY LEDTMYZ LEDTMVA LEDTMVB LEDTMVC LEDTMVD LEDTMVE LEDTMVF LEDTMVG LEDTMVH LEDTMVI LEDTMVJ LEDTMVK LEDTMVL LEDTMVM LEDTMVN LEDTMVO LEDTM102-LEDTM255 LPDTM0 -LPDTM8 LPDTM9 LPDTMA LPDTMB LPDTMC LPDTMD LPDTME LPDTMF LPDTMG LPDTMH LPDTMI LPDTMJ LPDTMK LPDTML LPDTMN LPDTMO LPDTMP LPDTMQ LPDTMR LPDTMS LPDTMT LPDTMU LPDTMV LPDTMW LPDTMX LPDTMY LPDTMZ LPDTMZA LPDTMZB LPDTMZC LPDTMZD LPDTMZE LPDTMZF LPDTMZG LPDTMZH LPDTMZI LPDTMZJ LPDTMZK LPDTMZL LPDTMZM LPDTMZN LPDTMZO LPDTMZP LPDTMZQ LPDTMZR LPDTMZS LPDTMZT LPDTMZU LPDTMZV LPDTMZW LPDTMZX LPDTMZY LPDTMZZ LPDTMYA LPDTMYB LPDTMYC LPDTMYD LPDTMYE LPDTMYF LPDTMYG LPDTMYH LPDTMYI LPDTMYJ LPDTMYK LPDTMYL LPDTMYM LPDTMYN LPDTMYO LPDTMYP LPDTMYQ LPDTMYR LPDTMYS LPDTMYT LPDTMYU LPDTMYV LPDTMYW LPDTMYX LPDTMYY LPDTMYZ LPDTMVA LPDTMVB LPDTMVC LPDTMVD LPDTMVE LPDTMVF LPDTMVG LPDTMVH LPDTMVI LPDTMVJ LPDTMVK LPDTMVL LPDTMVM LPDTMVN LPDTMVO LPDTM102-LPDTM255 ONTM0 -ONTM8 ONTM9 ONTMA ONTMB ONTMC ONTMD ONTME ONTMF ONTMG ONTMH ONTMI ONTMJ ONTMK ONTML ONTMN ONTMO ONTMP ONTMQ ONTMR ONTMS ONTMT ONTMU ONTMV ONTMW ONTMX ONTMY ONTMZ ONTMZA ONTMZB ONTMZC ONTMZD ONTMZE ONTMZF ONTMZG ONTMZH ONTMZI ONTMZJ ONTMZK ONTMZL ONTMZM ONTMZN ONTMZO ONTMZP ONTMZQ ONTMZR ONTMZS ONTMZT ONTMZU ONTMZV ONTMZW ONTMZX ONTMZY ONTMZZ ONTMYA ONTMYB ONTMYC ONTMYD ONTMYE ONTMYF ONTMYG ONTMYH ONTMYI ONTMYJ ONTMYK ONTMYL ONTMYM ONTMYN ONTMYO ONTMYP ONTMYQ ONTMYR ONTMYS ONTMYT ONTMYU ONTMYV ONTMYW ONTMYX ONTMYY ONTMYZ ONTMVA ONTMVB ONTMVC ONTMVD ONTMVE ONTMVF ONTMVG ONTMVH ONTMVI ONTMVJ ONTMVK ONTMVL ONTMVM ONTMVN ONTMVO ONTM102-ONTM255 LCPUADDR LCPUDED CAIYD CAIYE CAIYF CAIYG CAIYH CAIYI CAIYJ CAIYK CAIYL CAIYM CAIYN CAIYO CAIYP CAIYQ CAIYR CAIYS CAIYT CAIYU CAIYV CAIYW CAIYX CAIYY CAIYZ CAIVA CAIVB CAIVC CAIVD CAIVE CAIVF CAIVG CAIVH CAIVI CAIVJ CAIVK CAIVL CAIVM CAIVN CAIVO CAI102-CAI255 CPUEDTYD CPUEDTYE CPUEDTYF CPUEDTYG CPUEDTYH CPUEDTYI CPUEDTYJ CPUEDTYK CPUEDTYL CPUEDTYM CPUEDTYN CPUEDTYO CPUEDTYP CPUEDTYQ CPUEDTYR CPUEDTYS CPUEDTYT CPUEDTYU CPUEDTYV CPUEDTYW CPUEDTYX CPUEDTYY CPUEDTYZ CPUEDTVA CPUEDTVB CPUEDTVC CPUEDTVD CPUEDTVE CPUEDTVF CPUEDTVG CPUEDTVH CPUEDTVI CPUEDTVJ CPUEDTVK CPUEDTVL CPUEDTVM CPUEDTVN CPUEDTVO CPUEDT102-CPUEDT255 CPUPATYD CPUPATYE CPUPATYF CPUPATYG CPUPATYH CPUPATYI CPUPATYJ CPUPATYK CPUPATYL CPUPATYM CPUPATYN CPUPATYO CPUPATYP CPUPATYQ CPUPATYR CPUPATYS CPUPATYT CPUPATYU CPUPATYV CPUPATYW CPUPATYX CPUPATYY CPUPATYZ CPUPATVA CPUPATVB CPUPATVC CPUPATVD CPUPATVE CPUPATVF CPUPATVG CPUPATVH CPUPATVI CPUPATVJ CPUPATVK CPUPATVL CPUPATVM CPUPATVN CPUPATVO CPUPAT102-CPUPAT255 CPUPDTYD CPUPDTYE CPUPDTYF CPUPDTYG CPUPDTYH CPUPDTYI CPUPDTYJ CPUPDTYK CPUPDTYL CPUPDTYM CPUPDTYN CPUPDTYO CPUPDTYP CPUPDTYQ CPUPDTYR CPUPDTYS CPUPDTYT CPUPDTYU CPUPDTYV CPUPDTYW CPUPDTYX CPUPDTYY CPUPDTYZ CPUPDTVA CPUPDTVB CPUPDTVC CPUPDTVD CPUPDTVE CPUPDTVF CPUPDTVG CPUPDTVH CPUPDTVI CPUPDTVJ CPUPDTVK CPUPDTVL CPUPDTVM CPUPDTVN CPUPDTVO CPUPDT102-CPUPDT255 CPUWAIYD CPUWAIYE CPUWAIYF CPUWAIYG CPUWAIYH CPUWAIYI CPUWAIYJ CPUWAIYK CPUWAIYL CPUWAIYM CPUWAIYN CPUWAIYO CPUWAIYP CPUWAIYQ CPUWAIYR CPUWAIYS CPUWAIYT CPUWAIYU CPUWAIYV CPUWAIYW CPUWAIYX CPUWAIYY CPUWAIYZ CPUWAIVA CPUWAIVB CPUWAIVC CPUWAIVD CPUWAIVE CPUWAIVF CPUWAIVG CPUWAIVH CPUWAIVI CPUWAIVJ CPUWAIVK CPUWAIVL CPUWAIVM CPUWAIVN CPUWAIVO CPUWAI102-CPUWAI255 IFATYPYD IFATYPYE IFATYPYF IFATYPYG IFATYPYH IFATYPYI IFATYPYJ IFATYPYK IFATYPYL IFATYPYM IFATYPYN IFATYPYO IFATYPYP IFATYPYQ IFATYPYR IFATYPYS IFATYPYT IFATYPYU IFATYPYV IFATYPYW IFATYPYX IFATYPYY IFATYPYZ IFATYPVA IFATYPVB IFATYPVC IFATYPVD IFATYPVE IFATYPVF IFATYPVG IFATYPVH IFATYPVI IFATYPVJ IFATYPVK IFATYPVL IFATYPVM IFATYPVN IFATYPVO IFATYP102-IFATYP255 IFAWAIYD IFAWAIYE IFAWAIYF IFAWAIYG IFAWAIYH IFAWAIYI IFAWAIYJ IFAWAIYK IFAWAIYL IFAWAIYM IFAWAIYN IFAWAIYO IFAWAIYP IFAWAIYQ IFAWAIYR IFAWAIYS IFAWAIYT IFAWAIYU IFAWAIYV IFAWAIYW IFAWAIYX IFAWAIYY IFAWAIYZ IFAWAIVA IFAWAIVB IFAWAIVC IFAWAIVD IFAWAIVE IFAWAIVF IFAWAIVG IFAWAIVH IFAWAIVI IFAWAIVJ IFAWAIVK IFAWAIVL IFAWAIVM IFAWAIVN IFAWAIVO IFAWAI102-IFAWAI255 IORATEYD IORATEYE IORATEYF IORATEYG IORATEYH IORATEYI IORATEYJ IORATEYK IORATEYL IORATEYM IORATEYN IORATEYO IORATEYP IORATEYQ IORATEYR IORATEYS IORATEYT IORATEYU IORATEYV IORATEYW IORATEYX IORATEYY IORATEYZ IORATEVA IORATEVB IORATEVC IORATEVD IORATEVE IORATEVF IORATEVG IORATEVH IORATEVI IORATEVJ IORATEVK IORATEVL IORATEVM IORATEVN IORATEVO IORATE102-IORATE255 MVSWAIYD MVSWAIYE MVSWAIYF MVSWAIYG MVSWAIYH MVSWAIYI MVSWAIYJ MVSWAIYK MVSWAIYL MVSWAIYM MVSWAIYN MVSWAIYO MVSWAIYP MVSWAIYQ MVSWAIYR MVSWAIYS MVSWAIYT MVSWAIYU MVSWAIYV MVSWAIYW MVSWAIYX MVSWAIYY MVSWAIYZ MVSWAIVA MVSWAIVB MVSWAIVC MVSWAIVD MVSWAIVE MVSWAIVF MVSWAIVG MVSWAIVH MVSWAIVI MVSWAIVJ MVSWAIVK MVSWAIVL MVSWAIVM MVSWAIVN MVSWAIVO MVSWAI102-MVSWAI255 PCTCIBXD PCTCIBXE PCTCIBXF PCTCIBXG PCTCIBXH PCTCIBXI PCTCIBXJ PCTCIBXK PCTCIBXL PCTCIBXM PCTCIBXN PCTCIBXO PCTCIBXP PCTCIBXQ PCTCIBXR PCTCIBXS PCTCIBXT PCTCIBXU PCTCIBXV PCTCIBXW PCTCIBXX PCTCIBXY PCTCIBXZ PCTCIBUA PCTCIBUB PCTCIBUC PCTCIBUD PCTCIBUE PCTCIBUF PCTCIBUG PCTCIBUH PCTCIBUI PCTCIBUJ PCTCIBUK PCTCIBUL PCTCIBUM PCTCIBUN PCTCIBUO PCTCIB102-PCTCIB255 PCTCPBXD PCTCPBXE PCTCPBXF PCTCPBXG PCTCPBXH PCTCPBXI PCTCPBXJ PCTCPBXK PCTCPBXL PCTCPBXM PCTCPBXN PCTCPBXO PCTCPBXP PCTCPBXQ PCTCPBXR PCTCPBXS PCTCPBXT PCTCPBXU PCTCPBXV PCTCPBXW PCTCPBXX PCTCPBXY PCTCPBXZ PCTCPBUA PCTCPBUB PCTCPBUC PCTCPBUD PCTCPBUE PCTCPBUF PCTCPBUG PCTCPBUH PCTCPBUI PCTCPBUJ PCTCPBUK PCTCPBUL PCTCPBUM PCTCPBUN PCTCPBUO PCTCPB102-PCTCPB255 PCTONLVA PCTONLVB PCTONLVC PCTONLVD PCTONLVE PCTONLVF PCTONLVG PCTONLVH PCTONLVI PCTONLVJ PCTONLVK PCTONLVL PCTONLVM PCTONLVN PCTONLVO PCTONLYD PCTONLYE PCTONLYF PCTONLYG PCTONLYH PCTONLYI PCTONLYJ PCTONLYK PCTONLYL PCTONLYM PCTONLYN PCTONLYO PCTONLYP PCTONLYQ PCTONLYR PCTONLYS PCTONLYT PCTONLYU PCTONLYV PCTONLYW PCTONLYX PCTONLYY PCTONLYZ PCTONL102-PCTONL255 ZIPWAIVA ZIPWAIVB ZIPWAIVC ZIPWAIVD ZIPWAIVE ZIPWAIVF ZIPWAIVG ZIPWAIVH ZIPWAIVI ZIPWAIVJ ZIPWAIVK ZIPWAIVL ZIPWAIVM ZIPWAIVN ZIPWAIVO ZIPWAIYD ZIPWAIYE ZIPWAIYF ZIPWAIYG ZIPWAIYH ZIPWAIYI ZIPWAIYJ ZIPWAIYK ZIPWAIYL ZIPWAIYM ZIPWAIYN ZIPWAIYO ZIPWAIYP ZIPWAIYQ ZIPWAIYR ZIPWAIYS ZIPWAIYT ZIPWAIYU ZIPWAIYV ZIPWAIYW ZIPWAIYX ZIPWAIYY ZIPWAIYZ ZIPWAI102-ZIPWAI255 /*NEW*/ LCPUDEVA LCPUDEVB LCPUDEVC LCPUDEVD LCPUDEVE LCPUDEVF LCPUDEVG LCPUDEVH LCPUDEVI LCPUDEVJ LCPUDEVK LCPUDEVL LCPUDEVM LCPUDEVN LCPUDEVO LCPUDEYD LCPUDEYE LCPUDEYF LCPUDEYG LCPUDEYH LCPUDEYI LCPUDEYJ LCPUDEYK LCPUDEYL LCPUDEYM LCPUDEYN LCPUDEYO LCPUDEYP LCPUDEYQ LCPUDEYR LCPUDEYS LCPUDEYT LCPUDEYU LCPUDEYV LCPUDEYW LCPUDEYX LCPUDEYY LCPUDEYZ LCPUDE102-LCPUDE255 LCPUWAVA LCPUWAVB LCPUWAVC LCPUWAVD LCPUWAVE LCPUWAVF LCPUWAVG LCPUWAVH LCPUWAVI LCPUWAVJ LCPUWAVK LCPUWAVL LCPUWAVM LCPUWAVN LCPUWAVO LCPUWAYD LCPUWAYE LCPUWAYF LCPUWAYG LCPUWAYH LCPUWAYI LCPUWAYJ LCPUWAYK LCPUWAYL LCPUWAYM LCPUWAYN LCPUWAYO LCPUWAYP LCPUWAYQ LCPUWAYR LCPUWAYS LCPUWAYT LCPUWAYU LCPUWAYV LCPUWAYW LCPUWAYX LCPUWAYY LCPUWAYZ LCPUWA102-LCPUWA255 /*CHANGE 36.166 ADDED FOR BUILD THEN DROP TO KEEP ONLY ORIG*/ CPUSERVA CPUSERVB CPUSERVC CPUSERVD CPUSERVE CPUSERVF CPUSERVG CPUSERVH CPUSERVI CPUSERYD CPUSERYE CPUSERYF CPUSERYG CPUSERYH CPUSERYI CPUSERYJ CPUSERYK CPUSERYL CPUSERYM CPUSERYN CPUSERYO CPUSERYP CPUSERYQ CPUSERYR CPUSERYS CPUSERYT CPUSERYU CPUSERYV CPUSERYW CPUSERYX CPUSERYY CPUSERYZ PCTIFBUA PCTIFBUB PCTIFBUC PCTIFBUD PCTIFBUE PCTIFBUF PCTIFBUG PCTIFBUH PCTIFBUI PCTIFBXD PCTIFBXE PCTIFBXF PCTIFBXG PCTIFBXH PCTIFBXI PCTIFBXJ PCTIFBXK PCTIFBXL PCTIFBXM PCTIFBXN PCTIFBXO PCTIFBXP PCTIFBXQ PCTIFBXR PCTIFBXS PCTIFBXT PCTIFBXU PCTIFBXV PCTIFBXW PCTIFBXX PCTIFBXY PCTIFBXZ PCTTPIVA PCTTPIVB PCTTPIVC PCTTPIVD PCTTPIVE PCTTPIVF PCTTPIVG PCTTPIVH PCTTPIVI PCTTPIYD PCTTPIYE PCTTPIYF PCTTPIYG PCTTPIYH PCTTPIYI PCTTPIYJ PCTTPIYK PCTTPIYL PCTTPIYM PCTTPIYN PCTTPIYO PCTTPIYP PCTTPIYQ PCTTPIYR PCTTPIYS PCTTPIYT PCTTPIYU PCTTPIYV PCTTPIYW PCTTPIYX PCTTPIYY PCTTPIYZ PCTZIBUA PCTZIBUB PCTZIBUC PCTZIBUD PCTZIBUE PCTZIBUF PCTZIBUG PCTZIBUH PCTZIBUI PCTZIBXD PCTZIBXE PCTZIBXF PCTZIBXG PCTZIBXH PCTZIBXI PCTZIBXJ PCTZIBXK PCTZIBXL PCTZIBXM PCTZIBXN PCTZIBXO PCTZIBXP PCTZIBXQ PCTZIBXR PCTZIBXS PCTZIBXT PCTZIBXU PCTZIBXV PCTZIBXW PCTZIBXX PCTZIBXY PCTZIBXZ VFAFFTVA VFAFFTVB VFAFFTVC VFAFFTVD VFAFFTVE VFAFFTVF VFAFFTVG VFAFFTVH VFAFFTVI VFAFFTYD VFAFFTYE VFAFFTYF VFAFFTYG VFAFFTYH VFAFFTYI VFAFFTYJ VFAFFTYK VFAFFTYL VFAFFTYM VFAFFTYN VFAFFTYO VFAFFTYP VFAFFTYQ VFAFFTYR VFAFFTYS VFAFFTYT VFAFFTYU VFAFFTYV VFAFFTYW VFAFFTYX VFAFFTYY VFAFFTYZ VFONVA VFONVB VFONVC VFONVD VFONVE VFONVF VFONVG VFONVH VFONVI VFONYD VFONYE VFONYF VFONYG VFONYH VFONYI VFONYJ VFONYK VFONYL VFONYM VFONYN VFONYO VFONYP VFONYQ VFONYR VFONYS VFONYT VFONYU VFONYV VFONYW VFONYX VFONYY VFONYZ ; RUN; DATA _WTY70 (LABEL='TY70: RMF CPU ACTIVITY' DROP= _KTY70DR ); MERGE MERGETY70 (IN=INTY70) SUMSTYPE70EN (IN=INTY70EN); BY SYSPLEX SYSTEM SYSNAME SMF70GIE GMTOFFTM STARTIME; LENGTH DEFAULT=&MXGLEN; IF (INTY70 AND INTY70EN) OR (INTY70 AND (VMSYSTEM='Y' OR OS390='Y')) THEN DO; _2TY70 END; ELSE DO; NBADMRG70+1; IF NBADMRG70 LE 4 THEN PUTLOG ' BAD MERGE 70 ' _N_= / SYSPLEX= SYSTEM= SYSNAME= SMF70GIE= GMTOFFTM= STARTIME=; END; DROP NBADMRG70 NRICFCPU NRIFLCPU NRIFACPU ; *TITLE 'DEBUG V: DATA=MERGETY70'; *%%VMXGPRA1(DATASET=MERGETY70,nobs=41); *%%VMXGPRA1(DATASET=_LTY70,nobs=41); PROC DELETE DATA=MERGETY70 SUMSTYPE70EN; /* NOW, MERGE THE CPU COUNTS INTO TYPE70PR */ PROC SORT NODUP DATA=_WTY70PR OUT=SORTEDPR; BY SYSPLEX SYSTEM SYSNAME SMF70GIE GMTOFFTM STARTIME LPARNUM LCPUADDR; *TITLE 'DEBUG W: DATA=SORTEDPR'; *%%VMXGPRA1(DATASET=SORTEDPR,WHERE=_XNTLPAR,nobs=41); /*=== _STY70 ==================DATA STEP TEMP70PR===================*/ DATA TEMP70PR; MERGE SORTEDPR NUCPSCPU (IN=INCPUS); BY SYSPLEX SYSTEM SYSNAME SMF70GIE GMTOFFTM STARTIME ; LENGTH DEFAULT=&MXGLEN; IF INCPUS THEN PARTNCPU=NRCPSCPU; OUTPUT TEMP70PR; *TITLE 'DEBUG X: DATA=TEMP70PR'; *%%VMXGPRA1(DATASET=TEMP70PR,WHERE=_XNTLPAR,nobs=41); PROC SORT DATA=_LTY70EN OUT=SORT70EN ( KEEP= SMF70WTS SMF70WTU SMF70WTI LCPUADDR SYSPLEX SYSTEM SYSNAME STARTIME LPARNAME ); BY SYSPLEX SYSTEM SYSNAME STARTIME LPARNAME LCPUADDR; *TITLE 'DEBUG Y: DATA=_LTY70EN'; *%%VMXGPRA1(DATASET=_LTY70EN,nobs=41); PROC SORT DATA=TEMP70PR OUT=SORT70PR (DROP=SMF70WTS SMF70WTU SMF70WTI); BY SYSPLEX SYSTEM SYSNAME STARTIME LPARNAME LCPUADDR; *TITLE 'DEBUG Z: DATA=TEMP70PR'; *%%VMXGPRA1(DATASET=TEMP70PR,WHERE=_XNTLPAR,nobs=41); DATA SORT70PE; MERGE SORT70PR (IN=PR) SORT70EN (IN=EN); BY SYSPLEX SYSTEM SYSNAME STARTIME LPARNAME LCPUADDR; IF PR THEN OUTPUT SORT70PE; *TITLE 'DEBUG AA: DATA=SORT70PE'; *%%VMXGPRA1(DATASET=SORT70PE,WHERE=_XNTLPAR,nobs=41); PROC SORT DATA=SORT70PE OUT=SORT70PF; BY SYSPLEX SYSTEM SYSNAME LPARNUM LCPUADDR STARTIME; DATA SORT70PG; SET SORT70PF; BY SYSPLEX SYSTEM SYSNAME LPARNUM LCPUADDR STARTIME; SMF70MTTT=DIF(SMF70MTTT); IF FIRST.LCPUADDR OR SMF70MTTT LT 0 OR _N_=1 THEN DO; IF _XANT THEN PUTLOG / SYSPLEX SYSTEM SYSNAME LPARNUM LCPUADDR STARTIME ' SET MISSING ' FIRST.LCPUADDR= ' BEFORE ' SMF70MTTT= _N_=; SMF70MTTT=.; END; PROC SORT DATA=SORT70PG OUT=SORT70BO; BY SYSPLEX SYSTEM SYSNAME STARTIME LPARNAME LCPUADDR; PROC DELETE DATA=SORT70EN SORT70PR SORT70PE SORT70PF SORT70PG; /*=== _STY70 ==================DATA STEP _LTY70PR===================*/ *TITLE 'DEBUG AB: DATA=SORT70BO'; *%%VMXGPRA1(DATASET=SORT70BO,WHERE=_XNTLPAR,nobs=41); DATA _LTY70PR (LABEL='TY70PR: RMF PR/SM PARTITION ACTIVITY'); SET SORT70BO; LENGTH DEFAULT=&MXGLEN; SMT_THREAD=LCPUADDR; _2TY70PR LABEL SMT_THREAD='THREAD*IN SMT*MODE'; FORMAT SMT_THREAD HEX2.; *TITLE 'DEBUG AC: DATA=_LTY70PR'; *%%VMXGPRA1(DATASET=_LTY70PR,WHERE=_XNTLPAR,nobs=41); PROC DELETE DATA=SORT70BO; *TITLE ; /* RECREATE THE ORIGINAL WORK.TYPE70PR WITH CORRECT DATA */ /*=== _STY70 ==================END _STY70 BLOCK ===================*/ DATA _WTY70PR (LABEL='TY70PR: RMF PR/SM PARTITION ACTIVITY'); SET _LTY70PR; DATA SUM70PR (KEEP=MVSBUSYTM SMF70ONT SMF70PAT ZIPBUSYTM SMF70CIN ZIP70ONT ZIP70PAT SYSPLEX SYSTEM SYSNAME STARTIME LPARNAME); SET _LTY70PR (WHERE=(PCTMVSBY NE .)); IF SMF70ONT-SMF70PAT GT 0 AND SMF70ONT GT 0 AND SMF70CIN='CP' THEN DO; MVSBUSYTM=(PCTMVSBY/100)*(SMF70ONT-SMF70PAT); PCTMVSBY=MVSBUSYTM*100/(SMF70ONT-SMF70PAT); END; ELSE IF (SMF70ONT-SMF70PAT) GT 0 AND SMF70ONT GT 0 AND SMF70CIN='IIP' THEN DO; ZIPBUSYTM=(PCTMVSBY/100)*(SMF70ONT-SMF70PAT); PCTMVSBY=MVSBUSYTM*100/(SMF70ONT-SMF70PAT); ZIP70ONT=SMF70ONT; ZIP70PAT=SMF70PAT; SMF70ONT=.; SMF70PAT=.; END; ELSE RETURN; FORMAT PCTMVSBY MVSBUSYTM SMF70ONT SMF70PAT ZIP70ONT ZIP70PAT 6.2; *PUTLOG PCTMVSBY=MVSBUSYTM=SMF70ONT=SMF70PAT= LPARNAME= LCPUADDR=; PROC MEANS NOPRINT DATA=SUM70PR; CLASS SYSPLEX SYSTEM SYSNAME STARTIME LPARNAME; OUTPUT OUT=SUM70PR SUM=MVSBUSYTM ZIPBUSYTM SMF70ONT SMF70PAT ZIP70ONT ZIP70PAT; VARIABLES MVSBUSYTM ZIPBUSYTM SMF70ONT SMF70PAT ZIP70ONT ZIP70PAT; DATA PCT70PR (KEEP=PCTMVSBY MVSBUSYTM ZIPBUSYTM PCTZIPMVSBY SYSPLEX SYSTEM SYSNAME STARTIME LPARNAME); SET SUM70PR; LENGTH DEFAULT=&MXGLEN; PCTMVSBY=100*MVSBUSYTM/(SMF70ONT-SMF70PAT); PCTZIPMVSBY=100*ZIPBUSYTM/(ZIP70ONT-ZIP70PAT); LABEL PCTZIPMVSBY='PCT MVS*BUSY*IIP'; *PUTLOG PCTZIPMVSBY= ZIPBUSYTM= ZIP70ONT= ZIP70PAT=;RUN; PROC SORT DATA=PCT70PR OUT=SORTPCT70PR; BY SYSPLEX SYSTEM SYSNAME STARTIME LPARNAME; PROC SORT DATA=_WTY70 OUT=TYPE70BY; BY SYSPLEX SYSTEM SYSNAME STARTIME LPARNAME; DATA _LTY70 (LABEL='TY70: RMF CPU ACTIVITY'); MERGE TYPE70BY (IN=IN70) SORTPCT70PR (IN=INPR); BY SYSPLEX SYSTEM SYSNAME STARTIME LPARNAME; FORMAT PCTZIPMVSBY PCTMVSBY PCTCPUBY PCTZIPBY PCTIFABY 5.1; IF PCTMVSBY GT 0 AND PCTCPUBY GT 0 AND CPUACTTM GT 10 THEN DO; SHORTCPS=PCTMVSBY/PCTCPUBY; PLCPRDYQ=100*(PCTMVSBY-PCTCPUBY)/PCTMVSBY; IF . LT PLCPRDYQ LT 0 THEN DO; SHORTCPS=1; PLCPRDYQ=0; END; END; ELSE DO; SHORTCPS=.; PLCPRDYQ=.; END; IF IN70 THEN OUTPUT; DROP MVSBUSYTM ZIPBUSYTM; *PUTLOG PCTMVSBY= MVSBUSYTM= SHORTCPS= PLCPRDYQ=;RUN; *PROC PRINT DATA=PDBMXG.TYPE70;*TITLE ENHANCED UPDATED PCTMVSBY; PROC DELETE DATA=FROM70PR NUCPSCPU PHYSICAL SORTEDPR SORT70SP THISPART _WTY70SP TEMP70PR PLATBUSY TYPE70BY PCT70PR SUM70PR SORTPCT70PR; % MACRO _VTY70EC /* TYPE70EC */ KEEP=SYSPLEX SYSTEM SYSNAME STARTIME DURATM CPUWAITM CPUID CAI CECSER SMF70TYP SLIHIO TPIIO PCTTPI SMF70PAT PCTCPUBY CPUBSYTM PCTIFABY PCTZIPBY IORATE ZDATE /* ADDED BY CHANGE 28.143 */ SMF70TCB SMF70SRB SMF70NIO SMF70SIG SMF70WTD /* ADDED BY CHANGE 29.239 */ SHIFT /* ADDED BY CHANGE 30.208 */ SMF70WTS SMF70WTU SMF70WTI SMF70GIE GMTOFFTM LCPUADDR /* ADDED BY CHANGE 33.046 FOR Z13 */ SMT_CORE_ID SMT_PROD SMT_UTIL SMT_NUM SMT_LPAR_BUSY SMTSEGNR /* ADDED BY CHANGE 33.121 */ IMERGE /* ADDED BY CHANGE 34.258 */ SMT_CORE_FLAG % MACRO _BTY70EC SYSPLEX SYSTEM SYSNAME STARTIME CPUID SMFTIME % MACRO _LTY70EC &PTY70EC..TYPE70EC % MACRO _WTY70EC &WTY70EC..TYPE70EC % MACRO _KTY70EC % MACRO _ETY70EC %%INCLUDE SOURCLIB(EXTY70EC); /* _WTY70EC OUTPUTS TYPE70EC */ % MACRO _STY70EC PROC SORT NODUP DATA=_WTY70EC OUT=SORT70EC; BY SYSPLEX SYSTEM SYSNAME STARTIME CPUID; *TITLE 'DEBUG A: DATA=_WTY70EC'; *%%VMXGPRA1(DATASET=_WTY70EC,NOBS=41); *TITLE 'DEBUG B: DATA=SORT70EC'; *%%VMXGPRA1(DATASET=SORT70EC,NOBS=41); PROC DELETE DATA=_WTY70EC; % MACRO _VTY70TR /* PTY70TR..TYPE70TR */ KEEP=SYSPLEX SYSTEM SYSNAME STARTIME DURATM CECSER GMTOFFTM SHIFT PARTISHN SMF70HOF SYNCTIME CPUTYPE TRG_NAME TRG_DESC TRG_TNTID TRG_TNTNAME TRG_SBID TRG_SUCP TRG_SUIFA TRG_SUSUP TRG_LAC /*ADDED BY CHANGE 36.125*/ TRG_LAC_CBP TRG_FLAGS /*ADDED BY CHANGE 37.037*/ TRG_MEM SMFTIME ZDATE % MACRO _BTY70TR SYSPLEX SYSTEM SYSNAME STARTIME TRG_NAME TRG_TNTID TRG_TNTNAME TRG_SBID SMFTIME % MACRO _LTY70TR &PTY70TR..TYPE70TR % MACRO _WTY70TR &WTY70TR..TYPE70TR % MACRO _KTY70TR % MACRO _ETY70TR %%INCLUDE SOURCLIB(EXTY70TR); /* _WTY70TR OUTPUTS TYPE70TR */ % MACRO _STY70TR PROC SORT NODUP DATA=_WTY70TR OUT=_LTY70TR; BY _BTY70TR; %%VMXGDEL(DDDDDD=TY70TR); % MACRO _VTY70EL /* TYPE70EL */ KEEP=SYSPLEX SYSTEM SYSNAME STARTIME DURATM LCPUADDR SMF70ONT LCPUPDTM LCPUSHAR IMERGE POLARITY LCPUEDTM SMF70ACS SMF70WST SMF70NSI SMF70NSA SMF70NSW SMF70POW SMF70NCA LCPUDED LCPUWAIT LPARNAME /* ADDED BY CHANGE 29.239 */ SHIFT /* ADDED BY CHANGE 31.099 */ SMF70HW_CAP_LIMIT SMF70GIE GMTOFFTM /* ADDED BY CHANGE 33.046 */ SMF70MTTT /* ADDED BY CHANGE 40.068 */ % MACRO _BTY70EL SYSPLEX SYSTEM SYSNAME STARTIME CPUID SMFTIME % MACRO _LTY70EL &PTY70EL..TYPE70EL % MACRO _WTY70EL &WTY70EL..TYPE70EL % MACRO _KTY70EL % MACRO _ETY70EL %%INCLUDE SOURCLIB(EXTY70EL); /* _WTY70EL OUTPUTS TYPE70EL */ % MACRO _STY70EL DATA _WTY70EL; SET _WTY70EL; CPUID=LCPUADDR; PROC SORT NODUP DATA=_WTY70EL OUT=SORT70EL; BY SYSPLEX SYSTEM SYSNAME STARTIME CPUID; *TITLE 'DEBUG C: DATA=_WTY70EL'; *%%VMXGPRA1(DATASET=_WTY70EL,NOBS=41); *TITLE 'DEBUG D: DATA=SORT70EL ONE'; *%%VMXGPRA1(DATASET=SORT70EL,NOBS=41); PROC DELETE DATA=_WTY70EL; % MACRO _VTY70EN /* TYPE70EN */ KEEP=SYSPLEX SYSTEM SYSNAME STARTIME DURATM SMFTIME LCPUADDR SMF70ONT SMF70CIN LCPUPDTM LCPUSHAR POLARITY SMF70CIX LCPUEDTM SMF70ACS SMF70WST SMF70NSI SMF70NSA SMF70NSW SMF70POW SMF70NCA LCPUDED LCPUWAIT LPARNAME /* ADDED BY CHANGE 29.239 */ SHIFT /* ADDED BY CHANGE 31.099 */ SMF70HW_CAP_LIMIT SMF70GIE GMTOFFTM /* ADDED BY CHANGE 33.046 */ SMF70MTTT /* ADDED BY CHANGE 33.121 */ IMERGE /* ADDED BY CHANGE 40.069 */ SMF70LPF SMF70MAXNL SMF70CORT1-SMF70CORT6 % MACRO _BTY70EN SYSPLEX SYSTEM SYSNAME STARTIME % MACRO _LTY70EN &PTY70EN..TYPE70EN % MACRO _WTY70EN &WTY70EN..TYPE70EN % MACRO _KTY70EN % MACRO _ETY70EN %%INCLUDE SOURCLIB(EXTY70EN); /* _WTY70EN OUTPUTS TYPE70EN */ % MACRO _STY70EN /*=== _STY70EN ================DATA STEP SORT70EL===================*/ DATA SORT70EL; SET SORT70EL; LENGTH CPUID 4; CPUID=LCPUADDR; NEWIMERGE=IMERGE; *DROP LCPUADDR; *TITLE ' DEBUG E: DATA=SORT70EL TWO'; *%%VMXGPRA1(DATASET=SORT70EL,NOBS=41); *TITLE ' DEBUG E-1: DATA=SORT70EC ONE'; *%%VMXGPRA1(DATASET=SORT70EC,NOBS=41); PROC SORT DATA=SORT70EC; BY SYSPLEX SYSTEM SYSNAME STARTIME IMERGE; DATA SORT70EC (DROP=HELD_SMT_CORE_ID); SET SORT70EC; BY SYSPLEX SYSTEM SYSNAME STARTIME IMERGE; *PUTLOG ' TOP ' IMERGE= SUBCOUNT= HELD_SMT_CORE_ID=; FORMAT HELD_SMT_CORE_ID HEX2.; IF FIRST.STARTIME THEN DO; SUBCOUNT=0; HELD_SMT_CORE_ID=.; END; RETAIN SUBCOUNT HELD_SMT_CORE_ID; *PUTLOG ' AFTER FIRST ' SUBCOUNT= HELD_SMT_CORE_ID= IMERGE=; IF SMT_NUM GT 0 THEN DO; ; IF SMT_CORE_ID = HELD_SMT_CORE_ID THEN DO; NEWIMERGE=IMERGE-.5-SUBCOUNT; SUBCOUNT+1; HELD_SMT_CORE_ID=.; *PUTLOG SUBCOUNT= ' IN HELD MATCH '; END; ELSE DO; HELD_SMT_CORE_ID=SMT_CORE_ID; NEWIMERGE=IMERGE-SUBCOUNT; *PUTLOG IMERGE= NEWIMERGE= SUBCOUNT=; END; END; ELSE NEWIMERGE=IMERGE-SUBCOUNT; *PUTLOG STARTIME= NEWIMERGE= IMERGE= SMT_NUM= SMT_CORE_ID= HELD_SMT_CORE_ID= CPUID= FIRST.STARTIME=; RUN; *TITLE ' DEBUG E-2: DATA=SORT70EC TWO'; *%%VMXGPRA1(DATASET=SORT70EC,NOBS=41); RUN; /*=== _STY70EN ================DATA STEP _LTY70EN===================*/ PROC SORT DATA=SORT70EC; BY SYSPLEX SYSTEM SYSNAME STARTIME CPUID; PROC SORT DATA=SORT70EL; BY SYSPLEX SYSTEM SYSNAME STARTIME CPUID; *TITLE ' DEBUG E-3: DATA=SORT70EC BEFORE MERGE - THREE'; *%%VMXGPRA1(DATASET=SORT70EC,NOBS=41); *TITLE ' DEBUG E-4: DATA=SORT70EL FOUR '; *%%VMXGPRA1(DATASET=SORT70EL,NOBS=41); DATA TEMP70EN; LENGTH SYSTEM $4 DEFAULT=&MXGLEN; MERGE SORT70EC (IN=INEC) SORT70EL (IN=INEL); BY SYSPLEX SYSTEM SYSNAME STARTIME CPUID; IF INEL THEN OLDLPARNAME=LPARNAME; RETAIN OLDLPARNAME; DROP OLDLPARNAME; IF NOT INEL THEN LPARNAME=OLDLPARNAME; *PUTLOG _N_= SYSPLEX= SYSTEM= SYSNAME= STARTIME= NEWIMERGE= LPARNAME= CPUID= INEC= INEL= CPUBSYTM= SMF70TYP= FIRST.STARTIME= LAST.STARTIME=; LABEL PCTCPUBY='LPAR*PERCENT*BUSY' PCTMVSBY='MVS*PERCENT*BUSY' PCTIFABY='IFA*PERCENT*BUSY (DISPATCHED)' PCTZIPBY='ZIP*PERCENT*BUSY (DISPATCHED)' IFAONTTM='IFA*SMF70ONT*ONLINE*TIME' IFAPATTM='IFA*SMF70PAT*PARKED*TIME' IFAUPTM ='IFA ENGINE*AVAILABLE*(UP) TIME' ZIPONTTM='ZIP*SMF70ONT*ONLINE*TIME' ZIPPATTM='ZIP*SMF70PAT*PARKED*TIME' ZIPUPTM ='ZIP ENGINE*AVAILABLE*(UP) TIME' ; FORMAT IFAONTTM IFAPATTM ZIPONTTM ZIPPATTM TIME12.2; LENGTH DEFAULT=&MXGLEN; IF SMF70TYP=0 THEN DO; SMF70CIN='CP '; SMF70CIX=1; END; ELSE IF SMF70TYP=1 THEN DO; SMF70CIN='IFA'; SMF70CIX=3; END; ELSE IF SMF70TYP=2 THEN DO; SMF70CIN='IIP'; SMF70CIX=6; END; ELSE DELETE; PCTCPUBY=100*(DURATM-(CPUWAITM+SMF70PAT))/DURATM; IF CPUWAITM=0 AND SMF70PAT GT 0 AND DURATM GT 0 AND ABS(DURATM-SMF70PAT) LT 0.10 THEN PCTCPUBY=0; IF PCTCPUBY LT 0 THEN PCTCPUBY=0; IF SMF70CIN='CP' THEN DO; IF (DURATM-SMF70PAT) GT 1 THEN PCTMVSBY=100*(CPUBSYTM-SMF70PAT) /(DURATM-SMF70PAT); ELSE PCTMVSBY=0; IF PCTMVSBY LT 0 THEN PCTMVSBY=0; PCTZIPBY=.; PCTIFABY=.; ZIPONTTM=.; IFAONTTM=.; ZIPPATTM=.; IFAPATTM=.; ZIPUPTM=.; IFAUPTM=.; END; ELSE IF SMF70CIN='IFA' THEN DO; CPUBSYTM=.; /*NEW IN 33.09*/ PCTIFABY=PCTCPUBY; PCTCPUBY=.; PCTZIPBY=.; IFAONTTM=SMF70ONT; ZIPONTTM=.; IFAPATTM=SMF70PAT; ZIPPATTM=.; IFAUPTM=SMF70ONT-SMF70PAT; ZIPUPTM=.; END; ELSE IF SMF70CIN='IIP' THEN DO; CPUBSYTM=.; /*NEW IN 33.09*/ PCTZIPBY=PCTCPUBY; PCTMVSBY=PCTCPUBY; PCTCPUBY=.; PCTIFABY=.; ZIPONTTM=SMF70ONT; IFAONTTM=.; ZIPPATTM=SMF70PAT; IFAPATTM=.; IF SMF70ONT GT . AND SMF70PAT GT . THEN ZIPUPTM=SMF70ONT-SMF70PAT; IFAUPTM=.; END; LCPUADDR=CPUID; PROC DATASETS NOLIST LIB=&MXGWORK; MODIFY TEMP70EN; LABEL PCTCPUBY='CPU*BUSY*PERCENT'; *TITLE ' DEBUG F.1: DATA=TEMP70EN'; *%%VMXGPRA1(DATASET=TEMP70EN,NOBS=41); PROC DELETE DATA=SORT70EC SORT70EL; PROC SORT DATA=TEMP70EN OUT=SORT70EN1; BY SYSPLEX SYSTEM SYSNAME LPARNAME LCPUADDR SMF70GIE GMTOFFTM STARTIME; DATA SORT70EN2; /*SORTED TO CREATE _LTY70EN */ SET SORT70EN1; BY SYSPLEX SYSTEM SYSNAME LPARNAME LCPUADDR SMF70GIE GMTOFFTM STARTIME; LABEL SMF70CIN='CPU*IDENT*CP ICF*IFL IFA*ZIP?' SMF70MTTT=DIF(SMF70MTTT); IF LCPUPDTM GT . THEN DO; /* ONLINE */ PCTCPUBY=100*LCPUPDTM/DURATM; IF SMT_PROD GT . THEN SMT_UTIL=PCTCPUBY*SMT_PROD/100; IF (DURATM-SMF70PAT) GT 1 AND CPUBSYTM GT . THEN PCTMVSBY=100*(CPUBSYTM-SMF70PAT) /(DURATM-SMF70PAT); ELSE PCTMVSBY=0; END; ELSE DO; PCTCPUBY=.; SMT_UTIL=.; PCTMVSBY=.; END; IF SMF70CIN='IIP' THEN DO; IF ZIPONTTM=. THEN ZIPPATTM=.; PCTMVSBY=PCTZIPBY; END; IF FIRST.LCPUADDR OR SMF70MTTT GT DURATM OR SMF70MTTT LT 0 THEN SMF70MTTT=.; DROP SMF70CIX IMERGE SUBCOUNT NEWIMERGE; PROC SORT DATA=SORT70EN2 OUT=_LTY70EN (LABEL='TY70EN: TYPE70 ENGINE-SPECIFIC Z/OS DATA' SORTEDBY=SYSPLEX SYSTEM SYSNAME STARTIME CPUID); BY SYSPLEX SYSTEM SYSNAME STARTIME CPUID; PROC DELETE DATA=TEMP70EN SORT70EN1 SORT70EN2; PROC SORT DATA=_LTY70EN (WHERE=(LPARNAME GT ' ')) OUT=SORTYPE70EN; BY SYSPLEX SYSTEM SYSNAME SMF70GIE GMTOFFTM STARTIME; *TITLE 'DEBUG G: DATA=SORTYPE70EN'; *%%VMXGPRA1(DATASET=SORTYPE70EN,NOBS=41); PROC MEANS NOPRINT DATA=SORTYPE70EN; BY SYSPLEX SYSTEM SYSNAME SMF70GIE GMTOFFTM STARTIME; VARIABLES ZIPUPTM ZIPONTTM ZIPPATTM IFAUPTM IFAONTTM IFAPATTM; ID DURATM; OUTPUT OUT=SUMTYPE70EN (DROP=_TYPE_ _FREQ_) SUM= ZIPUPTM ZIPONTTM ZIPPATTM IFAUPTM IFAONTTM IFAPATTM / INHERIT; *TITLE 'DEBUG H: DATA=SUMTYPE70EN'; *%%VMXGPRA1(DATASET=SUMTYPE70EN,NOBS=41); PROC DELETE DATA=SORTYPE70EN; DATA SUMSTYPE70EN; SET SUMTYPE70EN; LENGTH DEFAULT=&MXGLEN; IF ZIPONTTM GT 0 THEN DO; IF ZIPPATTM GT 0 THEN ZIPUPTM=ZIPONTTM-ZIPPATTM; ELSE ZIPUPTM=ZIPONTTM; ZIPCPUS=FLOOR((100*ZIPUPTM/DURATM)+.1)/100; END; IF IFAONTTM GT 0 THEN DO; IF IFAPATTM GT 0 THEN IFAUPTM=IFAONTTM-IFAPATTM; ELSE IFAUPTM=IFAONTTM; IFACPUS=ROUND((IFAUPTM/DURATM),.001); END; LABEL ZIPCPUS='ONLINE*NON-PARKED*ZIP ENGINES' IFACPUS='ONLINE*NON-PARKED*IFA ENGINES' ; *TITLE 'DEBUG I: DATA=SUMSTYPE70EN'; *%%VMXGPRA1(DATASET=SUMSTYPE70EN,NOBS=41); PROC DELETE DATA=SUMTYPE70EN; % MACRO _VTY70PR /*&PTY70PR..TYPE70PR */ KEEP=DIAG204F DURATM GMTOFFTM LCPUADDR LCPUCHST LCPUCHWT LCPUCAP LCPUCAPC LCPUDED LCPUEDTM LCPUPDTM LCPUSHAR LPARZIPS LCPUWAIT LPARCHAC LPARCHNR LPARCPUS LPARNAME LPARNUM NRPRCHGD NRPRCS NEWWAIT ORIGWAIT PARTFLG PARTISHN PARTNCPU PRSMSLIC SLICCHGD SMFTIME STARTIME SYSTEM SYSPLEX SYSNAME ZDATE SYNCTIME INTRVSYN /*ADDED BY MVS/ESA 4.3*/ PCTCPUBY PCTMVSBY SHORTCPS PLCPRDYQ /* ADDED BY OS/390 R2.7 */ LPARCHDE LPARCHSH /* ADDED BY MXG CHANGE 16.342 */ CECSER /* ADDED BY APAR OW37254/CHANGE 17.138*/ STSICPC CPCMODEL CPUTYPE /* ADDED BY APAR OW37565/CHANGE 17.162*/ SMF70CIN /* ADDED BY 18.134*/ SMF70BDA SMF70CSF SMF70ESF SMF70SPN SMF70STN SMF70ACS SMF70MAS SMF70MIS SMF70NSA SMF70NSI SMF70ONT /* ADDED BY Z/OS */ LPARCLND LPARDCLC LPARWLMG LPARWTFD SMF70MSU SMF70NSW SMF70PMA SMF70WST /* ADDED BY 19.045*/ VERSNRMF /* ADDED BY 19.119*/ LCPUVARY /* ADDED BY 20.046 */ DIAG204E SMF70DSA /* ADDED BY CHANGE 20.056 */ SMF70CPA SMF70MCR /* ADDED BY CHANGE 20.169 */ SMF70LAC /* ADDED BY CHANGE 22.260 */ MXGCIN /* ADDED BY CHANGE 23.013 */ LPARCPUX NRPHYCPS NRCPUD MACHTIME SMF70HOF STFBIT03 STFBIT04 SMF70HWM /* ADDED BY CHANGE 23.187 - APAR OA10346 */ SMF70UPI /* ADDED BY CHANGE 23.222 */ NRCPSCPU NRICFCPU NRIFLCPU NRIFACPU NRZIPCPU AVCPSCPU AVICFCPU AVIFLCPU AVIFACPU AVZIPCPU /* ADDED BY CHANGE 23.322 */ SMF70GIE /* ADDED BY CHANGE 25.163 */ SMF70GNM SMF70GMU /* ADDED BY CHANGE 26.025 APAR OA12774*/ SMF70HDM SMF70PAT SMF70POW SMF70NCA /* ADDED BY CHANGE 26.031 */ IFAACTTM ZIPACTTM /* ADDED BY CHANGE 26.243 */ POLARITY POLARCHG /* ADDED BY CHANGE 27.010 */ SMF70CIX /* ADDED BY CHANGE 27.074 */ ICFACTTM IFLACTTM /* ADDED BY CHANGE 28.143 */ SMF70TCB SMF70SRB SMF70NIO SMF70SIG SMF70WTD /* ADDED BY CHANGE 29.127 APAR OA35675 */ VMSYSTEM /* ADDED BY CHANGE 29.239 */ SHIFT /* ADDED BY CHANGE 30.208 */ SMF70WTS SMF70WTU SMF70WTI /* ADDED BY CHANGE 30.247 */ SMF70NRM /* ADDED BY CHANGE 31.099 */ SMF70MCP SMF70ICP SMF70CCP SMF70CPA_ACTUAL SMF70CPA_SCALING_FACTOR SMF70UIW LCPUHWCL SMF70CPA_RATIO /* ADDED BY CHANGE 31.099 */ SMF70HW_CAP_LIMIT /* ADDED BY CHANGE 32.102 */ OS390 /* ADDED BY CHANGE 33.046 FOR Z13 */ SMF70MTID SMT_CORE_ID SMF70MTTT DIAG204S SMF70CTN SMF70CAN /* ADDED BY CHANGE 34.228 */ SMF70HWGRNAME CAPLIMCH SMF70HWGR_CAP_LIMIT ORG70CPA /* ADDED BY CHANGE 37.036 */ CP70BPS IFA70BPS ZIP70BPS IFL70BPS CP70ACS IFA70ACS ZIP70ACS IFL70ACS /* ADDED BY CHANGE 37.243 */ SMF70LACM SMF70LACA SMF70LACB /* ADDED BY CHANGE 38.106 */ BOOSTACTIVE /* ADDED BY CHANGE 39.189 */ SMF70TYP /* ADDED BY CHANGE 40.069 */ SMF70LPF SMF70MAXNL SMF70CORT1-SMF70CORT6 % MACRO _BTY70PR SYSPLEX SYSTEM SYSNAME STARTIME LPARNUM LCPUADDR % MACRO _LTY70PR &PTY70PR..TYPE70PR % MACRO _WTY70PR &WTY70PR..TYPE70PR % MACRO _KTY70PR % MACRO _ETY70PR %%INCLUDE SOURCLIB(EXTY70PR); /* _WTY70PR OUTPUTS TYPE70PR */ % MACRO _2TY70PR %%INCLUDE SOURCLIB(E2TY70PR); /* _LTY70PR OUTPUTS TYPE70PR */ % MACRO _STY70PR /* NOW A NULL MACRO. MACRO _STY70 NOW RECREATES BOTH THE TYPE70 AND TYPE70PR DATASETS TO SUPPORT SPLIT RECORDS. ORIGINAL PRE-SPLIT-LOGIC SORT PRE CHANGE 23.321 WAS: PROC SORT NODUP DATA=_WTY70PR OUT=_LTY70PR ; BY _BTY70PR SMFTIME ; %%VMXGDEL(DDDDDD=TY70PR); */ % MACRO _VTY7002 /*&PTY7002..TYPE7002 */ KEEP=DURATM INTRVSYN GMTOFFTM R7023AX R7023C0 R7023C1 R7023CT R7023SF R7023T0 SMFTIME STARTIME SYSTEM SYSPLEX SYSNAME SYNCTIME /* ADDED BY CHANGE 29.239 */ SHIFT /* ADDED BY CHANGE 30.212 */ R7023MSK /* ADDED BY CHANGE 31.220 */ CRYCKR CRYCTE CRYCTR CRYCTU VERSNRMF /* ADDED BY CHANGE 37.037 */ R7023SCOPE R7023DID ZDATE % MACRO _BTY7002 SYSPLEX SYSTEM SYSNAME STARTIME R7023AX R7023DID % MACRO _LTY7002 &PTY7002..TYPE7002 % MACRO _WTY7002 &WTY7002..TYPE7002 % MACRO _KTY7002 % MACRO _ETY7002 %%INCLUDE SOURCLIB(EXTY7002); /* _WTY7002 OUTPUTS TYPE7002 */ % MACRO _STY7002 PROC SORT NODUP DATA=_WTY7002 OUT=_LTY7002 ; BY _BTY7002 SMFTIME ; %%VMXGDEL(DDDDDD=TY7002); % MACRO _VTY70X2 /*&PTY70X2..TYPE70X2 */ KEEP=DURATM INTRVSYN GMTOFFTM R7024AX R7024CT R7024SF R7021MET R7021MEC R7022MET R7022MEC R7021CRT R7021CRC R7022CRT R7022CRC R7021M1T R7021M1C R7022M1T R7022M1C R7021C1T R7021C1C R7022C1T R7022C1C R7021M2T R7021M2C R7022M2T R7022M2C R7021C2T R7021C2C R7022C2T R7022C2C R7021M3T R7021M3C R7022M3T R7022M3C R7021C3T R7021C3C R7022C3T R7022C3C R7021M4T R7021M4C R7022M4T R7022M4C R7021C4T R7021C4C R7022C4T R7022C4C R7021M5T R7021M5C R7022M5T R7022M5C R7021C5T R7021C5C R7022C5T R7022C5C /* ADDED BY APAR OW56656 */ R7024EN /* ADDED BY CHANGE 28.143*/ R7024MSK R7023MET R7023MEC SMFTIME STARTIME SYSTEM SYSPLEX SYSNAME SYNCTIME /* ADDED BY CHANGE 29.070*/ R7023CRC R7023CRT /* ADDED BY CHANGE 29.239 */ SHIFT /* ADDED BY CHANGE 31.220 */ CRYAC1E CRYAC1R CRYAC1U CRYAC2E CRYAC2R CRYAC2U CRYAC3E CRYAC3R CRYAC3U CRYAM1E CRYAM1R CRYAM1U CRYAM2E CRYAM2R CRYAM2U CRYAM3E CRYAM3R CRYAM3U /* ADDED BY CHANGE 37.037 */ R7024SCOPE R7024DID VERSNRMF ZDATE % MACRO _BTY70X2 SYSPLEX SYSTEM SYSNAME STARTIME R7024AX R7024DID % MACRO _LTY70X2 &PTY70X2..TYPE70X2 % MACRO _WTY70X2 &WTY70X2..TYPE70X2 % MACRO _KTY70X2 % MACRO _ETY70X2 %%INCLUDE SOURCLIB(EXTY70X2); /* _WTY70X2 OUTPUTS TYPE70X2 */ % MACRO _STY70X2 PROC SORT NODUP DATA=_WTY70X2 OUT=_LTY70X2 ; BY _BTY70X2 SMFTIME ; %%VMXGDEL(DDDDDD=TY70X2); % MACRO _VTY70Y2 /*&PTY70Y2..TYPE70Y2 */ KEEP=DURATM INTRVSYN GMTOFFTM R702NHAB R702NHAC R702NHAI R702NMGB R702NMGC R702NMGI R702NMVB R702NMVC R702NMVI R702NPTC R702NPVC R702SNDB R702SNDC R702SNDI R702SNEB R702SNEC R702SNEI R702TNDB R702TNDC R702TNDI R702TNEB R702TNEC R702TNEI /* ADDED BY CHANGE 23.132 */ R702NH2C R702NH2B R702NH2I SMFTIME STARTIME SYSTEM SYSPLEX SYSNAME SYNCTIME VERSNRMF /* ADDED BY CHANGE 23.216 */ CRYIH2R CRYIH2S /* ADDED BY CHANGE 26.025 APAR OA12774*/ R702NH5C R702NH5B R702NH5I CRYIH5R CRYIH5S /* ADDED BY CHANGE 27.317 APAR OA28670*/ R702CDLV R702AESC R702AESB R702AESI R702ASDC R702ASDB R702ASDI /* ADDED BY CHANGE 29.239 */ SHIFT /* ADDED BY CHANGE 31.220 */ CRYIADO CRYIADR CRYIADS CRYIAEO CRYIAER CRYIAES CRYIH2I CRYIHAI CRYIHAR CRYIHAS CRYIMGI CRYIMGR CRYIMGS CRYIMVI CRYIMVR CRYIMVS CRYIPTR CRYIPVR CRYISDDR CRYISDDS CRYISDDI CRYISDER CRYISDES CRYISDEI CRYITDDR CRYITDDS CRYITDDI CRYITDER CRYITDES CRYITDEI /* ADDED BY CHANGE 33.023 */ R702AMGB R702AMGC R702AMGI R702AMVB R702AMVC R702AMVI R702DEGC R702DEVC R702DRGC R702DRVC R702FPDB R702FPDC R702FPDI R702FPEB R702FPEC R702FPEI R702FPTB R702FPTC R702FPTI /* ADDED BY CHANGE 38.106 */ R702FXEC R702FXEB R702FXEI R702FXDC R702FXDB R702FXDI R702FXTC R702FXTB R702FXTI R702DQGC R702DQVC ZDATE % MACRO _BTY70Y2 SYSPLEX SYSTEM SYSNAME STARTIME % MACRO _LTY70Y2 &PTY70Y2..TYPE70Y2 % MACRO _WTY70Y2 &WTY70Y2..TYPE70Y2 % MACRO _KTY70Y2 % MACRO _ETY70Y2 %%INCLUDE SOURCLIB(EXTY70Y2); /* _WTY70Y2 OUTPUTS TYPE70Y2 */ % MACRO _STY70Y2 PROC SORT NODUP DATA=_WTY70Y2 OUT=_LTY70Y2 ; BY _BTY70Y2 SMFTIME ; %%VMXGDEL(DDDDDD=TY70Y2); % MACRO _VTY70Y3 /*&PTY70Y3..TYPE70Y3 */ KEEP=DURATM INTRVSYN GMTOFFTM SHIFT SYSPLEX SYSTEM STARTIME SYSNAME SMFTIME R7025AGC R7025AGT R7025AX R7025CT R7025FAC R7025FAT R7025MSK R7025MT R7025SAC R7025SAT R7025SCC R7025SCT R7025SF R7025SPC R7025SPT /* ADDED BY CHANGE 31.220 */ CRYPTR CRYPTU CRYPTE CRYPSAR CRYPSAU CRYPSAE CRYPFAR CRYPFAU CRYPFAE CRYPSPR CRYPSPU CRYPSPE CRYPSCR CRYPSCU CRYPSCE CRYPAGR CRYPAGU CRYPAGE /* ADDED BY CHANGE 37.041 */ R7025SCOPE R7025DID ZDATE % MACRO _BTY70Y3 SYSPLEX SYSTEM SYSNAME R7025AX STARTIME % MACRO _LTY70Y3 &PTY70Y3..TYPE70Y3 % MACRO _WTY70Y3 &WTY70Y3..TYPE70Y3 % MACRO _KTY70Y3 % MACRO _ETY70Y3 %%INCLUDE SOURCLIB(EXTY70Y3); /* _WTY70Y3 OUTPUTS TYPE70Y3 */ % MACRO _STY70Y3 PROC SORT NODUP DATA=_WTY70Y3 OUT=_LTY70Y3 ; BY _BTY70Y3 SMFTIME ; %%VMXGDEL(DDDDDD=TY70Y3); % MACRO _VTY72 /*&PTY72..TYPE72 */ KEEP=ACTESFTM ACTFRMTM ACTIVETM AVGMEMSZ GMTOFFTM BLKSAUIN BLKSESIN CPUCOEFF CPURFC CPUHPTTM CPUIIPTM CPURCTTM CPUSRBTM CPUTCBTM CPUTM CPUTYPE CPUUNITS CPUVERSN CYCLE DOMAIN DURATM ELAPSTM ERV EXTNDSTO ESCACONF ESCAENAB FLAGS72 HIGHPG HIPPGINS HIPRDMIS ICSNAME IOCCOEFF IOCRFC IOUNITS IPSNAME MSOCOEFF MSOUNITS MVSLEVEL OBJCTIVE OPTNAME PARTISHN PERFACCT PERFGRP PERFRPGN PERIOD PGBKESIN PGBKAUIN PGNCLASS PAGEESIN PGNTRANS PGNUSER PGPAGEIN PGPEXCP PGPIOTM RELEASE RESIDTM RESPAVG RESPSTD SERVICE SMFTIME SUBSYS SRBCOEFF SRBUNITS SSQELAP STARTIME SU_SEC SWAPSEQ SYSTEM SYSTRNTM SYSPLEX SYSNAME TRANS TSLGROUP TYPEIOML VERSNRMF WKLOAD ZDATE SYNCTIME INTRVSYN /*ADDED BY MVS/ESA 4.3*/ CPUUSESM SRVCLASS TOTDLYSM /*ADDED BY MVS/ESA 5.1*/ CSTORE72 ESTORE72 TSTORE72 MPL72 /*ADD BY CHANGE 12.252*/ VELOCITY /*ADDED BY CHANGE 13.177 */ /* ADDED BY MVS/ESA 5.2, CHANGE 14.157 */ SMF72SPA SMF72SPE SMF72SRS /* ADDED BY OS/390 RELEASE 3, CHANGE 14.312 */ SMF72ICT SMF72IDT SMF72IOU SMF72IRC SMF72IWT SMF72NDI TOTUSTOU VELOCCPU VELOCIOD /*ADDED BY CHANGE 15.026 */ /* ADDED BY CHANGE 16.326 */ SMF72ADT SMF72CVT SMF72IOD SMF72IOT SMF72IQT SMF72QDT SMF72TSA SMF72GIE /* ADDED BY CHANGE 17.385 */ SMF72FEA SMF72IEA SMF72XEA /* ADDED BY CHANGE 20.089 */ MSU72 /* ADDED BY CHANGE 29.239 */ SHIFT % MACRO _BTY72 SYSPLEX SYSTEM SYSNAME STARTIME PERFGRP PERIOD % MACRO _LTY72 &PTY72..TYPE72 % MACRO _WTY72 &WTY72..TYPE72 % MACRO _KTY72 % MACRO _ETY72 %%INCLUDE SOURCLIB(EXTY72); /* _WTY72 OUTPUTS TYPE72 */ % MACRO _STY72 PROC SORT NODUP DATA=_WTY72 OUT=_LTY72 ; BY _BTY72 SMFTIME; %%VMXGDEL(DDDDDD=TY72); % MACRO _VTY72DL /*&PTY72DL..TYPE72DL */ KEEP= /* VARIABLES FROM RMF PRODUCT SECTION */ DURATM GMTOFF72 INTRVSYN MVSLEVEL PARTISHN PRODUCT SYSPLEX SYSTEM SYSNAME STARTIME SYNCTIME VERSNRMF GMTOFFTM R723RDNN /* VARIABLES FROM WMS SECTION */ SRVCLASS /* VARIABLES FROM SCS HEADER */ PERIOD /* VARIABLES FROM WRS SECTION */ R723RTYP R723RFLG R723RESS R723RACT R723RRDY R723RIDL R723RWLO R723RWIO R723RWCO R723RWDS R723RWSL R723RWSN R723RWSS R723RWTM R723RWO R723RWMS R723RSSL R723RSSS R723RSSN /* ADDED BY OS/390 2.4 */ R723RWNL /* ADDED BY 20.069*/ R723RAPP R723RW01-R723RW05 R723RWRR R723RWRT R723RWST /* ADDED BY CHANGE 24.092 */ R723RBPM R723RW06-R723RW15 /* ADDED BY CHANGE 25.226 */ RPRTCLAS /* ADDED BY CHANGE 27.089 */ R723RN01-R723RN15 /* ADDED BY CHANGE 29.239 */ SHIFT SMFTIME ZDATE % MACRO _BTY72DL SYSPLEX SYSTEM SYSNAME STARTIME GMTOFF72 SRVCLASS PERIOD R723RTYP RPRTCLAS R723RFLG % MACRO _LTY72DL &PTY72DL..TYPE72DL % MACRO _WTY72DL &WTY72DL..TYPE72DL % MACRO _KTY72DL % MACRO _ETY72DL %%INCLUDE SOURCLIB(EXTY72DL); /* _WTY72DL OUTPUTS TYPE72DL */ % MACRO _STY72DL PROC SORT NODUP DATA=_WTY72DL OUT=_LTY72DL ; BY _BTY72DL SMFTIME ; %%VMXGDEL(DDDDDD=TY72DL); % MACRO _VTY72GO /*&PTY72GO..TYPE72GO*/ KEEP= /* VARIABLES FROM RMF PRODUCT SECTION */ DURATM GMTOFF72 INTRVSYN MVSLEVEL PARTISHN PRODUCT STARTIME SYNCTIME SYSPLEX VERSNRMF SYSNAME /* VARIABLES FROM WMS SECTION */ CPUCOEFF ERV IOCCOEFF MSOCOEFF OPTNAME R723MCAA R723MCDE SRVCLASS R723MCPG R723MDSP R723MIDD SERVDEFN R723MIDU SERVPLCY R723MPOL RPRTCLAS R723MSCF R723MSUB R723MTDI R723MTPA R723MTVL R723MTVN R723MWDE WKLDNAME SRBCOEFF SU_SEC R723TYPE /* VARIABLES FROM SCS HEADER */ ACTESFTM ACTFRMTM ACTIVETM AVGELPTM BLKSAUIN BLKSESIN CPUSRBTM CPUTCBTM CPUTM CPUHPTTM CPUIIPTM CPURCTTM CPUUNITS HIPPGINS HIPRDMIS IOUNITS MSOUNITS PAGEESIN PCTDLACO PCTDLAPR PCTDLAXM PCTDLCCA PCTDLCDE PCTDLCHS PCTDLHSP PCTDLIDL PCTDLMPL PCTDLPDE PCTDLPQU PCTDLSWI PCTDLTOT PCTDLUNK PCTDLVIO PCTUSCUS PGBKAUIN PGBKESIN PGPAGEIN RESIDTM PGPEXCP DUR R723CEDA R723CIMP R723CPCT PERIOD R723CRCA R723CRGF R723CRTA R723CRTF R723CVAL SERVICE R723CSAC SRBUNITS SSQELAP SWAPSEQ AVGXETTM TRANS TRANSABE TRANSABN TRANSEXC RESPSTD /* ADDED BY MVS/ESA 5.2.2 AND CHANGE 14.085 */ R723CSRS R723CSPA R723CSPE /* VARIABLES FROM RGS SECTION */ R723GGDE R723GGLT R723GGMN R723GGMX RESGROUP R723GMNS R723GMXS /* VARIABLES FROM SERVICE CLASS SECTION */ SERVER /* VARIABLES FROM RTS SECTION */ RTSMAP01-RTSMAP14 RTSTRN01-RTSTRN14 /* VARIABLES FROM SMF HEADER */ SYSTEM SMFTIME CSTORE72 ESTORE72 TSTORE72 MPL72 /*ADD BY CHANGE 12.252*/ VELOCITY /*ADDED BY CHANGE 13.177 */ CPUTYPE CPUVERSN ELAPSTM R723RTYP /* ADDED BY CHANGE 14.051 */ VALDSAMP NRSAMPLE /* ADDED BY CHANGE 14.180 */ PERFINDX /* ADDED BY CHANGE 14.197 */ AVGMEMSZ /* ADDED BY OS/390 RELEASE 3, CHANGE 14.312. */ R723VELI PCTDLIOD PCTDLNDI PCTDLQ PCTDLSHS PCTDLSMP PCTDLSPV PCTDLSSW PCTDLSVI PCTUSIOU PCTUSTOU R723CICT R723CIDT R723CIWT R723CIRC R723CNDI /* ADDED BY CHANGE 15.012 */ SSTORE72 VELOCCPU VELOCIOD /*ADDED BY CHANGE 15.026 */ /* ADDED BY OS/390 2.4 */ PCTDLTDQ PCTEXTSA R723CADT R723CCVT R723CDQT R723CIOT R723CIQT /* ADDED BY CHANGE 16.064 */ RESPAVG EXETTM /* ADDED BY CHANGE 16.154 */ R723CQDT R723CTSA /* ADDED BY CHANGE 16.326 */ PCTMETGO SMF72GIE /* ADDED BY OS/390 R2.9 CHANGE 17.385 */ R723CFEA R723CIEA R723CXEA /* ADDED BY CHANGE 18.134 */ R723PRCP R723PRST R723PRDA /* ADDED BY CHANGE 19.176 - Z/OS 1.2 */ R723CLSC R723HETR R723CAMU R723CAMD R723APU R723APD R723FQD /* ADDED BY CHANGE 20.090 */ MSU72 /* ADDED BY OW56739 CHANGE 20.274*/ R723PLSC /* ADDED BY 22.152, 22.180, 22.221 */ R723NFFI R723RCOD R723RCOU R723ECTC R723IFAD R723IFAU R723IFCU CPUIFATM CPUIFETM IFAUNITS IFEUNITS IFACROSS IFAHONPR R723IFCT R723IFAT /* ADDED BY CHANGE 24.046 */ R723NFFS CPUZIETM CPUZIPTM R723CIFA R723CIFC R723CSUC R723CSUP R723SUCU R723SUPD R723SUPU ZIEUNITS ZIPUNITS /* ADDED BY CHANGE 24.092 */ R723GMLP R723GMSS /* ADDED BY CHANGE 24.092 */ CPUPRMTM CPUCRPTM /* ADDED BY APAR OA18244 CHANGE 25.176 */ ZIPHONPR /* ADDED BY Z/OS 1.11, CHAMGE 28.099 */ CPULKHTM /* ADDED BY CHANGE 28.143 OR OA29530 */ R723NADJ R723CECA /* ADDED BY CHANGE 29.070 */ CPUPDPTM R723RTDM R723RTDC R723RTDT /* ADDED BY CHANGE 29.239 */ SHIFT /* ADDED BY CHANGE 20.090 */ MSUSOFT /* ADDED BY CHANGE 31.099 */ R723HIIO /* ADDED BY CHANGE 32.XXX */ METGOAL /* ADDED BY CHANGE 33.046 */ R723MCF R723MCFS R723MCFI /* ADDED BY CHANGE 33.150 */ PCTDLZIP /* ADDED BY CHANGE 33.150 */ R723TSUCP R723TSUSP R723TSUOCP R723MSUCP R723MSUSP R723MSUOCP R723ASUCP R723ASUSP R723ASUOCP R723BSUCP R723BSUSP R723BSUOCP /* ADDED BY CHANGE 35.093 */ APPLCP APPLAAPCP APPLAAP APPLIIPCP APPLIIP /* ADDED BY CHANGE 35.126 */ R723GMLM R723GGML R723CTETX R723CXETX R723CETSX R723CQDTX R723CADTX R723CCVTX R723CIQTX /* ADDED BY CHANGE 35.285 */ R723CPA_ACTUAL R723CPA_SCALING R723CPA R723CPA_RATIO /* ADDED BY CHANGE 36.125 */ R723CPA_ACTUAL_ZCBP R723CPA_RATIO_ZCBP R723TSUCBP R723TSUCBPCP /* ADDED BY CHANGE 36.253*/ CPUMOBILECP CPUMOBILESP CPUTM_ALL /* ADDED BY CHANGE 37.104*/ CECSER CPCMODEL /* ADDED BY CHANGE 37.171*/ R723GGTI R723GGTN R723GGKY R723MFLG R723GGTF /* ADDED BY CHANGE 38.103*/ BOOSTACTIVE BOOSTCLASS /* ADDED BY CHANGE 39.224*/ RCDENCTRXNUM RCDENCTRXCALLS RCDENCTRXET RCDENCTRXETS ZDATE % MACRO _BTY72GO SYSPLEX SYSTEM SYSNAME STARTIME GMTOFF72 SRVCLASS PERIOD RPRTCLAS % MACRO _LTY72GO &PTY72GO..TYPE72GO % MACRO _WTY72GO &WTY72GO..TYPE72GO % MACRO _KTY72GO % MACRO _ETY72GO %%INCLUDE SOURCLIB(EXTY72GO); /* _WTY72GO OUTPUTS TYPE72GO*/ % MACRO _STY72GO PROC SORT NODUP DATA= _LTY70 OUT= TEMP70 (KEEP=_BTY70 CECSER CPCMODEL); BY _BTY70; PROC SORT NODUP DATA= _WTY72GO OUT= TEMP72GO (DROP=CECSER CPCMODEL); BY _BTY70; DATA NEW72GO; MERGE TEMP72GO (IN=IN72) TEMP70; BY _BTY70; IF IN72; &SSTY72GO; PROC SORT NODUP DATA= NEW72GO OUT= _LTY72GO (LABEL='TY72GO: RMF WLM MODE PERIOD RESOURCES'); BY _BTY72GO SMFTIME; PROC DELETE DATA=TEMP70 TEMP72GO NEW72GO; % MACRO _VTY72TR /*&PTY72TR..TYPE72TR*/ KEEP= /* VARIABLES FROM RMF PRODUCT SECTION */ DURATM GMTOFF72 INTRVSYN MVSLEVEL PARTISHN PRODUCT STARTIME SYNCTIME SYSPLEX VERSNRMF SYSNAME /* VARIABLES FROM WMS SECTION */ CPUCOEFF ERV IOCCOEFF MSOCOEFF OPTNAME R723MCAA R723MCDE SRVCLASS R723MCPG R723MDSP R723MIDD SERVDEFN R723MIDU SERVPLCY R723MPOL RPRTCLAS R723MSCF R723MSUB R723MTDI R723MTPA R723MTVL R723MTVN R723MWDE WKLDNAME SRBCOEFF SU_SEC R723TYPE /* VARIABLES FROM SCS HEADER */ ACTESFTM ACTFRMTM ACTIVETM AVGELPTM BLKSAUIN BLKSESIN CPUSRBTM CPUTCBTM CPUTM CPUHPTTM CPUIIPTM CPURCTTM CPUUNITS HIPPGINS HIPRDMIS IOUNITS MSOUNITS PAGEESIN PCTDLACO PCTDLAPR PCTDLAXM PCTDLCCA PCTDLCDE PCTDLCHS PCTDLHSP PCTDLIDL PCTDLMPL PCTDLPDE PCTDLPQU PCTDLSWI PCTDLTOT PCTDLUNK PCTDLVIO PCTUSCUS PGBKAUIN PGBKESIN PGPAGEIN RESIDTM PGPEXCP DUR R723CEDA R723CIMP R723CPCT PERIOD R723CRCA R723CRGF R723CRTA R723CRTF R723CVAL SERVICE R723CSAC SRBUNITS SSQELAP SWAPSEQ AVGXETTM TRANS TRANSABE TRANSABN TRANSEXC RESPSTD /* ADDED BY MVS/ESA 5.2.2 AND CHANGE 14.085 */ R723CSRS R723CSPA R723CSPE /* VARIABLES FROM RGS SECTION */ R723GGDE R723GGLT R723GGMN R723GGMX RESGROUP R723GMNS R723GMXS /* VARIABLES FROM SERVICE CLASS SECTION */ SERVER /* VARIABLES FROM RTS SECTION */ RTSMAP01-RTSMAP14 RTSTRN01-RTSTRN14 /* VARIABLES FROM SMF HEADER */ SYSTEM SMFTIME CSTORE72 ESTORE72 TSTORE72 MPL72 /*ADD BY CHANGE 12.252*/ VELOCITY /*ADDED BY CHANGE 13.177 */ CPUTYPE CPUVERSN ELAPSTM R723RTYP /* ADDED BY CHANGE 14.051 */ VALDSAMP NRSAMPLE /* ADDED BY CHANGE 14.180 */ PERFINDX /* ADDED BY CHANGE 14.197 */ AVGMEMSZ /* ADDED BY OS/390 RELEASE 3, CHANGE 14.312. */ R723VELI PCTDLIOD PCTDLNDI PCTDLQ PCTDLSHS PCTDLSMP PCTDLSPV PCTDLSSW PCTDLSVI PCTUSIOU PCTUSTOU R723CICT R723CIDT R723CIWT R723CIRC R723CNDI /* ADDED BY CHANGE 15.012 */ SSTORE72 VELOCCPU VELOCIOD /*ADDED BY CHANGE 15.026 */ /* ADDED BY OS/390 2.4 */ PCTDLTDQ PCTEXTSA R723CADT R723CCVT R723CDQT R723CIOT R723CIQT /* ADDED BY CHANGE 16.064 */ RESPAVG EXETTM /* ADDED BY CHANGE 16.154 */ R723CQDT R723CTSA /* ADDED BY CHANGE 16.326 */ PCTMETGO SMF72GIE /* ADDED BY OS/390 R2.9 CHANGE 17.385 */ R723CFEA R723CIEA R723CXEA /* ADDED BY CHANGE 18.134 */ R723PRCP R723PRST R723PRDA /* ADDED BY CHANGE 19.176 - Z/OS 1.2 */ R723CLSC R723HETR R723CAMU R723CAMD R723APU R723APD R723FQD /* ADDED BY CHANGE 20.090 */ MSU72 /* ADDED BY OW56739 CHANGE 20.274*/ R723PLSC /* ADDED BY 22.152, 22.180, 22.221 */ R723NFFI R723RCOD R723RCOU R723ECTC R723IFAD R723IFAU R723IFCU CPUIFATM CPUIFETM IFAUNITS IFEUNITS IFACROSS IFAHONPR R723IFCT R723IFAT /* ADDED BY CHANGE 24.046 */ R723NFFS CPUZIETM CPUZIPTM R723CIFA R723CIFC R723CSUC R723CSUP R723SUCU R723SUPD R723SUPU ZIEUNITS ZIPUNITS /* ADDED BY CHANGE 24.092 */ R723GMLP R723GMSS /* ADDED BY CHANGE 24.092 */ CPUPRMTM CPUCRPTM /* ADDED BY APAR OA18244 CHANGE 25.176 */ ZIPHONPR /* ADDED BY Z/OS 1.11, CHAMGE 28.099 */ CPULKHTM /* ADDED BY CHANGE 28.143 OR OA29530 */ R723NADJ R723CECA /* ADDED BY CHANGE 29.070 */ CPUPDPTM R723RTDM R723RTDC R723RTDT /* ADDED BY CHANGE 29.239 */ SHIFT /* ADDED BY CHANGE 20.090 */ MSUSOFT /* ADDED BY CHANGE 31.099 */ R723HIIO /* ADDED BY CHANGE 32.XXX */ METGOAL /* ADDED BY CHANGE 33.046 */ R723MCF R723MCFS R723MCFI /* ADDED BY CHANGE 33.150 */ PCTDLZIP /* ADDED BY CHANGE 33.150 */ R723TSUCP R723TSUSP R723TSUOCP R723MSUCP R723MSUSP R723MSUOCP R723ASUCP R723ASUSP R723ASUOCP R723BSUCP R723BSUSP R723BSUOCP /* ADDED BY CHANGE 35.093 */ APPLCP APPLAAPCP APPLAAP APPLIIPCP APPLIIP /* ADDED BY CHANGE 35.126 */ R723GMLM R723GGML R723CTETX R723CXETX R723CETSX R723CQDTX R723CADTX R723CCVTX R723CIQTX /* ADDED BY CHANGE 35.285 */ R723CPA_ACTUAL R723CPA_SCALING R723CPA R723CPA_RATIO R723GGTF R723GGTI R723GGTN R723GGKY /* ADDED BY CHANGE 36.125 */ R723CPA_ACTUAL_ZCBP R723CPA_RATIO_ZCBP R723TSUCBP R723TSUCBPCP /* ADDED BY CHANGE 36.253*/ CPUMOBILECP CPUMOBILESP CPUTM_ALL /* ADDED BY CHANGE 38.211*/ R723GMLT R723GMLZ /* ADDED BY CHANGE 39.224*/ RCDENCTRXNUM RCDENCTRXCALLS RCDENCTRXET RCDENCTRXETS ZDATE % MACRO _BTY72TR SYSPLEX SYSTEM SYSNAME STARTIME GMTOFF72 SRVCLASS PERIOD RPRTCLAS % MACRO _LTY72TR &PTY72TR..TYPE72TR % MACRO _WTY72TR &WTY72TR..TYPE72TR % MACRO _KTY72TR % MACRO _ETY72TR %%INCLUDE SOURCLIB(EXTY72TR); /* _WTY72TR OUTPUTS TYPE72TR*/ % MACRO _STY72TR PROC SORT NODUP DATA= _WTY72TR OUT= _LTY72TR ; BY _BTY72TR SMFTIME; %%VMXGDEL(DDDDDD=TY72TR); % MACRO _VTY7204 /*&PTY7204..TYPE7204 */ KEEP=AVGELPTM DURATM INTRVSYN PERIOD GMTOFF72 R724ACTF R724ACTS R724ACTV R724DDEV R724DENQ R724DHSM R724DIV R724DIVS R724DJES R724DMNT R724DMSG R724DPRO R724DSTO R724DXCF R724ESCT R724FIX R724IDLE R724IDLS R724LSCF R724LSCT R724LSEF R724LSSA R724OUTR R724PAGE R724PGIN SERVPLCY R724PSCT R724PSEF R724PSSA R724PTM R724QT R724SLOT R724SWAP R724UDEV R724UNKN R724UPRO R724USER R724VALD R724VECT R724OR1 -R724OR18 TRANS SMFTIME SRVCLASS SYSPLEX SYSTEM SYSNAME STARTIME SYNCTIME /* ADDED BY ESA 5.2, CHANGE 14.158 */ R724GPI R724TSV R724VIN R724VLC /* ADDED BY CHANGE 18.008. */ NRSAMPLE /* ADDED BY 19.045*/ VERSNRMF /* ADDED BY CHANGE 29.239 */ SHIFT /* ADDED BY CHANGE 35.126 */ R724ETX R724QTX R724OR7A ZDATE % MACRO _BTY7204 SYSPLEX SYSTEM SYSNAME STARTIME GMTOFF72 SRVCLASS PERIOD % MACRO _LTY7204 &PTY7204..TYPE7204 % MACRO _WTY7204 &WTY7204..TYPE7204 % MACRO _KTY7204 % MACRO _ETY7204 %%INCLUDE SOURCLIB(EXTY7204); /* _WTY7204 OUTPUTS TYPE7204 */ % MACRO _STY7204 PROC SORT NODUP DATA= _WTY7204 OUT= _LTY7204 ; BY _BTY7204 SMFTIME; %%VMXGDEL(DDDDDD=TY7204); % MACRO _VTY72MN /*&PTY72MN..TYPE72MN */ KEEP=AVGACTS AVGACTV AVGDIVS AVGIDLS AVGOUTR AVGPAGDL AVGSWPDL AVGUSER GMTOFF72 DOMAIN DURATM FRAMEACT FRAMEASM FRAMEDIV FRAMEFIX FRAMEIDL IPSNAME NRDSNEXT NRDSTOT NRSAMPLE NRSMALRC PARTISHN PERFGRP PGINRATE SMFTIME STARTIME SYSTEM SYSPLEX SYSNAME VERSNRMF WSETACT WSETASM WSETDIV WSETFIX WSETIDL /* ADDED BY MVS/ESA 4.3 */ SYNCTIME INTRVSYN AVGELPTM AVGQUETM CPUVECTM LOGCSTOR LOGESTOR LONGESTO LONGLGSW LONGPHYS LSWSAMPS PCTDLDEV PCTDLENQ PCTDLHSM PCTDLJES PCTDLMNT PCTDLMSG PCTDLPRO PCTDLSTO PCTDLXCF PCTUNKN PCTUSDEV PCTUSPRO PHYESTOR PSWSAMPS SWAPDLAS SWAPDLAW SWAPDLDW SWAPDLEX SWAPDLIC SWAPDLIP SWAPDLMR SWAPDLNQ SWAPDLNS SWAPDLRS SWAPDLTI SWAPDLTO SWAPDLUS SWAPDLVR SWAPDLWT TRANS VALDSAMP /* ADDED BY ESA 5.2, CHANGE 14.158 */ R722GPI R722TSV R722VIN R722VLC /* ADDED BY CHANGE 29.239 */ SHIFT ZDATE % MACRO _BTY72MN SYSPLEX SYSTEM SYSNAME STARTIME GMTOFF72 PERFGRP % MACRO _LTY72MN &PTY72MN..TYPE72MN % MACRO _WTY72MN &WTY72MN..TYPE72MN % MACRO _KTY72MN % MACRO _ETY72MN %%INCLUDE SOURCLIB(EXTY72MN); /* _WTY72MN OUTPUTS TYPE72MN*/ % MACRO _STY72MN PROC SORT NODUP DATA= _WTY72MN OUT= _LTY72MN ; BY _BTY72MN SMFTIME ; %%VMXGDEL(DDDDDD=TY72MN); % MACRO _VTY72PD /*&PTY72PD..TYPE72PD */ KEEP=CPUCOEFF CYCLE DUR DURATM ERV GMTOFF72 IOCCOEFF MSOCOEFF MVSLEVEL R723MCDE R723MDSP R723MIDD R723MIDU R723MTDI RMFSRCL RPRTCLAS SERVDEFN SERVPLCY SHIFT SMFTIME SRBCOEFF SRVCLASS STARTIME SYSNAME PERIOD R723CPCT R723CIMP R723CVAL R723CRGF R723PLSC /* ADDED BY CHANGE 34.129 */ R723MCPG SYSPLEX SYSTEM TYPEIOML VERSNRMF ZDATE % MACRO _BTY72PD SYSPLEX SYSTEM SYSNAME STARTIME GMTOFF72 RPRTCLAS SRVCLASS SERVPLCY SERVDEFN PERIOD % MACRO _LTY72PD &PTY72PD..TYPE72PD % MACRO _WTY72PD &WTY72PD..TYPE72PD % MACRO _KTY72PD % MACRO _ETY72PD %%INCLUDE SOURCLIB(EXTY72PD); /* _WTY72PD OUTPUTS TYPE72PD*/ % MACRO _STY72PD PROC SORT NODUP DATA= _WTY72PD OUT= _LTY72PD ; BY _BTY72PD SMFTIME ; %%VMXGDEL(DDDDDD=TY72PD); % MACRO _VTY72SC /*&PTY72SC..TYPE72SC */ KEEP=/* VARIABLES FROM RMF PRODUCT SECTION */ DURATM GMTOFF72 INTRVSYN MVSLEVEL PARTISHN PRODUCT STARTIME /* VARIABLES FROM WMS SECTION */ SRVCLASS SERVPLCY /* VARIABLES FROM SERVICE CLASS SERVED SECTION */ R723SCSN R723SCSR /* ADDED BY 19.045*/ VERSNRMF /* ADDED BY CHANGE 29.239 */ SHIFT /* VARIABLES FROM SMF HEADER */ SYSTEM SMFTIME SYSPLEX SYSNAME ZDATE % MACRO _BTY72SC SYSPLEX SYSTEM SYSNAME STARTIME GMTOFF72 SRVCLASS R723SCSN R723SCSR % MACRO _LTY72SC &PTY72SC..TYPE72SC % MACRO _WTY72SC &WTY72SC..TYPE72SC % MACRO _KTY72SC % MACRO _ETY72SC %%INCLUDE SOURCLIB(EXTY72SC); /* _WTY72SC OUTPUTS TYPE72SC*/ % MACRO _STY72SC PROC SORT NODUP DATA= _WTY72SC OUT= _LTY72SC ; BY _BTY72SC SMFTIME; %%VMXGDEL(DDDDDD=TY72SC); % MACRO _VTY725A /*&PTY725A..TYPE725A */ KEEP=SMFTIME SYSPLEX SYSTEM SYSNAME STARTIME SYNCTIME DURATM R725SCLA R725SCLS R725SCLT R725SCMA R725SCMS R725SCMT R725SEDA R725SEDS R725SEDT R725SGMO R725SLAA R725SLAS R725SLAT R725SLOA R725SLOS R725SLOT R725SLR1 R725SLR2 R725SLRS R725SLRT R725SSMA R725SSMS R725SSMT R725SSS1 R725SSS2 R725SSSR R725SSSS R725SSST R725SST1 R725SST2 R725SSTR R725SSTS R725SSTT R725SSY1 R725SSY2 R725SSYR R725SSYS R725SSYT /* ADDED BY CHANGE 29.239 */ SHIFT ZDATE % MACRO _BTY725A SYSPLEX SYSTEM SYSNAME STARTIME % MACRO _LTY725A &PTY725A..TYPE725A % MACRO _WTY725A &WTY725A..TYPE725A % MACRO _KTY725A % MACRO _ETY725A %%INCLUDE SOURCLIB(EXTY725A); /* _WTY725A OUTPUTS TYPE725A */ % MACRO _STY725A PROC SORT NODUP DATA= _WTY725A OUT= _LTY725A ; BY _BTY725A SMFTIME; %%VMXGDEL(DDDDDD=TY725A); % MACRO _VTY725B /*&PTY725B..TYPE725B */ KEEP=SMFTIME SYSPLEX SYSTEM SYSNAME STARTIME SYNCTIME DURATM R725CMAL R725CMAS R725CMJN R725CMSN R725CMSP R725CMST R725CMSU R725CMTI R725CMTY /* ADDED BY CHANGE 29.239 */ SHIFT ZDATE % MACRO _BTY725B SYSPLEX SYSTEM SYSNAME R725CMJN R725CMAS R725CMSP R725CMSN R725CMSU R725CMTI STARTIME % MACRO _LTY725B &PTY725B..TYPE725B % MACRO _WTY725B &WTY725B..TYPE725B % MACRO _KTY725B % MACRO _ETY725B %%INCLUDE SOURCLIB(EXTY725B); /* _WTY725B OUTPUTS TYPE725B */ % MACRO _STY725B PROC SORT NODUP DATA= _WTY725B OUT= _LTY725B ; BY _BTY725B SMFTIME; %%VMXGDEL(DDDDDD=TY725B); % MACRO _VTY725C /*&PTY725C..TYPE725C */ KEEP=SMFTIME SYSPLEX SYSTEM SYSNAME STARTIME SYNCTIME DURATM R725CMAL R725CMAS R725CMJN R725CMSN R725CMSP R725CMST R725CMSU R725CMTI R725CMTY /* ADDED BY CHANGE 29.239 */ SHIFT ZDATE % MACRO _BTY725C SYSPLEX SYSTEM SYSNAME R725CMJN R725CMAS R725CMSP R725CMSN R725CMSU R725CMTI STARTIME % MACRO _LTY725C &PTY725C..TYPE725C % MACRO _WTY725C &WTY725C..TYPE725C % MACRO _KTY725C % MACRO _ETY725C %%INCLUDE SOURCLIB(EXTY725C); /* _WTY725C OUTPUTS TYPE725C */ % MACRO _STY725C PROC SORT NODUP DATA= _WTY725C OUT= _LTY725C ; BY _BTY725C SMFTIME; %%VMXGDEL(DDDDDD=TY725C); % MACRO _VTY725D /*&PTY725D..TYPE725D */ KEEP=SMFTIME SYSPLEX SYSTEM SYSNAME STARTIME SYNCTIME DURATM R725CMAL R725CMAS R725CMJN R725CMSN R725CMSP R725CMST R725CMSU R725CMTI R725CMTY /* ADDED BY CHANGE 29.239 */ SHIFT ZDATE % MACRO _BTY725D SYSPLEX SYSTEM SYSNAME R725CMJN R725CMAS R725CMSP R725CMSN R725CMSU R725CMTI STARTIME % MACRO _LTY725D &PTY725D..TYPE725D % MACRO _WTY725D &WTY725D..TYPE725D % MACRO _KTY725D % MACRO _ETY725D %%INCLUDE SOURCLIB(EXTY725D); /* _WTY725D OUTPUTS TYPE725D */ % MACRO _STY725D PROC SORT NODUP DATA= _WTY725D OUT= _LTY725D ; BY _BTY725D SMFTIME; %%VMXGDEL(DDDDDD=TY725D); % MACRO _VTY725E /*&PTY725E..TYPE725E */ KEEP=SMFTIME SYSPLEX SYSTEM SYSNAME STARTIME SYNCTIME DURATM R725CMAL R725CMAS R725CMJN R725CMSN R725CMSP R725CMST R725CMSU R725CMTI R725CMTY /* ADDED BY CHANGE 29.239 */ SHIFT ZDATE % MACRO _BTY725E SYSPLEX SYSTEM SYSNAME R725CMJN R725CMAS R725CMSP R725CMSN R725CMSU R725CMTI STARTIME % MACRO _LTY725E &PTY725E..TYPE725E % MACRO _WTY725E &WTY725E..TYPE725E % MACRO _KTY725E % MACRO _ETY725E %%INCLUDE SOURCLIB(EXTY725E); /* _WTY725E OUTPUTS TYPE725E */ % MACRO _STY725E PROC SORT NODUP DATA= _WTY725E OUT= _LTY725E ; BY _BTY725E SMFTIME; %%VMXGDEL(DDDDDD=TY725E); % MACRO _VTY725F /*&PTY725F..TYPE725F */ KEEP=SMFTIME SYSPLEX SYSTEM SYSNAME STARTIME SYNCTIME DURATM R725LCAL R725LCSU R725LCTI R725LOAL R725LOAS R725LOJN R725LOSN R725LOSP R725LOST R725LOSU R725LOTI /* ADDED BY CHANGE 29.239 */ SHIFT ZDATE % MACRO _BTY725F SYSPLEX SYSTEM SYSNAME R725LOJN R725LOAS R725LOSP R725LOSN STARTIME % MACRO _LTY725F &PTY725F..TYPE725F % MACRO _WTY725F &WTY725F..TYPE725F % MACRO _KTY725F % MACRO _ETY725F %%INCLUDE SOURCLIB(EXTY725F); /* _WTY725F OUTPUTS TYPE725F */ % MACRO _STY725F PROC SORT NODUP DATA= _WTY725F OUT= _LTY725F ; BY _BTY725F SMFTIME; %%VMXGDEL(DDDDDD=TY725F); % MACRO _VTY725G /*&PTY725G..TYPE725G */ KEEP=SMFTIME SYSPLEX SYSTEM SYSNAME STARTIME SYNCTIME DURATM R725CLAL R725CLSU R725CLTI R725COAL R725COAS R725COJN R725COSN R725COSP R725COST R725COSU R725COTI /* ADDED BY CHANGE 29.239 */ SHIFT ZDATE % MACRO _BTY725G SYSPLEX SYSTEM SYSNAME R725COJN R725COAS R725COSP R725COSN STARTIME % MACRO _LTY725G &PTY725G..TYPE725G % MACRO _WTY725G &WTY725G..TYPE725G % MACRO _KTY725G % MACRO _ETY725G %%INCLUDE SOURCLIB(EXTY725G); /* _WTY725G OUTPUTS TYPE725G */ % MACRO _STY725G PROC SORT NODUP DATA= _WTY725G OUT= _LTY725G ; BY _BTY725G SMFTIME; %%VMXGDEL(DDDDDD=TY725G); % MACRO _VTY725H /*&PTY725H..TYPE725H */ KEEP=SMFTIME SYSPLEX SYSTEM SYSNAME STARTIME SYNCTIME DURATM R725CRJN R725CRSP R725CRAS R725CRST R725CRSN R725CRSU R725CRAL R725CRTI /* ADDED BY CHANGE 29.239 */ SHIFT ZDATE % MACRO _BTY725H SYSPLEX SYSTEM SYSNAME R725CRJN R725CRAS R725CRSP R725CRSN STARTIME % MACRO _LTY725H &PTY725H..TYPE725H % MACRO _WTY725H &WTY725H..TYPE725H % MACRO _KTY725H % MACRO _ETY725H %%INCLUDE SOURCLIB(EXTY725H); /* _WTY725H OUTPUTS TYPE725H */ % MACRO _STY725H PROC SORT NODUP DATA= _WTY725H OUT= _LTY725H ; BY _BTY725H SMFTIME; %%VMXGDEL(DDDDDD=TY725H); % MACRO _VTY725I /*&PTY725I..TYPE725I */ KEEP=SMFTIME SYSPLEX SYSTEM SYSNAME STARTIME SYNCTIME DURATM R725LAJN R725LASP R725LAAS R725LAST R725LASN R725LATY R725LASU R725LATI R725LASQ /* ADDED BY CHANGE 29.239 */ SHIFT ZDATE % MACRO _BTY725I SYSPLEX SYSTEM SYSNAME R725LAJN R725LAAS R725LASP R725LASN STARTIME % MACRO _LTY725I &PTY725I..TYPE725I % MACRO _WTY725I &WTY725I..TYPE725I % MACRO _KTY725I % MACRO _ETY725I %%INCLUDE SOURCLIB(EXTY725I); /* _WTY725I OUTPUTS TYPE725I */ % MACRO _STY725I PROC SORT NODUP DATA= _WTY725I OUT= _LTY725I ; BY _BTY725I SMFTIME; %%VMXGDEL(DDDDDD=TY725I); % MACRO _VTY725J /*&PTY725J..TYPE725J */ KEEP=SMFTIME SYSPLEX SYSTEM SYSNAME STARTIME SYNCTIME DURATM R725LAJN R725LASP R725LAAS R725LAST R725LASN R725LATY R725LASU R725LATI R725LASQ /* ADDED BY CHANGE 29.239 */ SHIFT ZDATE % MACRO _BTY725J SYSPLEX SYSTEM SYSNAME R725LAJN R725LAAS R725LASP R725LASN STARTIME % MACRO _LTY725J &PTY725J..TYPE725J % MACRO _WTY725J &WTY725J..TYPE725J % MACRO _KTY725J % MACRO _ETY725J %%INCLUDE SOURCLIB(EXTY725J); /* _WTY725J OUTPUTS TYPE725J */ % MACRO _STY725J PROC SORT NODUP DATA= _WTY725J OUT= _LTY725J ; BY _BTY725J SMFTIME; %%VMXGDEL(DDDDDD=TY725J); % MACRO _VTY725K /*&PTY725K..TYPE725K */ KEEP=SMFTIME SYSPLEX SYSTEM SYSNAME STARTIME SYNCTIME DURATM R725ENAS R725ENJN R725ENSC R725ENSN R725ENSP R725ENSQ R725ENST R725ENSU R725ENTI /* ADDED BY CHANGE 29.239 */ SHIFT ZDATE % MACRO _BTY725K SYSPLEX SYSTEM SYSNAME R725ENJN R725ENAS R725ENSP R725ENSN STARTIME % MACRO _LTY725K &PTY725K..TYPE725K % MACRO _WTY725K &WTY725K..TYPE725K % MACRO _KTY725K % MACRO _ETY725K %%INCLUDE SOURCLIB(EXTY725K); /* _WTY725K OUTPUTS TYPE725K */ % MACRO _STY725K PROC SORT NODUP DATA= _WTY725K OUT= _LTY725K ; BY _BTY725K SMFTIME; %%VMXGDEL(DDDDDD=TY725K); % MACRO _VTY725L /*&PTY725L..TYPE725L */ KEEP=SMFTIME SYSPLEX SYSTEM SYSNAME STARTIME SYNCTIME DURATM R725ENAS R725ENJN R725ENSC R725ENSN R725ENSP R725ENSQ R725ENST R725ENSU R725ENTI /* ADDED BY CHANGE 29.239 */ SHIFT ZDATE % MACRO _BTY725L SYSPLEX SYSTEM SYSNAME R725ENJN R725ENAS R725ENSP R725ENSN STARTIME % MACRO _LTY725L &PTY725L..TYPE725L % MACRO _WTY725L &WTY725L..TYPE725L % MACRO _KTY725L % MACRO _ETY725L %%INCLUDE SOURCLIB(EXTY725L); /* _WTY725L OUTPUTS TYPE725L */ % MACRO _STY725L PROC SORT NODUP DATA= _WTY725L OUT= _LTY725L ; BY _BTY725L SMFTIME; %%VMXGDEL(DDDDDD=TY725L); % MACRO _VTY725M /*&PTY725M..TYPE725M */ KEEP=SMFTIME SYSPLEX SYSTEM SYSNAME STARTIME SYNCTIME DURATM R725ENAS R725ENJN R725ENSC R725ENSN R725ENSP R725ENSQ R725ENST R725ENSU R725ENTI /* ADDED BY CHANGE 29.239 */ SHIFT ZDATE % MACRO _BTY725M SYSPLEX SYSTEM SYSNAME R725ENJN R725ENAS R725ENSP R725ENSN STARTIME % MACRO _LTY725M &PTY725M..TYPE725M % MACRO _WTY725M &WTY725M..TYPE725M % MACRO _KTY725M % MACRO _ETY725M %%INCLUDE SOURCLIB(EXTY725M); /* _WTY725M OUTPUTS TYPE725M */ % MACRO _STY725M PROC SORT NODUP DATA= _WTY725M OUT= _LTY725M ; BY _BTY725M SMFTIME; %%VMXGDEL(DDDDDD=TY725M); % MACRO _VTY725N /*&PTY725N..TYPE725N */ KEEP=SMFTIME SYSPLEX SYSTEM SYSNAME STARTIME SYNCTIME DURATM R725QSJN R725QSSP R725QSAS R725QSST R725QSSN R725QSRC R725QSSC R725QSRR R725QSTI R725QSRQ R725QSTQ SHIFT ZDATE % MACRO _BTY725N SYSPLEX SYSTEM SYSNAME R725QSJN R725QSAS R725QSSP R725QSSN STARTIME % MACRO _LTY725N &PTY725N..TYPE725N % MACRO _WTY725N &WTY725N..TYPE725N % MACRO _KTY725N % MACRO _ETY725N %%INCLUDE SOURCLIB(EXTY725N); /* _WTY725N OUTPUTS TYPE725N */ % MACRO _STY725N PROC SORT NODUP DATA= _WTY725N OUT= _LTY725N ; BY _BTY725N SMFTIME; %%VMXGDEL(DDDDDD=TY725N); % MACRO _N70 MACRO _WTY70 _NULL_ %% MACRO _WTY70PR _NULL_ %% MACRO _WTY70SP _NULL_ %% MACRO _WTY70EC _NULL_ %% MACRO _WTY70TR _NULL_ %% MACRO _WTY70EL _NULL_ %% MACRO _WTY7002 _NULL_ %% MACRO _WTY70X2 _NULL_ %% MACRO _WTY70Y2 _NULL_ %% MACRO _WTY70Y3 _NULL_ %% % MACRO _N72 MACRO _WTY72 _NULL_ %% MACRO _WTY72DL _NULL_ %% MACRO _WTY72GO _NULL_ %% MACRO _WTY72TR _NULL_ %% MACRO _WTY7204 _NULL_ %% MACRO _WTY72MN _NULL_ %% MACRO _WTY72PD _NULL_ %% MACRO _WTY72SC _NULL_ %% MACRO _WTY725A _NULL_ %% MACRO _WTY725B _NULL_ %% MACRO _WTY725C _NULL_ %% MACRO _WTY725D _NULL_ %% MACRO _WTY725E _NULL_ %% MACRO _WTY725F _NULL_ %% MACRO _WTY725G _NULL_ %% MACRO _WTY725H _NULL_ %% MACRO _WTY725I _NULL_ %% MACRO _WTY725J _NULL_ %% MACRO _WTY725K _NULL_ %% MACRO _WTY725L _NULL_ %% MACRO _WTY725M _NULL_ %% MACRO _WTY725N _NULL_ %% % MACRO _N7072 _N70 _N72 % MACRO _S70 _STY70 _STY70TR _STY7002 _STY70X2 _STY70Y2 _STY70Y3 % MACRO _S72 _STY72 _STY72DL _STY72GO _STY72TR _STY7204 _STY72MN _STY72PD _STY72SC _STY725A _STY725B _STY725C _STY725D _STY725E _STY725F _STY725G _STY725H _STY725I _STY725J _STY725K _STY725L _STY725M _STY725N % MACRO _S7072 _S70 _S72 % RUN; /*SEE CHANGE 16.134*/ %INCLUDE SOURCLIB(IMAC7072); &MAC7072; MACRO _VAR7072 _WTY70 /* TYPE70 */ (LABEL='TY70: RMF CPU ACTIVITY' _VTY70 _KTY70 ) _WTY70SP /* TYPE70SP */ (LABEL='TY70SP: CPU DATA SECTION - SPLIT RECORDS' _VTY70 _KTY70 ) _WTY70EC /* TYPE70EC */ (LABEL='TY70EC: CPU PER ENGINE DATA' _VTY70EC _KTY70EC ) _WTY70EL /* TYPE70EL */ (LABEL='TY70EL: CPU PER ENGINE DATA' _VTY70EL _KTY70EL ) _WTY70TR /*&PTY70TR..TYPE70TR */ (LABEL='TY70TR: RMF TENANT RESOURCE GROUP' _VTY70TR _KTY70TR ) _WTY70PR /* TYPE70PR */ (LABEL='TY70PR: RMF PR/SM PARTITION ACTIVITY' _VTY70PR _KTY70PR ) _WTY7002 /* TYPE7002 */ (LABEL='TY7002: RMF PCI CRYPTO COPROCESSOR PCICC' _VTY7002 _KTY7002 ) _WTY70X2 /* TYPE70X2 */ (LABEL='TY70X2: RMF PCI CRYPTO ACCELERATOR PCICA' _VTY70X2 _KTY70X2 ) _WTY70Y2 /* TYPE70Y2 */ (LABEL='TY70Y2: RMF CRYPTO COPROC FACILITY CCF' _VTY70Y2 _KTY70Y2 ) _WTY70Y3 /* TYPE70Y3 */ (LABEL='TY70Y3: RMF CRYPTO PKCS11 COPROCESSOR' _VTY70Y3 _KTY70Y3 ) _WTY72 /* TYPE72 */ (LABEL='TY72: RMF PERF GROUP PERIOD RESOURCES' _VTY72 _KTY72 ) _WTY72DL /* TYPE72DL*/ (LABEL='TY72DL: RMF WLM MODE DELAY STATES' _VTY72DL _KTY72DL ) _WTY72GO /* TYPE72GO*/ (LABEL='TY72GO: RMF WLM MODE PERIOD RESOURCES' _VTY72GO _KTY72GO ) _WTY72TR /* TYPE72TR*/ (LABEL='TY72TR: RMF WLM TENANT RESOURCE GROUP' _VTY72TR _KTY72TR ) _WTY72MN /* TYPE72MN */ (LABEL='TY72MN: COMPAT RMF MONITOR II STATS' _VTY72MN _KTY72MN ) _WTY72PD /* TYPE72PD */ (LABEL='TY72PD: RMF WLM POLICY DEFINITIONS' _VTY72PD _KTY72PD ) _WTY72SC /* TYPE72SC */ (LABEL='TY72SC: RMF WLM MODE SERVICE CLASS' _VTY72SC _KTY72SC ) _WTY7204 /* TYPE7204*/ (LABEL='TY7204: RMF WLM MONITOR III' _VTY7204 _KTY7204 ) _WTY725A /* TYPE725A*/ (LABEL='TY725A:RMF III SERIALIZATION DELAY' _VTY725A _KTY725A ) _WTY725B /* TYPE725B*/ (LABEL='TY725B:RMF III CMS LOCK DELAY' _VTY725B _KTY725B ) _WTY725C /* TYPE725C*/ (LABEL='TY725C:RMF III CMS ENQ DEQUE LOCK DELAY' _VTY725C _KTY725C ) _WTY725D /* TYPE725D*/ (LABEL='TY725D:RMF III CMS LATCH LOCK DELAY' _VTY725D _KTY725D ) _WTY725E /* TYPE725E*/ (LABEL='TY725E:RMF III CMS SMF LOCK DELAY' _VTY725E _KTY725E ) _WTY725F /* TYPE725F*/ (LABEL='TY725F:RMF III LOCAL LOCK DELAY' _VTY725F _KTY725F ) _WTY725G /* TYPE725G*/ (LABEL='TY725G:RMF III CML LOCK OWNER DELAY' _VTY725G _KTY725G ) _WTY725H /* TYPE725H*/ (LABEL='TY725H:RMF III CML LOCK REQUESTOR DELAY' _VTY725H _KTY725H ) _WTY725I /* TYPE725I*/ (LABEL='TY725I:RMF III GRS LATCHSET CREATOR DLY' _VTY725I _KTY725I ) _WTY725J /* TYPE725J*/ (LABEL='TY725J:RMF III GRS LATCH REQUESTOR DELAY' _VTY725J _KTY725J ) _WTY725K /* TYPE725K*/ (LABEL='TY725K:RMF III GRS ENQUEUE STEP DELAY' _VTY725K _KTY725K ) _WTY725L /* TYPE725L*/ (LABEL='TY725L:RMF III GRS ENQUEUE SYSTEM DELAY' _VTY725L _KTY725L ) _WTY725M /* TYPE725M*/ (LABEL='TY725M:RMF III GRS ENQUEUE SYSTEMS DELAY' _VTY725M _KTY725M ) _WTY725N /* TYPE725N*/ (LABEL='TY725N: RMF III GRS QSCAB STATS DELAY' _VTY725N _KTY725N ) % /*=============================DATA STEP _CDE7072===================*/ MACRO _CDE7072 IF (ID=70 OR ID=72) AND NOT MVSXA THEN DO; LABEL BOOSTACTIVE='BOOST*ACTIVE*INTERVAL' BOOSTCLASS ='BOOST*CLASS' ACTESFTM='EXPANDED*STORAGE*RESIDENCY' ACTFRMTM='CSTORE+ESTORE*RESIDENCY*TIME' ACTIVETM='TRANSACTION ACTIVE TIME' APPC00 ='PERCENT*WHEN 0*APPC' APPC01 ='PERCENT*WHEN 1-2*APPC' APPC02 ='PERCENT*WHEN 3-4*APPC' APPC03 ='PERCENT*WHEN 5-6*APPC' APPC04 ='PERCENT*WHEN 7-8*APPC' APPC05 ='PERCENT*WHEN 9-10*APPC' APPC06 ='PERCENT*WHEN 11-15*APPC' APPC07 ='PERCENT*WHEN 16-20*APPC' APPC08 ='PERCENT*WHEN 21-25*APPC' APPC09 ='PERCENT*WHEN 26-30*APPC' APPC10 ='PERCENT*WHEN 31-35*APPC' APPC11 ='PERCENT*WHEN OVER 35*APPC' APPCAVG ='AVERAGE*APPC*ACTIVE' APPCMAX ='MAXIMUM*APPC*ACTIVE' APPCMIN ='MINIMUM*APPC*ACTIVE' APPLAAP ='APPL PCT*OF 1 CPU*CPU TIME*ON ZCBP' APPLAAPCP='APPL PCT*OF 1 CPU*ZCBP ELIG*ON CP' APPLCP ='APPL PCT*OF 1 CPU*CPU TIME*ON CP' APPLIIP ='APPL PCT*OF 1 CPU*CPU TIME*ON ZIIP' APPLIIPCP='APPL PCT*OF 1 CPU*ZIIP ELIG*ON CP' AVCPSCPU='AVG*CP CPUS*IN THIS CEC' AVGACTS ='AVERAGE*ACTIVE*USERS' AVGACTV ='AVG NON-OUTR*ACTIVE*USERS' AVGDIVS ='AVERAGE*DIV*USERS' AVGELPTM='AVG ELAPSED*TIME PER*ENDED TRANSACTION' AVGIDLS ='AVERAGE*IDLE*USERS' AVGMEMSZ='AVG WORKING*SET(K) THIS*PERF GRP PERIOD' AVGOUTR ='AVERAGE*OUTR*USERS' AVGPAGDL='AVG USERS*IN PAGING*DELAY' AVGQUETM='AVG JES/APPC*QUEUE TIME*PER ENDED TRANS' AVGSWPDL='AVG USERS*IN SWAPING*DELAY' AVGUSER ='AVERAGE*USERS' AVGXETTM='TRANS*EXECUTION*TIME' AVICFCPU='AVG*ICF CPUS*IN THIS CEC' AVIFACPU='AVG*IFA CPUS*IN THIS CEC' AVIFLCPU='AVG*IFL CPUS*IN THIS CEC' AVZIPCPU='AVG*ZIP CPUS*IN THIS CEC' BATCH00 ='PERCENT*WHEN 0*INITS' BATCH01 ='PERCENT*WHEN 1-2*INITS' BATCH02 ='PERCENT*WHEN 3-4*INITS' BATCH03 ='PERCENT*WHEN 5-6*INITS' BATCH04 ='PERCENT*WHEN 7-8*INITS' BATCH05 ='PERCENT*WHEN 9-10*INITS' BATCH06 ='PERCENT*WHEN 11-15*INITS' BATCH07 ='PERCENT*WHEN 16-20*INITS' BATCH08 ='PERCENT*WHEN 21-25*INITS' BATCH09 ='PERCENT*WHEN 26-30*INITS' BATCH10 ='PERCENT*WHEN 31-35*INITS' BATCH11 ='PERCENT*WHEN OVER 35*INITS' BATCHAVG='AVERAGE*INITIATORS*ACTIVE' BATCHMAX='MAXIMUM*INITIATORS*ACTIVE' BATCHMIN='MINIMUM*INITIATORS*ACTIVE' BLKSAUIN='BLOCKS*PAGED IN*FROM AUX' BLKSESIN='BLOCKS*PAGED IN*FROM ESTORE' CAI ='ON-LINE*STATUS*CPU 0' CAI0 ='ON-LINE*STATUS*CPU 0' CAI1 ='ON-LINE*STATUS*CPU 1' CAI2 ='ON-LINE*STATUS*CPU 2' CAI3 ='ON-LINE*STATUS*CPU 3' CAI4 ='ON-LINE*STATUS*CPU 4' CAI5 ='ON-LINE*STATUS*CPU 5' CAI6 ='ON-LINE*STATUS*CPU 6' CAI7 ='ON-LINE*STATUS*CPU 7' CAI8 ='ON-LINE*STATUS*CPU 8' CAI9 ='ON-LINE*STATUS*CPU 9' CAIA ='ON-LINE*STATUS*CPU 10' CAIB ='ON-LINE*STATUS*CPU 11' CAIC ='ON-LINE*STATUS*CPU 12' CAID ='ON-LINE*STATUS*CPU 13' CAIE ='ON-LINE*STATUS*CPU 14' CAIF ='ON-LINE*STATUS*CPU 15' CAIG ='ON-LINE*STATUS*CPU 16' CAIH ='ON-LINE*STATUS*CPU 17' CAII ='ON-LINE*STATUS*CPU 18' CAIJ ='ON-LINE*STATUS*CPU 19' CAIK ='ON-LINE*STATUS*CPU 20' CAIL ='ON-LINE*STATUS*CPU 21' CAIN ='ON-LINE*STATUS*CPU 22' CAIO ='ON-LINE*STATUS*CPU 23' CAIP ='ON-LINE*STATUS*CPU 24' CAIQ ='ON-LINE*STATUS*CPU 25' CAIR ='ON-LINE*STATUS*CPU 26' CAIS ='ON-LINE*STATUS*CPU 27' CAIT ='ON-LINE*STATUS*CPU 28' CAIU ='ON-LINE*STATUS*CPU 29' CAIV ='ON-LINE*STATUS*CPU 30' CAIVA ='ON-LINE*STATUS*CPU 87' CAIVB ='ON-LINE*STATUS*CPU 88' CAIVC ='ON-LINE*STATUS*CPU 89' CAIVD ='ON-LINE*STATUS*CPU 90' CAIVE ='ON-LINE*STATUS*CPU 91' CAIVF ='ON-LINE*STATUS*CPU 92' CAIVG ='ON-LINE*STATUS*CPU 93' CAIVH ='ON-LINE*STATUS*CPU 94' CAIVI ='ON-LINE*STATUS*CPU 95' CAIW ='ON-LINE*STATUS*CPU 31' CAIX ='ON-LINE*STATUS*CPU 32' CAIY ='ON-LINE*STATUS*CPU 33' CAIYA ='ON-LINE*STATUS*CPU 61' CAIYB ='ON-LINE*STATUS*CPU 62' CAIYC ='ON-LINE*STATUS*CPU 63' CAIYD ='ON-LINE*STATUS*CPU 64' CAIYE ='ON-LINE*STATUS*CPU 65' CAIYF ='ON-LINE*STATUS*CPU 66' CAIYG ='ON-LINE*STATUS*CPU 67' CAIYH ='ON-LINE*STATUS*CPU 68' CAIYI ='ON-LINE*STATUS*CPU 69' CAIYJ ='ON-LINE*STATUS*CPU 70' CAIYK ='ON-LINE*STATUS*CPU 71' CAIYL ='ON-LINE*STATUS*CPU 72' CAIYM ='ON-LINE*STATUS*CPU 73' CAIYN ='ON-LINE*STATUS*CPU 74' CAIYO ='ON-LINE*STATUS*CPU 75' CAIYP ='ON-LINE*STATUS*CPU 76' CAIYQ ='ON-LINE*STATUS*CPU 77' CAIYR ='ON-LINE*STATUS*CPU 78' CAIYS ='ON-LINE*STATUS*CPU 79' CAIYT ='ON-LINE*STATUS*CPU 80' CAIYU ='ON-LINE*STATUS*CPU 81' CAIYV ='ON-LINE*STATUS*CPU 82' CAIYW ='ON-LINE*STATUS*CPU 83' CAIYX ='ON-LINE*STATUS*CPU 84' CAIYY ='ON-LINE*STATUS*CPU 85' CAIYZ ='ON-LINE*STATUS*CPU 86' CAIZ ='ON-LINE*STATUS*CPU 34' CAIZA ='ON-LINE*STATUS*CPU 35' CAIZB ='ON-LINE*STATUS*CPU 36' CAIZC ='ON-LINE*STATUS*CPU 37' CAIZD ='ON-LINE*STATUS*CPU 38' CAIZE ='ON-LINE*STATUS*CPU 39' CAIZF ='ON-LINE*STATUS*CPU 40' CAIZG ='ON-LINE*STATUS*CPU 41' CAIZH ='ON-LINE*STATUS*CPU 42' CAIZI ='ON-LINE*STATUS*CPU 43' CAIZJ ='ON-LINE*STATUS*CPU 44' CAIZK ='ON-LINE*STATUS*CPU 45' CAIZL ='ON-LINE*STATUS*CPU 46' CAIZM ='ON-LINE*STATUS*CPU 47' CAIZN ='ON-LINE*STATUS*CPU 48' CAIZO ='ON-LINE*STATUS*CPU 49' CAIZP ='ON-LINE*STATUS*CPU 50' CAIZQ ='ON-LINE*STATUS*CPU 51' CAIZR ='ON-LINE*STATUS*CPU 52' CAIZS ='ON-LINE*STATUS*CPU 53' CAIZT ='ON-LINE*STATUS*CPU 54' CAIZU ='ON-LINE*STATUS*CPU 55' CAIZV ='ON-LINE*STATUS*CPU 56' CAIZW ='ON-LINE*STATUS*CPU 57' CAIZX ='ON-LINE*STATUS*CPU 58' CAIZY ='ON-LINE*STATUS*CPU 59' CAIZZ ='ON-LINE*STATUS*CPU 60' CAPLIMCH='HARDWARE*GROUP*CAPACITY*LIMIT*CHANGED?' CECSER ='CPU*SERIAL NUMBER*OF THE C E C' CP70ACS ='ACCUMULATED*PROCESSOR*ACTUAL*SHARE CP' CP70BPS ='PROCESSOR*RESOURCE*WEIGHT*FACTOR CP' CPCMODEL='CPC*MODEL*IDENTIFIER' CPUACTTM='CP PROCESSOR*EXECUTING*(ACTIVE) CPU TIME' CPUADJCH='PHYSICAL*CPU*ADJ FACTOR*CHANGED?' CPUBSYTM='CPU*BUSY*TIME' CPUCOEFF='TCB CPU*SERVICE UNIT*COEFFICIENT' CPUCRPTM='CPU TIME*AT PROMOTED*DPRTY*CHRONIC' CPUEDTM0='LCPU 0*EFFECTIVE*DISPATCH*CPU TIME' CPUEDTM1='LCPU 1*EFFECTIVE*DISPATCH*CPU TIME' CPUEDTM2='LCPU 2*EFFECTIVE*DISPATCH*CPU TIME' CPUEDTM3='LCPU 3*EFFECTIVE*DISPATCH*CPU TIME' CPUEDTM4='LCPU 4*EFFECTIVE*DISPATCH*CPU TIME' CPUEDTM5='LCPU 5*EFFECTIVE*DISPATCH*CPU TIME' CPUEDTM6='LCPU 6*EFFECTIVE*DISPATCH*CPU TIME' CPUEDTM7='LCPU 7*EFFECTIVE*DISPATCH*CPU TIME' CPUEDTM8='LCPU 8*EFFECTIVE*DISPATCH*CPU TIME' CPUEDTM9='LCPU 9*EFFECTIVE*DISPATCH*CPU TIME' CPUEDTMA='LCPU 10*EFFECTIVE*DISPATCH*CPU TIME' CPUEDTMB='LCPU 11*EFFECTIVE*DISPATCH*CPU TIME' CPUEDTMC='LCPU 12*EFFECTIVE*DISPATCH*CPU TIME' CPUEDTMD='LCPU 13*EFFECTIVE*DISPATCH*CPU TIME' CPUEDTME='LCPU 14*EFFECTIVE*DISPATCH*CPU TIME' CPUEDTMF='LCPU 15*EFFECTIVE*DISPATCH*CPU TIME' CPUEDTMG='LCPU 16*EFFECTIVE*DISPATCH*CPU TIME' CPUEDTMH='LCPU 17*EFFECTIVE*DISPATCH*CPU TIME' CPUEDTMI='LCPU 18*EFFECTIVE*DISPATCH*CPU TIME' CPUEDTMJ='LCPU 19*EFFECTIVE*DISPATCH*CPU TIME' CPUEDTMK='LCPU 20*EFFECTIVE*DISPATCH*CPU TIME' CPUEDTML='LCPU 21*EFFECTIVE*DISPATCH*CPU TIME' CPUEDTMN='LCPU 22*EFFECTIVE*DISPATCH*CPU TIME' CPUEDTMO='LCPU 23*EFFECTIVE*DISPATCH*CPU TIME' CPUEDTMP='LCPU 24*EFFECTIVE*DISPATCH*CPU TIME' CPUEDTMQ='LCPU 25*EFFECTIVE*DISPATCH*CPU TIME' CPUEDTMR='LCPU 26*EFFECTIVE*DISPATCH*CPU TIME' CPUEDTMS='LCPU 27*EFFECTIVE*DISPATCH*CPU TIME' CPUEDTMT='LCPU 28*EFFECTIVE*DISPATCH*CPU TIME' CPUEDTMU='LCPU 29*EFFECTIVE*DISPATCH*CPU TIME' CPUEDTMV='LCPU 30*EFFECTIVE*DISPATCH*CPU TIME' CPUEDTMW='LCPU 31*EFFECTIVE*DISPATCH*CPU TIME' CPUEDTMX='LCPU 32*EFFECTIVE*DISPATCH*CPU TIME' CPUEDTMY='LCPU 33*EFFECTIVE*DISPATCH*CPU TIME' CPUEDTMZ='LCPU 34*EFFECTIVE*DISPATCH*CPU TIME' CPUEDTVA='LCPU 87*EFFECTIVE*DISPATCH*CPU TIME' CPUEDTVB='LCPU 88*EFFECTIVE*DISPATCH*CPU TIME' CPUEDTVC='LCPU 89*EFFECTIVE*DISPATCH*CPU TIME' CPUEDTVD='LCPU 90*EFFECTIVE*DISPATCH*CPU TIME' CPUEDTVE='LCPU 91*EFFECTIVE*DISPATCH*CPU TIME' CPUEDTVF='LCPU 92*EFFECTIVE*DISPATCH*CPU TIME' CPUEDTVG='LCPU 93*EFFECTIVE*DISPATCH*CPU TIME' CPUEDTVH='LCPU 94*EFFECTIVE*DISPATCH*CPU TIME' CPUEDTVI='LCPU 95*EFFECTIVE*DISPATCH*CPU TIME' CPUEDTYA='LCPU 61*EFFECTIVE*DISPATCH*CPU TIME' CPUEDTYB='LCPU 62*EFFECTIVE*DISPATCH*CPU TIME' CPUEDTYC='LCPU 63*EFFECTIVE*DISPATCH*CPU TIME' CPUEDTYD='LCPU 64*EFFECTIVE*DISPATCH*CPU TIME' CPUEDTYE='LCPU 65*EFFECTIVE*DISPATCH*CPU TIME' CPUEDTYF='LCPU 66*EFFECTIVE*DISPATCH*CPU TIME' CPUEDTYG='LCPU 67*EFFECTIVE*DISPATCH*CPU TIME' CPUEDTYH='LCPU 68*EFFECTIVE*DISPATCH*CPU TIME' CPUEDTYI='LCPU 69*EFFECTIVE*DISPATCH*CPU TIME' CPUEDTYJ='LCPU 70*EFFECTIVE*DISPATCH*CPU TIME' CPUEDTYK='LCPU 71*EFFECTIVE*DISPATCH*CPU TIME' CPUEDTYL='LCPU 72*EFFECTIVE*DISPATCH*CPU TIME' CPUEDTYM='LCPU 73*EFFECTIVE*DISPATCH*CPU TIME' CPUEDTYN='LCPU 74*EFFECTIVE*DISPATCH*CPU TIME' CPUEDTYO='LCPU 75*EFFECTIVE*DISPATCH*CPU TIME' CPUEDTYP='LCPU 76*EFFECTIVE*DISPATCH*CPU TIME' CPUEDTYQ='LCPU 77*EFFECTIVE*DISPATCH*CPU TIME' CPUEDTYR='LCPU 78*EFFECTIVE*DISPATCH*CPU TIME' CPUEDTYS='LCPU 79*EFFECTIVE*DISPATCH*CPU TIME' CPUEDTYT='LCPU 80*EFFECTIVE*DISPATCH*CPU TIME' CPUEDTYU='LCPU 81*EFFECTIVE*DISPATCH*CPU TIME' CPUEDTYV='LCPU 82*EFFECTIVE*DISPATCH*CPU TIME' CPUEDTYW='LCPU 83*EFFECTIVE*DISPATCH*CPU TIME' CPUEDTYX='LCPU 84*EFFECTIVE*DISPATCH*CPU TIME' CPUEDTYY='LCPU 85*EFFECTIVE*DISPATCH*CPU TIME' CPUEDTYZ='LCPU 86*EFFECTIVE*DISPATCH*CPU TIME' CPUEDTZA='LCPU 35*EFFECTIVE*DISPATCH*CPU TIME' CPUEDTZB='LCPU 36*EFFECTIVE*DISPATCH*CPU TIME' CPUEDTZC='LCPU 37*EFFECTIVE*DISPATCH*CPU TIME' CPUEDTZD='LCPU 38*EFFECTIVE*DISPATCH*CPU TIME' CPUEDTZE='LCPU 39*EFFECTIVE*DISPATCH*CPU TIME' CPUEDTZF='LCPU 40*EFFECTIVE*DISPATCH*CPU TIME' CPUEDTZG='LCPU 41*EFFECTIVE*DISPATCH*CPU TIME' CPUEDTZH='LCPU 42*EFFECTIVE*DISPATCH*CPU TIME' CPUEDTZI='LCPU 43*EFFECTIVE*DISPATCH*CPU TIME' CPUEDTZJ='LCPU 44*EFFECTIVE*DISPATCH*CPU TIME' CPUEDTZK='LCPU 45*EFFECTIVE*DISPATCH*CPU TIME' CPUEDTZL='LCPU 46*EFFECTIVE*DISPATCH*CPU TIME' CPUEDTZM='LCPU 47*EFFECTIVE*DISPATCH*CPU TIME' CPUEDTZN='LCPU 48*EFFECTIVE*DISPATCH*CPU TIME' CPUEDTZO='LCPU 49*EFFECTIVE*DISPATCH*CPU TIME' CPUEDTZP='LCPU 50*EFFECTIVE*DISPATCH*CPU TIME' CPUEDTZQ='LCPU 51*EFFECTIVE*DISPATCH*CPU TIME' CPUEDTZR='LCPU 52*EFFECTIVE*DISPATCH*CPU TIME' CPUEDTZS='LCPU 53*EFFECTIVE*DISPATCH*CPU TIME' CPUEDTZT='LCPU 54*EFFECTIVE*DISPATCH*CPU TIME' CPUEDTZU='LCPU 55*EFFECTIVE*DISPATCH*CPU TIME' CPUEDTZV='LCPU 56*EFFECTIVE*DISPATCH*CPU TIME' CPUEDTZW='LCPU 57*EFFECTIVE*DISPATCH*CPU TIME' CPUEDTZX='LCPU 58*EFFECTIVE*DISPATCH*CPU TIME' CPUEDTZY='LCPU 59*EFFECTIVE*DISPATCH*CPU TIME' CPUEDTZZ='LCPU 60*EFFECTIVE*DISPATCH*CPU TIME' CPUEFFTM='TOTAL*LPAR EFFECTIVE*DISPATCH CPU TIME' CPUHPTTM='CP*HIPERSPACE PROCESSING*CPU TIME' CPUID ='CPU*ADDRESS' CPUIFATM='IFA*EQUIVALENT*CPU TIME*ON IFA' CPUIFETM='IFA-ELIGIBLE*CPU TIME*ON CP' CPUIIPTM='CP*I/O*INTERRUPT*CPU TIME' CPULKHTM='CPU TIME*AT PROMOTED*DPRTY*LOCK*HELD' CPUMOBILECP='MOBILE*GP*CPU TIME*NOT IN CPUTM' CPUMOBILESP='MOBILE*SP*CPU TIME' CPUMVSTM='MVS CPU*BUSY*DURATION' CPUPATM0='CPU 0*PARKED*DURATION' CPUPATM1='CPU 1*PARKED*DURATION' CPUPATM2='CPU 2*PARKED*DURATION' CPUPATM3='CPU 3*PARKED*DURATION' CPUPATM4='CPU 4*PARKED*DURATION' CPUPATM5='CPU 5*PARKED*DURATION' CPUPATM6='CPU 6*PARKED*DURATION' CPUPATM7='CPU 7*PARKED*DURATION' CPUPATM8='CPU 8*PARKED*DURATION' CPUPATM9='CPU 9*PARKED*DURATION' CPUPATMA='CPU 10*PARKED*DURATION' CPUPATMB='CPU 11*PARKED*DURATION' CPUPATMC='CPU 12*PARKED*DURATION' CPUPATMD='CPU 13*PARKED*DURATION' CPUPATME='CPU 14*PARKED*DURATION' CPUPATMF='CPU 15*PARKED*DURATION' CPUPATMG='CPU 16*PARKED*DURATION' CPUPATMH='CPU 17*PARKED*DURATION' CPUPATMI='CPU 18*PARKED*DURATION' CPUPATMJ='CPU 19*PARKED*DURATION' CPUPATMK='CPU 20*PARKED*DURATION' CPUPATML='CPU 21*PARKED*DURATION' CPUPATMN='CPU 22*PARKED*DURATION' CPUPATMO='CPU 23*PARKED*DURATION' CPUPATMP='CPU 24*PARKED*DURATION' CPUPATMQ='CPU 25*PARKED*DURATION' CPUPATMR='CPU 26*PARKED*DURATION' CPUPATMS='CPU 27*PARKED*DURATION' CPUPATMT='CPU 28*PARKED*DURATION' CPUPATMU='CPU 29*PARKED*DURATION' CPUPATMV='CPU 30*PARKED*DURATION' CPUPATMW='CPU 31*PARKED*DURATION' CPUPATMX='CPU 32*PARKED*DURATION' CPUPATMY='CPU 33*PARKED*DURATION' CPUPATMZ='CPU 34*PARKED*DURATION' CPUPATTM='TOTAL*PARKED*DURATION*ALL CPUS' CPUPATVA='CPU 87*PARKED*DURATION' CPUPATVB='CPU 88*PARKED*DURATION' CPUPATVC='CPU 89*PARKED*DURATION' CPUPATVD='CPU 90*PARKED*DURATION' CPUPATVE='CPU 91*PARKED*DURATION' CPUPATVF='CPU 92*PARKED*DURATION' CPUPATVG='CPU 93*PARKED*DURATION' CPUPATVH='CPU 94*PARKED*DURATION' CPUPATVI='CPU 95*PARKED*DURATION' CPUPATYA='CPU 61*PARKED*DURATION' CPUPATYB='CPU 62*PARKED*DURATION' CPUPATYC='CPU 63*PARKED*DURATION' CPUPATYD='CPU 64*PARKED*DURATION' CPUPATYE='CPU 65*PARKED*DURATION' CPUPATYF='CPU 66*PARKED*DURATION' CPUPATYG='CPU 67*PARKED*DURATION' CPUPATYH='CPU 68*PARKED*DURATION' CPUPATYI='CPU 69*PARKED*DURATION' CPUPATYJ='CPU 70*PARKED*DURATION' CPUPATYK='CPU 71*PARKED*DURATION' CPUPATYL='CPU 72*PARKED*DURATION' CPUPATYM='CPU 73*PARKED*DURATION' CPUPATYN='CPU 74*PARKED*DURATION' CPUPATYO='CPU 75*PARKED*DURATION' CPUPATYP='CPU 76*PARKED*DURATION' CPUPATYQ='CPU 77*PARKED*DURATION' CPUPATYR='CPU 78*PARKED*DURATION' CPUPATYS='CPU 79*PARKED*DURATION' CPUPATYT='CPU 80*PARKED*DURATION' CPUPATYU='CPU 81*PARKED*DURATION' CPUPATYV='CPU 82*PARKED*DURATION' CPUPATYW='CPU 83*PARKED*DURATION' CPUPATYX='CPU 84*PARKED*DURATION' CPUPATYY='CPU 85*PARKED*DURATION' CPUPATYZ='CPU 86*PARKED*DURATION' CPUPATZA='CPU 35*PARKED*DURATION' CPUPATZB='CPU 36*PARKED*DURATION' CPUPATZC='CPU 37*PARKED*DURATION' CPUPATZD='CPU 38*PARKED*DURATION' CPUPATZE='CPU 39*PARKED*DURATION' CPUPATZF='CPU 40*PARKED*DURATION' CPUPATZG='CPU 41*PARKED*DURATION' CPUPATZH='CPU 42*PARKED*DURATION' CPUPATZI='CPU 43*PARKED*DURATION' CPUPATZJ='CPU 44*PARKED*DURATION' CPUPATZK='CPU 45*PARKED*DURATION' CPUPATZL='CPU 46*PARKED*DURATION' CPUPATZM='CPU 47*PARKED*DURATION' CPUPATZN='CPU 48*PARKED*DURATION' CPUPATZO='CPU 49*PARKED*DURATION' CPUPATZP='CPU 50*PARKED*DURATION' CPUPATZQ='CPU 51*PARKED*DURATION' CPUPATZR='CPU 52*PARKED*DURATION' CPUPATZS='CPU 53*PARKED*DURATION' CPUPATZT='CPU 54*PARKED*DURATION' CPUPATZU='CPU 55*PARKED*DURATION' CPUPATZV='CPU 56*PARKED*DURATION' CPUPATZW='CPU 57*PARKED*DURATION' CPUPATZX='CPU 58*PARKED*DURATION' CPUPATZY='CPU 59*PARKED*DURATION' CPUPATZZ='CPU 60*PARKED*DURATION' CPUPDPTM='CPU TIME*AT PROMOTED*DPRTY*SUPERVISOR' CPUPDTM0='LCPU 0*PARTITION*DISPATCH*CPU TIME' CPUPDTM1='LCPU 1*PARTITION*DISPATCH*CPU TIME' CPUPDTM2='LCPU 2*PARTITION*DISPATCH*CPU TIME' CPUPDTM3='LCPU 3*PARTITION*DISPATCH*CPU TIME' CPUPDTM4='LCPU 4*PARTITION*DISPATCH*CPU TIME' CPUPDTM5='LCPU 5*PARTITION*DISPATCH*CPU TIME' CPUPDTM6='LCPU 6*PARTITION*DISPATCH*CPU TIME' CPUPDTM7='LCPU 7*PARTITION*DISPATCH*CPU TIME' CPUPDTM8='LCPU 8*PARTITION*DISPATCH*CPU TIME' CPUPDTM9='LCPU 9*PARTITION*DISPATCH*CPU TIME' CPUPDTMA='LCPU 10*PARTITION*DISPATCH*CPU TIME' CPUPDTMB='LCPU 11*PARTITION*DISPATCH*CPU TIME' CPUPDTMC='LCPU 12*PARTITION*DISPATCH*CPU TIME' CPUPDTMD='LCPU 13*PARTITION*DISPATCH*CPU TIME' CPUPDTME='LCPU 14*PARTITION*DISPATCH*CPU TIME' CPUPDTMF='LCPU 15*PARTITION*DISPATCH*CPU TIME' CPUPDTMG='LCPU 16*PARTITION*DISPATCH*CPU TIME' CPUPDTMH='LCPU 17*PARTITION*DISPATCH*CPU TIME' CPUPDTMI='LCPU 18*PARTITION*DISPATCH*CPU TIME' CPUPDTMJ='LCPU 19*PARTITION*DISPATCH*CPU TIME' CPUPDTMK='LCPU 20*PARTITION*DISPATCH*CPU TIME' CPUPDTML='LCPU 21*PARTITION*DISPATCH*CPU TIME' CPUPDTMN='LCPU 22*PARTITION*DISPATCH*CPU TIME' CPUPDTMO='LCPU 23*PARTITION*DISPATCH*CPU TIME' CPUPDTMP='LCPU 24*PARTITION*DISPATCH*CPU TIME' CPUPDTMQ='LCPU 25*PARTITION*DISPATCH*CPU TIME' CPUPDTMR='LCPU 26*PARTITION*DISPATCH*CPU TIME' CPUPDTMS='LCPU 27*PARTITION*DISPATCH*CPU TIME' CPUPDTMT='LCPU 28*PARTITION*DISPATCH*CPU TIME' CPUPDTMU='LCPU 29*PARTITION*DISPATCH*CPU TIME' CPUPDTMV='LCPU 30*PARTITION*DISPATCH*CPU TIME' CPUPDTMW='LCPU 31*PARTITION*DISPATCH*CPU TIME' CPUPDTMX='LCPU 32*PARTITION*DISPATCH*CPU TIME' CPUPDTMY='LCPU 33*PARTITION*DISPATCH*CPU TIME' CPUPDTMZ='LCPU 34*PARTITION*DISPATCH*CPU TIME' CPUPDTTM='TOTAL*LPAR PARTITION*DISPATCH CPU TIME' CPUPDTVA='LCPU 87*PARTITION*DISPATCH*CPU TIME' CPUPDTVB='LCPU 88*PARTITION*DISPATCH*CPU TIME' CPUPDTVC='LCPU 89*PARTITION*DISPATCH*CPU TIME' CPUPDTVD='LCPU 90*PARTITION*DISPATCH*CPU TIME' CPUPDTVE='LCPU 91*PARTITION*DISPATCH*CPU TIME' CPUPDTVF='LCPU 92*PARTITION*DISPATCH*CPU TIME' CPUPDTVG='LCPU 93*PARTITION*DISPATCH*CPU TIME' CPUPDTVH='LCPU 94*PARTITION*DISPATCH*CPU TIME' CPUPDTVI='LCPU 95*PARTITION*DISPATCH*CPU TIME' CPUPDTYA='LCPU 61*PARTITION*DISPATCH*CPU TIME' CPUPDTYB='LCPU 62*PARTITION*DISPATCH*CPU TIME' CPUPDTYC='LCPU 63*PARTITION*DISPATCH*CPU TIME' CPUPDTYD='LCPU 64*PARTITION*DISPATCH*CPU TIME' CPUPDTYE='LCPU 65*PARTITION*DISPATCH*CPU TIME' CPUPDTYF='LCPU 66*PARTITION*DISPATCH*CPU TIME' CPUPDTYG='LCPU 67*PARTITION*DISPATCH*CPU TIME' CPUPDTYH='LCPU 68*PARTITION*DISPATCH*CPU TIME' CPUPDTYI='LCPU 69*PARTITION*DISPATCH*CPU TIME' CPUPDTYJ='LCPU 70*PARTITION*DISPATCH*CPU TIME' CPUPDTYK='LCPU 71*PARTITION*DISPATCH*CPU TIME' CPUPDTYL='LCPU 72*PARTITION*DISPATCH*CPU TIME' CPUPDTYM='LCPU 73*PARTITION*DISPATCH*CPU TIME' CPUPDTYN='LCPU 74*PARTITION*DISPATCH*CPU TIME' CPUPDTYO='LCPU 75*PARTITION*DISPATCH*CPU TIME' CPUPDTYP='LCPU 76*PARTITION*DISPATCH*CPU TIME' CPUPDTYQ='LCPU 77*PARTITION*DISPATCH*CPU TIME' CPUPDTYR='LCPU 78*PARTITION*DISPATCH*CPU TIME' CPUPDTYS='LCPU 79*PARTITION*DISPATCH*CPU TIME' CPUPDTYT='LCPU 80*PARTITION*DISPATCH*CPU TIME' CPUPDTYU='LCPU 81*PARTITION*DISPATCH*CPU TIME' CPUPDTYV='LCPU 82*PARTITION*DISPATCH*CPU TIME' CPUPDTYW='LCPU 83*PARTITION*DISPATCH*CPU TIME' CPUPDTYX='LCPU 84*PARTITION*DISPATCH*CPU TIME' CPUPDTYY='LCPU 85*PARTITION*DISPATCH*CPU TIME' CPUPDTYZ='LCPU 86*PARTITION*DISPATCH*CPU TIME' CPUPDTZA='LCPU 35*PARTITION*DISPATCH*CPU TIME' CPUPDTZB='LCPU 36*PARTITION*DISPATCH*CPU TIME' CPUPDTZC='LCPU 37*PARTITION*DISPATCH*CPU TIME' CPUPDTZD='LCPU 38*PARTITION*DISPATCH*CPU TIME' CPUPDTZE='LCPU 39*PARTITION*DISPATCH*CPU TIME' CPUPDTZF='LCPU 40*PARTITION*DISPATCH*CPU TIME' CPUPDTZG='LCPU 41*PARTITION*DISPATCH*CPU TIME' CPUPDTZH='LCPU 42*PARTITION*DISPATCH*CPU TIME' CPUPDTZI='LCPU 43*PARTITION*DISPATCH*CPU TIME' CPUPDTZJ='LCPU 44*PARTITION*DISPATCH*CPU TIME' CPUPDTZK='LCPU 45*PARTITION*DISPATCH*CPU TIME' CPUPDTZL='LCPU 46*PARTITION*DISPATCH*CPU TIME' CPUPDTZM='LCPU 47*PARTITION*DISPATCH*CPU TIME' CPUPDTZN='LCPU 48*PARTITION*DISPATCH*CPU TIME' CPUPDTZO='LCPU 49*PARTITION*DISPATCH*CPU TIME' CPUPDTZP='LCPU 50*PARTITION*DISPATCH*CPU TIME' CPUPDTZQ='LCPU 51*PARTITION*DISPATCH*CPU TIME' CPUPDTZR='LCPU 52*PARTITION*DISPATCH*CPU TIME' CPUPDTZS='LCPU 53*PARTITION*DISPATCH*CPU TIME' CPUPDTZT='LCPU 54*PARTITION*DISPATCH*CPU TIME' CPUPDTZU='LCPU 55*PARTITION*DISPATCH*CPU TIME' CPUPDTZV='LCPU 56*PARTITION*DISPATCH*CPU TIME' CPUPDTZW='LCPU 57*PARTITION*DISPATCH*CPU TIME' CPUPDTZX='LCPU 58*PARTITION*DISPATCH*CPU TIME' CPUPDTZY='LCPU 59*PARTITION*DISPATCH*CPU TIME' CPUPDTZZ='LCPU 60*PARTITION*DISPATCH*CPU TIME' CPUPRMTM='CPU TIME*AT PROMOTED*DPRTY*BLOCKED WORK' CPURCTTM='CP*REGION*CONTROL*CPU TIME' CPURFC ='CPU*RFC*FACTOR' CPUSER0 ='SERIAL*NUMBER*CPU 0' CPUSER1 ='SERIAL*NUMBER*CPU 1' CPUSER2 ='SERIAL*NUMBER*CPU 2' CPUSER3 ='SERIAL*NUMBER*CPU 3' CPUSER4 ='SERIAL*NUMBER*CPU 4' CPUSER5 ='SERIAL*NUMBER*CPU 5' CPUSER6 ='SERIAL*NUMBER*CPU 6' CPUSER7 ='SERIAL*NUMBER*CPU 7' CPUSER8 ='SERIAL*NUMBER*CPU 8' CPUSER9 ='SERIAL*NUMBER*CPU 9' CPUSERA ='SERIAL*NUMBER*CPU 10' CPUSERB ='SERIAL*NUMBER*CPU 11' CPUSERC ='SERIAL*NUMBER*CPU 12' CPUSERD ='SERIAL*NUMBER*CPU 13' CPUSERE ='SERIAL*NUMBER*CPU 14' CPUSERF ='SERIAL*NUMBER*CPU 15' CPUSERG ='SERIAL*NUMBER*CPU 16' CPUSERH ='SERIAL*NUMBER*CPU 17' CPUSERI ='SERIAL*NUMBER*CPU 18' CPUSERJ ='SERIAL*NUMBER*CPU 19' CPUSERK ='SERIAL*NUMBER*CPU 20' CPUSERL ='SERIAL*NUMBER*CPU 21' CPUSERN ='SERIAL*NUMBER*CPU 22' CPUSERO ='SERIAL*NUMBER*CPU 23' CPUSERP ='SERIAL*NUMBER*CPU 24' CPUSERQ ='SERIAL*NUMBER*CPU 25' CPUSERR ='SERIAL*NUMBER*CPU 26' CPUSERS ='SERIAL*NUMBER*CPU 27' CPUSERT ='SERIAL*NUMBER*CPU 28' CPUSERU ='SERIAL*NUMBER*CPU 29' CPUSERV ='SERIAL*NUMBER*CPU 30' CPUSERVA='SERIAL*NUMBER*CPU 87' CPUSERVB='SERIAL*NUMBER*CPU 88' CPUSERVC='SERIAL*NUMBER*CPU 89' CPUSERVD='SERIAL*NUMBER*CPU 90' CPUSERVE='SERIAL*NUMBER*CPU 91' CPUSERVF='SERIAL*NUMBER*CPU 92' CPUSERVG='SERIAL*NUMBER*CPU 93' CPUSERVH='SERIAL*NUMBER*CPU 94' CPUSERVI='SERIAL*NUMBER*CPU 95' CPUSERW ='SERIAL*NUMBER*CPU 31' CPUSERX ='SERIAL*NUMBER*CPU 32' CPUSERY ='SERIAL*NUMBER*CPU 33' CPUSERYA='SERIAL*NUMBER*CPU 61' CPUSERYB='SERIAL*NUMBER*CPU 62' CPUSERYC='SERIAL*NUMBER*CPU 63' CPUSERYD='SERIAL*NUMBER*CPU 64' CPUSERYE='SERIAL*NUMBER*CPU 65' CPUSERYF='SERIAL*NUMBER*CPU 66' CPUSERYG='SERIAL*NUMBER*CPU 67' CPUSERYH='SERIAL*NUMBER*CPU 68' CPUSERYI='SERIAL*NUMBER*CPU 69' CPUSERYJ='SERIAL*NUMBER*CPU 70' CPUSERYK='SERIAL*NUMBER*CPU 71' CPUSERYL='SERIAL*NUMBER*CPU 72' CPUSERYM='SERIAL*NUMBER*CPU 73' CPUSERYN='SERIAL*NUMBER*CPU 74' CPUSERYO='SERIAL*NUMBER*CPU 75' CPUSERYP='SERIAL*NUMBER*CPU 76' CPUSERYQ='SERIAL*NUMBER*CPU 77' CPUSERYR='SERIAL*NUMBER*CPU 78' CPUSERYS='SERIAL*NUMBER*CPU 79' CPUSERYT='SERIAL*NUMBER*CPU 80' CPUSERYU='SERIAL*NUMBER*CPU 81' CPUSERYV='SERIAL*NUMBER*CPU 82' CPUSERYW='SERIAL*NUMBER*CPU 83' CPUSERYX='SERIAL*NUMBER*CPU 84' CPUSERYY='SERIAL*NUMBER*CPU 85' CPUSERYZ='SERIAL*NUMBER*CPU 86' CPUSERZ ='SERIAL*NUMBER*CPU 34' CPUSERZA='SERIAL*NUMBER*CPU 35' CPUSERZB='SERIAL*NUMBER*CPU 36' CPUSERZC='SERIAL*NUMBER*CPU 37' CPUSERZD='SERIAL*NUMBER*CPU 38' CPUSERZE='SERIAL*NUMBER*CPU 39' CPUSERZF='SERIAL*NUMBER*CPU 40' CPUSERZG='SERIAL*NUMBER*CPU 41' CPUSERZH='SERIAL*NUMBER*CPU 42' CPUSERZI='SERIAL*NUMBER*CPU 43' CPUSERZJ='SERIAL*NUMBER*CPU 44' CPUSERZK='SERIAL*NUMBER*CPU 45' CPUSERZL='SERIAL*NUMBER*CPU 46' CPUSERZM='SERIAL*NUMBER*CPU 47' CPUSERZN='SERIAL*NUMBER*CPU 48' CPUSERZO='SERIAL*NUMBER*CPU 49' CPUSERZP='SERIAL*NUMBER*CPU 50' CPUSERZQ='SERIAL*NUMBER*CPU 51' CPUSERZR='SERIAL*NUMBER*CPU 52' CPUSERZS='SERIAL*NUMBER*CPU 53' CPUSERZT='SERIAL*NUMBER*CPU 54' CPUSERZU='SERIAL*NUMBER*CPU 55' CPUSERZV='SERIAL*NUMBER*CPU 56' CPUSERZW='SERIAL*NUMBER*CPU 57' CPUSERZX='SERIAL*NUMBER*CPU 58' CPUSERZY='SERIAL*NUMBER*CPU 59' CPUSERZZ='SERIAL*NUMBER*CPU 60' CPUSRBTM='CP*TASK*CPU SRB*TIME' CPUTCBTM='CP*TASK*CPU TCB*TIME' CPUTM ='TOTAL*CP*CPU TIME*CAPTURED' CPUTM_ALL ='EQUAL*TO*CPUTM' CPUTYPE ='CPU*MODEL*NUMBER' CPUUNITS='CP*CPU TCB*SERVICE*UNITS' CPUUPTM ='CP ENGINE*AVAILABLE*(UP) TIME' CPUUSESM='CPU*USING*SAMPLES' CPUVECTM='VECTOR*CPU USED*DURATION' CPUVERSN='CPU*VERSION*NUMBER' CPUWAIT0='CPU WAIT*DURATION*CPU 0' CPUWAIT1='CPU WAIT*DURATION*CPU 1' CPUWAIT2='CPU WAIT*DURATION*CPU 2' CPUWAIT3='CPU WAIT*DURATION*CPU 3' CPUWAIT4='CPU WAIT*DURATION*CPU 4' CPUWAIT5='CPU WAIT*DURATION*CPU 5' CPUWAIT6='CPU WAIT*DURATION*CPU 6' CPUWAIT7='CPU WAIT*DURATION*CPU 7' CPUWAIT8='CPU WAIT*DURATION*CPU 8' CPUWAIT9='CPU WAIT*DURATION*CPU 9' CPUWAITA='CPU WAIT*DURATION*CPU 10' CPUWAITB='CPU WAIT*DURATION*CPU 11' CPUWAITC='CPU WAIT*DURATION*CPU 12' CPUWAITD='CPU WAIT*DURATION*CPU 13' CPUWAITE='CPU WAIT*DURATION*CPU 14' CPUWAITF='CPU WAIT*DURATION*CPU 15' CPUWAITG='CPU WAIT*DURATION*CPU 16' CPUWAITH='CPU WAIT*DURATION*CPU 17' CPUWAITI='CPU WAIT*DURATION*CPU 18' CPUWAITJ='CPU WAIT*DURATION*CPU 19' CPUWAITK='CPU WAIT*DURATION*CPU 20' CPUWAITL='CPU WAIT*DURATION*CPU 21' CPUWAITM='TOTAL*CPU WAIT*DURATION' CPUWAITN='CPU WAIT*DURATION*CPU 22' CPUWAITO='CPU WAIT*DURATION*CPU 23' CPUWAITP='CPU WAIT*DURATION*CPU 24' CPUWAITQ='CPU WAIT*DURATION*CPU 25' CPUWAITR='CPU WAIT*DURATION*CPU 26' CPUWAITS='CPU WAIT*DURATION*CPU 27' CPUWAITT='CPU WAIT*DURATION*CPU 28' CPUWAITU='CPU WAIT*DURATION*CPU 29' CPUWAITV='CPU WAIT*DURATION*CPU 30' CPUWAITW='CPU WAIT*DURATION*CPU 31' CPUWAITX='CPU WAIT*DURATION*CPU 32' CPUWAITY='CPU WAIT*DURATION*CPU 33' CPUWAITZ='CPU WAIT*DURATION*CPU 34' CPUWAIVA='CPU WAIT*DURATION*CPU 87' CPUWAIVB='CPU WAIT*DURATION*CPU 88' CPUWAIVC='CPU WAIT*DURATION*CPU 89' CPUWAIVD='CPU WAIT*DURATION*CPU 90' CPUWAIVE='CPU WAIT*DURATION*CPU 91' CPUWAIVF='CPU WAIT*DURATION*CPU 92' CPUWAIVG='CPU WAIT*DURATION*CPU 93' CPUWAIVH='CPU WAIT*DURATION*CPU 94' CPUWAIVI='CPU WAIT*DURATION*CPU 95' CPUWAIYA='CPU WAIT*DURATION*CPU 61' CPUWAIYB='CPU WAIT*DURATION*CPU 62' CPUWAIYC='CPU WAIT*DURATION*CPU 63' CPUWAIYD='CPU WAIT*DURATION*CPU 64' CPUWAIYE='CPU WAIT*DURATION*CPU 65' CPUWAIYF='CPU WAIT*DURATION*CPU 66' CPUWAIYG='CPU WAIT*DURATION*CPU 67' CPUWAIYH='CPU WAIT*DURATION*CPU 68' CPUWAIYI='CPU WAIT*DURATION*CPU 69' CPUWAIYJ='CPU WAIT*DURATION*CPU 70' CPUWAIYK='CPU WAIT*DURATION*CPU 71' CPUWAIYL='CPU WAIT*DURATION*CPU 72' CPUWAIYM='CPU WAIT*DURATION*CPU 73' CPUWAIYN='CPU WAIT*DURATION*CPU 74' CPUWAIYO='CPU WAIT*DURATION*CPU 75' CPUWAIYP='CPU WAIT*DURATION*CPU 76' CPUWAIYQ='CPU WAIT*DURATION*CPU 77' CPUWAIYR='CPU WAIT*DURATION*CPU 78' CPUWAIYS='CPU WAIT*DURATION*CPU 79' CPUWAIYT='CPU WAIT*DURATION*CPU 80' CPUWAIYU='CPU WAIT*DURATION*CPU 81' CPUWAIYV='CPU WAIT*DURATION*CPU 82' CPUWAIYW='CPU WAIT*DURATION*CPU 83' CPUWAIYX='CPU WAIT*DURATION*CPU 84' CPUWAIYY='CPU WAIT*DURATION*CPU 85' CPUWAIYZ='CPU WAIT*DURATION*CPU 86' CPUWAIZA='CPU WAIT*DURATION*CPU 35' CPUWAIZB='CPU WAIT*DURATION*CPU 36' CPUWAIZC='CPU WAIT*DURATION*CPU 37' CPUWAIZD='CPU WAIT*DURATION*CPU 38' CPUWAIZE='CPU WAIT*DURATION*CPU 39' CPUWAIZF='CPU WAIT*DURATION*CPU 40' CPUWAIZG='CPU WAIT*DURATION*CPU 41' CPUWAIZH='CPU WAIT*DURATION*CPU 42' CPUWAIZI='CPU WAIT*DURATION*CPU 43' CPUWAIZJ='CPU WAIT*DURATION*CPU 44' CPUWAIZK='CPU WAIT*DURATION*CPU 45' CPUWAIZL='CPU WAIT*DURATION*CPU 46' CPUWAIZM='CPU WAIT*DURATION*CPU 47' CPUWAIZN='CPU WAIT*DURATION*CPU 48' CPUWAIZO='CPU WAIT*DURATION*CPU 49' CPUWAIZP='CPU WAIT*DURATION*CPU 50' CPUWAIZQ='CPU WAIT*DURATION*CPU 51' CPUWAIZR='CPU WAIT*DURATION*CPU 52' CPUWAIZS='CPU WAIT*DURATION*CPU 53' CPUWAIZT='CPU WAIT*DURATION*CPU 54' CPUWAIZU='CPU WAIT*DURATION*CPU 55' CPUWAIZV='CPU WAIT*DURATION*CPU 56' CPUWAIZW='CPU WAIT*DURATION*CPU 57' CPUWAIZX='CPU WAIT*DURATION*CPU 58' CPUWAIZY='CPU WAIT*DURATION*CPU 59' CPUWAIZZ='CPU WAIT*DURATION*CPU 60' CPUZIETM='ZIP*ELIGIBLE*CPU*TIME*ON CP' CPUZIPTM='ZIP*CPU*TIME' CRYAC1E ='ACCELERATOR*1024BIT-CRT*AVG EXECUTE*TIME' CRYAC1R ='ACCELERATOR*1024BIT-CRT*RATE' CRYAC1U ='ACCELERATOR*1024BIT-CRT*PCT UTILIZATION' CRYAC2E ='ACCELERATOR*2048BIT-CRT*AVG EXECUTE*TIME' CRYAC2R ='ACCELERATOR*2048BIT-CRT*RATE' CRYAC2U ='ACCELERATOR*2048BIT-CRT*PCT UTILIZATION' CRYAC3E ='ACCELERATOR*4096BIT-CRT*AVG EXECUTE*TIME' CRYAC3R ='ACCELERATOR*4096BIT-CRT*RATE' CRYAC3U ='ACCELERATOR*4096BIT-CRT*PCT UTILIZATION' CRYAM1E ='ACCELERATOR*1024BIT-ME*AVG EXECUTE*TIME' CRYAM1R ='ACCELERATOR*1024BIT-ME*RATE' CRYAM1U ='ACCELERATOR*1024BIT-ME*PCT UTILIZATION' CRYAM2E ='ACCELERATOR*2048BIT-ME*AVG EXECUTE*TIME' CRYAM2R ='ACCELERATOR*2048BIT-ME*RATE' CRYAM2U ='ACCELERATOR*2048BIT-ME*PCT UTILIZATION' CRYAM3E ='ACCELERATOR*4096BIT-ME*AVG EXECUTE*TIME' CRYAM3R ='ACCELERATOR*4096BIT-ME*RATE' CRYAM3U ='ACCELERATOR*4096BIT-ME*PCT UTILIZATION' CRYCKR ='COPROCESSOR*KEY-GEN*RATE' CRYCTE ='COPROCESSOR*AVG EXECUTE*TIME' CRYCTR ='COPROCESSOR*TOTAL*RATE' CRYCTU ='COPROCESSOR*TOTAL*PCT UTILIZATION' CRYIADO ='AVG TIME*COPROCESSOR*CALLS*AES*DECRYPT' CRYIADR ='RATE*OF*AES*DECRYPT*SERVICE*CALLS*SENT' CRYIADS ='AVG BYTES*PER*AES*DECRYPT*SERVICE*CALL' CRYIAEO ='AVG TIME*COPROCESSOR*CALLS*AES*ENCRYPT' CRYIAER ='RATE*OF*AES*ENCRYPT*SERVICE*CALLS*SENT' CRYIAES ='AVG BYTES*PER*AES*ENCRYPT*SERVICE*CALL' CRYIH2I ='INSTR*TO*HASH*DATA*SHA-224*SHA-256*ALGO' CRYIH2R ='HASHING RATE*SHA-224*SHA-256*ALGORITHM' CRYIH2S ='HASHING SIZE*SHA-224*SHA-256*ALGORITHM' CRYIH5R ='HASHING RATE*SHA-384*SHA-512*ALGORITHM' CRYIH5S ='HASHING SIZE*SHA-384*SHA-512*ALGORITHM' CRYIHAI ='INSTR*TO*HASH*DATA*SHA-1*ALGORITHM' CRYIHAR ='HASHING RATE*SHA-1*ALGORITHM' CRYIHAS ='HASHING SIZE*SHA-1*ALGORITHM' CRYIMGI ='INSTR*TO MAC*GENERATE' CRYIMGR ='MAC*GENERATION*RATE' CRYIMGS ='MAC*GENERATION*SIZE' CRYIMVI ='INSTR*TO MAC*VERIFY' CRYIMVR ='MAC*VERIFY*RATE' CRYIMVS ='MAC*VERIFY*SIZE' CRYIPTR ='PIN*TRANSLATION*RATE' CRYIPVR ='PIN*VERIFY*RATE' CRYISDDI='SINGLE*DES*INSTR*DECIPHER*THE*DATA' CRYISDDR='SINGLE*DES*DECRYPT*RATE' CRYISDDS='SINGLE*DES*DECRYPT*SIZE' CRYISDEI='SINGLE*DES*INSTR*ENCIPHER*THE*DATA' CRYISDER='SINGLE*DES*ENCRYPT*RATE' CRYISDES='SINGLE*DES*ENCRYPT*SIZE' CRYITDDI='TRIPLE*DES*INSTR*TO*DECIPHER*THE*DATA' CRYITDDR='TRIPLE*DES*DECRYPT*RATE' CRYITDDS='TRIPLE*DES*DECRYPT*SIZE' CRYITDEI='TRIPLE*DES*INSTR*TO*ENCIPHER*THE*DATA' CRYITDER='TRIPLE*DES*ENCRYPT*RATE' CRYITDES='TRIPLE*DES*ENCRYPT*SIZE' CRYPAGE ='GENERATION*ASYMM-KEY*AVG EXEC TIME' CRYPAGR ='GENERATION*ASYMM-KEY*RATE' CRYPAGU ='GENERATION*ASYMM-KEY*PCT UTILIZATION' CRYPFAE ='FAST*ASYMMETRIC-KEY*AVG EXEC TIME' CRYPFAR ='FAST*ASYMMETRIC-KEY*RATE' CRYPFAU ='FAST*ASYMMETRIC-KEY*PCT UTILIZATION' CRYPSAE ='SLOW*ASYMMETRIC-KEY*AVG EXEC TIME' CRYPSAR ='SLOW*ASYMMETRIC-KEY*RATE' CRYPSAU ='SLOW*ASYMMETRIC-KEY*PCT UTILIZATION' CRYPSCE ='COMPLETE*SYMMETRIC-KEY*AVG EXEC TIME' CRYPSCR ='COMPLETE*SYMMETRIC-KEY*RATE' CRYPSCU ='COMPLETE*SYMMETRIC-KEY*PCT UTILIZATION' CRYPSPE ='PARTIAL*SYMMMETRIC-KEY*AVG EXEC TIME' CRYPSPR ='PARTIAL*SYMMETRIC*RATE' CRYPSPU ='PARTIAL*SYMMMETRIC-KEY*PCT UTILIZATION' CRYPTE ='PKCS11*COPROCESSOR*AVG EXEC TIME' CRYPTR ='PKCS11*COPROCESSOR*TOTAL*RATE' CRYPTU ='PKCS11*COPROCESSOR*TOTAL*PCT UTILIZ' CSTORE72='CSTORE*BYTES' CYCLE ='SAMPLE*CYCLE*TIME(MS)' DIAG204E='DIAGNOSE*X204*EXTENDED*SUPPORT?' DIAG204F='DIAGNOSE*X204*FAILURE?' DIAG204S='SIMPLE*DIAGX204*FOR VM?' DOMAIN ='DOMAIN*NUMBER' DUR='SERVICE CLASS*PERIOD DURATION*IN SU' DURATM ='DURATION*OF*INTERVAL' ELAPSTM ='ELAPSED*DURATION' ENHDATAR='ENHANCED*DAT*ARCHITECTURE*AVAILABLE?' ERV ='ERV RESOURCE*FACTOR*COEFFICIENT' ESCACONF='ESCA*CONFIGURED?' ESCAENAB='ESCA*ENABLED?' ESTORE72='ESTORE*BYTES' EXETTM ='EXECUTION*DURATION' EXTNDSTO='EXTENDED*STORAGE*INSTALLED?' FLAGS72 ='FLAG*FIELD' FRAMEACT='MEGABYTES*HELD BY*ACTIVE*USERS' FRAMEASM='MEGABYTES*OF ASM*SLOTS*IN USE' FRAMEDIV='MEGABYTES*HELD*BY DIV*USERS' FRAMEFIX='MEGABYTES*FIXED*FRAMES*HELD' FRAMEIDL='MEGABYTES*HELD*BY IDLE*USERS' GMTOFF72='GMT OFFSET*FROM*TYPE72' GMTOFFTM='GMT OFFSET*AT END OF*INTERVAL' HIGHPG ='HIGHEST*PERFGRP*DEFINED' HIPPGINS='HIPERSPACE*PAGE-IN*COUNT' HIPRDMIS='HIPERSPACE*ESO*READ MISS*COUNT' ICFACTTM='ICF ENGINE*EXECUTING*(ACTIVE) CPU TIME' ICSNAME ='IEAICSXX*MEMBER*NAME' IFA70ACS ='ACCUMULATED*PROCESSOR*ACTUAL*SHARE CBP' IFA70BPS ='PROCESSOR*RESOURCE*WEIGHT*FACTOR CBP' IFAACTTM='IFA ENGINE*EXECUTING*(ACTIVE) CPU TIME' IFAAVAIL='IFA PROCESSOR*AVAILABLE?' IFACROSS='IFA*CROSSOVER?' IFAHONPR='IFA*HONOR*PRIORITY?' IFATYP0 ='IFA OR*ZIP OR*CP TYPE*CPU 0' IFATYP1 ='IFA OR*ZIP OR*CP TYPE*CPU 1' IFATYP2 ='IFA OR*ZIP OR*CP TYPE*CPU 2' IFATYP3 ='IFA OR*ZIP OR*CP TYPE*CPU 3' IFATYP4 ='IFA OR*ZIP OR*CP TYPE*CPU 4' IFATYP5 ='IFA OR*ZIP OR*CP TYPE*CPU 5' IFATYP6 ='IFA OR*ZIP OR*CP TYPE*CPU 6' IFATYP7 ='IFA OR*ZIP OR*CP TYPE*CPU 7' IFATYP8 ='IFA OR*ZIP OR*CP TYPE*CPU 8' IFATYP9 ='IFA OR*ZIP OR*CP TYPE*CPU 9' IFATYPA ='IFA OR*ZIP OR*CP TYPE*CPU 10' IFATYPB ='IFA OR*ZIP OR*CP TYPE*CPU 11' IFATYPC ='IFA OR*ZIP OR*CP TYPE*CPU 12' IFATYPD ='IFA OR*ZIP OR*CP TYPE*CPU 13' IFATYPE ='IFA OR*ZIP OR*CP TYPE*CPU 14' IFATYPF ='IFA OR*ZIP OR*CP TYPE*CPU 15' IFATYPG ='IFA OR*ZIP OR*CP TYPE*CPU 16' IFATYPH ='IFA OR*ZIP OR*CP TYPE*CPU 17' IFATYPI ='IFA OR*ZIP OR*CP TYPE*CPU 18' IFATYPJ ='IFA OR*ZIP OR*CP TYPE*CPU 19' IFATYPK ='IFA OR*ZIP OR*CP TYPE*CPU 20' IFATYPL ='IFA OR*ZIP OR*CP TYPE*CPU 21' IFATYPN ='IFA OR*ZIP OR*CP TYPE*CPU 22' IFATYPO ='IFA OR*ZIP OR*CP TYPE*CPU 23' IFATYPP ='IFA OR*ZIP OR*CP TYPE*CPU 24' IFATYPQ ='IFA OR*ZIP OR*CP TYPE*CPU 25' IFATYPR ='IFA OR*ZIP OR*CP TYPE*CPU 26' IFATYPS ='IFA OR*ZIP OR*CP TYPE*CPU 27' IFATYPT ='IFA OR*ZIP OR*CP TYPE*CPU 28' IFATYPU ='IFA OR*ZIP OR*CP TYPE*CPU 29' IFATYPV ='IFA OR*ZIP OR*CP TYPE*CPU 30' IFATYPVA='IFA OR*ZIP OR*CP TYPE*CPU 87' IFATYPVB='IFA OR*ZIP OR*CP TYPE*CPU 88' IFATYPVC='IFA OR*ZIP OR*CP TYPE*CPU 89' IFATYPVD='IFA OR*ZIP OR*CP TYPE*CPU 90' IFATYPVE='IFA OR*ZIP OR*CP TYPE*CPU 91' IFATYPVF='IFA OR*ZIP OR*CP TYPE*CPU 92' IFATYPVG='IFA OR*ZIP OR*CP TYPE*CPU 93' IFATYPVH='IFA OR*ZIP OR*CP TYPE*CPU 94' IFATYPVI='IFA OR*ZIP OR*CP TYPE*CPU 95' IFATYPW ='IFA OR*ZIP OR*CP TYPE*CPU 31' IFATYPX ='IFA OR*ZIP OR*CP TYPE*CPU 32' IFATYPY ='IFA OR*ZIP OR*CP TYPE*CPU 33' IFATYPYA='IFA OR*ZIP OR*CP TYPE*CPU 61' IFATYPYB='IFA OR*ZIP OR*CP TYPE*CPU 62' IFATYPYC='IFA OR*ZIP OR*CP TYPE*CPU 63' IFATYPYD='IFA OR*ZIP OR*CP TYPE*CPU 64' IFATYPYE='IFA OR*ZIP OR*CP TYPE*CPU 65' IFATYPYF='IFA OR*ZIP OR*CP TYPE*CPU 66' IFATYPYG='IFA OR*ZIP OR*CP TYPE*CPU 67' IFATYPYH='IFA OR*ZIP OR*CP TYPE*CPU 68' IFATYPYI='IFA OR*ZIP OR*CP TYPE*CPU 69' IFATYPYJ='IFA OR*ZIP OR*CP TYPE*CPU 70' IFATYPYK='IFA OR*ZIP OR*CP TYPE*CPU 71' IFATYPYL='IFA OR*ZIP OR*CP TYPE*CPU 72' IFATYPYM='IFA OR*ZIP OR*CP TYPE*CPU 73' IFATYPYN='IFA OR*ZIP OR*CP TYPE*CPU 74' IFATYPYO='IFA OR*ZIP OR*CP TYPE*CPU 75' IFATYPYP='IFA OR*ZIP OR*CP TYPE*CPU 76' IFATYPYQ='IFA OR*ZIP OR*CP TYPE*CPU 77' IFATYPYR='IFA OR*ZIP OR*CP TYPE*CPU 78' IFATYPYS='IFA OR*ZIP OR*CP TYPE*CPU 79' IFATYPYT='IFA OR*ZIP OR*CP TYPE*CPU 80' IFATYPYU='IFA OR*ZIP OR*CP TYPE*CPU 81' IFATYPYV='IFA OR*ZIP OR*CP TYPE*CPU 82' IFATYPYW='IFA OR*ZIP OR*CP TYPE*CPU 83' IFATYPYX='IFA OR*ZIP OR*CP TYPE*CPU 84' IFATYPYY='IFA OR*ZIP OR*CP TYPE*CPU 85' IFATYPYZ='IFA OR*ZIP OR*CP TYPE*CPU 86' IFATYPZ ='IFA OR*ZIP OR*CP TYPE*CPU 34' IFATYPZA='IFA OR*ZIP OR*CP TYPE*CPU 35' IFATYPZB='IFA OR*ZIP OR*CP TYPE*CPU 36' IFATYPZC='IFA OR*ZIP OR*CP TYPE*CPU 37' IFATYPZD='IFA OR*ZIP OR*CP TYPE*CPU 38' IFATYPZE='IFA OR*ZIP OR*CP TYPE*CPU 39' IFATYPZF='IFA OR*ZIP OR*CP TYPE*CPU 40' IFATYPZG='IFA OR*ZIP OR*CP TYPE*CPU 41' IFATYPZH='IFA OR*ZIP OR*CP TYPE*CPU 42' IFATYPZI='IFA OR*ZIP OR*CP TYPE*CPU 43' IFATYPZJ='IFA OR*ZIP OR*CP TYPE*CPU 44' IFATYPZK='IFA OR*ZIP OR*CP TYPE*CPU 45' IFATYPZL='IFA OR*ZIP OR*CP TYPE*CPU 46' IFATYPZM='IFA OR*ZIP OR*CP TYPE*CPU 47' IFATYPZN='IFA OR*ZIP OR*CP TYPE*CPU 48' IFATYPZO='IFA OR*ZIP OR*CP TYPE*CPU 49' IFATYPZP='IFA OR*ZIP OR*CP TYPE*CPU 50' IFATYPZQ='IFA OR*ZIP OR*CP TYPE*CPU 51' IFATYPZR='IFA OR*ZIP OR*CP TYPE*CPU 52' IFATYPZS='IFA OR*ZIP OR*CP TYPE*CPU 53' IFATYPZT='IFA OR*ZIP OR*CP TYPE*CPU 54' IFATYPZU='IFA OR*ZIP OR*CP TYPE*CPU 55' IFATYPZV='IFA OR*ZIP OR*CP TYPE*CPU 56' IFATYPZW='IFA OR*ZIP OR*CP TYPE*CPU 57' IFATYPZX='IFA OR*ZIP OR*CP TYPE*CPU 58' IFATYPZY='IFA OR*ZIP OR*CP TYPE*CPU 59' IFATYPZZ='IFA OR*ZIP OR*CP TYPE*CPU 60' IFAUNITS='IFA*CPU*SERVICE*UNITS' IFAUPTM ='IFA ENGINE*AVAILABLE*(UP) TIME' IFAWAIT0='IFA WAIT*DURATION*IFA 0' IFAWAIT1='IFA WAIT*DURATION*IFA 1' IFAWAIT2='IFA WAIT*DURATION*IFA 2' IFAWAIT3='IFA WAIT*DURATION*IFA 3' IFAWAIT4='IFA WAIT*DURATION*IFA 4' IFAWAIT5='IFA WAIT*DURATION*IFA 5' IFAWAIT6='IFA WAIT*DURATION*IFA 6' IFAWAIT7='IFA WAIT*DURATION*IFA 7' IFAWAIT8='IFA WAIT*DURATION*IFA 8' IFAWAIT9='IFA WAIT*DURATION*IFA 9' IFAWAITA='IFA WAIT*DURATION*IFA 10' IFAWAITB='IFA WAIT*DURATION*IFA 11' IFAWAITC='IFA WAIT*DURATION*IFA 12' IFAWAITD='IFA WAIT*DURATION*IFA 13' IFAWAITE='IFA WAIT*DURATION*IFA 14' IFAWAITF='IFA WAIT*DURATION*IFA 15' IFAWAITG='IFA WAIT*DURATION*IFA 16' IFAWAITH='IFA WAIT*DURATION*IFA 17' IFAWAITI='IFA WAIT*DURATION*IFA 18' IFAWAITJ='IFA WAIT*DURATION*IFA 19' IFAWAITK='IFA WAIT*DURATION*IFA 20' IFAWAITL='IFA WAIT*DURATION*IFA 21' IFAWAITM='TOTAL*IFA WAIT*DURATION' IFAWAITN='IFA WAIT*DURATION*IFA 22' IFAWAITO='IFA WAIT*DURATION*IFA 23' IFAWAITP='IFA WAIT*DURATION*IFA 24' IFAWAITQ='IFA WAIT*DURATION*IFA 25' IFAWAITR='IFA WAIT*DURATION*IFA 26' IFAWAITS='IFA WAIT*DURATION*IFA 27' IFAWAITT='IFA WAIT*DURATION*IFA 28' IFAWAITU='IFA WAIT*DURATION*IFA 29' IFAWAITV='IFA WAIT*DURATION*IFA 30' IFAWAITW='IFA WAIT*DURATION*IFA 31' IFAWAITX='IFA WAIT*DURATION*IFA 32' IFAWAITY='IFA WAIT*DURATION*IFA 33' IFAWAITZ='IFA WAIT*DURATION*IFA 34' IFAWAIVA='IFA WAIT*DURATION*IFA 87' IFAWAIVB='IFA WAIT*DURATION*IFA 88' IFAWAIVC='IFA WAIT*DURATION*IFA 89' IFAWAIVD='IFA WAIT*DURATION*IFA 90' IFAWAIVE='IFA WAIT*DURATION*IFA 91' IFAWAIVF='IFA WAIT*DURATION*IFA 92' IFAWAIVG='IFA WAIT*DURATION*IFA 93' IFAWAIVH='IFA WAIT*DURATION*IFA 94' IFAWAIVI='IFA WAIT*DURATION*IFA 95' IFAWAIYA='IFA WAIT*DURATION*IFA 61' IFAWAIYB='IFA WAIT*DURATION*IFA 62' IFAWAIYC='IFA WAIT*DURATION*IFA 63' IFAWAIYD='IFA WAIT*DURATION*IFA 64' IFAWAIYE='IFA WAIT*DURATION*IFA 65' IFAWAIYF='IFA WAIT*DURATION*IFA 66' IFAWAIYG='IFA WAIT*DURATION*IFA 67' IFAWAIYH='IFA WAIT*DURATION*IFA 68' IFAWAIYI='IFA WAIT*DURATION*IFA 69' IFAWAIYJ='IFA WAIT*DURATION*IFA 70' IFAWAIYK='IFA WAIT*DURATION*IFA 71' IFAWAIYL='IFA WAIT*DURATION*IFA 72' IFAWAIYM='IFA WAIT*DURATION*IFA 73' IFAWAIYN='IFA WAIT*DURATION*IFA 74' IFAWAIYO='IFA WAIT*DURATION*IFA 75' IFAWAIYP='IFA WAIT*DURATION*IFA 76' IFAWAIYQ='IFA WAIT*DURATION*IFA 77' IFAWAIYR='IFA WAIT*DURATION*IFA 78' IFAWAIYS='IFA WAIT*DURATION*IFA 79' IFAWAIYT='IFA WAIT*DURATION*IFA 80' IFAWAIYU='IFA WAIT*DURATION*IFA 81' IFAWAIYV='IFA WAIT*DURATION*IFA 82' IFAWAIYW='IFA WAIT*DURATION*IFA 83' IFAWAIYX='IFA WAIT*DURATION*IFA 84' IFAWAIYY='IFA WAIT*DURATION*IFA 85' IFAWAIYZ='IFA WAIT*DURATION*IFA 86' IFAWAIZA='IFA WAIT*DURATION*IFA 35' IFAWAIZB='IFA WAIT*DURATION*IFA 36' IFAWAIZC='IFA WAIT*DURATION*IFA 37' IFAWAIZD='IFA WAIT*DURATION*IFA 38' IFAWAIZE='IFA WAIT*DURATION*IFA 39' IFAWAIZF='IFA WAIT*DURATION*IFA 40' IFAWAIZG='IFA WAIT*DURATION*IFA 41' IFAWAIZH='IFA WAIT*DURATION*IFA 42' IFAWAIZI='IFA WAIT*DURATION*IFA 43' IFAWAIZJ='IFA WAIT*DURATION*IFA 44' IFAWAIZK='IFA WAIT*DURATION*IFA 45' IFAWAIZL='IFA WAIT*DURATION*IFA 46' IFAWAIZM='IFA WAIT*DURATION*IFA 47' IFAWAIZN='IFA WAIT*DURATION*IFA 48' IFAWAIZO='IFA WAIT*DURATION*IFA 49' IFAWAIZP='IFA WAIT*DURATION*IFA 50' IFAWAIZQ='IFA WAIT*DURATION*IFA 51' IFAWAIZR='IFA WAIT*DURATION*IFA 52' IFAWAIZS='IFA WAIT*DURATION*IFA 53' IFAWAIZT='IFA WAIT*DURATION*IFA 54' IFAWAIZU='IFA WAIT*DURATION*IFA 55' IFAWAIZV='IFA WAIT*DURATION*IFA 56' IFAWAIZW='IFA WAIT*DURATION*IFA 57' IFAWAIZX='IFA WAIT*DURATION*IFA 58' IFAWAIZY='IFA WAIT*DURATION*IFA 59' IFAWAIZZ='IFA WAIT*DURATION*IFA 60' IFEUNITS='CP*IFA*ELIGIBLE*SERVICE*UNITS' IFL70ACS ='ACCUMULATED*PROCESSOR*ACTUAL*SHARE IFL' IFL70BPS ='PROCESSOR*RESOURCE*WEIGHT*FACTOR IFL' IFLACTTM='IFL ENGINE*EXECUTING*(ACTIVE) CPU TIME' IN00 ='PERCENT*WHEN 0*IN USERS' IN01 ='PERCENT*WHEN 1-2*IN USERS' IN02 ='PERCENT*WHEN 3-4*IN USERS' IN03 ='PERCENT*WHEN 5-6*IN USERS' IN04 ='PERCENT*WHEN 7-8*IN USERS' IN05 ='PERCENT*WHEN 9-10*IN USERS' IN06 ='PERCENT*WHEN 11-15*IN USERS' IN07 ='PERCENT*WHEN 16-20*IN USERS' IN08 ='PERCENT*WHEN 21-25*IN USERS' IN09 ='PERCENT*WHEN 26-30*IN USERS' IN10 ='PERCENT*WHEN 31-35*IN USERS' IN11 ='PERCENT*WHEN OVER 35*IN USERS' INAVG ='AVERAGE*IN*USERS' INMAX ='MAXIMUM*IN*USERS' INMIN ='MINIMUM*IN*USERS' INTRVSYN='INTERVAL WAS*SYNCHRONIZED*WITH SMF?' IOCCOEFF='I/O*SERVICE*COEFFICIENT' IOCRFC ='I/O*RFC*FACTOR' IORATE ='TOTAL I/O*INTERRUPT*RATE' IORATE0 ='CPU 0 I/O*INTERRUPT*RATE' IORATE1 ='CPU 1 I/O*INTERRUPT*RATE' IORATE2 ='CPU 2 I/O*INTERRUPT*RATE' IORATE3 ='CPU 3 I/O*INTERRUPT*RATE' IORATE4 ='CPU 4 I/O*INTERRUPT*RATE' IORATE5 ='CPU 5 I/O*INTERRUPT*RATE' IORATE6 ='CPU 6 I/O*INTERRUPT*RATE' IORATE7 ='CPU 7 I/O*INTERRUPT*RATE' IORATE8 ='CPU 8 I/O*INTERRUPT*RATE' IORATE9 ='CPU 9 I/O*INTERRUPT*RATE' IORATEA ='CPU 10 I/O*INTERRUPT*RATE' IORATEB ='CPU 11 I/O*INTERRUPT*RATE' IORATEC ='CPU 12 I/O*INTERRUPT*RATE' IORATED ='CPU 13 I/O*INTERRUPT*RATE' IORATEE ='CPU 14 I/O*INTERRUPT*RATE' IORATEF ='CPU 15 I/O*INTERRUPT*RATE' IORATEG ='CPU 16 I/O*INTERRUPT*RATE' IORATEH ='CPU 17 I/O*INTERRUPT*RATE' IORATEI ='CPU 18 I/O*INTERRUPT*RATE' IORATEJ ='CPU 19 I/O*INTERRUPT*RATE' IORATEK ='CPU 20 I/O*INTERRUPT*RATE' IORATEL ='CPU 21 I/O*INTERRUPT*RATE' IORATEN ='CPU 22 I/O*INTERRUPT*RATE' IORATEO ='CPU 23 I/O*INTERRUPT*RATE' IORATEP ='CPU 24 I/O*INTERRUPT*RATE' IORATEQ ='CPU 25 I/O*INTERRUPT*RATE' IORATER ='CPU 26 I/O*INTERRUPT*RATE' IORATES ='CPU 27 I/O*INTERRUPT*RATE' IORATET ='CPU 28 I/O*INTERRUPT*RATE' IORATEU ='CPU 29 I/O*INTERRUPT*RATE' IORATEV ='CPU 30 I/O*INTERRUPT*RATE' IORATEVA='CPU 87 I/O*INTERRUPT*RATE' IORATEVB='CPU 88 I/O*INTERRUPT*RATE' IORATEVC='CPU 89 I/O*INTERRUPT*RATE' IORATEVD='CPU 90 I/O*INTERRUPT*RATE' IORATEVE='CPU 91 I/O*INTERRUPT*RATE' IORATEVF='CPU 92 I/O*INTERRUPT*RATE' IORATEVG='CPU 93 I/O*INTERRUPT*RATE' IORATEVH='CPU 94 I/O*INTERRUPT*RATE' IORATEVI='CPU 95 I/O*INTERRUPT*RATE' IORATEW ='CPU 31 I/O*INTERRUPT*RATE' IORATEX ='CPU 32 I/O*INTERRUPT*RATE' IORATEY ='CPU 33 I/O*INTERRUPT*RATE' IORATEYA='CPU 61 I/O*INTERRUPT*RATE' IORATEYB='CPU 62 I/O*INTERRUPT*RATE' IORATEYC='CPU 63 I/O*INTERRUPT*RATE' IORATEYD='CPU 64 I/O*INTERRUPT*RATE' IORATEYE='CPU 65 I/O*INTERRUPT*RATE' IORATEYF='CPU 66 I/O*INTERRUPT*RATE' IORATEYG='CPU 67 I/O*INTERRUPT*RATE' IORATEYH='CPU 68 I/O*INTERRUPT*RATE' IORATEYI='CPU 69 I/O*INTERRUPT*RATE' IORATEYJ='CPU 70 I/O*INTERRUPT*RATE' IORATEYK='CPU 71 I/O*INTERRUPT*RATE' IORATEYL='CPU 72 I/O*INTERRUPT*RATE' IORATEYM='CPU 73 I/O*INTERRUPT*RATE' IORATEYN='CPU 74 I/O*INTERRUPT*RATE' IORATEYO='CPU 75 I/O*INTERRUPT*RATE' IORATEYP='CPU 76 I/O*INTERRUPT*RATE' IORATEYQ='CPU 77 I/O*INTERRUPT*RATE' IORATEYR='CPU 78 I/O*INTERRUPT*RATE' IORATEYS='CPU 79 I/O*INTERRUPT*RATE' IORATEYT='CPU 80 I/O*INTERRUPT*RATE' IORATEYU='CPU 81 I/O*INTERRUPT*RATE' IORATEYV='CPU 82 I/O*INTERRUPT*RATE' IORATEYW='CPU 83 I/O*INTERRUPT*RATE' IORATEYX='CPU 84 I/O*INTERRUPT*RATE' IORATEYY='CPU 85 I/O*INTERRUPT*RATE' IORATEYZ='CPU 86 I/O*INTERRUPT*RATE' IORATEZ ='CPU 34 I/O*INTERRUPT*RATE' IORATEZA='CPU 35 I/O*INTERRUPT*RATE' IORATEZB='CPU 36 I/O*INTERRUPT*RATE' IORATEZC='CPU 37 I/O*INTERRUPT*RATE' IORATEZD='CPU 38 I/O*INTERRUPT*RATE' IORATEZE='CPU 39 I/O*INTERRUPT*RATE' IORATEZF='CPU 40 I/O*INTERRUPT*RATE' IORATEZG='CPU 41 I/O*INTERRUPT*RATE' IORATEZH='CPU 42 I/O*INTERRUPT*RATE' IORATEZI='CPU 43 I/O*INTERRUPT*RATE' IORATEZJ='CPU 44 I/O*INTERRUPT*RATE' IORATEZK='CPU 45 I/O*INTERRUPT*RATE' IORATEZL='CPU 46 I/O*INTERRUPT*RATE' IORATEZM='CPU 47 I/O*INTERRUPT*RATE' IORATEZN='CPU 48 I/O*INTERRUPT*RATE' IORATEZO='CPU 49 I/O*INTERRUPT*RATE' IORATEZP='CPU 50 I/O*INTERRUPT*RATE' IORATEZQ='CPU 51 I/O*INTERRUPT*RATE' IORATEZR='CPU 52 I/O*INTERRUPT*RATE' IORATEZS='CPU 53 I/O*INTERRUPT*RATE' IORATEZT='CPU 54 I/O*INTERRUPT*RATE' IORATEZU='CPU 55 I/O*INTERRUPT*RATE' IORATEZV='CPU 56 I/O*INTERRUPT*RATE' IORATEZW='CPU 57 I/O*INTERRUPT*RATE' IORATEZX='CPU 58 I/O*INTERRUPT*RATE' IORATEZY='CPU 59 I/O*INTERRUPT*RATE' IORATEZZ='CPU 60 I/O*INTERRUPT*RATE' IOUNITS ='I/O*SERVICE*UNITS' IPSNAME ='IEAIPSXX*MEMBER*NAME' LCPUADDR='LOGICAL PROCESSOR*CPUID ADDRESS' LCPUCAP ='HARD*CAPPING*IS*ENABLED?' LCPUCAPC='HARD CAP*STATUS*CHANGED*DURING INTERVAL?' LCPUCHST='LCPUWAIT*STATUS CHANGED*DURING INTERVAL?' LCPUCHWT='LCPUSHAR*VALUE CHANGED*DURING INTERVAL?' LCPUDED ='LOGICAL PROCESSOR*DEDICATED?' LCPUEDTM='LOG PROCESSOR*EFFECTIVE*DISPATCH TIME' LCPUHWCL='SMF70HW*CAP*LIMIT*CHANGED*DURING INTRVL?' LCPUPDTM='LOGICAL PROCESSOR*DISPATCH TIME' LCPUSHAR='PROCESSOR*RELATIVE*SHARE (WEIGHT)' LCPUVARY='LCPU WAS*VARIED*ONLINE*DURING INTERVAL?' LCPUWAIT='LPAR*WAIT*COMPLETION?' LOGCSTOR='CSTORE FOR*LOGICALLY*SWAPPED USERS' LOGESTOR='ESTORE FOR*LOGICALLY*SWAPPED USERS' LONGESTO='LONG SWAPS*TO EXPANDED*STORAGE' LONGLGSW='LONG*LOGICAL*SWAPS' LONGPHYS='LONG SWAPS*TO PHYSICAL*AUXSTORE' LPARCHAC='PARTITION*ACTIVATED OR*DEACTIVATED?' LPARCHDE='NUMBER OF*DEDICATED PROCESSORS*CHANGED?' LPARCHNR='NUMBER OF LCPUS*IN PARTITION*CHANGED?' LPARCHSH='NUMBER OF*SHARED PROCESSORS*CHANGED?' LPARCLND='RESERVED*FIELD*SINCE*Z/OS 1.7' LPARCPUS='AVERAGE*CPUS*ONLINE IN*THIS LPAR' LPARCPUX='SMF70BDN*NUMBER OF*CPUS IN*THIS LPAR' LPARDCLC='DEFINED*CAPACITY*LIMIT*CHANGED?' LPARNAME='LOGICAL*PARTITION*NAME' LPARNUM ='LOGICAL*PARTITION*NUMBER' LPARVPF ='LPAR*VPF*FLAGS' LPARWLMG='WLM IRD*MANAGEMENT*OF THIS*LPAR?' LPARWTFD='WAIT*TIME*FIELD*DEFINED?' LPARZIPS='AVERAGE*ZIPS*ONLINE IN*THIS LPAR' LRDY00 ='PERCENT*WHEN 0*LOGICAL OUT READY' LRDY01 ='PERCENT*WHEN 1-2*LOGICAL OUT READY' LRDY02 ='PERCENT*WHEN 3-4*LOGICAL OUT READY' LRDY03 ='PERCENT*WHEN 5-6*LOGICAL OUT READY' LRDY04 ='PERCENT*WHEN 7-8*LOGICAL OUT READY' LRDY05 ='PERCENT*WHEN 9-10*LOGICAL OUT READY' LRDY06 ='PERCENT*WHEN 11-15*LOGICAL OUT READY' LRDY07 ='PERCENT*WHEN 16-20*LOGICAL OUT READY' LRDY08 ='PERCENT*WHEN 21-25*LOGICAL OUT READY' LRDY09 ='PERCENT*WHEN 26-30*LOGICAL OUT READY' LRDY10 ='PERCENT*WHEN 31-35*LOGICAL OUT READY' LRDY11 ='PERCENT*WHEN OVER 35*LOGICAL OUT READY' LRDYAVG ='AVERAGE*LOGICAL*OUT READY' LRDYMAX ='MAXIMUM*LOGICAL*OUT READY' LRDYMIN ='MINIMUM*LOGICAL*OUT READY' LSWSAMPS='TOTAL*LOGICAL SWAP*SAMPLES' LWAIT00 ='PERCENT*WHEN 0*LOGICAL OUT WAIT' LWAIT01 ='PERCENT*WHEN 1-2*LOGICAL OUT WAIT' LWAIT02 ='PERCENT*WHEN 3-4*LOGICAL OUT WAIT' LWAIT03 ='PERCENT*WHEN 5-6*LOGICAL OUT WAIT' LWAIT04 ='PERCENT*WHEN 7-8*LOGICAL OUT WAIT' LWAIT05 ='PERCENT*WHEN 9-10*LOGICAL OUT WAIT' LWAIT06 ='PERCENT*WHEN 11-15*LOGICAL OUT WAIT' LWAIT07 ='PERCENT*WHEN 16-20*LOGICAL OUT WAIT' LWAIT08 ='PERCENT*WHEN 21-25*LOGICAL OUT WAIT' LWAIT09 ='PERCENT*WHEN 26-30*LOGICAL OUT WAIT' LWAIT10 ='PERCENT*WHEN 31-35*LOGICAL OUT WAIT' LWAIT11 ='PERCENT*WHEN OVER 35*LOGICAL OUT WAIT' LWAITAVG='AVERAGE*LOGICAL*OUT WAIT' LWAITMAX='MAXIMUM*LOGICAL*OUT WAIT' LWAITMIN='MINIMUM*LOGICAL*OUT WAIT' MACHTIME='MACHINE*TOD*DATETIME*STAMP' METGOAL ='COUNT OF*TRANSACTIONS*MEETING*GOAL' MPL72 ='RESIDENT*MULTI*PROGRAMMING*LEVEL' MSOCOEFF='MEMORY*SERVICE UNIT*COEFFICIENT' MSOUNITS='MEMORY*SERVICE*UNITS' MSU72 ='TOTAL*RAW MSU*CPUTM*BASED' MSUSOFT ='SOFTWARE*MSU' MVSLEVEL='MVS*SOFTWARE*LEVEL' MVSWAIT0='MVS CPU 0*CPU WAIT*DURATION' MVSWAIT1='MVS CPU 1*CPU WAIT*DURATION' MVSWAIT2='MVS CPU 2*CPU WAIT*DURATION' MVSWAIT3='MVS CPU 3*CPU WAIT*DURATION' MVSWAIT4='MVS CPU 4*CPU WAIT*DURATION' MVSWAIT5='MVS CPU 5*CPU WAIT*DURATION' MVSWAIT6='MVS CPU 6*CPU WAIT*DURATION' MVSWAIT7='MVS CPU 7*CPU WAIT*DURATION' MVSWAIT8='MVS CPU 8*CPU WAIT*DURATION' MVSWAIT9='MVS CPU 9*CPU WAIT*DURATION' MVSWAITA='MVS CPU 10*CPU WAIT*DURATION' MVSWAITB='MVS CPU 11*CPU WAIT*DURATION' MVSWAITC='MVS CPU 12*CPU WAIT*DURATION' MVSWAITD='MVS CPU 13*CPU WAIT*DURATION' MVSWAITE='MVS CPU 14*CPU WAIT*DURATION' MVSWAITF='MVS CPU 15*CPU WAIT*DURATION' MVSWAITG='MVS CPU 16*CPU WAIT*DURATION' MVSWAITH='MVS CPU 17*CPU WAIT*DURATION' MVSWAITI='MVS CPU 18*CPU WAIT*DURATION' MVSWAITJ='MVS CPU 19*CPU WAIT*DURATION' MVSWAITK='MVS CPU 20*CPU WAIT*DURATION' MVSWAITL='MVS CPU 21*CPU WAIT*DURATION' MVSWAITM='MVS TOTAL*CPU WAIT*DURATION' MVSWAITN='MVS CPU 22*CPU WAIT*DURATION' MVSWAITO='MVS CPU 23*CPU WAIT*DURATION' MVSWAITP='MVS CPU 24*CPU WAIT*DURATION' MVSWAITQ='MVS CPU 25*CPU WAIT*DURATION' MVSWAITR='MVS CPU 26*CPU WAIT*DURATION' MVSWAITS='MVS CPU 27*CPU WAIT*DURATION' MVSWAITT='MVS CPU 28*CPU WAIT*DURATION' MVSWAITU='MVS CPU 29*CPU WAIT*DURATION' MVSWAITV='MVS CPU 30*CPU WAIT*DURATION' MVSWAITW='MVS CPU 31*CPU WAIT*DURATION' MVSWAITX='MVS CPU 32*CPU WAIT*DURATION' MVSWAITY='MVS CPU 33*CPU WAIT*DURATION' MVSWAITZ='MVS CPU 34*CPU WAIT*DURATION' MVSWAIVA='MVS CPU 87*CPU WAIT*DURATION' MVSWAIVB='MVS CPU 88*CPU WAIT*DURATION' MVSWAIVC='MVS CPU 89*CPU WAIT*DURATION' MVSWAIVD='MVS CPU 90*CPU WAIT*DURATION' MVSWAIVE='MVS CPU 91*CPU WAIT*DURATION' MVSWAIVF='MVS CPU 92*CPU WAIT*DURATION' MVSWAIVG='MVS CPU 93*CPU WAIT*DURATION' MVSWAIVH='MVS CPU 94*CPU WAIT*DURATION' MVSWAIVI='MVS CPU 95*CPU WAIT*DURATION' MVSWAIYA='MVS CPU 61*CPU WAIT*DURATION' MVSWAIYB='MVS CPU 62*CPU WAIT*DURATION' MVSWAIYC='MVS CPU 63*CPU WAIT*DURATION' MVSWAIYD='MVS CPU 64*CPU WAIT*DURATION' MVSWAIYE='MVS CPU 65*CPU WAIT*DURATION' MVSWAIYF='MVS CPU 66*CPU WAIT*DURATION' MVSWAIYG='MVS CPU 67*CPU WAIT*DURATION' MVSWAIYH='MVS CPU 68*CPU WAIT*DURATION' MVSWAIYI='MVS CPU 69*CPU WAIT*DURATION' MVSWAIYJ='MVS CPU 70*CPU WAIT*DURATION' MVSWAIYK='MVS CPU 71*CPU WAIT*DURATION' MVSWAIYL='MVS CPU 72*CPU WAIT*DURATION' MVSWAIYM='MVS CPU 73*CPU WAIT*DURATION' MVSWAIYN='MVS CPU 74*CPU WAIT*DURATION' MVSWAIYO='MVS CPU 75*CPU WAIT*DURATION' MVSWAIYP='MVS CPU 76*CPU WAIT*DURATION' MVSWAIYQ='MVS CPU 77*CPU WAIT*DURATION' MVSWAIYR='MVS CPU 78*CPU WAIT*DURATION' MVSWAIYS='MVS CPU 79*CPU WAIT*DURATION' MVSWAIYT='MVS CPU 80*CPU WAIT*DURATION' MVSWAIYU='MVS CPU 81*CPU WAIT*DURATION' MVSWAIYV='MVS CPU 82*CPU WAIT*DURATION' MVSWAIYW='MVS CPU 83*CPU WAIT*DURATION' MVSWAIYX='MVS CPU 84*CPU WAIT*DURATION' MVSWAIYY='MVS CPU 85*CPU WAIT*DURATION' MVSWAIYZ='MVS CPU 86*CPU WAIT*DURATION' MVSWAIZA='MVS CPU 35*CPU WAIT*DURATION' MVSWAIZB='MVS CPU 36*CPU WAIT*DURATION' MVSWAIZC='MVS CPU 37*CPU WAIT*DURATION' MVSWAIZD='MVS CPU 38*CPU WAIT*DURATION' MVSWAIZE='MVS CPU 39*CPU WAIT*DURATION' MVSWAIZF='MVS CPU 40*CPU WAIT*DURATION' MVSWAIZG='MVS CPU 41*CPU WAIT*DURATION' MVSWAIZH='MVS CPU 42*CPU WAIT*DURATION' MVSWAIZI='MVS CPU 43*CPU WAIT*DURATION' MVSWAIZJ='MVS CPU 44*CPU WAIT*DURATION' MVSWAIZK='MVS CPU 45*CPU WAIT*DURATION' MVSWAIZL='MVS CPU 46*CPU WAIT*DURATION' MVSWAIZM='MVS CPU 47*CPU WAIT*DURATION' MVSWAIZN='MVS CPU 48*CPU WAIT*DURATION' MVSWAIZO='MVS CPU 49*CPU WAIT*DURATION' MVSWAIZP='MVS CPU 50*CPU WAIT*DURATION' MVSWAIZQ='MVS CPU 51*CPU WAIT*DURATION' MVSWAIZR='MVS CPU 52*CPU WAIT*DURATION' MVSWAIZS='MVS CPU 53*CPU WAIT*DURATION' MVSWAIZT='MVS CPU 54*CPU WAIT*DURATION' MVSWAIZU='MVS CPU 55*CPU WAIT*DURATION' MVSWAIZV='MVS CPU 56*CPU WAIT*DURATION' MVSWAIZW='MVS CPU 57*CPU WAIT*DURATION' MVSWAIZX='MVS CPU 58*CPU WAIT*DURATION' MVSWAIZY='MVS CPU 59*CPU WAIT*DURATION' MVSWAIZZ='MVS CPU 60*CPU WAIT*DURATION' MXGCIN ='MXG-CREATED*EXPANDED*SMF70CIN' MXGVERSN='MXG*VERSION*USED' NEWWAIT ='RECALCULATED*CPU WAIT*FOR THIS CPUID' NRCPSCPU='CP CPUS*IN THIS CEC' NRCPUD ='NUMBER OF*CPU*SEGMENTS*IN RECORD' NRCPUS ='ONLINE*NON-PARKED*CP ENGINES' NRDSNEXT='NR OF DATA*SECTS IN*FOLLOWING RECORDS' NRDSTOT ='TOTAL DATA*SECTIONS*IN INTERVAL' NRICFCPU='ICF CPUS*IN THIS CEC' NRIFACPU='IFA CPUS*IN THIS CEC' NRIFAS ='IFA CPUS*AVAIL TO*THIS ZOS' NRIFLCPU='IFL CPUS*IN THIS CEC' NRPHYCPS='TOTAL*ALL CPUS*IN THIS CEC' NRPRCHGD='NUMBER OF PROCESSORS*WAS CHANGED?' NRPRCS ='PR/SM*PARTITION*DATA*SECTIONS' NRSAMPLE='NUMBER*OF*SAMPLES' NRSMALRC='NUMBER*OF SMALL*RECORDS' NRZIPCPU='ZIP CPUS*IN THIS CEC' OBJCTIVE='OBJECTIVE*NUMBER' OMVS00 ='PERCENT*WHEN 0*OMVS' OMVS01 ='PERCENT*WHEN 1-2*OMVS' OMVS02 ='PERCENT*WHEN 3-4*OMVS' OMVS03 ='PERCENT*WHEN 5-6*OMVS' OMVS04 ='PERCENT*WHEN 7-8*OMVS' OMVS05 ='PERCENT*WHEN 9-10*OMVS' OMVS06 ='PERCENT*WHEN 11-15*OMVS' OMVS07 ='PERCENT*WHEN 16-20*OMVS' OMVS08 ='PERCENT*WHEN 21-25*OMVS' OMVS09 ='PERCENT*WHEN 26-30*OMVS' OMVS10 ='PERCENT*WHEN 31-35*OMVS' OMVS11 ='PERCENT*WHEN OVER 35*OMVS' OMVSAVG ='AVERAGE*OMVS*ACTIVE' OMVSMAX ='MAXIMUM*OMVS*ACTIVE' OMVSMIN ='MINIMUM*OMVS*ACTIVE' OPTNAME ='IEAOPTXX*MEMBER*NAME' ORG70CPA='ORIGINAL*SMF70CPA*OF THE*PHYSICAL*CEC' ORIGWAIT='ORIGINAL*CPU WAIT*FOR THIS CPUID' OS390 ='THIS IS*AN OS390*SYSTEM?' OUT00 ='PERCENT*WHEN 0*OUT READY USERS' OUT01 ='PERCENT*WHEN 1-2*OUT READY USERS' OUT02 ='PERCENT*WHEN 3-4*OUT READY USERS' OUT03 ='PERCENT*WHEN 5-6*OUT READY USERS' OUT04 ='PERCENT*WHEN 7-8*OUT READY USERS' OUT05 ='PERCENT*WHEN 9-10*OUT READY USERS' OUT06 ='PERCENT*WHEN 11-15*OUT READY USERS' OUT07 ='PERCENT*WHEN 16-20*OUT READY USERS' OUT08 ='PERCENT*WHEN 21-25*OUT READY USERS' OUT09 ='PERCENT*WHEN 26-30*OUT READY USERS' OUT10 ='PERCENT*WHEN 31-35*OUT READY USERS' OUT11 ='PERCENT*WHEN OVER 35*OUT READY USERS' OUTAVG ='AVERAGE*OUT READY*USERS' OUTMAX ='MAXIMUM*OUT READY*USERS' OUTMIN ='MINIMUM*OUT READY*USERS' PAGEESIN='UNBLOCKED PAGES*PAGED IN*FROM ESTORE' PARTFLG ='PARTITION*DEACTIVATED*FLAG' PARTISHN='PARTITION*NUMBER*OF THIS MVS' PARTNCPU='TOTAL*NUMBER OF*CPUS*IN THE CEC' PCTCPBUA='CPU 87*PERCENT*BUSY' PCTCPBUB='CPU 88*PERCENT*BUSY' PCTCPBUC='CPU 89*PERCENT*BUSY' PCTCPBUD='CPU 90*PERCENT*BUSY' PCTCPBUE='CPU 91*PERCENT*BUSY' PCTCPBUF='CPU 92*PERCENT*BUSY' PCTCPBUG='CPU 93*PERCENT*BUSY' PCTCPBUH='CPU 94*PERCENT*BUSY' PCTCPBUI='CPU 95*PERCENT*BUSY' PCTCPBXA='CPU 61*PERCENT*BUSY' PCTCPBXB='CPU 62*PERCENT*BUSY' PCTCPBXC='CPU 63*PERCENT*BUSY' PCTCPBXD='CPU 64*PERCENT*BUSY' PCTCPBXE='CPU 65*PERCENT*BUSY' PCTCPBXF='CPU 66*PERCENT*BUSY' PCTCPBXG='CPU 67*PERCENT*BUSY' PCTCPBXH='CPU 68*PERCENT*BUSY' PCTCPBXI='CPU 69*PERCENT*BUSY' PCTCPBXJ='CPU 70*PERCENT*BUSY' PCTCPBXK='CPU 71*PERCENT*BUSY' PCTCPBXL='CPU 72*PERCENT*BUSY' PCTCPBXM='CPU 73*PERCENT*BUSY' PCTCPBXN='CPU 74*PERCENT*BUSY' PCTCPBXO='CPU 75*PERCENT*BUSY' PCTCPBXP='CPU 76*PERCENT*BUSY' PCTCPBXQ='CPU 77*PERCENT*BUSY' PCTCPBXR='CPU 78*PERCENT*BUSY' PCTCPBXS='CPU 79*PERCENT*BUSY' PCTCPBXT='CPU 80*PERCENT*BUSY' PCTCPBXU='CPU 81*PERCENT*BUSY' PCTCPBXV='CPU 82*PERCENT*BUSY' PCTCPBXW='CPU 83*PERCENT*BUSY' PCTCPBXX='CPU 84*PERCENT*BUSY' PCTCPBXY='CPU 85*PERCENT*BUSY' PCTCPBXZ='CPU 86*PERCENT*BUSY' PCTCPBY0='CPU 0*PERCENT*BUSY' PCTCPBY1='CPU 1*PERCENT*BUSY' PCTCPBY2='CPU 2*PERCENT*BUSY' PCTCPBY3='CPU 3*PERCENT*BUSY' PCTCPBY4='CPU 4*PERCENT*BUSY' PCTCPBY5='CPU 5*PERCENT*BUSY' PCTCPBY6='CPU 6*PERCENT*BUSY' PCTCPBY7='CPU 7*PERCENT*BUSY' PCTCPBY8='CPU 8*PERCENT*BUSY' PCTCPBY9='CPU 9*PERCENT*BUSY' PCTCPBYA='CPU 10*PERCENT*BUSY' PCTCPBYB='CPU 11*PERCENT*BUSY' PCTCPBYC='CPU 12*PERCENT*BUSY' PCTCPBYD='CPU 13*PERCENT*BUSY' PCTCPBYE='CPU 14*PERCENT*BUSY' PCTCPBYF='CPU 15*PERCENT*BUSY' PCTCPBYG='CPU 16*PERCENT*BUSY' PCTCPBYH='CPU 17*PERCENT*BUSY' PCTCPBYI='CPU 18*PERCENT*BUSY' PCTCPBYJ='CPU 19*PERCENT*BUSY' PCTCPBYK='CPU 20*PERCENT*BUSY' PCTCPBYL='CPU 21*PERCENT*BUSY' PCTCPBYN='CPU 22*PERCENT*BUSY' PCTCPBYO='CPU 23*PERCENT*BUSY' PCTCPBYP='CPU 24*PERCENT*BUSY' PCTCPBYQ='CPU 25*PERCENT*BUSY' PCTCPBYR='CPU 26*PERCENT*BUSY' PCTCPBYS='CPU 27*PERCENT*BUSY' PCTCPBYT='CPU 28*PERCENT*BUSY' PCTCPBYU='CPU 29*PERCENT*BUSY' PCTCPBYV='CPU 30*PERCENT*BUSY' PCTCPBYW='CPU 31*PERCENT*BUSY' PCTCPBYX='CPU 32*PERCENT*BUSY' PCTCPBYY='CPU 33*PERCENT*BUSY' PCTCPBYZ='CPU 34*PERCENT*BUSY' PCTCPBZA='CPU 35*PERCENT*BUSY' PCTCPBZB='CPU 36*PERCENT*BUSY' PCTCPBZC='CPU 37*PERCENT*BUSY' PCTCPBZD='CPU 38*PERCENT*BUSY' PCTCPBZE='CPU 39*PERCENT*BUSY' PCTCPBZF='CPU 40*PERCENT*BUSY' PCTCPBZG='CPU 41*PERCENT*BUSY' PCTCPBZH='CPU 42*PERCENT*BUSY' PCTCPBZI='CPU 43*PERCENT*BUSY' PCTCPBZJ='CPU 44*PERCENT*BUSY' PCTCPBZK='CPU 45*PERCENT*BUSY' PCTCPBZL='CPU 46*PERCENT*BUSY' PCTCPBZM='CPU 47*PERCENT*BUSY' PCTCPBZN='CPU 48*PERCENT*BUSY' PCTCPBZO='CPU 49*PERCENT*BUSY' PCTCPBZP='CPU 50*PERCENT*BUSY' PCTCPBZQ='CPU 51*PERCENT*BUSY' PCTCPBZR='CPU 52*PERCENT*BUSY' PCTCPBZS='CPU 53*PERCENT*BUSY' PCTCPBZT='CPU 54*PERCENT*BUSY' PCTCPBZU='CPU 55*PERCENT*BUSY' PCTCPBZV='CPU 56*PERCENT*BUSY' PCTCPBZW='CPU 57*PERCENT*BUSY' PCTCPBZX='CPU 58*PERCENT*BUSY' PCTCPBZY='CPU 59*PERCENT*BUSY' PCTCPBZZ='CPU 60*PERCENT*BUSY' PCTCPUBY='ALL CPUS*PERCENT*BUSY (DISPATCHED)' PCTCPUEF='ALL CPUS*PERCENT*BUSY (EFFECTIVE)' PCTDLACO='AUX PAGE*FM COMMON*DELAY PERCENT' PCTDLAPR='AUX PAGE*FM PRIVATE*DELAY PERCENT' PCTDLAXM='AUX PAGE*FM CROSS MEM*DELAY PERCENT' PCTDLCCA='CPU*CAPPING*DELAY*PERCENT' PCTDLCDE='CPU DELAY*PERCENT*NOT INCLUDING*WLM CAP' PCTDLCHS='AUX PAGE*FM ESO HIPER*DELAY PERCENT' PCTDLDEV='PCT WHEN*DEVICE*DELAY' PCTDLENQ='PCT WHEN*ENQ*DELAY' PCTDLHSM='PCT WHEN*HSM*DELAY' PCTDLHSP='AUX PAGE*FM STD HIPER*DLY PERCENT' PCTDLIDL='IDLE*DELAY*PERCENT' PCTDLIOD='DASD*DELAY*PERCENT' PCTDLJES='PCT WHEN*JES*DELAY' PCTDLMNT='PCT WHEN*MOUNT*DELAY' PCTDLMPL='MPL*DELAY*PERCENT' PCTDLMSG='PCT WHEN*MESSAGE*DELAY' PCTDLNDI='NOW*MISSING*USE*R723CNDI' PCTDLPDE='PCT WHEN*RESOURCE GROUP*MAXIMUM*ENFORCED' PCTDLPQU='QUIESCE*PERCENT' PCTDLPRO='PCT WHEN PROCESSOR*DELAY' PCTDLQ ='QUEUE*DELAY*PERCENT*WAIT FOR*SERVER' PCTDLSHS='PCT SERVER*HIPERSPACE*PAGING*DELAY' PCTDLSMP='PCT SERVER*MPL*DELAY' PCTDLSPV='PCT SERVER*PRIVATE AREA*PAGING DELAY' PCTDLSSW='PCT SERVER*SWAP-IN*DELAY' PCTDLSTO='PERCENT WHEN*STORAGE*DELAY' PCTDLSVI='PCT SERVER*SPACE VIO*PAGING*DELAY' PCTDLSWI='SWAP-IN*DELAY*PERCENT' PCTDLTDQ='PCT TOTAL*(INCLUDES BATCH)*DELAY' PCTDLTOT='TOTAL*DELAY*PERCENT' PCTDLUNK='UNKNOWN*DELAY*PERCENT' PCTDLVIO='AUX PAGE*FM VIO*DELAY PERCENT' PCTDLXCF='PCT WHEN*XCF*DELAY' PCTDLZIP='ZIP DELAY*PERCENT' PCTEXTSA='NOW*MISSING*USE*R723CTSA' PCTIFABY='ALL IFAS*PERCENT*BUSY (DISPATCHED)' PCTIFBUA='IFA 87*PERCENT*IFA BUSY TIME' PCTIFBUB='IFA 88*PERCENT*IFA BUSY TIME' PCTIFBUC='IFA 89*PERCENT*IFA BUSY TIME' PCTIFBUD='IFA 90*PERCENT*IFA BUSY TIME' PCTIFBUE='IFA 91*PERCENT*IFA BUSY TIME' PCTIFBUF='IFA 92*PERCENT*IFA BUSY TIME' PCTIFBUG='IFA 93*PERCENT*IFA BUSY TIME' PCTIFBUH='IFA 94*PERCENT*IFA BUSY TIME' PCTIFBUI='IFA 95*PERCENT*IFA BUSY TIME' PCTIFBXA='IFA 61*PERCENT*IFA BUSY TIME' PCTIFBXB='IFA 62*PERCENT*IFA BUSY TIME' PCTIFBXC='IFA 63*PERCENT*IFA BUSY TIME' PCTIFBXD='IFA 64*PERCENT*IFA BUSY TIME' PCTIFBXE='IFA 65*PERCENT*IFA BUSY TIME' PCTIFBXF='IFA 66*PERCENT*IFA BUSY TIME' PCTIFBXG='IFA 67*PERCENT*IFA BUSY TIME' PCTIFBXH='IFA 68*PERCENT*IFA BUSY TIME' PCTIFBXI='IFA 69*PERCENT*IFA BUSY TIME' PCTIFBXJ='IFA 70*PERCENT*IFA BUSY TIME' PCTIFBXK='IFA 71*PERCENT*IFA BUSY TIME' PCTIFBXL='IFA 72*PERCENT*IFA BUSY TIME' PCTIFBXM='IFA 73*PERCENT*IFA BUSY TIME' PCTIFBXN='IFA 74*PERCENT*IFA BUSY TIME' PCTIFBXO='IFA 75*PERCENT*IFA BUSY TIME' PCTIFBXP='IFA 76*PERCENT*IFA BUSY TIME' PCTIFBXQ='IFA 77*PERCENT*IFA BUSY TIME' PCTIFBXR='IFA 78*PERCENT*IFA BUSY TIME' PCTIFBXS='IFA 79*PERCENT*IFA BUSY TIME' PCTIFBXT='IFA 80*PERCENT*IFA BUSY TIME' PCTIFBXU='IFA 81*PERCENT*IFA BUSY TIME' PCTIFBXV='IFA 82*PERCENT*IFA BUSY TIME' PCTIFBXW='IFA 83*PERCENT*IFA BUSY TIME' PCTIFBXX='IFA 84*PERCENT*IFA BUSY TIME' PCTIFBXY='IFA 85*PERCENT*IFA BUSY TIME' PCTIFBXZ='IFA 86*PERCENT*IFA BUSY TIME' PCTIFBY0='IFA 0*PERCENT*IFA BUSY TIME' PCTIFBY1='IFA 1*PERCENT*IFA BUSY TIME' PCTIFBY2='IFA 2*PERCENT*IFA BUSY TIME' PCTIFBY3='IFA 3*PERCENT*IFA BUSY TIME' PCTIFBY4='IFA 4*PERCENT*IFA BUSY TIME' PCTIFBY5='IFA 5*PERCENT*IFA BUSY TIME' PCTIFBY6='IFA 6*PERCENT*IFA BUSY TIME' PCTIFBY7='IFA 7*PERCENT*IFA BUSY TIME' PCTIFBY8='IFA 8*PERCENT*IFA BUSY TIME' PCTIFBY9='IFA 9*PERCENT*IFA BUSY TIME' PCTIFBYA='IFA 10*PERCENT*IFA BUSY TIME' PCTIFBYB='IFA 11*PERCENT*IFA BUSY TIME' PCTIFBYC='IFA 12*PERCENT*IFA BUSY TIME' PCTIFBYD='IFA 13*PERCENT*IFA BUSY TIME' PCTIFBYE='IFA 14*PERCENT*IFA BUSY TIME' PCTIFBYF='IFA 15*PERCENT*IFA BUSY TIME' PCTIFBYG='IFA 16*PERCENT*IFA BUSY TIME' PCTIFBYH='IFA 17*PERCENT*IFA BUSY TIME' PCTIFBYI='IFA 18*PERCENT*IFA BUSY TIME' PCTIFBYJ='IFA 19*PERCENT*IFA BUSY TIME' PCTIFBYK='IFA 20*PERCENT*IFA BUSY TIME' PCTIFBYL='IFA 21*PERCENT*IFA BUSY TIME' PCTIFBYN='IFA 22*PERCENT*IFA BUSY TIME' PCTIFBYO='IFA 23*PERCENT*IFA BUSY TIME' PCTIFBYP='IFA 24*PERCENT*IFA BUSY TIME' PCTIFBYQ='IFA 25*PERCENT*IFA BUSY TIME' PCTIFBYR='IFA 26*PERCENT*IFA BUSY TIME' PCTIFBYS='IFA 27*PERCENT*IFA BUSY TIME' PCTIFBYT='IFA 28*PERCENT*IFA BUSY TIME' PCTIFBYU='IFA 29*PERCENT*IFA BUSY TIME' PCTIFBYV='IFA 30*PERCENT*IFA BUSY TIME' PCTIFBYW='IFA 31*PERCENT*IFA BUSY TIME' PCTIFBYX='IFA 32*PERCENT*IFA BUSY TIME' PCTIFBYY='IFA 33*PERCENT*IFA BUSY TIME' PCTIFBYZ='IFA 34*PERCENT*IFA BUSY TIME' PCTIFBZA='IFA 35*PERCENT*IFA BUSY TIME' PCTIFBZB='IFA 36*PERCENT*IFA BUSY TIME' PCTIFBZC='IFA 37*PERCENT*IFA BUSY TIME' PCTIFBZD='IFA 38*PERCENT*IFA BUSY TIME' PCTIFBZE='IFA 39*PERCENT*IFA BUSY TIME' PCTIFBZF='IFA 40*PERCENT*IFA BUSY TIME' PCTIFBZG='IFA 41*PERCENT*IFA BUSY TIME' PCTIFBZH='IFA 42*PERCENT*IFA BUSY TIME' PCTIFBZI='IFA 43*PERCENT*IFA BUSY TIME' PCTIFBZJ='IFA 44*PERCENT*IFA BUSY TIME' PCTIFBZK='IFA 45*PERCENT*IFA BUSY TIME' PCTIFBZL='IFA 46*PERCENT*IFA BUSY TIME' PCTIFBZM='IFA 47*PERCENT*IFA BUSY TIME' PCTIFBZN='IFA 48*PERCENT*IFA BUSY TIME' PCTIFBZO='IFA 49*PERCENT*IFA BUSY TIME' PCTIFBZP='IFA 50*PERCENT*IFA BUSY TIME' PCTIFBZQ='IFA 51*PERCENT*IFA BUSY TIME' PCTIFBZR='IFA 52*PERCENT*IFA BUSY TIME' PCTIFBZS='IFA 53*PERCENT*IFA BUSY TIME' PCTIFBZT='IFA 54*PERCENT*IFA BUSY TIME' PCTIFBZU='IFA 55*PERCENT*IFA BUSY TIME' PCTIFBZV='IFA 56*PERCENT*IFA BUSY TIME' PCTIFBZW='IFA 57*PERCENT*IFA BUSY TIME' PCTIFBZX='IFA 58*PERCENT*IFA BUSY TIME' PCTIFBZY='IFA 59*PERCENT*IFA BUSY TIME' PCTIFBZZ='IFA 60*PERCENT*IFA BUSY TIME' PCTMETGO='PERCENT*OF TRANS*MEETING*GOAL' PCTMVSBY='MVS CPU*PERCENT*BUSY' PCTONLN0='CPU 0*PERCENT*ONLINE TIME' PCTONLN1='CPU 1*PERCENT*ONLINE TIME' PCTONLN2='CPU 2*PERCENT*ONLINE TIME' PCTONLN3='CPU 3*PERCENT*ONLINE TIME' PCTONLN4='CPU 4*PERCENT*ONLINE TIME' PCTONLN5='CPU 5*PERCENT*ONLINE TIME' PCTONLN6='CPU 6*PERCENT*ONLINE TIME' PCTONLN7='CPU 7*PERCENT*ONLINE TIME' PCTONLN8='CPU 8*PERCENT*ONLINE TIME' PCTONLN9='CPU 9*PERCENT*ONLINE TIME' PCTONLNA='CPU 10*PERCENT*ONLINE TIME' PCTONLNB='CPU 11*PERCENT*ONLINE TIME' PCTONLNC='CPU 12*PERCENT*ONLINE TIME' PCTONLND='CPU 13*PERCENT*ONLINE TIME' PCTONLNE='CPU 14*PERCENT*ONLINE TIME' PCTONLNF='CPU 15*PERCENT*ONLINE TIME' PCTONLNG='CPU 16*PERCENT*ONLINE TIME' PCTONLNH='CPU 17*PERCENT*ONLINE TIME' PCTONLNI='CPU 18*PERCENT*ONLINE TIME' PCTONLNJ='CPU 19*PERCENT*ONLINE TIME' PCTONLNK='CPU 20*PERCENT*ONLINE TIME' PCTONLNL='CPU 21*PERCENT*ONLINE TIME' PCTONLNN='CPU 22*PERCENT*ONLINE TIME' PCTONLNO='CPU 23*PERCENT*ONLINE TIME' PCTONLNP='CPU 24*PERCENT*ONLINE TIME' PCTONLNQ='CPU 25*PERCENT*ONLINE TIME' PCTONLNR='CPU 26*PERCENT*ONLINE TIME' PCTONLNS='CPU 27*PERCENT*ONLINE TIME' PCTONLNT='CPU 28*PERCENT*ONLINE TIME' PCTONLNU='CPU 29*PERCENT*ONLINE TIME' PCTONLNV='CPU 30*PERCENT*ONLINE TIME' PCTONLNW='CPU 31*PERCENT*ONLINE TIME' PCTONLNX='CPU 32*PERCENT*ONLINE TIME' PCTONLNY='CPU 33*PERCENT*ONLINE TIME' PCTONLNZ='CPU 34*PERCENT*ONLINE TIME' PCTONLVA='CPU 87*PERCENT*ONLINE TIME' PCTONLVB='CPU 88*PERCENT*ONLINE TIME' PCTONLVC='CPU 89*PERCENT*ONLINE TIME' PCTONLVD='CPU 90*PERCENT*ONLINE TIME' PCTONLVE='CPU 91*PERCENT*ONLINE TIME' PCTONLVF='CPU 92*PERCENT*ONLINE TIME' PCTONLVG='CPU 93*PERCENT*ONLINE TIME' PCTONLVH='CPU 94*PERCENT*ONLINE TIME' PCTONLVI='CPU 95*PERCENT*ONLINE TIME' PCTONLVJ='CPU 96*PERCENT*ONLINE TIME' PCTONLVK='CPU 97*PERCENT*ONLINE TIME' PCTONLVL='CPU 98*PERCENT*ONLINE TIME' PCTONLVM='CPU 99*PERCENT*ONLINE TIME' PCTONLVN='CPU 100*PERCENT*ONLINE TIME' PCTONLVO='CPU 101*PERCENT*ONLINE TIME' PCTONLYA='CPU 61*PERCENT*ONLINE TIME' PCTONLYB='CPU 62*PERCENT*ONLINE TIME' PCTONLYC='CPU 63*PERCENT*ONLINE TIME' PCTONLYD='CPU 64*PERCENT*ONLINE TIME' PCTONLYE='CPU 65*PERCENT*ONLINE TIME' PCTONLYF='CPU 66*PERCENT*ONLINE TIME' PCTONLYG='CPU 67*PERCENT*ONLINE TIME' PCTONLYH='CPU 68*PERCENT*ONLINE TIME' PCTONLYI='CPU 69*PERCENT*ONLINE TIME' PCTONLYJ='CPU 70*PERCENT*ONLINE TIME' PCTONLYK='CPU 71*PERCENT*ONLINE TIME' PCTONLYL='CPU 72*PERCENT*ONLINE TIME' PCTONLYM='CPU 73*PERCENT*ONLINE TIME' PCTONLYN='CPU 74*PERCENT*ONLINE TIME' PCTONLYO='CPU 75*PERCENT*ONLINE TIME' PCTONLYP='CPU 76*PERCENT*ONLINE TIME' PCTONLYQ='CPU 77*PERCENT*ONLINE TIME' PCTONLYR='CPU 78*PERCENT*ONLINE TIME' PCTONLYS='CPU 79*PERCENT*ONLINE TIME' PCTONLYT='CPU 80*PERCENT*ONLINE TIME' PCTONLYU='CPU 81*PERCENT*ONLINE TIME' PCTONLYV='CPU 82*PERCENT*ONLINE TIME' PCTONLYW='CPU 83*PERCENT*ONLINE TIME' PCTONLYX='CPU 84*PERCENT*ONLINE TIME' PCTONLYY='CPU 85*PERCENT*ONLINE TIME' PCTONLYZ='CPU 86*PERCENT*ONLINE TIME' PCTONLZA='CPU 35*PERCENT*ONLINE TIME' PCTONLZB='CPU 36*PERCENT*ONLINE TIME' PCTONLZC='CPU 37*PERCENT*ONLINE TIME' PCTONLZD='CPU 38*PERCENT*ONLINE TIME' PCTONLZE='CPU 39*PERCENT*ONLINE TIME' PCTONLZF='CPU 40*PERCENT*ONLINE TIME' PCTONLZG='CPU 41*PERCENT*ONLINE TIME' PCTONLZH='CPU 42*PERCENT*ONLINE TIME' PCTONLZI='CPU 43*PERCENT*ONLINE TIME' PCTONLZJ='CPU 44*PERCENT*ONLINE TIME' PCTONLZK='CPU 45*PERCENT*ONLINE TIME' PCTONLZL='CPU 46*PERCENT*ONLINE TIME' PCTONLZM='CPU 47*PERCENT*ONLINE TIME' PCTONLZN='CPU 48*PERCENT*ONLINE TIME' PCTONLZO='CPU 49*PERCENT*ONLINE TIME' PCTONLZP='CPU 50*PERCENT*ONLINE TIME' PCTONLZQ='CPU 51*PERCENT*ONLINE TIME' PCTONLZR='CPU 52*PERCENT*ONLINE TIME' PCTONLZS='CPU 53*PERCENT*ONLINE TIME' PCTONLZT='CPU 54*PERCENT*ONLINE TIME' PCTONLZU='CPU 55*PERCENT*ONLINE TIME' PCTONLZV='CPU 56*PERCENT*ONLINE TIME' PCTONLZW='CPU 57*PERCENT*ONLINE TIME' PCTONLZX='CPU 58*PERCENT*ONLINE TIME' PCTONLZY='CPU 59*PERCENT*ONLINE TIME' PCTONLZZ='CPU 60*PERCENT*ONLINE TIME' PCTRDQWT='PCT WHEN*Q-BASED*N+ TASKS*ARE WAITING' PCTRDYWT='PCT WHEN*READY-BASED TASKS*ARE WAITING' PCTTPI ='TOTAL %% I/O*INTERRUPTS*DELAYED (TPI)' PCTTPI0 ='CPU 0 %% I/O*INTERRUPTS*DELAYED (TPI)' PCTTPI1 ='CPU 1 %% I/O*INTERRUPTS*DELAYED (TPI)' PCTTPI2 ='CPU 2 %% I/O*INTERRUPTS*DELAYED (TPI)' PCTTPI3 ='CPU 3 %% I/O*INTERRUPTS*DELAYED (TPI)' PCTTPI4 ='CPU 4 %% I/O*INTERRUPTS*DELAYED (TPI)' PCTTPI5 ='CPU 5 %% I/O*INTERRUPTS*DELAYED (TPI)' PCTTPI6 ='CPU 6 %% I/O*INTERRUPTS*DELAYED (TPI)' PCTTPI7 ='CPU 7 %% I/O*INTERRUPTS*DELAYED (TPI)' PCTTPI8 ='CPU 8 %% I/O*INTERRUPTS*DELAYED (TPI)' PCTTPI9 ='CPU 9 %% I/O*INTERRUPTS*DELAYED (TPI)' PCTTPIA ='CPU 10 %% I/O*INTERRUPTS*DELAYED (TPI)' PCTTPIB ='CPU 11 %% I/O*INTERRUPTS*DELAYED (TPI)' PCTTPIC ='CPU 12 %% I/O*INTERRUPTS*DELAYED (TPI)' PCTTPID ='CPU 13 %% I/O*INTERRUPTS*DELAYED (TPI)' PCTTPIE ='CPU 14 %% I/O*INTERRUPTS*DELAYED (TPI)' PCTTPIF ='CPU 15 %% I/O*INTERRUPTS*DELAYED (TPI)' PCTTPIG ='CPU 16 %% I/O*INTERRUPTS*DELAYED (TPI)' PCTTPIH ='CPU 17 %% I/O*INTERRUPTS*DELAYED (TPI)' PCTTPII ='CPU 18 %% I/O*INTERRUPTS*DELAYED (TPI)' PCTTPIJ ='CPU 19 %% I/O*INTERRUPTS*DELAYED (TPI)' PCTTPIK ='CPU 20 %% I/O*INTERRUPTS*DELAYED (TPI)' PCTTPIL ='CPU 21 %% I/O*INTERRUPTS*DELAYED (TPI)' PCTTPIN ='CPU 22 %% I/O*INTERRUPTS*DELAYED (TPI)' PCTTPIO ='CPU 23 %% I/O*INTERRUPTS*DELAYED (TPI)' PCTTPIP ='CPU 24 %% I/O*INTERRUPTS*DELAYED (TPI)' PCTTPIQ ='CPU 25 %% I/O*INTERRUPTS*DELAYED (TPI)' PCTTPIR ='CPU 26 %% I/O*INTERRUPTS*DELAYED (TPI)' PCTTPIS ='CPU 27 %% I/O*INTERRUPTS*DELAYED (TPI)' PCTTPIT ='CPU 28 %% I/O*INTERRUPTS*DELAYED (TPI)' PCTTPIU ='CPU 29 %% I/O*INTERRUPTS*DELAYED (TPI)' PCTTPIV ='CPU 30 %% I/O*INTERRUPTS*DELAYED (TPI)' PCTTPIVA='CPU 87 %% I/O*INTERRUPTS*DELAYED (TPI)' PCTTPIVB='CPU 88 %% I/O*INTERRUPTS*DELAYED (TPI)' PCTTPIVC='CPU 89 %% I/O*INTERRUPTS*DELAYED (TPI)' PCTTPIVD='CPU 90 %% I/O*INTERRUPTS*DELAYED (TPI)' PCTTPIVE='CPU 91 %% I/O*INTERRUPTS*DELAYED (TPI)' PCTTPIVF='CPU 92 %% I/O*INTERRUPTS*DELAYED (TPI)' PCTTPIVG='CPU 93 %% I/O*INTERRUPTS*DELAYED (TPI)' PCTTPIVH='CPU 94 %% I/O*INTERRUPTS*DELAYED (TPI)' PCTTPIVI='CPU 95 %% I/O*INTERRUPTS*DELAYED (TPI)' PCTTPIW ='CPU 31 %% I/O*INTERRUPTS*DELAYED (TPI)' PCTTPIX ='CPU 32 %% I/O*INTERRUPTS*DELAYED (TPI)' PCTTPIY ='CPU 33 %% I/O*INTERRUPTS*DELAYED (TPI)' PCTTPIYA='CPU 61 %% I/O*INTERRUPTS*DELAYED (TPI)' PCTTPIYB='CPU 62 %% I/O*INTERRUPTS*DELAYED (TPI)' PCTTPIYC='CPU 63 %% I/O*INTERRUPTS*DELAYED (TPI)' PCTTPIYD='CPU 64 %% I/O*INTERRUPTS*DELAYED (TPI)' PCTTPIYE='CPU 65 %% I/O*INTERRUPTS*DELAYED (TPI)' PCTTPIYF='CPU 66 %% I/O*INTERRUPTS*DELAYED (TPI)' PCTTPIYG='CPU 67 %% I/O*INTERRUPTS*DELAYED (TPI)' PCTTPIYH='CPU 68 %% I/O*INTERRUPTS*DELAYED (TPI)' PCTTPIYI='CPU 69 %% I/O*INTERRUPTS*DELAYED (TPI)' PCTTPIYJ='CPU 70 %% I/O*INTERRUPTS*DELAYED (TPI)' PCTTPIYK='CPU 71 %% I/O*INTERRUPTS*DELAYED (TPI)' PCTTPIYL='CPU 72 %% I/O*INTERRUPTS*DELAYED (TPI)' PCTTPIYM='CPU 73 %% I/O*INTERRUPTS*DELAYED (TPI)' PCTTPIYN='CPU 74 %% I/O*INTERRUPTS*DELAYED (TPI)' PCTTPIYO='CPU 75 %% I/O*INTERRUPTS*DELAYED (TPI)' PCTTPIYP='CPU 76 %% I/O*INTERRUPTS*DELAYED (TPI)' PCTTPIYQ='CPU 77 %% I/O*INTERRUPTS*DELAYED (TPI)' PCTTPIYR='CPU 78 %% I/O*INTERRUPTS*DELAYED (TPI)' PCTTPIYS='CPU 79 %% I/O*INTERRUPTS*DELAYED (TPI)' PCTTPIYT='CPU 80 %% I/O*INTERRUPTS*DELAYED (TPI)' PCTTPIYU='CPU 81 %% I/O*INTERRUPTS*DELAYED (TPI)' PCTTPIYV='CPU 82 %% I/O*INTERRUPTS*DELAYED (TPI)' PCTTPIYW='CPU 83 %% I/O*INTERRUPTS*DELAYED (TPI)' PCTTPIYX='CPU 84 %% I/O*INTERRUPTS*DELAYED (TPI)' PCTTPIYY='CPU 85 %% I/O*INTERRUPTS*DELAYED (TPI)' PCTTPIYZ='CPU 86 %% I/O*INTERRUPTS*DELAYED (TPI)' PCTTPIZ ='CPU 34 %% I/O*INTERRUPTS*DELAYED (TPI)' PCTTPIZA='CPU 35 %% I/O*INTERRUPTS*DELAYED (TPI)' PCTTPIZB='CPU 36 %% I/O*INTERRUPTS*DELAYED (TPI)' PCTTPIZC='CPU 37 %% I/O*INTERRUPTS*DELAYED (TPI)' PCTTPIZD='CPU 38 %% I/O*INTERRUPTS*DELAYED (TPI)' PCTTPIZE='CPU 39 %% I/O*INTERRUPTS*DELAYED (TPI)' PCTTPIZF='CPU 40 %% I/O*INTERRUPTS*DELAYED (TPI)' PCTTPIZG='CPU 41 %% I/O*INTERRUPTS*DELAYED (TPI)' PCTTPIZH='CPU 42 %% I/O*INTERRUPTS*DELAYED (TPI)' PCTTPIZI='CPU 43 %% I/O*INTERRUPTS*DELAYED (TPI)' PCTTPIZJ='CPU 44 %% I/O*INTERRUPTS*DELAYED (TPI)' PCTTPIZK='CPU 45 %% I/O*INTERRUPTS*DELAYED (TPI)' PCTTPIZL='CPU 46 %% I/O*INTERRUPTS*DELAYED (TPI)' PCTTPIZM='CPU 47 %% I/O*INTERRUPTS*DELAYED (TPI)' PCTTPIZN='CPU 48 %% I/O*INTERRUPTS*DELAYED (TPI)' PCTTPIZO='CPU 49 %% I/O*INTERRUPTS*DELAYED (TPI)' PCTTPIZP='CPU 50 %% I/O*INTERRUPTS*DELAYED (TPI)' PCTTPIZQ='CPU 51 %% I/O*INTERRUPTS*DELAYED (TPI)' PCTTPIZR='CPU 52 %% I/O*INTERRUPTS*DELAYED (TPI)' PCTTPIZS='CPU 53 %% I/O*INTERRUPTS*DELAYED (TPI)' PCTTPIZT='CPU 54 %% I/O*INTERRUPTS*DELAYED (TPI)' PCTTPIZU='CPU 55 %% I/O*INTERRUPTS*DELAYED (TPI)' PCTTPIZV='CPU 56 %% I/O*INTERRUPTS*DELAYED (TPI)' PCTTPIZW='CPU 57 %% I/O*INTERRUPTS*DELAYED (TPI)' PCTTPIZX='CPU 58 %% I/O*INTERRUPTS*DELAYED (TPI)' PCTTPIZY='CPU 59 %% I/O*INTERRUPTS*DELAYED (TPI)' PCTTPIZZ='CPU 60 %% I/O*INTERRUPTS*DELAYED (TPI)' PCTUNKN ='PCT WHEN*UNKNOWN*STATE' PCTUSCUS='CPU*USING*PERCENT' PCTUSDEV='PCT WHEN*DEVICE*USING' PCTUSIOU='PCT TOTAL*USING I/O*SAMPLES' PCTUSPRO='PCT WHEN PROCESSOR*USING' PCTUSTOU='TOTAL*USING*SAMPLES' PCTWUQWT='PCT WHEN*WORK UNITS*ARE WAITING' PCTZIBUA='ZIP 87*PERCENT*ZIP BUSY TIME' PCTZIBUB='ZIP 88*PERCENT*ZIP BUSY TIME' PCTZIBUC='ZIP 89*PERCENT*ZIP BUSY TIME' PCTZIBUD='ZIP 90*PERCENT*ZIP BUSY TIME' PCTZIBUE='ZIP 91*PERCENT*ZIP BUSY TIME' PCTZIBUF='ZIP 92*PERCENT*ZIP BUSY TIME' PCTZIBUG='ZIP 93*PERCENT*ZIP BUSY TIME' PCTZIBUH='ZIP 94*PERCENT*ZIP BUSY TIME' PCTZIBUI='ZIP 95*PERCENT*ZIP BUSY TIME' PCTZIBXA='ZIP 61*PERCENT*ZIP BUSY TIME' PCTZIBXB='ZIP 62*PERCENT*ZIP BUSY TIME' PCTZIBXC='ZIP 63*PERCENT*ZIP BUSY TIME' PCTZIBXD='ZIP 64*PERCENT*ZIP BUSY TIME' PCTZIBXE='ZIP 65*PERCENT*ZIP BUSY TIME' PCTZIBXF='ZIP 66*PERCENT*ZIP BUSY TIME' PCTZIBXG='ZIP 67*PERCENT*ZIP BUSY TIME' PCTZIBXH='ZIP 68*PERCENT*ZIP BUSY TIME' PCTZIBXI='ZIP 69*PERCENT*ZIP BUSY TIME' PCTZIBXJ='ZIP 70*PERCENT*ZIP BUSY TIME' PCTZIBXK='ZIP 71*PERCENT*ZIP BUSY TIME' PCTZIBXL='ZIP 72*PERCENT*ZIP BUSY TIME' PCTZIBXM='ZIP 73*PERCENT*ZIP BUSY TIME' PCTZIBXN='ZIP 74*PERCENT*ZIP BUSY TIME' PCTZIBXO='ZIP 75*PERCENT*ZIP BUSY TIME' PCTZIBXP='ZIP 76*PERCENT*ZIP BUSY TIME' PCTZIBXQ='ZIP 77*PERCENT*ZIP BUSY TIME' PCTZIBXR='ZIP 78*PERCENT*ZIP BUSY TIME' PCTZIBXS='ZIP 79*PERCENT*ZIP BUSY TIME' PCTZIBXT='ZIP 80*PERCENT*ZIP BUSY TIME' PCTZIBXU='ZIP 81*PERCENT*ZIP BUSY TIME' PCTZIBXV='ZIP 82*PERCENT*ZIP BUSY TIME' PCTZIBXW='ZIP 83*PERCENT*ZIP BUSY TIME' PCTZIBXX='ZIP 84*PERCENT*ZIP BUSY TIME' PCTZIBXY='ZIP 85*PERCENT*ZIP BUSY TIME' PCTZIBXZ='ZIP 86*PERCENT*ZIP BUSY TIME' PCTZIBY0='ZIP 0*PERCENT*ZIP BUSY TIME' PCTZIBY1='ZIP 1*PERCENT*ZIP BUSY TIME' PCTZIBY2='ZIP 2*PERCENT*ZIP BUSY TIME' PCTZIBY3='ZIP 3*PERCENT*ZIP BUSY TIME' PCTZIBY4='ZIP 4*PERCENT*ZIP BUSY TIME' PCTZIBY5='ZIP 5*PERCENT*ZIP BUSY TIME' PCTZIBY6='ZIP 6*PERCENT*ZIP BUSY TIME' PCTZIBY7='ZIP 7*PERCENT*ZIP BUSY TIME' PCTZIBY8='ZIP 8*PERCENT*ZIP BUSY TIME' PCTZIBY9='ZIP 9*PERCENT*ZIP BUSY TIME' PCTZIBYA='ZIP 10*PERCENT*ZIP BUSY TIME' PCTZIBYB='ZIP 11*PERCENT*ZIP BUSY TIME' PCTZIBYC='ZIP 12*PERCENT*ZIP BUSY TIME' PCTZIBYD='ZIP 13*PERCENT*ZIP BUSY TIME' PCTZIBYE='ZIP 14*PERCENT*ZIP BUSY TIME' PCTZIBYF='ZIP 15*PERCENT*ZIP BUSY TIME' PCTZIBYG='ZIP 16*PERCENT*ZIP BUSY TIME' PCTZIBYH='ZIP 17*PERCENT*ZIP BUSY TIME' PCTZIBYI='ZIP 18*PERCENT*ZIP BUSY TIME' PCTZIBYJ='ZIP 19*PERCENT*ZIP BUSY TIME' PCTZIBYK='ZIP 20*PERCENT*ZIP BUSY TIME' PCTZIBYL='ZIP 21*PERCENT*ZIP BUSY TIME' PCTZIBYN='ZIP 22*PERCENT*ZIP BUSY TIME' PCTZIBYO='ZIP 23*PERCENT*ZIP BUSY TIME' PCTZIBYP='ZIP 24*PERCENT*ZIP BUSY TIME' PCTZIBYQ='ZIP 25*PERCENT*ZIP BUSY TIME' PCTZIBYR='ZIP 26*PERCENT*ZIP BUSY TIME' PCTZIBYS='ZIP 27*PERCENT*ZIP BUSY TIME' PCTZIBYT='ZIP 28*PERCENT*ZIP BUSY TIME' PCTZIBYU='ZIP 29*PERCENT*ZIP BUSY TIME' PCTZIBYV='ZIP 30*PERCENT*ZIP BUSY TIME' PCTZIBYW='ZIP 31*PERCENT*ZIP BUSY TIME' PCTZIBYX='ZIP 32*PERCENT*ZIP BUSY TIME' PCTZIBYY='ZIP 33*PERCENT*ZIP BUSY TIME' PCTZIBYZ='ZIP 34*PERCENT*ZIP BUSY TIME' PCTZIBZA='ZIP 35*PERCENT*ZIP BUSY TIME' PCTZIBZB='ZIP 36*PERCENT*ZIP BUSY TIME' PCTZIBZC='ZIP 37*PERCENT*ZIP BUSY TIME' PCTZIBZD='ZIP 38*PERCENT*ZIP BUSY TIME' PCTZIBZE='ZIP 39*PERCENT*ZIP BUSY TIME' PCTZIBZF='ZIP 40*PERCENT*ZIP BUSY TIME' PCTZIBZG='ZIP 41*PERCENT*ZIP BUSY TIME' PCTZIBZH='ZIP 42*PERCENT*ZIP BUSY TIME' PCTZIBZI='ZIP 43*PERCENT*ZIP BUSY TIME' PCTZIBZJ='ZIP 44*PERCENT*ZIP BUSY TIME' PCTZIBZK='ZIP 45*PERCENT*ZIP BUSY TIME' PCTZIBZL='ZIP 46*PERCENT*ZIP BUSY TIME' PCTZIBZM='ZIP 47*PERCENT*ZIP BUSY TIME' PCTZIBZN='ZIP 48*PERCENT*ZIP BUSY TIME' PCTZIBZO='ZIP 49*PERCENT*ZIP BUSY TIME' PCTZIBZP='ZIP 50*PERCENT*ZIP BUSY TIME' PCTZIBZQ='ZIP 51*PERCENT*ZIP BUSY TIME' PCTZIBZR='ZIP 52*PERCENT*ZIP BUSY TIME' PCTZIBZS='ZIP 53*PERCENT*ZIP BUSY TIME' PCTZIBZT='ZIP 54*PERCENT*ZIP BUSY TIME' PCTZIBZU='ZIP 55*PERCENT*ZIP BUSY TIME' PCTZIBZV='ZIP 56*PERCENT*ZIP BUSY TIME' PCTZIBZW='ZIP 57*PERCENT*ZIP BUSY TIME' PCTZIBZX='ZIP 58*PERCENT*ZIP BUSY TIME' PCTZIBZY='ZIP 59*PERCENT*ZIP BUSY TIME' PCTZIBZZ='ZIP 60*PERCENT*ZIP BUSY TIME' PCTZIPBY='ALL ZIPS*PERCENT*BUSY (DISPATCHED)' PERFACCT='PERFGRP*SET FROM*ACCOUNT?' PERFGRP ='PERFORMANCE*GROUP' PERFINDX='PERFORMANCE*INDEX*PI' PERFRPGN='REPORT*PERFORMANCE*GROUP' PERIOD ='PERIOD*NUMBER' PGBKAUIN='BLOCKED PAGES*PAGED IN*FROM AUX' PGBKESIN='BLOCKED PAGES*PAGED IN*FROM ES' PGINRATE='PAGE-INS*RATE' PGNCLASS='PERFGRP*CLASS*NAME' PGNTRANS='TRANSACTION*NAME*OF PERFGRP' PGNUSER ='USER ID*NAME*OF PERFGRP' PGPAGEIN='UNBLOCKED PAGES*PAGED IN*FROM AUX' PGPEXCP ='EXCPS ISSUED*BY THIS*PERFGRP/SRVCLASS' PGPIOTM ='IO CONNECT TM*BY THIS*PERFGRP/SRVCLASS' PHYESTOR='ESTORE FOR*NON-LOGICAL*SWAPPED USERS' PLCPRDYQ='LPAR-CP*READY-QUEUE*DELAY*PERCENT' POLARCHG='POLARITY*CHANGED*DURING*INTERVAL?' POLARITY='POLARIZATION' PRODUCT ='PRODUCT*NAME' PRSMSLIC='DISPATCH*INTERVAL*TIMESLICE' PRSMSYST='THIS IS*PR/SM*SYSTEM?' PSWSAMPS='TOTAT*NON-LOGICAL*SWAP SAMPLES' R7021C1C='1024-BIT*CRT OPS*1ST ENGINE' R7021C1T='EXEC TIME*1024-BIT*CRT 1ST ENG' R7021C2C='1024-BIT*CRT OPS*2ND ENGINE' R7021C2T='EXEC TIME*1024-BIT*CRT 2ND ENG' R7021C3C='1024-BIT*CRT OPS*3RD ENGINE' R7021C3T='EXEC TIME*1024-BIT*CRT 3RD ENG' R7021C4C='1024-BIT*CRT OPS*4TH ENGINE' R7021C4T='EXEC TIME*1024-BIT*CRT 4TH ENG' R7021C5C='1024-BIT*CRT OPS*5TH ENGINE' R7021C5T='EXEC TIME*1024-BIT*CRT 5TH ENG' R7021CRC='1024-BIT*CRT OPS*TOTAL' R7021CRT='EXEC TIME*1024-BIT*CRT TOTAL' R7021M1C='1024-BIT*ME OPS*1ST ENGINE' R7021M1T='EXEC TIME*1024-BIT*ME 1ST ENG' R7021M2C='1024-BIT*ME OPS*2ND ENGINE' R7021M2T='EXEC TIME*1024-BIT*ME 2ND ENG' R7021M3C='1024-BIT*ME OPS*3RD ENGINE' R7021M3T='EXEC TIME*1024-BIT*ME 3RD ENG' R7021M4C='1024-BIT*ME OPS*4TH ENGINE' R7021M4T='EXEC TIME*1024-BIT*ME 4TH ENG' R7021M5C='1024-BIT*ME OPS*5TH ENGINE' R7021M5T='EXEC TIME*1024-BIT*ME 5TH ENG' R7021MEC='1024-BIT*ME OPS*TOTAL' R7021MET='EXEC TIME*1024-BIT*ME TOTAL' R7022C1C='2048-BIT*CRT OPS*1ST ENGINE' R7022C1T='EXEC TIME*2048-BIT*CRT 1ST ENG' R7022C2C='2048-BIT*CRT OPS*2ND ENGINE' R7022C2T='EXEC TIME*2048-BIT*CRT 2ND ENG' R7022C3C='2048-BIT*CRT OPS*3RD ENGINE' R7022C3T='EXEC TIME*2048-BIT*CRT 3RD ENG' R7022C4C='2048-BIT*CRT OPS*4TH ENGINE' R7022C4T='EXEC TIME*2048-BIT*CRT 4TH ENG' R7022C5C='2048-BIT*CRT OPS*5TH ENGINE' R7022C5T='EXEC TIME*2048-BIT*CRT 5TH ENG' R7022CRC='2048-BIT*CRT OPS*TOTAL' R7022CRT='EXEC TIME*2048-BIT*CRT TOTAL' R7022M1C='2048-BIT*ME OPS*1ST ENGINE' R7022M1T='EXEC TIME*2048-BIT*ME 1ST ENG' R7022M2C='2048-BIT*ME OPS*2ND ENGINE' R7022M2T='EXEC TIME*2048-BIT*ME 2ND ENG' R7022M3C='2048-BIT*ME OPS*3RD ENGINE' R7022M3T='EXEC TIME*2048-BIT*ME 3RD ENG' R7022M4C='2048-BIT*ME OPS*4TH ENGINE' R7022M4T='EXEC TIME*2048-BIT*ME 4TH ENG' R7022M5C='2048-BIT*ME OPS*5TH ENGINE' R7022M5T='EXEC TIME*2048-BIT*ME 5TH ENG' R7022MEC='2048-BIT*ME OPS*TOTAL' R7022MET='EXEC TIME*2048-BIT*ME TOTAL' R7023AX ='CRYPTO PROCESSOR*INDEX' R7023C0 ='NUMBER*OF*ALL OPERATIONS' R7023C1 ='NUMBER*OF*ALL RSA-KEY-GENS' R7023CRC='NUMBER OF*ALL OPS*4096-BIT*CRT-FMT' R7023CRT='EXEC TIME*ALL OP*4096-BIT*CRT-FMT' R7023CT ='CRYPTO PROCESSOR*TYPE' R7023DID ='DOMAIN*ID' R7023MEC='NUMBER OF*ALL OPS*4096-BIT*ME-FMT' R7023MET='EXEC TIME*ALL OPS*4096-BIT*ME-FMT' R7023MSK='VALIDITY*BIT*MASK' R7023SCOPE='SCOPE*OF*PKCSI1*COPROCESSOR' R7023SF ='SCALING*FACTOR*FOR THIS*PCICC' R7023T0 ='EXECUTION*TIME*ALL OPERATIONS' R7024AX ='CRYPTO PROCESSOR*INDEX' R7024CT ='CRYPTO PROCESSOR*TYPE' R7024DID ='DOMAIN*ID' R7024EN ='NUMBER OF*CRYPTO*ENGINES' R7024MSK='VALIDITY*BIT*MASK' R7024SCOPE='SCOPE*OF*PKCSI1*COPROCESSOR' R7024SF ='SCALING*FACTOR*FOR THIS*PCICC' R7025AGC='ASYMMETRIC-KEY*GENERATION*OPERATIONS' R7025AGT='ASYMMETRIC-KEY*GENERATION*TIME' R7025AX ='CRYPTO PROCESSOR INDEX' R7025CT ='CRYPTO PROCESSOR TYPE' R7025DID ='DOMAIN*ID' R7025FAC='FAST*ASYMMETRIC-KEY*OPERATIONS' R7025FAT='FAST*ASYMMETRIC-KEY*EXECUTION*TIME' R7025MSK='VALIDITY BIT MASK' R7025MT ='RESERVED FOR DIAGNOSTIC PURPOSE' R7025SAC='SLOW*ASYMMETRIC-KEY*OPERATIONS' R7025SAT='SLOW*ASYMMETRIC-KEY*EXECUTION*TIME' R7025SCC='SYMMETRIC-KEY*COMPLETE*RETURN*OPERATIONS' R7025SCOPE='SCOPE*OF*PKCSI1*COPROCESSOR' R7025SCT='SYMMETRIC-KEY*COMPLETE*RETURN*TIME' R7025SF ='SCALING FACTOR FOR THIS PKCS11' R7025SPC='SYMMETRIC-KEY*PARTIAL*RETURN*OPERATIONS' R7025SPT='SYMMETRIC-KEY*PARTIAL*RETURN*TIME' R702AESB='AES*ENCIPHER*BYTES PROCESSED' R702AESC='AES*ENCIPHER*CALLS*SENT' R702AESI='AES*ENCIPHER*OPERATIONS' R702AMGB='DATA BYTES*FOR*GENERATE*AES MACS' R702AMGC='CALLS TO*GENERATE*AES MACS' R702AMGI='INSTRUCTIONS*TO GENERATE*AES MACS' R702AMVB='DATA BYTES*FOR*VERIFIED*AES MACS' R702AMVC='CALLS TO*VERIFY*AES MACS' R702AMVI='INSTRUCTIONS*TO VERIFY*AES MACS' R702ASDB='AES*DECIPHER*BYTES PROCESSED' R702ASDC='AES*DECIPHER*CALLS*SENT' R702ASDI='AES*DECIPHER*OPERATIONS' R702CDLV='ICSF*DATA*LEVEL' R702DEGC='CALLS*TO GENERATE*ECC*SIGNATURES' R702DEVC='CALLS*TO VERIFY*ECC*SIGNATURES' R702DRGC='CALLS*TO*GENERATE*RSA*SIGNATURES' R702DRVC='CALLS TO VERIFY*RSA*SIGNATURES' R702FPDB='DATA BYTES*DECIPHERED*USING FPE' R702FPDC='CALLS TO*DECIPHER*USING FPE' R702FPDI='INSTRUCTIONS*TO DECIPHER*USING FPE' R702FPEB='DATA BYTES*ENCIPHERED*USING FPE' R702FPEC='CALLS TO*ENCIPHER*USING*FPE' R702FPEI='INSTRUCTIONS*TO ENCIPHER*USING FPE' R702FPTB='DATA BYTES*TRANSLATED*USING FPE' R702FPTC='CALLS TO*TRANSLATE*DATA*USING FPE' R702FPTI='INSTRUCTIONS*TO TRANSLATE*USING FPE' R702FXEC='CALLS TO*ENCIPHER*USING*FFX' R702FXEB='BYTES*ENCIPHERED*USING*FFX' R702FXEI='INSTRUCTIONS*TO ENCIPHER*USING*FFX' R702FXDC='CALLS TO*DECIPHER*USING*FFX' R702FXDB='BYTES*DECIPHERED*USING*FFX' R702FXDI='INSTRUCTIONS*TO DECIPHER*USING*FFX' R702FXTC='CALLS TO*TRANSLATE*USING*FFX' R702FXTB='BYTES*TRANSLATEED*USING*FFX' R702FXTI='INSTRUCTIONS*TO TRANSLATE*USING*FFX' R702DQGC='CALLS TO*GENERATE*QSA DIGITAL*SIGNATURE' R702DQVC='CALLS TO*VERIFY*QSA DIGITAL*SIGNATURES' R702NH2B='SHA-256*DATA*BYTES*HASH' R702NH2C='SHA-256*CALLS*TO*HASH' R702NH2I='SHA-256*PCMF INSTR*USED TO*HASH' R702NH5B='SHA-384/512:DATA*BYTES*HASH' R702NH5C='SHA-384/512:CALLS*TO*HASH' R702NH5I='SHA-384/512:PCMF INSTR*USED TO*HASH' R702NHAB='SHA-1*DATA*BYTES*HASH' R702NHAC='SHA-1*CALLS*TO*HASH' R702NHAI='SHA-1*PCMF INSTR*USED TO*HASH' R702NMGB='DATA*BYTES*MAC*GENERATED' R702NMGC='CALLS*TO*MAC*GENERATE' R702NMGI='PCMF INSTR*USED TO*MAC GENERATE' R702NMVB='DATA*BYTES*MAC*VERIFY' R702NMVC='CALLS*TO*MAC*VERIFY' R702NMVI='PCMF INSTR*USED TO*MAC VERIFY' R702NPTC='CALLS TO*PIN*TRANSLATE' R702NPVC='CALLS TO*PIN*VERIFY' R702SNDB='SDES*DATA*BYTES*DECIPHERED' R702SNDC='SDES*CALLS*TO*DECIPHER' R702SNDI='SDES*CMD*INSTR USED*TO DECIPHER' R702SNEB='SDES*DATA*BYTES*ENCIPHERED' R702SNEC='SDES*CALLS*TO*ENCIPHER' R702SNEI='SDES*CMD*INSTR USED*TO ENCIPHER' R702TNDB='TDES*DATA*BYTES*DECIPHERED' R702TNDC='TDES*CALLS*TO*DECIPHER' R702TNDI='TDES*CMD*INSTR USED*TO DECIPHER' R702TNEB='TDES*DATA*BYTES*ENCIPHERED' R702TNEC='TDES*CALLS*TO*ENCIPHER' R702TNEI='TDES*CMD*INSTR USED*TO ENCIPHER' R722GPI ='AVG*SHARED*PAGEINS*FROM AUXSTORE' R722TSV ='AVG*SHARED*PAGE VIEWS' R722VIN ='AVG VALID*SHARED PAGES*IN CSTORE' R722VLC ='AVG*SHARED*PAGE*VALIDATIONS' R723APD ='AP CRYPTO*WAITING*SAMPLES' R723APU ='AP CRYPTO*USING*SAMPLES' R723ASUCP ='CAT A*GP*SERVICE*MSU/HR' R723ASUOCP='CAT A*ELIGIBLE*SERVICE*MSU/HR' R723ASUSP ='CAT A*ZIIP*SERVICE*MSU/HR' R723BSUCP ='CAT B*GP*SERVICE*MSU/HR' R723BSUOCP='CAT B*ELIGIBLE*SERVICE*MSU/HR' R723BSUSP ='CAT B*ZIIP*SERVICE*MSU/HR' R723CADF='ACTUALS*DATA SECTION*FLAG' R723CADT='INELIGIBLE*AFFINITY*DELAY TIME' R723CADTX='TIME*BATCH JOBS*INELIGIBLE*TO RUN' R723CAMD='CAM CRYPTO*DELAY*SAMPLES' R723CAMU='CAM CRYPTO*USING*SAMPLES' R723CCVT='JCL*CONVERSION*DELAY TIME' R723CCVTX='TIME*BATCH JOBS*SPENT*IN JCL CVTR' R723CDQT='TOTAL*BATCH QUEUE*DELAY TIME*MISSPELLED' R723CECA='CEC*ADJUSTMENT*FACTOR' R723CEDA='EXECUTION DELAY*ACTUALS*AVAILABLE?' R723CETSX='SUM*ELAPSED*TIME*SQUARED*MILLISEC' RCDENCTRXNUM='TRANS*PROCESSED*WITHIN*ENCLAVES' RCDENCTRXCALLS='TIMES*REPORTED*WHEN*DELETING' RCDENCTRXET='EXECUTION*TIME FOR*RCDENCTRXNUM' RCDENCTRXETS='SUM OF*SQUARED*FOR*RCDENCTRXNUM' R723CFEA='FOREIGN*ENCLAVES*TOTAL*ACTIVETM' R723CICT='NON-PAGING*DASD I/O/CONNECT*TIME' R723CIDT='NON-PAGING*DASD*DISCONNECT*TIME' R723CIEA='INDEPENDENT*ENCLAVES*ORIGINATED*ACTIVETM' R723CIFA='IFA*SERVICE*UNIT' R723CIFC='IFA-ELIGIBLE*SERVICE*UNITS' R723CIMP='RELATIVE*IMPORTANCE*OF THE GOAL' R723CIOT='DASD*IOS*QUEUE TIME' R723CIQT='INELIGIBLE*OTHER RESOURCE*DELAY TIME' R723CIQTX='TIME*BATCH JOBS*INELIGIBLE*IN JOBQ' R723CIRC='NON-PAGING*DASD I/O*SSCH COUNT' R723CIWT='NON-PAGING*DASD I/O*WAIT TIME' R723CLSC='SERVICE*CLASS*LAST CONTRIB*RPRT' R723CNDI='NON-DASD*I/O USING/DELAY*SAMPLES' R723CPA='ENHANCED*LIKE-70CPA*TO COMPUTE*SW MSUS' R723CPA_ACTUAL='PHYSICAL*CPU*ADJUSTMENT*FACTOR' R723CPA_ACTUAL_ZCBP='PHYSICAL*ZCBP*ADJUSTMENT*FACTOR' R723CPA_RATIO='RATIO OF*SCALING*TO ACTUAL' R723CPA_RATIO_ZCBP='RATIO OF*SCALING*TO ACTUAL*ZCBP' R723CPA_SCALING='SCALING*FACTOR*FOR*R723_ACTUAL' R723CPCT='GOAL*PERCENTILE*VALUE' R723CQDT='TOTAL*BATCH QUEUE*DELAY TIME' R723CQDTX='TOTAL*QUEUE*DELAY*TIME' R723CRCA='CONSUMPTION*ACTUALS*AVAILABLE?' R723CRGF='RESPONSE*TIME*GOAL FLAG' R723CRTA='RESPONSE TIME*ACTUALS*AVAILABLE?' R723CRTF='RESPONSE*TIME*UNIT FLAG' R723CRTX='INDEX TO RESPONSE TIME DISTRIB BUCKET' R723CSAC='SAMPLED*ADDRESS SPACE*COUNT' R723CSPA='SHARED*PAGEINS*FROM*AUXSTORE' R723CSPE='SHARED*PAGEINS*FROM*ESTORE' R723CSRS='SHARED*PAGE*RESIDENCY*TIME' R723CSUC='ZIP-ELIGIBLE*SERVICE*UNITS*ON CP' R723CSUP='UN-NORMALIZED*ZIP*SERVICE*UNITS' R723CTETX='TOTAL*TRANSACTION*ELAPSED*TIME' R723CTSA='TOTAL*EXECUTION*SAMPLES' R723CVAL='RESPONSE TIME*OR EXECUTION VELOCITY*GOAL' R723CWMN='ENTRIES IN*WORK/RES MGR*STATES AREA' R723CWMX='INDEX TO WORK/RES MANAGER STATES AREA' R723CXEA='EXPORTED*ENCLAVES*TOTAL*ACTIVETM' R723CXETX='TOTAL*TRANSACTION*EXECUTION*TIME' R723ECTC='CPU TIME*AT PROMOTED*DPRTY*ENQUEUE' R723FQD ='FEATURE*QUEUE*DELAY*SAMPLES' R723GGDE='RESOURCE*GROUP*DESCRIPTION' R723GGKY='TENANT*SOLUTION*ID' R723GGLT='RESOURCE*GROUP*FLAG BITS' R723GGML='MEMORY*LIMIT*GB OF*RESGROUP' R723GGMN='MIN CAPACITY*UNWEIGHT*CPU SU PER SEC' R723GGMX='MAX CAPACITY*UNWEIGHT*CPU SU PER SEC' R723GGTF='TENANT*RESOURCE*GROUP?' R723GGTI='TENANT*IDENTIFIER' R723GGTN='TENANT*NAME' R723GMLM='MEMORY*LIMIT*SPECIFIED?' R723GMLP='PERCENT*CAPACITY*OF LPAR?' R723GMNS='MINIMUM*CAPACITY*SPECIFIED?' R723GMSS='PERCENT*CAPACITY*OF SINGLE*SYSTEM?' R723GMXS='MAXIMUM*CAPACITY*SPECIFIED?' R723GMLT='GGMN/GGMX*ARE IN*MSU/HR?' R723GMLZ='ZIP*INCLUDED*GGMN*GGMX?' R723HETR='REPORTING*CLASS*HETROGENEOUS?' R723HIIO='I/O*PRIORITY*GROUP*HIGH?' R723IFAD='IFA*DELAY*SAMPLES' R723IFAT='UNADJUSTED*IFA CPU TIME*ON IFA' R723IFAU='IFA*USING*SAMPLES' R723IFCT='IFA-ELIGIBLE*CPU TIME*ON CP' R723IFCU='IFA-ELIGIBLE*ON CP*USING SAMPLES' R723MCAA='RCAA DATA*NOT*AVAILABLE?' R723MCDE='SERVICE/REPORT*CLASS*DESCRIPTION' R723MCF ='MULTITHREADING*MAXIMUM*CAPACITY*GP' R723MCFI='MULTITHREADING*MAXIMUM*CAPACITY*ZCBP' R723MCFS='MULTITHREADING*MAXIMUM*CAPACITY*ZIIP' R723MCPG='SERVICE OR*REPORT*CLASS*PERIODS' R723MDSP='SERVICE*POLICY*DESCRIPTION' R723MFL2='R723MFL2' R723MFLG='R723MFLG*BIT*FLAGS' R723MIDD='SERVICE*DEFINITION*DESCRIPTION' R723MIDU='USERID THAT*INSTALLED*SERV DEFN' R723MPOL='SVPOL DATA*NOT*AVAILABLE?' R723MSCF='SERVICE*CLASS*FLAGS' R723MSUB='ENTRIES*BELONGING*TO SUBSYSTEM' R723MSUCP ='MOBILE*GP*SERVICE*MSU/HR' R723MSUOCP='TOTAL*ELIGIBLE*SERVICE*MSU/HR' R723MSUSP ='TOTAL*ZIIP*SERVICE*MSU/HR' R723MTDI='TIME WHEN*SERV DEFN*WAS INSTALLED' R723MTPA='TIME WHEN*POLICY WAS*ACTIVATED' R723MTVL='CURRENT*SAMPLE*INTERVAL' R723MTVN='TIMES*WLM SAMPLING*CODE RAN' R723MWDE='WORKLOAD*GROUP*DESCRIPTION' R723NADJ='NOMINAL*ADJUSTMENT*FACTOR*CPU RATE' R723NFFI='NORMALIZATION*FACTOR*FOR IFA*TIMES' R723NFFS='NORMALIZATION*FACTOR*FOR ZIP*TIMES' R723PLSC='SERVICE*CLASS*FOR*HETEROGENEOUS' R723PRCP='CPU*PROTECTION*INDICATOR?' R723PRDA='DYNAMIC*ALIAS*TUNING*INDICATOR?' R723PRST='STORAGE*PROTECTION*INDICATOR?' R723RACT='ACTIVE*STATE' R723RAPP='ACTIVE*APPLICATION*STATE*SAMPLES' R723RBPM='BUFFER*POOL*IO*MISSES*SAMPLES' R723RCOD='CONTENTION*DELAY*SAMPLE*COUNT' R723RCOU='CONTENTION*USING*SAMPLE*COUNT' R723RDNN='NUMBER OF*NAME*TABLE*ENTRIES' R723RESS='TRANSACTION*STATES*SAMPLED' R723RFLG='BEGIN-TO-END*OR*EXECUTION?' R723RIDL='IDLE*STATE' R723RN01='RESOURCE*TYPE 1*DESCRIPTION' R723RN02='RESOURCE*TYPE 2*DESCRIPTION' R723RN03='RESOURCE*TYPE 3*DESCRIPTION' R723RN04='RESOURCE*TYPE 4*DESCRIPTION' R723RN05='RESOURCE*TYPE 5*DESCRIPTION' R723RN06='RESOURCE*TYPE 6*DESCRIPTION' R723RN07='RESOURCE*TYPE 7*DESCRIPTION' R723RN08='RESOURCE*TYPE 8*DESCRIPTION' R723RN09='RESOURCE*TYPE 9*DESCRIPTION' R723RN10='RESOURCE*TYPE10*DESCRIPTION' R723RN11='RESOURCE*TYPE11*DESCRIPTION' R723RN12='RESOURCE*TYPE12*DESCRIPTION' R723RN13='RESOURCE*TYPE13*DESCRIPTION' R723RN14='RESOURCE*TYPE14*DESCRIPTION' R723RN15='RESOURCE*TYPE15*DESCRIPTION' R723RRDY='READY*STATE' R723RSSL='STATE WITH*LOG CONT*THIS MVS' R723RSSN='STATE WITH*LOG CONT*NETWORK' R723RSSS='STATE WITH*LOG CONT*SYSPLEX' R723RTDC='MIDPOINT*CHANGES' R723RTDM='MIDPOINT*RESPONSE*TIME' R723RTDT='LAST TIME*WHEN MIDPOINT*CHANGED' R723RTYP='SUBSYSTEM*TYPE' R723RW01='RESOURCE*TYPE 1*STATE*SAMPLES' R723RW02='RESOURCE*TYPE 2*STATE*SAMPLES' R723RW03='RESOURCE*TYPE 3*STATE*SAMPLES' R723RW04='RESOURCE*TYPE 4*STATE*SAMPLES' R723RW05='RESOURCE*TYPE 5*STATE*SAMPLES' R723RW06='RESOURCE*TYPE 6*STATE*SAMPLES' R723RW07='RESOURCE*TYPE 7*STATE*SAMPLES' R723RW08='RESOURCE*TYPE 8*STATE*SAMPLES' R723RW09='RESOURCE*TYPE 9*STATE*SAMPLES' R723RW10='RESOURCE*TYPE10*STATE*SAMPLES' R723RW11='RESOURCE*TYPE11*STATE*SAMPLES' R723RW12='RESOURCE*TYPE12*STATE*SAMPLES' R723RW13='RESOURCE*TYPE13*STATE*SAMPLES' R723RW14='RESOURCE*TYPE14*STATE*SAMPLES' R723RW15='RESOURCE*TYPE15*STATE*SAMPLES' R723RWCO='WAITING FOR CONVERSATION' R723RWDS='WAITING FOR*DISTRIBUTED REQUEST' R723RWIO='WAITING FOR I/O' R723RWLO='WAITING FOR LOCK' R723RWMS='WAIT FOR*UNIDENTIFIED*RESOURCE' R723RWNL='STATE WITH*WAIT FOR*NEW LATCH' R723RWO ='WAIT FOR*ANOTHER PRODUCT' R723RWRR='STATE WITH*WAIT FOR*REGISTER WORKTABLE' R723RWRT='STATE WITH*WAIT FOR*REGULAR THREAD' R723RWSL='WAIT FOR*LOCAL SESSION' R723RWSN='WAIT FOR*NETWORK SESSION' R723RWSS='WAIT FOR*SYSPLEX SESSION' R723RWST='STATE WITH*WAIT FOR*SSL THREAD' R723RWTM='WAIT FOR*A TIMER' R723SCSN='SERVICE CLASS*BEING*SERVED' R723SCSR='TIMES*SRVCLASS*SERVICED*R723SCSN' R723SUCU='ZIP*ON CP*USING SAMPLES' R723SUPD='ZIP*DELAY*SAMPLES' R723SUPU='ZIP*USING*SAMPLES' R723TSUCBP='NOW*RESERVED' R723TSUCBPCP='NOW*RESERVED' R723TSUCP ='TOTAL*GP*SERVICE*MSU/HR' R723TSUOCP='TOTAL*ELIGIBLE*SERVICE*MSU/HR' R723TSUSP ='TOTAL*ZIIP*SERVICE*MSU/HR' R723TYPE='TYPE OF*SERVICE CLASS*RECORD' R723VELI='EXECUTION*VELOCITY*INCLUDES*I/O DELAY?' R724ACTF='ACTIVE*FRAMES' R724ACTS='ACTIVE*SAMPLES*EXCEPT OUTR' R724ACTV='ACTIVE*USERS*FOUND' R724DDEV='DEVICE*DELAY*SAMPLES' R724DENQ='ENQ*DELAY*SAMPLES' R724DHSM='HSM*DELAY*SAMPLES' R724DIV ='DIV*FRAMES' R724DIVS='DIV*SAMPLES' R724DJES='JES*DELAY*SAMPLES' R724DMNT='MOUNT*DELAY*SAMPLES' R724DMSG='MESSAGE*DELAY*SAMPLES' R724DPRO='PROCESSOR*DELAY*SAMPLES' R724DSTO='STORAGE*DELAY*SAMPLES' R724DXCF='XCF*DELAY*SAMPLES' R724ESCT='LONG SWAPS TO*EXPANDED*STORAGE' R724ETX='TOTAL*EXECUTION*TIME*GROUP' R724FIX ='FIXED*FRAMES' R724GPI ='AVG SHARED*PAGEINS*FROM AUXSTORE' R724IDLE='IDLE*FRAMES' R724IDLS='IDLE*SAMPLES' R724LSCF='CSTORE FRAMES*LOG SWAPPED USERS' R724LSCT='LONG*LOGICAL*SWAPS' R724LSEF='ESTORE FRAMES*LOG SWAPPED USERS' R724LSSA='LOGICALLY*SWAPPED*SAMPLES' R724OR1 ='TERMINAL*OUTPUT*WAIT*DELAY' R724OR10='UNILATERAL*SWAP*DELAY' R724OR11='TRANSITION*SWAP*DELAY' R724OR12='IMPROVE*CENTRAL STORAGE*USAGE DELAY' R724OR13='IMPROVE*SYSTEM PAGING*RATE DELAY' R724OR14='MAKE ROOM*SWAP OUT*DELAY' R724OR15='APPC*WAIT*DELAY' R724OR16='OMVS*INPUT WAIT*DELAY' R724OR17='OMVS*OUTPUT WAIT*DELAY' R724OR18='IN-REAL*DELAY' R724OR2 ='TERMINAL*INPUT*WAIT*DELAY' R724OR3 ='LONG*WAIT*DELAY' R724OR4 ='AUXILIARY*STORAGE*SHORTAGE*DELAY' R724OR5 ='REAL*STORAGE*SHORTAGE' R724OR6 ='DETECTED*LONG*WAIT*DELAY' R724OR7 ='REQUESTED*SWAP*DELAY' R724OR7A='MEMORY*POOL*SHORTAGE' R724OR8 ='ENQUEUE*EXCHANGE*SWAP*DELAY' R724OR9 ='EXCHANGE*SWAP*DELAY' R724OUTR='OUT AND*READY USERS' R724PAGE='USERS DELAYED*FOR PAGING' R724PGIN='PAGE-INS' R724PSCT='LONG*PHYSICAL*SWAPS' R724PSEF='ESTORE FRAMES*NON-LOG*SWAPPED USERS' R724PSSA='SWAPPED*SAMPLES*(EXCEPT LOGICAL)' R724PTM ='TIME WHEN*SERV POLICY*WAS ACTIVATED' R724QT ='TIME ON*JES/APPC QUEUES*BY END TRN' R724QTX='TOTAL*QUEUE*TIME*GROUP' R724SLOT='SLOTS USED' R724SWAP='USERS DELAYED*FOR SWAPPING' R724TSV ='AVG*SHARED*PAGE VIEWS' R724UDEV='DEVICE*USING*SAMPLES' R724UNKN='UNKNOWN*STATE*SAMPLES' R724UPRO='PROCESSOR*USING*SAMPLES' R724USER='USERS*FOUND' R724VALD='USING,*DELAY, IDLE,*AND UNKNOWN' R724VECT='VECTOR*UTILIZATION*TIME' R724VIN ='AVG VALID*SHARED PAGES*IN CSTOR' R724VLC ='AVG SHARED*PAGE*VALIDATIONS' R725CLAL='TIMES UOW*SUSPEND*LOCAL LOCK*WITH ONE' R725CLSU='TIMES UOW*SUSPENDED*LOCAL LOCK' R725CLTI='TIME WHEN*SUSPENDED*LOCAL LOCK' R725CMAL='TIMES UOW*SUSPENDED*THIS*LCKTYP*WITH ONE' R725CMAS='ADDRESS*SPACE*ID' R725CMJN='NAME*OF THE*JOB' R725CMSN='SERVICE*CLASS*NAME' R725CMSP='SERVICE*CLASS*PERIOD' R725CMST='ADDRESS*SPACE*STOKEN' R725CMSU='TIMES UOW*SUSPENDED*THIS*LOCKTYPE' R725CMTI='TIME WHEN*UOW SUSPENDED*THIS*LOCKTYPE' R725CMTY='LOCK*TYPE' R725COAL='TIMES*OTHER ASID*SUSPENDED*WITH ONE' R725COAS='ADDRESS*SPACE*ID' R725COJN='NAME*OF THE*JOB' R725COSN='SERVICE*CLASS*NAME' R725COSP='SERVICE*CLASS*PERIOD' R725COST='ADDRESS*SPACE*STOKEN' R725COSU='TIMES*OTHER ASID*SUSPENDED*LOCAL LOCK' R725COTI='TIME WHEN*OTHER ASID*SUSPENDED' R725CRAL='TIMES*OTHER ASID*SUSPENDED*WITH ONE' R725CRAS='ADDRESS*SPACE*ID ' R725CRJN='NAME*OF THE*JOB' R725CRSN='SERVICE*CLASS*NAME' R725CRSP='SERVICE*CLASS*PERIOD' R725CRST='ADDRESS*SPACE*STOKEN ' R725CRSU='TIMES*OTHER ASID*SUSPENDED*LOCAL LOCK' R725CRTI='TIME WHEN*OTHER ASID*SUSPENDED' R725ENAS='ADDRESS SPACE ID' R725ENJN='NAME OF THE JOB' R725ENSC='ENQUEUE*SCOPE*TYPE' R725ENSN='SERVICE*CLASS*NAME' R725ENSP='SERVICE CLASS PERIOD' R725ENSQ='SSQ*SUSPEND*TIME*R725LATY' R725ENST='ADDRESS SPACE STOKEN' R725ENSU='TIMES*SUSPENDED*R725ENSC' R725ENTI='TIME WHEN*SUSPENDED*R725ENSC' R725LAAS='ADDRESS*SPACE*ID' R725LAJN='NAME*OF THE*JOB' R725LASN='SERVICE*CLASS*NAME' R725LASP='SERVICE*CLASS*PERIOD' R725LASQ='SSQ*SUSPEND*TIME*R725LATY' R725LAST='ADDRESS*SPACE*STOKEN' R725LASU='TIMES*SUSPENDED*R725LATY' R725LATI='TIME WHEN*SUSPENDED*R725LATY' R725LATY='REQUEST*TYPE' R725LCAL='TIMES*OTHER ASID*SUSPENDED*WITH ONE' R725LCSU='TIMES*OTHER ASID*SUSPENDED*LOCAL LOCK' R725LCTI='TIME WHEN*OTHER ASID*SUSPENDED' R725LOAL='TIMES UOW*SUSPENDED*LOCAL LOCK*WITH ONE' R725LOAS='ADDRESS*SPACE*ID' R725LOJN='NAME*OF THE*JOB' R725LOSN='SERVICE*CLASS*NAME' R725LOSP='SERVICE*CLASS*PERIOD' R725LOST='ADDRESS*SPACE*STOKEN' R725LOSU='TIMES UOW*SUSPENDED*LOCAL LOCK' R725LOTI='TIME WHEN*SUSPENDED*LOCAL LOCK' R725QSAS='ADDRESS SPACE ID' R725QSJN='NAME OF THE JOB' R725QSRC='START*RESUME*REQUESTS' R725QSRQ='SUM OF SQUARES*RESOURCES*RETURNED' R725QSRR='RESOURCES*RETURNED*FOR THESE*REQUESTS' R725QSSC='GQSCAN*ISGQUERY*SPECIFIC*REQUESTS' R725QSSN='SERVICE CLASS NAME' R725QSSP='SERVICE CLASS PERIOD' R725QSST='ADDRESS SPACE STOKEN' R725QSTI='EXECUTION*TIME IN*GRS*THESE*REQUESTS' R725QSTQ='SUM OF SQUARES*EXECUTION*TIME' R725SCLA='TIMES*OTHER ASID*SUSPEND*LOCAL*WITH ONE' R725SCLS='TIMES*OTHER ASID*SUSPENDED*LOCAL LOCK' R725SCLT='TIME WHEN*OTHER ASID*SUSPEND*LOCAL LOCK' R725SCMA='TIMES UOW*SUSPENDED*CMS LOCK*WITH ONE' R725SCMS='TIMES UOW*SUSPENDED*CMS LOCK' R725SCMT='TIME WHEN*SUSPENDED*ON CMS LOCK' R725SEDA='TIMES UOW*SUSPENDED*CMS ENQ-DEQ*WITH ONE' R725SEDS='TIMES UOW*SUSPENDED*CMS ENQ-DEQ*LOCK' R725SEDT='TIME WHEN*SUSPENDED*ON CMS ENQ-DEQ*LOCK' R725SGMO='GRS*MODE' R725SLAA='TIMES UOW*SUSPENDED*CMS LATCH*WITH ONE' R725SLAS='TIMES UOW*SUSPENDED*CMS LATCH*LOCK' R725SLAT='TIME WHEN*SUSPENDED*ON CMS LATCH*LOCK' R725SLOA='TIMES UOW*SUSPENDED*CMS LOCAL*WITH ONE' R725SLOS='TIMES UOW*SUSPENDED*CMS LOCAL*LOCK' R725SLOT='TIME WHEN*SUSPENDED*ON CMS LOCAL*LOCK' R725SLR1='SSQ TIME*LATCH OBTAIN*SUSPENDED' R725SLR2='SSQ TIME*LATCH OBTAIN*SUSPENDED' R725SLRS='SUSPENDED*LATCH*OBTAIN*REQUESTS' R725SLRT='TIME WHEN*LATCH*OBTAIN SUSPENDED' R725SSMA='TIMES UOW*SUSPENDED*CMS SMF*WITH ONE' R725SSMS='TIMES UOW*SUSPENDED*CMS SMF*LOCK' R725SSMT='TIME WHEN*SUSPENDED*ON CMS SMF*LOCK' R725SSS1='SSQ*CONTENTION*TIME ENQ*SCOPE=SYSTEMS' R725SSS2='SSQ*CONTENTION*TIME ENQ*SCOPE=SYSTEMS' R725SSSR='ENQ*SCOPE=SYSTEMS*REQUESTS' R725SSSS='SUSPENDED*ENQ*SCOPE=SYSTEMS*REQUESTS' R725SSST='CONTENTION*TIME FOR*ENQ SCOPE=SYSTEMS' R725SST1='SSQ*CONTENTION*TIME*ENQ SCOPE=STEP' R725SST2='SSQ*CONTENTION*TIME*ENQ SCOPE=STEP' R725SSTR='ENQ*SCOPE=STEP*REQUESTS' R725SSTS='SUSPENDED*ENQ*SCOPE=STEP*REQUESTS' R725SSTT='CONTENTION*TIME FOR*ENQ SCOPE=STEP' R725SSY1='SSQ*CONTENTION*TIME ENQ*SCOPE=SYSTEM' R725SSY2='SSQ*CONTENTION*TIME ENQ*SCOPE=SYSTEM' R725SSYR='ENQ*SCOPE=SYSTEM*REQUESTS' R725SSYS='SUSPENDED*ENQ*SCOPE=SYSTEM*REQUESTS' R725SSYT='CONTENTION*TIME FOR*ENQ SCOPE=SYSTEM' READY00 ='PERCENT*WHEN 0*READY' READY01 ='PERCENT*WHEN 1*READY' READY02 ='PERCENT*WHEN 2*READY' READY03 ='PERCENT*WHEN 3*READY' READY04 ='PERCENT*WHEN 4*READY' READY05 ='PERCENT*WHEN 5*READY' READY06 ='PERCENT*WHEN 6*READY' READY07 ='PERCENT*WHEN 7*READY' READY08 ='PERCENT*WHEN 8*READY' READY09 ='PERCENT*WHEN 9*READY' READY10 ='PERCENT*WHEN 10*READY' READY11 ='PERCENT*WHEN 11*READY' READY12 ='PERCENT*WHEN 12*READY' READY13 ='PERCENT*WHEN 13*READY' READY14 ='PERCENT*WHEN 14*READY' READY15 ='PERCENT*WHEN 15*OR MORE*READY' READYAVG='AVERAGE*READY*USERS' READYMAX='MAXIMUM*READY*USERS' READYMIN='MINIMUM*READY*USERS' RELEASE ='OPERATING*SYSTEM*RELEASE' RESGROUP='RESOURCE*GROUP*NAME' RESIDTM ='RESIDENT*IN REAL*STORAGE' RESPAVG ='AVERAGE*RESPONSE*PER TRANSACTION' RESPSTD ='STD.DEV*OF RESPONSE*PER TRANSACTION' RMFSRCL ='SMF*RECORD*LEVEL*SMF7XSRL' RPRTCLAS='THIS IS A*REPORT*CLASS?' RTSMAP01='BUCKET 01*RESPONSE TIME*GOAL*FRACTION' RTSMAP02='BUCKET 02*RESPONSE TIME*GOAL*FRACTION' RTSMAP03='BUCKET 03*RESPONSE TIME*GOAL*FRACTION' RTSMAP04='BUCKET 04*RESPONSE TIME*GOAL*FRACTION' RTSMAP05='BUCKET 05*RESPONSE TIME*GOAL*FRACTION' RTSMAP06='BUCKET 06*RESPONSE TIME*GOAL*FRACTION' RTSMAP07='BUCKET 07*RESPONSE TIME*GOAL*FRACTION' RTSMAP08='BUCKET 08*RESPONSE TIME*GOAL*FRACTION' RTSMAP09='BUCKET 09*RESPONSE TIME*GOAL*FRACTION' RTSMAP10='BUCKET 10*RESPONSE TIME*GOAL*FRACTION' RTSMAP11='BUCKET 11*RESPONSE TIME*GOAL*FRACTION' RTSMAP12='BUCKET 12*RESPONSE TIME*GOAL*FRACTION' RTSMAP13='BUCKET 13*RESPONSE TIME*GOAL*FRACTION' RTSMAP14='BUCKET 14*RESPONSE TIME*GOAL*FRACTION' RTSTRN01='BUCKET 01*TRANSACTIONS*MEETING GOAL' RTSTRN02='BUCKET 02*TRANSACTIONS*MEETING GOAL' RTSTRN03='BUCKET 03*TRANSACTIONS*MEETING GOAL' RTSTRN04='BUCKET 04*TRANSACTIONS*MEETING GOAL' RTSTRN05='BUCKET 05*TRANSACTIONS*MEETING GOAL' RTSTRN06='BUCKET 06*TRANSACTIONS*MEETING GOAL' RTSTRN07='BUCKET 07*TRANSACTIONS*MEETING GOAL' RTSTRN08='BUCKET 08*TRANSACTIONS*MEETING GOAL' RTSTRN09='BUCKET 09*TRANSACTIONS*MEETING GOAL' RTSTRN10='BUCKET 10*TRANSACTIONS*MEETING GOAL' RTSTRN11='BUCKET 11*TRANSACTIONS*MEETING GOAL' RTSTRN12='BUCKET 12*TRANSACTIONS*MEETING GOAL' RTSTRN13='BUCKET 13*TRANSACTIONS*MEETING GOAL' RTSTRN14='BUCKET 14*TRANSACTIONS*MEETING GOAL' SERVDEFN='SERVICE*DEFINITION*NAME' SERVER ='SERVICE*CLASS*IS SERVER' SERVICE ='TOTAL*SERVICE*UNITS' SERVPLCY='SERVICE*POLICY*NAME' SHORTCPS='SHORT*CP-S*RATIO' SLICCHGD='PRSMSLIC*TIME-SLICE*WAS CHANGED?' SLIHIO ='SLIH*I/O' SMF70ABSMSU='ABSOLUTE*MSU*CAPPING*ACTIVE?' SMF70PRTCTV='SMF70OS*PRTCT*IS VALID?' SMF70ACS='PROCESSOR*ACTUAL*SHARE' SMF70ADJ ='LOGICAL*CPU*ADJUSTMENT*FACTOR' SMF70ATD ='AVERAGE*THREAD*DENSITY*GP' SMF70ATDI='AVERAGE*THREAD*DENSITY*ZCBP' SMF70ATDS='AVERAGE*THREAD*DENSITY*ZIIP' SMF70BDA='LPAR*AVERAGE*CPS+IFAS+ZIPS*SMF70BDA' SMF70CAI='CAPACITY*ADJUSTMENT*INDICATION' SMF70CAN='AVERAGE*THIS SMF70CIN*ENGINES*IN CEC' SMF70CCP='HIGHEST*CPUID*CURRENTLY*INSTALLED' SMF70CCR='CAPACITY*CHANGE*REASON' SMF70CF ='MULTITHREADING*CAPACITY*GP' SMF70CFI ='MULTITHREADING*CAPACITY*ZCBP' SMF70CFS ='MULTITHREADING*CAPACITY*ZIIP' SMF70CIN='CPU*IDENT*CP ICF*IFL IFA*ZIP?' SMF70CIX='POOL*NUMBER*INDEX TO*LABEL' SMF70CMM='MAX*WORK UNITS*FOR CP-S' SMF70CMN='MIN*WORK UNITS*FOR CP-S' SMF70CPA='SU_SEC*OF THE*PHYSICAL*CEC' SMF70CPA_ACTUAL='PHYSICAL*CPU*ADJUSTMENT*FACTOR' SMF70CPA_ACTUAL_CBP='ZCBP*MODEL*CAPACITY*RATING' SMF70CPA_RATIO='RATIO OF*SCALING*TO ACTUAL' SMF70CPA_SCALING_FACTOR ='SMF70CPA_ACTUAL*SCALING*FACTOR' SMF70CR ='ZEP*FIELD*ZERO' SMF70CSC='SEQUENCE*CODE*OF*CONFIGURATION' SMF70CSF='CSTORE*ASSIGNED*THIS*PARTITION' SMF70CTN='END COUNT*THIS SMF70CIN*ENGINES*IN CEC' SMF70CTT='AVG*WORK UNITS*FOR CP-S' SMF70DAT1='ENHANCED*DAT*FACILITY 1*AVAILABLE' SMF70DAT2='ENHANCED*DAT*FACILITY 2*AVAILABLE' SMF70DMM='MAX*WORK UNITS*FOR ZCBP' SMF70DMN='MIN*WORK UNITS*FOR ZAAP' SMF70DSA='DIAGNOSE*SAMPLES' SMF70DTT='AVG*WORK UNITS*FOR ZCBP' SMF70EMM='MAX*WORK UNITS*FOR ZIIPS' SMF70EMN='MIN*WORK UNITS*FOR ZIIPS' SMF70ESF='ESTORE*ASSIGNED*THIS*PARTITION' SMF70ETT='AVG*WORK UNITS*FOR ZIIPS' SMF70GAU='CAPACITY*GROUP*AVAILABLE*MSU' SMF70GIE='PROJECTED*INTERVAL*END TIME' SMF70GJT='TIME WHEN*PARTISHN*JOINED*CAPACITY GROUP' SMF70GMU='MAXIMUM*LICENSE*UNITS OF*GROUP' SMF70GNM='CAPACITY*GROUP*NAME' SMF70HDM='HIPERDISPATCH*IS*ACTIVE?' SMF70HHF='HIPER*DISPATCH*STATUS?' SMF70HOF='HYPERVISOR*DATETIME*OFFSET' SMF70HWGRNAME='HARDWARE*GROUP*OF THIS*PARTITION' SMF70HWGR_CAP_LIMIT='HARDWARE*GROUP*ABSLIMIT*IN NR ENGINES' SMF70HWM='CPC*PHYSICAL*MODEL*IDENTIFIER' SMF70HW_CAP_LIMIT='ABS LIMIT*PARTITION*USAGE*IN NR ENGINES' SMF70ICP='HIGHEST*CPUID*INSTALLED*AT IPL' SMF70IFA='IFA PROCESSORS*ONLINE*AT END OF*INTERVAL' SMF70LAC='IBM*4-HR*AVERAGE*HOURLY MSU' SMF70LACA='CAT A*LONGTERM*AVERAGE*MSU/HR' SMF70LACB='CAT B*LONGTERM*AVERAGE*MSU/HR' SMF70LACCR='LONGTERM*MSU*DFSMS*DATASET*ENCRYPTION' SMF70LACM='MOBILE*LONGTERM*AVERAGE*MSU/HR' SMF70LAC_CBP='ZCBP*4HR MSU*ON CBP*PROCESSORS' SMF70MAS='PROCESSOR*MAXIMUM*SHARE' SMF70MAXPU='CORES*PHYSICALLY*AVAILABLE*THIS MODEL' SMF70MCF ='MULTITHREADING*MAXIMUM*CAPACITY*GP' SMF70MCFI='MULTITHREADING*MAXIMUM*CAPACITY*ZCBP' SMF70MCFS='MULTITHREADING*MAXIMUM*CAPACITY*ZIIP' SMF70MCP='MAXIMUM*CPU*ADDRESS*AVAILABLE' SMF70MCR='MODEL*CAPACITY*RATING OF*SMF70MDL' SMF70MCR_CBP='NOW*RESERVED' SMF70MDL_CBP='NOW*RESERVED' SMF70MIS='PROCESSOR*MINIMUM*SHARE' SMF70MPC='MODEL*PERMANENT*CAPACITY*IDENT' SMF70MPR='MODEL*PERMANENT*CAPACITY*RATING' SMF70MSU='DEFINED*CAPACITY*MSU LIMIT*IF ENABLED' SMF70MTC='MODEL*TEMPORARY*CAPACITY*IDENT' SMF70MTID='MAXIMUM*THREAD*IDENTIFICATION' SMF70MTR='MODEL*TEMPORARY*CAPACITY*RATING' SMF70MTTT='SMF70MTIT*MULTI*THREADING*IDLE*TIME' SMF70LPF ='ADDITIONAL*PROCESSING FLAGS' SMF70MAXNL='MAXIMUM*TOPOLOGY*NESTING*LEVELS' SMF70CORT1='DISPATCH*LOC*TOPO NESTING*LEVEL1' SMF70CORT2='DISPATCH*LOC*TOPO NESTING*LEVEL2' SMF70CORT3='DISPATCH*LOC*TOPO NESTING*LEVEL3' SMF70CORT4='DISPATCH*LOC*TOPO NESTING*LEVEL4' SMF70CORT5='DISPATCH*LOC*TOPO NESTING*LEVEL5' SMF70CORT6='DISPATCH*LOC*TOPO NESTING*LEVEL6' SMF70NCA='PCT WHEN*CAPPING*DELAYED*WORK' SMF70NCR='NOMINAL*MODEL*CAPACITY*RATING' SMF70NCR_CBP='NOW*RESERVED' SMF70NIO='I/O-S*FOR THIS*CPU' SMF70NPR='NOMINAL*PERMANENT*MODEL*CAPACITY*RATING' SMF70NRM='ZIIP*NORMALIZATION*FACTOR' SMF70NSA='PCT WHEN*AT MAXIMUM*PARTITION*WEIGHT' SMF70NSI='PCT WHEN*AT MINIMUM*PARTITION*WEIGHT' SMF70NSW='PCT WHEN*LPAR WAS SOFT CAPPED' SMF70NTR='NOMINAL*TEMPORARY*MODEL*CAPACITY*RATING' SMF70OIL='ORIGINAL*INTERVAL*LENGTH' SMF70ONT='ONLINE*TIME' SMF70OS_PRTCT='OSPROTECT*VALUE' SMF70PAT='CPU*PARKED*DURATION' SMF70PMA='AVERAGE*ADJUSTMENT*WEIGHT FOR*PRICING' SMF70PMI='AVG*BLKED*DISPATCH*UNITS*MAY GET' SMF70PML='OPT*PARAMETER*BLWLINTHD' SMF70PMP='MAX*DISPATCH*UNITS*BEING*BLOCKED' SMF70PMT='OPT*PARAMETER*BLWLTRPCT*PERCENT' SMF70PMU='AVG BLKED*DISPATCH*UNITS*PROMOTED' SMF70PMW='AVG*DISPATCH*UNITS*BEING*BLOCKED' SMF70POM='PLANT*CODE*OF*MANUFACTURE' SMF70POW='AVERAGE*HIPERDISPATCH*WEIGHT' SMF70Q00='PERCENT*WHEN*IN READY*WAS LE N CP-S' SMF70Q01='PERCENT*WHEN*IN READY*WAS N+1 CP-S' SMF70Q02='PERCENT*WHEN*IN READY*WAS N+2 CP-S' SMF70Q03='PERCENT*WHEN*IN READY*WAS N+3 CP-S' SMF70Q04='PERCENT*WHEN*IN READY*WAS N+4-5 CP-S' SMF70Q05='PERCENT*WHEN*IN READY*WAS N+6-10 CP-S' SMF70Q06='PERCENT*WHEN*IN READY*WAS N+11-15 CP-S' SMF70Q07='PERCENT*WHEN*IN READY*WAS N+16-20 CP-S' SMF70Q08='PERCENT*WHEN*IN READY*WAS N+21-30 CP-S' SMF70Q09='PERCENT*WHEN*IN READY*WAS N+31-40 CP-S' SMF70Q10='PERCENT*WHEN*IN READY*WAS N+41-60 CP-S' SMF70Q11='PERCENT*WHEN*IN READY*WAS N+61-80 CP-S' SMF70Q12='PERCENT*WHEN*IN READY*WAS GT N+80 CP-S' SMF70SIG='SIGP-S*DONE BY*THIS CPU' SMF70SPN='CLUSTER*NAME' SMF70SRB='CPU*SRB*DISPATCHES*THIS CPU' SMF70SRM='SAMPLES*TAKEN*BY SRM' SMF70STN='SYSTEM*NAME' SMF70SUP='ZIP PROCESSORS*ONLINE*AT END OF*INTERVAL' SMF70SYN='SYNC*VALUE' SMF70TCB='CPU*TCB*DISPATCHES*THIS CPU' SMF70TYP='ENGINE*TYPE' SMF70U00='PCT WHEN*WORK UNITS*WAS LE N ONLINE' SMF70U01='PCT WHEN*WORK UNITS*WAS N+1 ONLINE' SMF70U02='PCT WHEN*WORK UNITS*WAS N+2 ONLINE' SMF70U03='PCT WHEN*WORK UNITS*WAS N+3 ONLINE' SMF70U04='PCT WHEN*WORK UNITS*WAS N+4-5 ONLINE' SMF70U05='PCT WHEN*WORK UNITS*WAS N+6-10 ONLINE' SMF70U06='PCT WHEN*WORK UNITS*WAS N+11-15 ONLINE' SMF70U07='PCT WHEN*WORK UNITS*WAS N+16-20 ONLINE' SMF70U08='PCT WHEN*WORK UNITS*WAS N+21-30 ONLINE' SMF70U09='PCT WHEN*WORK UNITS*WAS N+31-40 ONLINE' SMF70U10='PCT WHEN*WORK UNITS*WAS N+41-60 ONLINE' SMF70U11='PCT WHEN*WORK UNITS*WAS N+61-80 ONLINE' SMF70U12='PCT WHEN*WORK UNITS*WAS N+81-100 ONLINE' SMF70U13='PCT WHEN*WORK UNITS*WAS N+101-120 ONLINE' SMF70U14='PCT WHEN*WORK UNITS*WAS N+121-150 ONLINE' SMF70U15='PCT WHEN*WORK UNITS*WAS GT N+150 ONLINE' SMF70UIW='SHOULD*USE*INITIAL*WEIGHT?' SMF70UPI='USER*PARTITION*ID' SMF70WAT='TOTAL*CPU WAIT*DURATION' SMF70WLA='DEFINED*CAPACITY*IN MSU*AVAILABLE*TO MVS' SMF70WST='LOGICAL PROCESSOR*WAIT*TIME' SMF70WTD='WAIT*DISPATCH*COUNT*THIS CPU' SMF70WTI='DURATION*LP WAS YIELDED*DUE TO WTI' SMF70WTS='WTI-S*RETURNED*WITHIN*GRACE*PERIOD' SMF70WTU='WTI-S*UNABLE*TO RETURN*IN GRACE' SMF70ZEC='SMF70ZEC*RESERVED' SMF70ZEE='SMF70ZEE*RESERVED' SMF70ZEI='ZEP*FIELD*5' SMF70ZEP='SMF70ZEP*RESERVED' SMF70ZER='SMF70ZER*RESERVED' SMF70_IPL_TIME='IPL*DATETIME*OF*PARTITION' SMF70CPC_TYPE='CPC*TYPE' SMF70_TRG_M_COUNT='TRG*MEMORY*CONSUMPTION*SAMPLES' SMF72ADT='INELIGIBLE*AFFINITY*TIME' SMF72CVT='JCL CONVERSION*TIME' SMF72FEA='FOREIGN*ENCLAVES*TOTAL*ACTIVETM' SMF72GIE='PROJECTED*INTERVAL*END TIME' SMF72ICT='NON-PAGING*DASD I/O/CONNECT*TIME' SMF72IDT='NON-PAGING*DASD*DISCONNECT*TIME' SMF72IEA='INDEPENDENT*ENCLAVES*ORIGINATED*ACTIVETM' SMF72IOD='TOTAL*I/O*DELAYS*SAMPLES' SMF72IOT='DASD*IOS QUEUE*TIME' SMF72IOU='TOTAL*USING I/O*SAMPLES' SMF72IQT='INELIGIBLE*OTHER*RESOURCE*TIME' SMF72IRC='NON-PAGING*DASD I/O*SSCH COUNT' SMF72IWT='NON-PAGING*DASD I/O*WAIT*TIME' SMF72NDI='NON-DASD*I/O USIN/DELAY*SAMPLES' SMF72QDT='TOTAL*QUEUE*DELAY*TIME' SMF72SPA='SHARED*PAGEINS*FROM AUX' SMF72SPE='SHARED*PAGEINS*FROM ESTORE' SMF72SRS='SHARED*PAGE*RESIDENCY*SECONDS' SMF72TSA='TOTAL*EXECUTION*SAMPLES' SMF72XEA='EXPORTED*ENCLAVES*TOTAL*ACTIVETM' SMFTIME ='SMF*RECORD*DATETIME*STAMP' SMTSEGNR='NUMBER*OF SMT*SEGMENTS' SMT_CORE_FLAG='LPARBUSY*VALID?' SMT_CORE_ID='MT*CORE*IDENTIFICATION' SMT_LPAR_BUSY='SMT_LPAR_BUSY' SMT_NUM ='MT*NUMBER*OF THREADS*FOR THIS*CORE' SMT_PROD ='MT*CORE*PRODUCTIVITY*PERCENT' SMT_UTIL ='MT*CORE*UTILIZATION*PERCENT' SRBCOEFF='SRB CPU*SERVICE UNIT*COEFFICIENT' SRBUNITS='CPU SRB*SERVICE*UNITS' SRVCLASS='SERVICE/REPORT*CLASS*NAME' SSQELAP ='SUM OF SQUARES*OF*ELAPSED TIMES' SSTORE72='SHARED*PAGE*BYTES' STARTIME='START OF*INTERVAL' STC00 ='PERCENT*WHEN 0*STC USERS' STC01 ='PERCENT*WHEN 1-2*STC USERS' STC02 ='PERCENT*WHEN 3-4*STC USERS' STC03 ='PERCENT*WHEN 5-6*STC USERS' STC04 ='PERCENT*WHEN 7-8*STC USERS' STC05 ='PERCENT*WHEN 9-10*STC USERS' STC06 ='PERCENT*WHEN 11-15*STC USERS' STC07 ='PERCENT*WHEN 16-20*STC USERS' STC08 ='PERCENT*WHEN 21-25*STC USERS' STC09 ='PERCENT*WHEN 26-30*STC USERS' STC10 ='PERCENT*WHEN 31-35*STC USERS' STC11 ='PERCENT*WHEN OVER 35*STC USERS' STCAVG ='AVERAGE*STC*USERS' STCMAX ='MAXIMUM*STC*USERS' STCMIN ='MINIMUM*STC*USERS' STFBIT03='SMF70LAC*NO LONGER*INCLUDES*CPU WAIT?' STFBIT04='SMF70MDL*MODEL*CAPACITY*ONLY?' STFBIT05='OPT PARM*BLWLTRPCT*CHANGED?' STFBIT06='OPT PARM*BLWLINTHD*CHANGED?' STFBIT07='SMF70GAU*IS*VALID?' STSICPC ='STSI*FACILITY*IS AVAIL*FOR CPC' SUAVAICH='SU*AVAILABLE*CHANGED?' SUBSYS ='SUB*SYSTEM' SUPATERN='SELECTABLE*UNIT*BIT PATTERN' SU_SEC ='CONVERSION*FACTOR FOR*CPU (SU_SEC)' SWAPDLAS='AUXSTORE*SHORTAGE*SWAP DELAYS' SWAPDLAW='APPC WAIT*SWAP DELAYS' SWAPDLDW='DETECTED*WAIT*SWAP DELAYS' SWAPDLEX='EXCHANGE*SWAP DELAYS' SWAPDLIC='IMPROVE*CSTORE*SWAP DELAYS' SWAPDLIP='IMPROVE*PAGING*SWAP DELAYS' SWAPDLMR='MAKE ROOM*SWAP DELAYS' SWAPDLNQ='ENQUEUE*EXCHANGE*SWAP DELAYS' SWAPDLNS='NON-SWAPPABLE*SWAP DELAYS' SWAPDLRS='CSTORE*SHORTAGE*SWAP DELAYS' SWAPDLTI='TERMINAL*INPUT*SWAP DELAYS' SWAPDLTO='TERMINAL*OUTPUT*SWAP DELAYS' SWAPDLUS='UNILATERAL*SWAP DELAYS' SWAPDLVR='V=R*REQUEST*SWAP DELAYS' SWAPDLWT='LONG*WAIT*SWAP DELAYS' SWAPSEQ ='NUMBER* OF*SWAPS' SYNCTIME='SMF GLOBAL*RECORDING*INTERVAL END' SYSNAME ='SYSTEM*NAME*FROM*IEASYSXX' SYSPLEX ='SYSPLEX*NAME*FROM*COUPLEXX' SYSTEM ='SYSTEM*ID' SYSTRNTM='SYSTEM*TRANSACTION*TIME' TOTDLYSM='TOTAL*DELAY*SAMPLES' TOTUSTOU='TOTAL*USING*SAMPLES' TPIIO ='TPI*I/O' TRANS ='ENDED*TRANSACTION*COUNT' TRANSABE='TRANS*ABNORMAL IN*EXEC PHASE' TRANSABN='TRANS*ABNORMAL*COMPLETIONS' TRANSEXC='TRANS*COMPLETING*EXEC PHASE' TRG_DESC ='TENANT*RESOURCE*GROUP*DESCRIPTION' TRG_FLAGS ='TENANT*RESOURCE*GROUP*FLAGS' TRG_LAC ='TENANT*CP 4HR*AVERAGE*MSU' TRG_LAC_CBP='TENANT*ZCBP 4HR*AVERAGE*MSU' TRG_MEM ='TENANT*MEMORY*CONSUMPTION*MGBYTES' TRG_NAME ='TENANT*RESOURCE*GROUP*NAME' TRG_SBID ='TENANT*SOLUTION*ID' TRG_SUCP ='TENANT*CP*HDW MSU*UNITS' TRG_SUIFA ='TENANT*ZCBP*HDW MSU*UNITS' TRG_SUSUP ='TENANT*ZIIP*HDW MSU**UNITS' TRG_TNTID ='TENANT*IDENTIFIER' TRG_TNTNAME='TENANT*NAME' TSLGROUP='TIME*SLICE*GROUP' TSO00 ='PERCENT*WHEN 0*TSO USERS' TSO01 ='PERCENT*WHEN 1-2*TSO USERS' TSO02 ='PERCENT*WHEN 3-4*TSO USERS' TSO03 ='PERCENT*WHEN 5-6*TSO USERS' TSO04 ='PERCENT*WHEN 7-8*TSO USERS' TSO05 ='PERCENT*WHEN 9-10*TSO USERS' TSO06 ='PERCENT*WHEN 11-15*TSO USERS' TSO07 ='PERCENT*WHEN 16-20*TSO USERS' TSO08 ='PERCENT*WHEN 21-25*TSO USERS' TSO09 ='PERCENT*WHEN 26-30*TSO USERS' TSO10 ='PERCENT*WHEN 31-35*TSO USERS' TSO11 ='PERCENT*WHEN OVER 35*TSO USERS' TSOAVG ='AVERAGE*TSO*USERS' TSOMAX ='MAXIMUM*TSO*USERS' TSOMIN ='MINIMUM*TSO*USERS' TSTORE72='TOTAL*CSTORE+ESTORE*BYTES' TYPEIOML='PROCESSOR*COMPLEX*TYPE' VALDSAMP='TOTAL*VALID*SAMPLES' VELOCCPU='CPU ONLY*EXECUTION*VELOCITY' VELOCIOD='I/O DELAY*EXECUTION*VELOCITY' VELOCITY='EXECUTION*VELOCITY*USED BY WLM' VERSNRMF='RMF*VERSION*NUMBER' VFAFFTM0='VECTOR*AFFINITY*TIME CPU 0' VFAFFTM1='VECTOR*AFFINITY*TIME CPU 1' VFAFFTM2='VECTOR*AFFINITY*TIME CPU 2' VFAFFTM3='VECTOR*AFFINITY*TIME CPU 3' VFAFFTM4='VECTOR*AFFINITY*TIME CPU 4' VFAFFTM5='VECTOR*AFFINITY*TIME CPU 5' VFAFFTM6='VECTOR*AFFINITY*TIME CPU 6' VFAFFTM7='VECTOR*AFFINITY*TIME CPU 7' VFAFFTM8='VECTOR*AFFINITY*TIME CPU 8' VFAFFTM9='VECTOR*AFFINITY*TIME CPU 9' VFAFFTMA='VECTOR*AFFINITY*TIME CPU 10' VFAFFTMB='VECTOR*AFFINITY*TIME CPU 11' VFAFFTMC='VECTOR*AFFINITY*TIME CPU 12' VFAFFTMD='VECTOR*AFFINITY*TIME CPU 13' VFAFFTME='VECTOR*AFFINITY*TIME CPU 14' VFAFFTMF='VECTOR*AFFINITY*TIME CPU 15' VFAFFTMG='VECTOR*AFFINITY*TIME CPU 16' VFAFFTMH='VECTOR*AFFINITY*TIME CPU 17' VFAFFTMI='VECTOR*AFFINITY*TIME CPU 18' VFAFFTMJ='VECTOR*AFFINITY*TIME CPU 19' VFAFFTMK='VECTOR*AFFINITY*TIME CPU 20' VFAFFTML='VECTOR*AFFINITY*TIME CPU 21' VFAFFTMN='VECTOR*AFFINITY*TIME CPU 22' VFAFFTMO='VECTOR*AFFINITY*TIME CPU 23' VFAFFTMP='VECTOR*AFFINITY*TIME CPU 24' VFAFFTMQ='VECTOR*AFFINITY*TIME CPU 25' VFAFFTMR='VECTOR*AFFINITY*TIME CPU 26' VFAFFTMS='VECTOR*AFFINITY*TIME CPU 27' VFAFFTMT='VECTOR*AFFINITY*TIME CPU 28' VFAFFTMU='VECTOR*AFFINITY*TIME CPU 29' VFAFFTMV='VECTOR*AFFINITY*TIME CPU 30' VFAFFTMW='VECTOR*AFFINITY*TIME CPU 31' VFAFFTMX='VECTOR*AFFINITY*TIME CPU 32' VFAFFTMY='VECTOR*AFFINITY*TIME CPU 33' VFAFFTMZ='VECTOR*AFFINITY*TIME CPU 34' VFAFFTVA='VECTOR*AFFINITY*TIME CPU 87' VFAFFTVB='VECTOR*AFFINITY*TIME CPU 88' VFAFFTVC='VECTOR*AFFINITY*TIME CPU 89' VFAFFTVD='VECTOR*AFFINITY*TIME CPU 90' VFAFFTVE='VECTOR*AFFINITY*TIME CPU 91' VFAFFTVF='VECTOR*AFFINITY*TIME CPU 92' VFAFFTVG='VECTOR*AFFINITY*TIME CPU 93' VFAFFTVH='VECTOR*AFFINITY*TIME CPU 94' VFAFFTVI='VECTOR*AFFINITY*TIME CPU 95' VFAFFTYA='VECTOR*AFFINITY*TIME CPU 61' VFAFFTYB='VECTOR*AFFINITY*TIME CPU 62' VFAFFTYC='VECTOR*AFFINITY*TIME CPU 63' VFAFFTYD='VECTOR*AFFINITY*TIME CPU 64' VFAFFTYE='VECTOR*AFFINITY*TIME CPU 65' VFAFFTYF='VECTOR*AFFINITY*TIME CPU 66' VFAFFTYG='VECTOR*AFFINITY*TIME CPU 67' VFAFFTYH='VECTOR*AFFINITY*TIME CPU 68' VFAFFTYI='VECTOR*AFFINITY*TIME CPU 69' VFAFFTYJ='VECTOR*AFFINITY*TIME CPU 70' VFAFFTYK='VECTOR*AFFINITY*TIME CPU 71' VFAFFTYL='VECTOR*AFFINITY*TIME CPU 72' VFAFFTYM='VECTOR*AFFINITY*TIME CPU 73' VFAFFTYN='VECTOR*AFFINITY*TIME CPU 74' VFAFFTYO='VECTOR*AFFINITY*TIME CPU 75' VFAFFTYP='VECTOR*AFFINITY*TIME CPU 76' VFAFFTYQ='VECTOR*AFFINITY*TIME CPU 77' VFAFFTYR='VECTOR*AFFINITY*TIME CPU 78' VFAFFTYS='VECTOR*AFFINITY*TIME CPU 79' VFAFFTYT='VECTOR*AFFINITY*TIME CPU 80' VFAFFTYU='VECTOR*AFFINITY*TIME CPU 81' VFAFFTYV='VECTOR*AFFINITY*TIME CPU 82' VFAFFTYW='VECTOR*AFFINITY*TIME CPU 83' VFAFFTYX='VECTOR*AFFINITY*TIME CPU 84' VFAFFTYY='VECTOR*AFFINITY*TIME CPU 85' VFAFFTYZ='VECTOR*AFFINITY*TIME CPU 86' VFAFFTZA='VECTOR*AFFINITY*TIME CPU 35' VFAFFTZB='VECTOR*AFFINITY*TIME CPU 36' VFAFFTZC='VECTOR*AFFINITY*TIME CPU 37' VFAFFTZD='VECTOR*AFFINITY*TIME CPU 38' VFAFFTZE='VECTOR*AFFINITY*TIME CPU 39' VFAFFTZF='VECTOR*AFFINITY*TIME CPU 40' VFAFFTZG='VECTOR*AFFINITY*TIME CPU 41' VFAFFTZH='VECTOR*AFFINITY*TIME CPU 42' VFAFFTZI='VECTOR*AFFINITY*TIME CPU 43' VFAFFTZJ='VECTOR*AFFINITY*TIME CPU 44' VFAFFTZK='VECTOR*AFFINITY*TIME CPU 45' VFAFFTZL='VECTOR*AFFINITY*TIME CPU 46' VFAFFTZM='VECTOR*AFFINITY*TIME CPU 47' VFAFFTZN='VECTOR*AFFINITY*TIME CPU 48' VFAFFTZO='VECTOR*AFFINITY*TIME CPU 49' VFAFFTZP='VECTOR*AFFINITY*TIME CPU 50' VFAFFTZQ='VECTOR*AFFINITY*TIME CPU 51' VFAFFTZR='VECTOR*AFFINITY*TIME CPU 52' VFAFFTZS='VECTOR*AFFINITY*TIME CPU 53' VFAFFTZT='VECTOR*AFFINITY*TIME CPU 54' VFAFFTZU='VECTOR*AFFINITY*TIME CPU 55' VFAFFTZV='VECTOR*AFFINITY*TIME CPU 56' VFAFFTZW='VECTOR*AFFINITY*TIME CPU 57' VFAFFTZX='VECTOR*AFFINITY*TIME CPU 58' VFAFFTZY='VECTOR*AFFINITY*TIME CPU 59' VFAFFTZZ='VECTOR*AFFINITY*TIME CPU 60' VFON0 ='VECTOR*ONLINE*TO CPU 0?' VFON1 ='VECTOR*ONLINE*TO CPU 1?' VFON2 ='VECTOR*ONLINE*TO CPU 2?' VFON3 ='VECTOR*ONLINE*TO CPU 3?' VFON4 ='VECTOR*ONLINE*TO CPU 4?' VFON5 ='VECTOR*ONLINE*TO CPU 5?' VFON6 ='VECTOR*ONLINE*TO CPU 6?' VFON7 ='VECTOR*ONLINE*TO CPU 7?' VFON8 ='VECTOR*ONLINE*TO CPU 8?' VFON9 ='VECTOR*ONLINE*TO CPU 9?' VFONA ='VECTOR*ONLINE*TO CPU 10?' VFONB ='VECTOR*ONLINE*TO CPU 11?' VFONC ='VECTOR*ONLINE*TO CPU 12?' VFOND ='VECTOR*ONLINE*TO CPU 13?' VFONE ='VECTOR*ONLINE*TO CPU 14?' VFONF ='VECTOR*ONLINE*TO CPU 15?' VFONG ='VECTOR*ONLINE*TO CPU 16?' VFONH ='VECTOR*ONLINE*TO CPU 17?' VFONI ='VECTOR*ONLINE*TO CPU 18?' VFONJ ='VECTOR*ONLINE*TO CPU 19?' VFONK ='VECTOR*ONLINE*TO CPU 20?' VFONL ='VECTOR*ONLINE*TO CPU 21?' VFONN ='VECTOR*ONLINE*TO CPU 22?' VFONO ='VECTOR*ONLINE*TO CPU 23?' VFONP ='VECTOR*ONLINE*TO CPU 24?' VFONQ ='VECTOR*ONLINE*TO CPU 25?' VFONR ='VECTOR*ONLINE*TO CPU 26?' VFONS ='VECTOR*ONLINE*TO CPU 27?' VFONT ='VECTOR*ONLINE*TO CPU 28?' VFONU ='VECTOR*ONLINE*TO CPU 29?' VFONV ='VECTOR*ONLINE*TO CPU 30?' VFONVA ='VECTOR*ONLINE*TO CPU 87' VFONVB ='VECTOR*ONLINE*TO CPU 88' VFONVC ='VECTOR*ONLINE*TO CPU 89' VFONVD ='VECTOR*ONLINE*TO CPU 90' VFONVE ='VECTOR*ONLINE*TO CPU 91' VFONVF ='VECTOR*ONLINE*TO CPU 92' VFONVG ='VECTOR*ONLINE*TO CPU 93' VFONVH ='VECTOR*ONLINE*TO CPU 94' VFONVI ='VECTOR*ONLINE*TO CPU 95' VFONW ='VECTOR*ONLINE*TO CPU 31?' VFONX ='VECTOR*ONLINE*TO CPU 32?' VFONY ='VECTOR*ONLINE*TO CPU 33?' VFONYA ='VECTOR*ONLINE*TO CPU 61?' VFONYB ='VECTOR*ONLINE*TO CPU 62?' VFONYC ='VECTOR*ONLINE*TO CPU 63?' VFONYD ='VECTOR*ONLINE*TO CPU 64' VFONYE ='VECTOR*ONLINE*TO CPU 65' VFONYF ='VECTOR*ONLINE*TO CPU 66' VFONYG ='VECTOR*ONLINE*TO CPU 67' VFONYH ='VECTOR*ONLINE*TO CPU 68' VFONYI ='VECTOR*ONLINE*TO CPU 69' VFONYJ ='VECTOR*ONLINE*TO CPU 70' VFONYK ='VECTOR*ONLINE*TO CPU 71' VFONYL ='VECTOR*ONLINE*TO CPU 72' VFONYM ='VECTOR*ONLINE*TO CPU 73' VFONYN ='VECTOR*ONLINE*TO CPU 74' VFONYO ='VECTOR*ONLINE*TO CPU 75' VFONYP ='VECTOR*ONLINE*TO CPU 76' VFONYQ ='VECTOR*ONLINE*TO CPU 77' VFONYR ='VECTOR*ONLINE*TO CPU 78' VFONYS ='VECTOR*ONLINE*TO CPU 79' VFONYT ='VECTOR*ONLINE*TO CPU 80' VFONYU ='VECTOR*ONLINE*TO CPU 81' VFONYV ='VECTOR*ONLINE*TO CPU 82' VFONYW ='VECTOR*ONLINE*TO CPU 83' VFONYX ='VECTOR*ONLINE*TO CPU 84' VFONYY ='VECTOR*ONLINE*TO CPU 85' VFONYZ ='VECTOR*ONLINE*TO CPU 86' VFONZ ='VECTOR*ONLINE*TO CPU 34?' VFONZA ='VECTOR*ONLINE*TO CPU 35?' VFONZB ='VECTOR*ONLINE*TO CPU 36?' VFONZC ='VECTOR*ONLINE*TO CPU 37?' VFONZD ='VECTOR*ONLINE*TO CPU 38?' VFONZE ='VECTOR*ONLINE*TO CPU 39?' VFONZF ='VECTOR*ONLINE*TO CPU 40?' VFONZG ='VECTOR*ONLINE*TO CPU 41?' VFONZH ='VECTOR*ONLINE*TO CPU 42?' VFONZI ='VECTOR*ONLINE*TO CPU 43?' VFONZJ ='VECTOR*ONLINE*TO CPU 44?' VFONZK ='VECTOR*ONLINE*TO CPU 45?' VFONZL ='VECTOR*ONLINE*TO CPU 46?' VFONZM ='VECTOR*ONLINE*TO CPU 47?' VFONZN ='VECTOR*ONLINE*TO CPU 48?' VFONZO ='VECTOR*ONLINE*TO CPU 49?' VFONZP ='VECTOR*ONLINE*TO CPU 50?' VFONZQ ='VECTOR*ONLINE*TO CPU 51?' VFONZR ='VECTOR*ONLINE*TO CPU 52?' VFONZS ='VECTOR*ONLINE*TO CPU 53?' VFONZT ='VECTOR*ONLINE*TO CPU 54?' VFONZU ='VECTOR*ONLINE*TO CPU 55?' VFONZV ='VECTOR*ONLINE*TO CPU 56?' VFONZW ='VECTOR*ONLINE*TO CPU 57?' VFONZX ='VECTOR*ONLINE*TO CPU 58?' VFONZY ='VECTOR*ONLINE*TO CPU 59?' VFONZZ ='VECTOR*ONLINE*TO CPU 60?' VMSYSTEM='THIS IS*A ZOS*UNDER*ZVM?' WAIT00 ='PERCENT*WHEN 0*OUT WAIT' WAIT01 ='PERCENT*WHEN 1-2*OUT WAIT' WAIT02 ='PERCENT*WHEN 3-4*OUT WAIT' WAIT03 ='PERCENT*WHEN 5-6*OUT WAIT' WAIT04 ='PERCENT*WHEN 7-8*OUT WAIT' WAIT05 ='PERCENT*WHEN 9-10*OUT WAIT' WAIT06 ='PERCENT*WHEN 11-15*OUT WAIT' WAIT07 ='PERCENT*WHEN 16-20*OUT WAIT' WAIT08 ='PERCENT*WHEN 21-25*OUT WAIT' WAIT09 ='PERCENT*WHEN 26-30*OUT WAIT' WAIT10 ='PERCENT*WHEN 31-35*OUT WAIT' WAIT11 ='PERCENT*WHEN OVER 35*OUT WAIT' WAITAVG ='AVERAGE*OUT WAIT*TASKS' WAITMAX ='MAXIMUM*OUT WAIT*TASKS' WAITMIN ='MINIMUM*OUT WAIT*TASKS' WKLDNAME='WORKLOAD*GROUP*NAME' WKLOAD ='WORKLOAD*LEVEL' WSETACT ='AVG WKSET*PER*ACTIVE USER' WSETASM ='AVG ASM*SLOTS*PER USER' WSETDIV ='AVG WKSET*PER*DIV USER' WSETFIX ='AVG FIXED*WKSET*PER USER' WSETIDL ='AVG WKSET*PER*IDLE USER' ZARCHMDE='SYSTEM*IS IN*Z/ARCHITECTURE*MODE?' ZIEUNITS='ZIP*ELIGIBLE*UNITS*ON CP' ZIP70ACS ='ACCUMULATED*PROCESSOR*ACTUAL*SHARE ZIP' ZIP70BPS ='PROCESSOR*RESOURCE*WEIGHT*FACTOR ZIP' ZIPACTTM='ZIP ENGINE*EXECUTING*(ACTIVE) CPU TIME' ZIPAVAIL='ZIP PROCESSOR*AVAILABLE?' ZIPCPUS ='ZIP CPUS*IN THIS*SYSTEM' ZIPHONPR='ZIP*HONOR*PRIORITY?' ZIPUNITS='ZIP*SERVICE*UNITS' ZIPUPTM ='ZIP ENGINE*AVAILABLE*(UP) TIME' ZIPWAIT0='ZIP WAIT*DURATION*ZIP 0' ZIPWAIT1='ZIP WAIT*DURATION*ZIP 1' ZIPWAIT2='ZIP WAIT*DURATION*ZIP 2' ZIPWAIT3='ZIP WAIT*DURATION*ZIP 3' ZIPWAIT4='ZIP WAIT*DURATION*ZIP 4' ZIPWAIT5='ZIP WAIT*DURATION*ZIP 5' ZIPWAIT6='ZIP WAIT*DURATION*ZIP 6' ZIPWAIT7='ZIP WAIT*DURATION*ZIP 7' ZIPWAIT8='ZIP WAIT*DURATION*ZIP 8' ZIPWAIT9='ZIP WAIT*DURATION*ZIP 9' ZIPWAITA='ZIP WAIT*DURATION*ZIP 10' ZIPWAITB='ZIP WAIT*DURATION*ZIP 11' ZIPWAITC='ZIP WAIT*DURATION*ZIP 12' ZIPWAITD='ZIP WAIT*DURATION*ZIP 13' ZIPWAITE='ZIP WAIT*DURATION*ZIP 14' ZIPWAITF='ZIP WAIT*DURATION*ZIP 15' ZIPWAITG='ZIP WAIT*DURATION*ZIP 16' ZIPWAITH='ZIP WAIT*DURATION*ZIP 17' ZIPWAITI='ZIP WAIT*DURATION*ZIP 18' ZIPWAITJ='ZIP WAIT*DURATION*ZIP 19' ZIPWAITK='ZIP WAIT*DURATION*ZIP 20' ZIPWAITL='ZIP WAIT*DURATION*ZIP 21' ZIPWAITM='TOTAL*ZIP WAIT*DURATION' ZIPWAITN='ZIP WAIT*DURATION*ZIP 22' ZIPWAITO='ZIP WAIT*DURATION*ZIP 23' ZIPWAITP='ZIP WAIT*DURATION*ZIP 24' ZIPWAITQ='ZIP WAIT*DURATION*ZIP 25' ZIPWAITR='ZIP WAIT*DURATION*ZIP 26' ZIPWAITS='ZIP WAIT*DURATION*ZIP 27' ZIPWAITT='ZIP WAIT*DURATION*ZIP 28' ZIPWAITU='ZIP WAIT*DURATION*ZIP 29' ZIPWAITV='ZIP WAIT*DURATION*ZIP 30' ZIPWAITW='ZIP WAIT*DURATION*ZIP 31' ZIPWAITX='ZIP WAIT*DURATION*ZIP 32' ZIPWAITY='ZIP WAIT*DURATION*ZIP 33' ZIPWAITZ='ZIP WAIT*DURATION*ZIP 34' ZIPWAIVA='ZIP WAIT*DURATION*ZIP 87' ZIPWAIVB='ZIP WAIT*DURATION*ZIP 88' ZIPWAIVC='ZIP WAIT*DURATION*ZIP 89' ZIPWAIVD='ZIP WAIT*DURATION*ZIP 90' ZIPWAIVE='ZIP WAIT*DURATION*ZIP 91' ZIPWAIVF='ZIP WAIT*DURATION*ZIP 92' ZIPWAIVG='ZIP WAIT*DURATION*ZIP 93' ZIPWAIVH='ZIP WAIT*DURATION*ZIP 94' ZIPWAIVI='ZIP WAIT*DURATION*ZIP 95' ZIPWAIVJ='ZIP WAIT*DURATION*ZIP 96' ZIPWAIVK='ZIP WAIT*DURATION*ZIP 97' ZIPWAIVL='ZIP WAIT*DURATION*ZIP 98' ZIPWAIVM='ZIP WAIT*DURATION*ZIP 99' ZIPWAIVN='ZIP WAIT*DURATION*ZIP 100' ZIPWAIVO='ZIP WAIT*DURATION*ZIP 101' ZIPWAIYA='ZIP WAIT*DURATION*ZIP 61' ZIPWAIYB='ZIP WAIT*DURATION*ZIP 62' ZIPWAIYC='ZIP WAIT*DURATION*ZIP 63' ZIPWAIYD='ZIP WAIT*DURATION*ZIP 64' ZIPWAIYE='ZIP WAIT*DURATION*ZIP 65' ZIPWAIYF='ZIP WAIT*DURATION*ZIP 66' ZIPWAIYG='ZIP WAIT*DURATION*ZIP 67' ZIPWAIYH='ZIP WAIT*DURATION*ZIP 68' ZIPWAIYI='ZIP WAIT*DURATION*ZIP 69' ZIPWAIYJ='ZIP WAIT*DURATION*ZIP 70' ZIPWAIYK='ZIP WAIT*DURATION*ZIP 71' ZIPWAIYL='ZIP WAIT*DURATION*ZIP 72' ZIPWAIYM='ZIP WAIT*DURATION*ZIP 73' ZIPWAIYN='ZIP WAIT*DURATION*ZIP 74' ZIPWAIYO='ZIP WAIT*DURATION*ZIP 75' ZIPWAIYP='ZIP WAIT*DURATION*ZIP 76' ZIPWAIYQ='ZIP WAIT*DURATION*ZIP 77' ZIPWAIYR='ZIP WAIT*DURATION*ZIP 78' ZIPWAIYS='ZIP WAIT*DURATION*ZIP 79' ZIPWAIYT='ZIP WAIT*DURATION*ZIP 80' ZIPWAIYU='ZIP WAIT*DURATION*ZIP 81' ZIPWAIYV='ZIP WAIT*DURATION*ZIP 82' ZIPWAIYW='ZIP WAIT*DURATION*ZIP 83' ZIPWAIYX='ZIP WAIT*DURATION*ZIP 84' ZIPWAIYY='ZIP WAIT*DURATION*ZIP 85' ZIPWAIYZ='ZIP WAIT*DURATION*ZIP 86' ZIPWAIZA='ZIP WAIT*DURATION*ZIP 35' ZIPWAIZB='ZIP WAIT*DURATION*ZIP 36' ZIPWAIZC='ZIP WAIT*DURATION*ZIP 37' ZIPWAIZD='ZIP WAIT*DURATION*ZIP 38' ZIPWAIZE='ZIP WAIT*DURATION*ZIP 39' ZIPWAIZF='ZIP WAIT*DURATION*ZIP 40' ZIPWAIZG='ZIP WAIT*DURATION*ZIP 41' ZIPWAIZH='ZIP WAIT*DURATION*ZIP 42' ZIPWAIZI='ZIP WAIT*DURATION*ZIP 43' ZIPWAIZJ='ZIP WAIT*DURATION*ZIP 44' ZIPWAIZK='ZIP WAIT*DURATION*ZIP 45' ZIPWAIZL='ZIP WAIT*DURATION*ZIP 46' ZIPWAIZM='ZIP WAIT*DURATION*ZIP 47' ZIPWAIZN='ZIP WAIT*DURATION*ZIP 48' ZIPWAIZO='ZIP WAIT*DURATION*ZIP 49' ZIPWAIZP='ZIP WAIT*DURATION*ZIP 50' ZIPWAIZQ='ZIP WAIT*DURATION*ZIP 51' ZIPWAIZR='ZIP WAIT*DURATION*ZIP 52' ZIPWAIZS='ZIP WAIT*DURATION*ZIP 53' ZIPWAIZT='ZIP WAIT*DURATION*ZIP 54' ZIPWAIZU='ZIP WAIT*DURATION*ZIP 55' ZIPWAIZV='ZIP WAIT*DURATION*ZIP 56' ZIPWAIZW='ZIP WAIT*DURATION*ZIP 57' ZIPWAIZX='ZIP WAIT*DURATION*ZIP 58' ZIPWAIZY='ZIP WAIT*DURATION*ZIP 59' ZIPWAIZZ='ZIP WAIT*DURATION*ZIP 60' ; LENGTH DEFAULT=&MXGLEN SYNCTIME STARTIME R723MTDI R723MTPA SMF70GIE SMF72GIE 8 R724PTM MACHTIME SMF70GJT R723RTDT SMF70_IPL_TIME 8 SERVICE SU_SEC MSU72 MSUSOFT 8 R702FXEB R702FXDB R702FXTB &MXGBYLN LOGCSTOR LOGESTOR PHYESTOR &MXGBYLN FRAMEACT FRAMEASM FRAMEDIV FRAMEFIX FRAMEIDL &MXGBYLN WSETACT WSETASM WSETDIV WSETFIX WSETIDL &MXGBYLN CSTORE72 ESTORE72 TSTORE72 SSTORE72 SMF70CSF SMF70ESF &MXGBYLN R702NMGB R702NMVB R702SNDB R702SNEB R702TNDB R702TNEB &MXGBYLN R702AESB R702ASDB TRG_MEM &MXGBYLN R702AMGB R702AMVB R702FPDB R702FPEB R702FPTB &MXGBYLN R723CRTF R723CRGF R723TYPE SERVMSCF R7023CT R7024CT $1 R7023SCOPE R7024SCOPE $1 MXGVERSN $6 LPARNAME $8 ; FORMAT SYNCTIME STARTIME R723MTDI R723MTPA SMF70GIE SMF72GIE DATETIME21.2 R724PTM MACHTIME SMF70GJT R723RTDT DATETIME21.2 SMF70_IPL_TIME DATETIME21.2 R723CRTF $MGRMFRT. R723CRGF $MGRMFRG. R723TYPE $MGRMFTY. R7023CT $MGRMFCX. R7024CT $MGRMFCY. R7025CT MGRMFCZ. R7023SCOPE R7024SCOPE $MGRMFSC. R7025SCOPE MGRMFSN. SMF70TYP MG070TY. SMF70CIX MG070CI. SMF70CCR MG070CR. R725SGMO MG072GM. R725CMTY MG072LT. R725LATY MG072LA. R725ENSC MG072SC. LOGCSTOR LOGESTOR PHYESTOR MGBYTES. FRAMEACT FRAMEASM FRAMEDIV FRAMEFIX FRAMEIDL MGBYTES. WSETACT WSETASM WSETDIV WSETFIX WSETIDL MGBYTES. CSTORE72 ESTORE72 TSTORE72 SSTORE72 SMF70CSF SMF70ESF MGBYTES. R702NMGB R702NMVB R702SNDB R702SNEB R702TNDB R702TNEB MGBYTES. R702AESB R702ASDB TRG_MEM MGBYTES. R702AMGB R702AMVB R702FPDB R702FPEB R702FPTB MGBYTES. R702FXEB R702FXDB R702FXTB MGBYTES. CPUWAIT0-CPUWAIT9 CPUWAITA CPUWAITB CPUWAITC CPUWAITD TIME12.3 CPUWAITE CPUWAITF CPUWAITG CPUWAITH CPUWAITI CPUWAITJ TIME12.3 CPUWAITK CPUWAITL CPUWAITN CPUWAITO CPUWAITP CPUWAITQ TIME12.3 CPUWAITR CPUWAITS CPUWAITT CPUWAITU CPUWAITV CPUWAITW TIME12.3 CPUWAITX CPUWAITY CPUWAITZ CPUWAIZA CPUWAIZB CPUWAIZC TIME12.3 CPUWAIZD CPUWAIZE CPUWAIZF CPUWAIZG CPUWAIZH CPUWAIZI TIME12.3 CPUWAIZJ CPUWAIZK CPUWAIZL CPUWAIZM CPUWAIZN CPUWAIZO TIME12.3 CPUWAIZP CPUWAIZQ CPUWAIZR CPUWAIZS TIME12.3 CPUWAIZT CPUWAIZU CPUWAIZV CPUWAIZW CPUWAIZX TIME12.3 CPUWAIZY CPUWAIZZ CPUWAIYA CPUWAIYB CPUWAIYC TIME12.3 CPUWAIYD CPUWAIYE CPUWAIYF CPUWAIYG CPUWAIYH CPUWAIYI TIME12.3 CPUWAIYJ CPUWAIYK CPUWAIYL CPUWAIYM CPUWAIYN CPUWAIYO TIME12.3 CPUWAIYP CPUWAIYQ CPUWAIYR CPUWAIYS CPUWAIYT CPUWAIYU TIME12.3 CPUWAIYV CPUWAIYW CPUWAIYX CPUWAIYY CPUWAIYZ CPUWAIVA TIME12.3 CPUWAIVB CPUWAIVC CPUWAIVD CPUWAIVE CPUWAIVF CPUWAIVG TIME12.3 CPUWAIVH CPUWAIVI TIME12.3 IFAWAIT0-IFAWAIT9 IFAWAITA IFAWAITB IFAWAITC IFAWAITD TIME12.3 IFAWAITE IFAWAITF IFAWAITG IFAWAITH IFAWAITI IFAWAITJ TIME12.3 IFAWAITK IFAWAITL IFAWAITN IFAWAITO IFAWAITP IFAWAITQ TIME12.3 IFAWAITR IFAWAITS IFAWAITT IFAWAITU IFAWAITV IFAWAITW TIME12.3 IFAWAITX IFAWAITY IFAWAITZ IFAWAIZA IFAWAIZB IFAWAIZC TIME12.3 IFAWAIZD IFAWAIZE IFAWAIZF IFAWAIZG IFAWAIZH IFAWAIZI TIME12.3 IFAWAIZJ IFAWAIZK IFAWAIZL IFAWAIZM IFAWAIZN IFAWAIZO TIME12.3 IFAWAIZP IFAWAIZQ IFAWAIZR IFAWAIZS IFAWAIZT IFAWAIZU TIME12.3 IFAWAIZV IFAWAIZW IFAWAIZX IFAWAIZY IFAWAIZZ IFAWAIYA TIME12.3 IFAWAIYB IFAWAIYC TIME12.3 IFAWAIYD IFAWAIYE IFAWAIYF IFAWAIYG IFAWAIYH IFAWAIYI TIME12.3 IFAWAIYJ IFAWAIYK IFAWAIYL IFAWAIYM IFAWAIYN IFAWAIYO TIME12.3 IFAWAIYP IFAWAIYQ IFAWAIYR IFAWAIYS IFAWAIYT IFAWAIYU TIME12.3 IFAWAIYV IFAWAIYW IFAWAIYX IFAWAIYY IFAWAIYZ IFAWAIVA TIME12.3 IFAWAIVB IFAWAIVC IFAWAIVD IFAWAIVE IFAWAIVF IFAWAIVG TIME12.3 IFAWAIVH IFAWAIVI TIME12.3 IFAWAITM R723IFAT R723IFCT TIME12.3 ZIPWAIT0-ZIPWAIT9 ZIPWAITA ZIPWAITB ZIPWAITC ZIPWAITD TIME12.3 ZIPWAITE ZIPWAITF ZIPWAITG ZIPWAITH ZIPWAITI ZIPWAITJ TIME12.3 ZIPWAITK ZIPWAITL ZIPWAITN ZIPWAITO ZIPWAITP ZIPWAITQ TIME12.3 ZIPWAITR ZIPWAITS ZIPWAITT ZIPWAITU ZIPWAITV ZIPWAITW TIME12.3 ZIPWAITX ZIPWAITY ZIPWAITZ ZIPWAIZA ZIPWAIZB ZIPWAIZC TIME12.3 ZIPWAIZD ZIPWAIZE ZIPWAIZF ZIPWAIZG ZIPWAIZH ZIPWAIZI TIME12.3 ZIPWAIZJ ZIPWAIZK ZIPWAIZL ZIPWAIZM ZIPWAIZN ZIPWAIZO TIME12.3 ZIPWAIZP ZIPWAIZQ ZIPWAIZR ZIPWAIZS TIME12.3 ZIPWAIZT ZIPWAIZU ZIPWAIZV ZIPWAIZW ZIPWAIZX TIME12.3 ZIPWAIZY ZIPWAIZZ ZIPWAIYA ZIPWAIYB ZIPWAIYC TIME12.3 ZIPWAIYD ZIPWAIYE ZIPWAIYF ZIPWAIYG ZIPWAIYH ZIPWAIYI TIME12.3 ZIPWAIYJ ZIPWAIYK ZIPWAIYL ZIPWAIYM ZIPWAIYN ZIPWAIYO TIME12.3 ZIPWAIYP ZIPWAIYQ ZIPWAIYR ZIPWAIYS ZIPWAIYT ZIPWAIYU TIME12.3 ZIPWAIYV ZIPWAIYW ZIPWAIYX ZIPWAIYY ZIPWAIYZ ZIPWAIVA TIME12.3 ZIPWAIVB ZIPWAIVC ZIPWAIVD ZIPWAIVE ZIPWAIVF ZIPWAIVG TIME12.3 ZIPWAIVH ZIPWAIVI ZIPWAIVJ ZIPWAIVK ZIPWAIVL ZIPWAIVM TIME12.3 ZIPWAIVN ZIPWAIVO ZIPWAI102-ZIPWAI255 TIME12.3 ZIPWAITM TIME12.3 PRSMSLIC TIME12.3 R723MTVL R723CVAL TIME12.3 SMF70HOF CPUMOBILECP CPUMOBILESP CPUTM_ALL TIME12.2 ACTIVETM AVGELPTM AVGQUETM CPUACTTM RESPAVG TIME12.2 CPUEDTM0-CPUEDTM9 CPUEDTMA CPUEDTMB CPUEDTMC CPUEDTMD TIME12.2 CPUEDTME CPUEDTMF CPUEDTMG CPUEDTMH CPUEDTMI CPUEDTMJ TIME12.2 CPUEDTMK CPUEDTML CPUEDTMN CPUEDTMO CPUEDTMP CPUEDTMQ TIME12.2 CPUEDTMR CPUEDTMS CPUEDTMT CPUEDTMU CPUEDTMV CPUEDTMW TIME12.2 CPUEDTMX CPUEDTMY CPUEDTMZ CPUEDTZA CPUEDTZB CPUEDTZC TIME12.2 CPUEDTZD CPUEDTZE CPUEDTZF CPUEDTZG CPUEDTZH CPUEDTZI TIME12.2 CPUEDTZJ CPUEDTZK CPUEDTZL CPUEDTZM CPUEDTZN CPUEDTZO TIME12.2 CPUEDTZP CPUEDTZQ CPUEDTZR CPUEDTZS TIME12.2 CPUEDTZT CPUEDTZU CPUEDTZV CPUEDTZW CPUEDTZX TIME12.2 CPUEDTZY CPUEDTZZ CPUEDTYA CPUEDTYB CPUEDTYC TIME12.2 CPUEDTYD CPUEDTYE CPUEDTYF CPUEDTYG CPUEDTYH CPUEDTYI TIME12.2 CPUEDTYJ CPUEDTYK CPUEDTYL CPUEDTYM CPUEDTYN CPUEDTYO TIME12.2 CPUEDTYP CPUEDTYQ CPUEDTYR CPUEDTYS CPUEDTYT CPUEDTYU TIME12.2 CPUEDTYV CPUEDTYW CPUEDTYX CPUEDTYY CPUEDTYZ CPUEDTVA TIME12.2 CPUEDTVB CPUEDTVC CPUEDTVD CPUEDTVE CPUEDTVF CPUEDTVG TIME12.2 CPUEDTVH CPUEDTVI TIME12.2 CPUEFFTM CPUHPTTM CPUIIPTM CPUMVSTM TIME12.2 CPUPATM0-CPUPATM9 CPUPATMA CPUPATMB CPUPATMC CPUPATMD TIME12.2 CPUPATME CPUPATMF CPUPATMG CPUPATMH CPUPATMI CPUPATMJ TIME12.2 CPUPATMK CPUPATML CPUPATMN CPUPATMO CPUPATMP CPUPATMQ TIME12.2 CPUPATMR CPUPATMS CPUPATMT CPUPATMU CPUPATMV CPUPATMW TIME12.2 CPUPATMX CPUPATMY CPUPATMZ CPUPATZA CPUPATZB CPUPATZC TIME12.2 CPUPATZD CPUPATZE CPUPATZF CPUPATZG CPUPATZH CPUPATZI TIME12.2 CPUPATZJ CPUPATZK CPUPATZL CPUPATZM CPUPATZN CPUPATZO TIME12.2 CPUPATZP CPUPATZQ CPUPATZR CPUPATZS TIME12.2 CPUPATZT CPUPATZU CPUPATZV CPUPATZW CPUPATZX TIME12.2 CPUPATZY CPUPATZZ CPUPATYA CPUPATYB CPUPATYC TIME12.2 CPUPATYD CPUPATYE CPUPATYF CPUPATYG CPUPATYH CPUPATYI TIME12.2 CPUPATYJ CPUPATYK CPUPATYL CPUPATYM CPUPATYN CPUPATYO TIME12.2 CPUPATYP CPUPATYQ CPUPATYR CPUPATYS CPUPATYT CPUPATYU TIME12.2 CPUPATYV CPUPATYW CPUPATYX CPUPATYY CPUPATYZ CPUPATVA TIME12.2 CPUPATVB CPUPATVC CPUPATVD CPUPATVE CPUPATVF CPUPATVG TIME12.2 CPUPATVH CPUPATVI TIME12.2 SMF70PAT TIME12.2 CPUPDTM0-CPUPDTM9 CPUPDTMA CPUPDTMB CPUPDTMC CPUPDTMD TIME12.2 CPUPDTME CPUPDTMF CPUPDTMG CPUPDTMH CPUPDTMI CPUPDTMJ TIME12.2 CPUPDTMK CPUPDTML CPUPDTMN CPUPDTMO CPUPDTMP CPUPDTMQ TIME12.2 CPUPDTMR CPUPDTMS CPUPDTMT CPUPDTMU CPUPDTMV CPUPDTMW TIME12.2 CPUPDTMX CPUPDTMY CPUPDTMZ CPUPDTZA CPUPDTZB CPUPDTZC TIME12.2 CPUPDTZD CPUPDTZE CPUPDTZF CPUPDTZG CPUPDTZH CPUPDTZI TIME12.2 CPUPDTZJ CPUPDTZK CPUPDTZL CPUPDTZM CPUPDTZN CPUPDTZO TIME12.2 CPUPDTZP CPUPDTZQ CPUPDTZR CPUPDTZS TIME12.2 CPUPDTZT CPUPDTZU CPUPDTZV CPUPDTZW CPUPDTZX TIME12.2 CPUPDTZY CPUPDTZZ CPUPDTYA CPUPDTYB CPUPDTYC TIME12.2 CPUPDTYD CPUPDTYE CPUPDTYF CPUPDTYG CPUPDTYH CPUPDTYI TIME12.2 CPUPDTYJ CPUPDTYK CPUPDTYL CPUPDTYM CPUPDTYN CPUPDTYO TIME12.2 CPUPDTYP CPUPDTYQ CPUPDTYR CPUPDTYS CPUPDTYT CPUPDTYU TIME12.2 CPUPDTYV CPUPDTYW CPUPDTYX CPUPDTYY CPUPDTYZ CPUPDTVA TIME12.2 CPUPDTVB CPUPDTVC CPUPDTVD CPUPDTVE CPUPDTVF CPUPDTVG TIME12.2 CPUPDTVH CPUPDTVI TIME12.2 CPUPDTTM CPURCTTM CPUSRBTM CPUTCBTM R723ECTC CPUPATTM TIME12.2 CPUIFATM CPUIFETM IFAACTTM IFAUPTM TIME12.2 CPUZIPTM CPUZIETM ZIPACTTM ZIPUPTM TIME12.2 CPUTM CPUUPTM CPUVECTM CPUWAITM DURATM ELAPSTM TIME12.2 SMF70WAT TIME12.2 EXETTM LCPUEDTM LCPUPDTM MVSWAITM TIME12.2 MVSWAIT0-MVSWAIT9 MVSWAITA MVSWAITB MVSWAITC MVSWAITD TIME12.2 MVSWAITE MVSWAITF MVSWAITG MVSWAITH MVSWAITI MVSWAITJ TIME12.2 MVSWAITK MVSWAITL MVSWAITN MVSWAITO MVSWAITP MVSWAITQ TIME12.2 MVSWAITR MVSWAITS MVSWAITT MVSWAITU MVSWAITV MVSWAITW TIME12.2 MVSWAITX MVSWAITY MVSWAITZ MVSWAIZA MVSWAIZB MVSWAIZC TIME12.2 MVSWAIZD MVSWAIZE MVSWAIZF MVSWAIZG MVSWAIZH MVSWAIZI TIME12.2 MVSWAIZJ MVSWAIZK MVSWAIZL MVSWAIZM MVSWAIZN MVSWAIZO TIME12.2 MVSWAIZP MVSWAIZQ MVSWAIZR MVSWAIZS TIME12.2 MVSWAIZT MVSWAIZU MVSWAIZV MVSWAIZW MVSWAIZX TIME12.2 MVSWAIZY MVSWAIZZ MVSWAIYA MVSWAIYB MVSWAIYC TIME12.2 MVSWAIYD MVSWAIYE MVSWAIYF MVSWAIYG MVSWAIYH MVSWAIYI TIME12.2 MVSWAIYJ MVSWAIYK MVSWAIYL MVSWAIYM MVSWAIYN MVSWAIYO TIME12.2 MVSWAIYP MVSWAIYQ MVSWAIYR MVSWAIYS MVSWAIYT MVSWAIYU TIME12.2 MVSWAIYV MVSWAIYW MVSWAIYX MVSWAIYY MVSWAIYZ MVSWAIVA TIME12.2 MVSWAIVB MVSWAIVC MVSWAIVD MVSWAIVE MVSWAIVF MVSWAIVG TIME12.2 MVSWAIVH MVSWAIVI TIME12.2 NEWWAIT ORIGWAIT PGPIOTM R723CADT R723CCVT R723CDQT TIME12.2 R723CFEA R723CICT R723CIDT R723CIEA R723CIOT R723CIQT TIME12.2 R723CIWT R723CQDT R723CSRS R723CXEA RESIDTM SMF72ADT TIME12.2 SMF72CVT SMF72FEA SMF72ICT SMF72IDT SMF72IEA SMF72IOT TIME12.2 SMF72IQT SMF72IWT SMF72QDT SMF72XEA SSQELAP SMF70ONT TIME12.2 SMF70WST R7023T0 CPUWAIT MVSWAIT SUM70ONT IFA70ONT TIME12.2 ZIP70ONT CPUPRMTM CPUCRPTM CPULKHTM CPUBSYTM TIME12.2 CPUPDPTM ZIP70PAT TIME12.2 R723RTDM TIME13.3 R725SCMT R725SEDT R725SLAT R725SSMT R725SLOT R725SCLT TIME13.3 R725SLRT R725SSTT R725SSYT R725SSST R725CMTI R725LOTI TIME13.3 R725LCTI R725COTI R725CLTI R725CRTI R725LATI R725ENTI TIME13.3 SMF70WTI TIME13.3 CRYAC1E CRYAC2E CRYAC3E CRYAM1E CRYAM2E CRYAM3E TIME14.6 CRYCTE CRYIADO CRYIAEO CRYIAES CRYPAGE CRYPFAE TIME14.6 CRYPSAE CRYPSCE CRYPSPE CRYPTE TIME14.6 R7021C1T R7022C1T R7021C2T R7022C2T R7021C3T R7022C3T TIME16.6 R7021C4T R7022C4T R7021C5T R7022C5T R7021MET R7022MET TIME16.6 R7021M1T R7022M1T R7021M2T R7022M2T R7021M3T R7022M3T TIME16.6 R7021M4T R7022M4T R7021M5T R7022M5T TIME16.6 R7021CRT R7022CRT R7025SAT R7025FAT R7025SPT R7025SCT TIME16.6 R7025AGT R7023CRT SMF70MTTT TIME16.6 R723CTETX R723CXETX R723CQDTX R723CADTX R723CETSX TIME16.6 R723CCVTX R723CIQTX R724ETX R724QTX TIME16.6 RCDENCTRXET RCDENCTRXETS TIME16.6 GMTOFFTM GMTOFF72 GMTOFF70 TIME8. SMF70HHF HEX2. ZSMT_CORE_ID0-ZSMT_CORE_ID255 SMT_CORE_ID HEX2. ZSMT_CPUID0-ZSMT_CPUID255 CPUID LCPUADDR HEX2. R725CMAS R725LOAS R725COAS R725CRAS R725LAAS R725ENAS HEX4. SMF70MCP SMF70ICP SMF70CCP HEX4. CAI0 -CAI8 CAI9 CAIA CAIB CAIC $HEX2. CAID CAIE CAIF CPUVERSN FLAGS72 PARTFLG $HEX2. CAIG CAIH CAII CAIJ CAIK CAIL $HEX2. CAIN CAIO CAIP CAIQ CAIR CAIS $HEX2. CAIT CAIU CAIV CAIW CAIX CAIY $HEX2. CAIZ CAIZA CAIZB CAIZC CAIZD CAIZE $HEX2. CAIZF CAIZG CAIZH CAIZI CAIZJ CAIZK $HEX2. CAIZL CAIZM CAIZN CAIZO CAIZP CAIZQ $HEX2. CAIZR CAIZS $HEX2. CAIZT CAIZU CAIZV CAIZW CAIZX $HEX2. CAIZY CAIZZ CAIYA CAIYB CAIYC $HEX2. CAIYD CAIYE CAIYF CAIYG CAIYH CAIYI $HEX2. CAIYJ CAIYK CAIYL CAIYM CAIYN CAIYO $HEX2. CAIYP CAIYQ CAIYR CAIYS CAIYT CAIYU $HEX2. CAIYV CAIYW CAIYX CAIYY CAIYZ CAIVA $HEX2. CAIVB CAIVC CAIVD CAIVE CAIVF CAIVG $HEX2. CAIVH CAIVI $HEX2. R723MSCF R723GGLT CAI R723CADF SMF70STF R7024MSK $HEX2. TEMPIOML SMF70PRF SMF70V SMF70INB SMF72PRF SMF72RV5 $HEX2. R7023MSK R7025MSK R7023MT R7024MT $HEX2. R723MFLG R723MFL2 SMF70LPF $HEX2. CPUTYPE SMF70FLA SMF72FLA $HEX4. CPUSER0 -CPUSER8 CPUSER9 CPUSERA CPUSERB CPUSERC $HEX6. CPUSERD CPUSERE CPUSERF CPUSERG CPUSERH CPUSERI $HEX6. CPUSERJ CPUSERK CPUSERL CPUSERN CPUSERO CPUSERP $HEX6. CPUSERQ CPUSERR CPUSERS CPUSERT CPUSERU CPUSERV $HEX6. CPUSERW CPUSERX CPUSERY CPUSERZ CPUSERZA CPUSERZB $HEX6. CPUSERZC CPUSERZD CPUSERZE CPUSERZF CPUSERZG CPUSERZH $HEX6. CPUSERZI CPUSERZJ CPUSERZK CPUSERZL CPUSERZM CPUSERZN $HEX6. CPUSERZO CPUSERZP CPUSERZQ CPUSERZR CPUSERZS CPUSER $HEX6. CPUSERZT CPUSERZU CPUSERZV CPUSERZW CPUSERZX $HEX6. CPUSERZY CPUSERZZ CPUSERYA CPUSERYB CPUSERYC $HEX6. CPUSERYD CPUSERYE CPUSERYF CPUSERYG CPUSERYH CPUSERYI $HEX6. CPUSERYJ CPUSERYK CPUSERYL CPUSERYM CPUSERYN CPUSERYO $HEX6. CPUSERYP CPUSERYQ CPUSERYR CPUSERYS CPUSERYT CPUSERYU $HEX6. CPUSERYV CPUSERYW CPUSERYX CPUSERYY CPUSERYZ CPUSERVA $HEX6. CPUSERVB CPUSERVC CPUSERVD CPUSERVE CPUSERVF CPUSERVG $HEX6. CPUSERVH CPUSERVI $HEX6. R725CMST R725LOST R725COST R725CRST R725LAST R725ENST $HEX16. R725QSST $HEX16. SUPATERN $HEX28. IFATYP0 -IFATYP8 IFATYP9 IFATYPA IFATYPB IFATYPC MG070TY. IFATYPD IFATYPE IFATYPF IFATYPG IFATYPH IFATYPI MG070TY. IFATYPJ IFATYPK IFATYPL IFATYPN IFATYPO IFATYPP MG070TY. IFATYPQ IFATYPR IFATYPS IFATYPT IFATYPU IFATYPV MG070TY. IFATYPW IFATYPX IFATYPY IFATYPZ IFATYPZA IFATYPZB MG070TY. IFATYPZC IFATYPZD IFATYPZE IFATYPZF IFATYPZG IFATYPZH MG070TY. IFATYPZI IFATYPZJ IFATYPZK IFATYPZL IFATYPZM IFATYPZN MG070TY. IFATYPZO IFATYPZP IFATYPZQ IFATYPZR IFATYPZS MG070TY. IFATYPZT IFATYPZU IFATYPZV IFATYPZW IFATYPZX MG070TY. IFATYPZY IFATYPZZ IFATYPYA IFATYPYB IFATYPYC MG070TY. IFATYPYD IFATYPYE IFATYPYF IFATYPYG IFATYPYH IFATYPYI MG070TY. IFATYPYJ IFATYPYK IFATYPYL IFATYPYM IFATYPYN IFATYPYO MG070TY. IFATYPYP IFATYPYQ IFATYPYR IFATYPYS IFATYPYT IFATYPYU MG070TY. IFATYPYV IFATYPYW IFATYPYX IFATYPYY IFATYPYZ IFATYPVA MG070TY. IFATYPVB IFATYPVC IFATYPVD IFATYPVE IFATYPVF IFATYPVG MG070TY. IFATYPVH IFATYPVI MG070TY. POLARITY MG070PO. BOOSTACTIVE MG070SB. PGPEXCP 8. BATCH00 -BATCH11 BATCHAVG BATCHMAX BATCHMIN 5.1 IN00 -IN11 INAVG INMAX INMIN 5.1 LRDY00 -LRDY11 LRDYAVG LRDYMAX LRDYMIN 5.1 LWAIT00 -LWAIT11 LWAITAVG LWAITMAX LWAITMIN 5.1 OUT00 -OUT11 OUTAVG OUTMAX OUTMIN 5.1 PCTCPBY0-PCTCPBY9 PCTCPBYA PCTCPBYB PCTCPBYC PCTCPBYD 5.1 PCTCPBYE PCTCPBYF PCTCPBYG PCTCPBYH PCTCPBYI PCTCPBYJ 5.1 PCTCPBYK PCTCPBYL PCTCPBYN PCTCPBYO PCTCPBYP PCTCPBYQ 5.1 PCTCPBYR PCTCPBYS PCTCPBYT PCTCPBYU PCTCPBYV PCTCPBYW 5.1 PCTCPBYX PCTCPBYY PCTCPBYZ PCTCPBZA PCTCPBZB PCTCPBZC 5.1 PCTCPBZD PCTCPBZE PCTCPBZF PCTCPBZG PCTCPBZH PCTCPBZI 5.1 PCTCPBZJ PCTCPBZK PCTCPBZL PCTCPBZM PCTCPBZN PCTCPBZO 5.1 PCTCPBZP PCTCPBZQ PCTCPBZR PCTCPBZS 5.1 PCTCPBZT PCTCPBZU PCTCPBZV PCTCPBZW PCTCPBZX 5.1 PCTCPBZY PCTCPBZZ PCTCPBXA PCTCPBXB PCTCPBXC 5.1 PCTCPBXD PCTCPBXE PCTCPBXF PCTCPBXG PCTCPBXH PCTCPBXI 5.1 PCTCPBXJ PCTCPBXK PCTCPBXL PCTCPBXM PCTCPBXN PCTCPBXO 5.1 PCTCPBXP PCTCPBXQ PCTCPBXR PCTCPBXS PCTCPBXT PCTCPBXU 5.1 PCTCPBXV PCTCPBXW PCTCPBXX PCTCPBXY PCTCPBXZ PCTCPBUA 5.1 PCTCPBUB PCTCPBUC PCTCPBUD PCTCPBUE PCTCPBUF PCTCPBUG 5.1 PCTCPBUH PCTCPBUI 5.1 PCTCPBUJ PCTCPBUK PCTCPBUL PCTCPBUM PCTCPBUN PCTCPBUO 5.1 PCTIFBY0-PCTIFBY9 PCTIFBYA PCTIFBYB PCTIFBYC PCTIFBYD 5.1 PCTIFBYE PCTIFBYF PCTIFBYG PCTIFBYH PCTIFBYI PCTIFBYJ 5.1 PCTIFBYK PCTIFBYL PCTIFBYN PCTIFBYO PCTIFBYP PCTIFBYQ 5.1 PCTIFBYR PCTIFBYS PCTIFBYT PCTIFBYU PCTIFBYV PCTIFBYW 5.1 PCTIFBYX PCTIFBYY PCTIFBYZ PCTIFBZA PCTIFBZB PCTIFBZC 5.1 PCTIFBZD PCTIFBZE PCTIFBZF PCTIFBZG PCTIFBZH PCTIFBZI 5.1 PCTIFBZJ PCTIFBZK PCTIFBZL PCTIFBZM PCTIFBZN PCTIFBZO 5.1 PCTIFBZP PCTIFBZQ PCTIFBZR PCTIFBZS 5.1 PCTIFBZT PCTIFBZU PCTIFBZV PCTIFBZW PCTIFBZX 5.1 PCTIFBZY PCTIFBZZ PCTIFBXA PCTIFBXB PCTIFBXC 5.1 PCTIFBXD PCTIFBXE PCTIFBXF PCTIFBXG PCTIFBXH PCTIFBXI 5.1 PCTIFBXJ PCTIFBXK PCTIFBXL PCTIFBXM PCTIFBXN PCTIFBXO 5.1 PCTIFBXP PCTIFBXQ PCTIFBXR PCTIFBXS PCTIFBXT PCTIFBXU 5.1 PCTIFBXV PCTIFBXW PCTIFBXX PCTIFBXY PCTIFBXZ PCTIFBUA 5.1 PCTIFBUB PCTIFBUC PCTIFBUD PCTIFBUE PCTIFBUF PCTIFBUG 5.1 PCTIFBUH PCTIFBUI 5.1 PCTONLN0-PCTONLN9 PCTONLNA PCTONLNB PCTONLNC PCTONLND 5.1 PCTONLNE PCTONLNF PCTONLNG PCTONLNH PCTONLNI PCTONLNJ 5.1 PCTONLNK PCTONLNL PCTONLNN PCTONLNO PCTONLNP PCTONLNQ 5.1 PCTONLNR PCTONLNS PCTONLNT PCTONLNU PCTONLNV PCTONLNW 5.1 PCTONLNX PCTONLNY PCTONLNZ PCTONLZA PCTONLZB PCTONLZC 5.1 PCTONLZD PCTONLZE PCTONLZF PCTONLZG PCTONLZH PCTONLZI 5.1 PCTONLZJ PCTONLZK PCTONLZL PCTONLZM PCTONLZN PCTONLZO 5.1 PCTONLZP PCTONLZQ PCTONLZR PCTONLZS 5.1 PCTONLZT PCTONLZU PCTONLZV PCTONLZW PCTONLZX 5.1 PCTONLZY PCTONLZZ PCTONLYA PCTONLYB PCTONLYC 5.1 PCTONLYD PCTONLYE PCTONLYF PCTONLYG PCTONLYH PCTONLYI 5.1 PCTONLYJ PCTONLYK PCTONLYL PCTONLYM PCTONLYN PCTONLYO 5.1 PCTONLYP PCTONLYQ PCTONLYR PCTONLYS PCTONLYT PCTONLYU 5.1 PCTONLYV PCTONLYW PCTONLYX PCTONLYY PCTONLYZ PCTONLVA 5.1 PCTONLVB PCTONLVC PCTONLVD PCTONLVE PCTONLVF PCTONLVG 5.1 PCTONLVH PCTONLVI PCTONLVJ PCTONLVK PCTONLVL PCTONLVM 5.1 PCTONLVN PCTONLVO PCTONL102-PCTONL255 5.1 PCTCPUEF PCTMVSBY PCTRDYWT READY00 -READY15 PCTRDQWT 5.1 READYAVG READYMAX READYMIN STC00 -STC11 5.1 STCAVG STCMAX STCMIN TSO00 -TSO11 TSOAVG 5.1 TSOMAX TSOMIN WAIT00 -WAIT11 WAITAVG 5.1 WAITMAX WAITMIN 5.1 PCTDLACO PCTDLAPR PCTDLAXM PCTDLCCA PCTDLCDE PCTDLCHS 5.1 PCTDLHSP PCTDLIDL PCTDLIOD PCTDLMPL PCTDLNDI PCTDLPDE 5.1 PCTDLPQU PCTDLQ PCTDLSHS PCTDLSMP PCTDLSPV PCTDLSSW 5.1 PCTDLSVI PCTDLSWI PCTDLTDQ PCTDLTOT 5.1 /* ADDED IN MXG 39.02 CHANGE 39.037 */ APPC00 APPC01 APPC02 APPC03 APPC04 APPC05 5.1 APPC06 APPC07 APPC08 APPC09 APPC10 APPC11 5.1 OMVS00 OMVS01 OMVS02 OMVS03 5.1 OMVS04 OMVS05 OMVS06 OMVS07 OMVS08 OMVS09 5.1 OMVS10 OMVS11 PCTTPI PCTTPI0 PCTTPI1 PCTTPI2 5.1 PCTTPI3 PCTTPI4 PCTTPI5 PCTTPI6 PCTTPI7 PCTTPI8 5.1 PCTTPI9 PCTTPIA PCTTPIB PCTTPIC PCTTPID PCTTPIE 5.1 PCTTPIF PCTTPIG PCTTPIH PCTTPII PCTTPIJ PCTTPIK 5.1 PCTTPIL PCTTPIN PCTTPIO PCTTPIP PCTTPIQ PCTTPIR 5.1 PCTTPIS PCTTPIT PCTTPIU PCTTPIV PCTTPIW PCTTPIX 5.1 PCTTPIY PCTTPIYA PCTTPIYB PCTTPIYC PCTTPIZ PCTTPIZA 5.1 PCTTPIZB PCTTPIZC PCTTPIZD PCTTPIZE PCTTPIZF PCTTPIZG 5.1 PCTTPIZH PCTTPIZI PCTTPIZJ PCTTPIZK PCTTPIZL PCTTPIZM 5.1 PCTTPIZN PCTTPIZO PCTTPIZP PCTTPIZQ PCTTPIZR PCTTPIZS 5.1 PCTTPIZT PCTTPIZU PCTTPIZV PCTTPIZW PCTTPIZX PCTTPIZY 5.1 PCTTPIZZ PCTWUQWT PCTZIBXA PCTZIBXB PCTZIBXC PCTZIBY0 5.1 PCTZIBY1 PCTZIBY2 PCTZIBY3 PCTZIBY4 PCTZIBY5 PCTZIBY6 5.1 PCTZIBY7 PCTZIBY8 PCTZIBY9 PCTZIBYA PCTZIBYB PCTZIBYC 5.1 PCTZIBYD PCTZIBYE PCTZIBYF PCTZIBYG PCTZIBYH PCTZIBYI 5.1 PCTZIBYJ PCTZIBYK PCTZIBYL PCTZIBYN PCTZIBYO PCTZIBYP 5.1 PCTZIBYQ PCTZIBYR PCTZIBYS PCTZIBYT PCTZIBYU PCTZIBYV 5.1 PCTZIBYW PCTZIBYX PCTZIBYY PCTZIBYZ PCTZIBZA PCTZIBZB 5.1 PCTZIBZC PCTZIBZD PCTZIBZE PCTZIBZF PCTZIBZG PCTZIBZH 5.1 PCTZIBZI PCTZIBZJ PCTZIBZK PCTZIBZL PCTZIBZM PCTZIBZN 5.1 PCTZIBZO PCTZIBZP PCTZIBZQ PCTZIBZR PCTZIBZS PCTZIBZT 5.1 PCTZIBZU PCTZIBZV PCTZIBZW PCTZIBZX PCTZIBZY PCTZIBZZ 5.1 SMF70PMT 5.3 SMF70Q00 SMF70Q01 SMF70Q02 5.1 SMF70Q03 SMF70Q04 SMF70Q05 SMF70Q06 SMF70Q07 SMF70Q08 5.1 SMF70Q09 SMF70Q10 SMF70Q11 SMF70Q12 SMF70U00 SMF70U01 5.1 SMF70U02 SMF70U03 SMF70U04 SMF70U05 SMF70U06 SMF70U07 5.1 SMF70U08 SMF70U09 SMF70U10 SMF70U11 SMF70U12 SMF70U13 5.1 SMF70U14 SMF70U15 5.1 PCTCPUBY PCTIFABY PCTTPIVA PCTTPIVB PCTTPIVC PCTTPIVD 5.1 PCTTPIVE PCTTPIVF PCTTPIVG PCTTPIVH PCTTPIVI PCTTPIYD 5.1 PCTTPIYE PCTTPIYF PCTTPIYG PCTTPIYH PCTTPIYI PCTTPIYJ 5.1 PCTTPIYK PCTTPIYL PCTTPIYM PCTTPIYN PCTTPIYO PCTTPIYP 5.1 PCTTPIYQ PCTTPIYR PCTTPIYS PCTTPIYT PCTTPIYU PCTTPIYV 5.1 PCTTPIYW PCTTPIYX PCTTPIYY PCTTPIYZ PCTZIBUA PCTZIBUB 5.1 PCTZIBUC PCTZIBUD PCTZIBUE PCTZIBUF PCTZIBUG PCTZIBUH 5.1 PCTZIBUI PCTZIBXD PCTZIBXE PCTZIBXF PCTZIBXG PCTZIBXH 5.1 PCTZIBXI PCTZIBXJ PCTZIBXK PCTZIBXL PCTZIBXM PCTZIBXN 5.1 PCTZIBXO PCTZIBXP PCTZIBXQ PCTZIBXR PCTZIBXS PCTZIBXT 5.1 PCTZIBXU PCTZIBXV PCTZIBXW PCTZIBXX PCTZIBXY PCTZIBXZ 5.1 PCTZIPBY CRYCTU SMF70NCA 5.1 SMF70NSA SMF70NSI SMF70NSW 5.1 CRYAC1U CRYAC2U CRYAC3U CRYAM1U CRYAM2U CRYAM3U 5.1 CRYPAGU CRYPFAU CRYPSAU CRYPSCU CRYPTU CRYPSPU 5.1 APPLAAP APPLAAPCP APPLCP APPLIIP APPLIIPCP PCTDLUNK 5.1 PCTDLVIO PCTDLZIP PCTEXTSA PCTMETGO PCTUSCUS PCTUSIOU 5.1 R723CPCT PCTDLDEV PCTDLENQ PCTDLHSM PCTDLJES PCTDLMNT 5.1 PCTDLMSG PCTDLPRO PCTDLSTO PCTDLXCF PCTUNKN PCTUSDEV 5.1 PCTUSPRO PCTUSTOU SMT_PROD SMT_UTIL 5.1 ; &MXGNOTRA CAI0 -CAI8 CAI9 CAIA CAIB CAIC CAID CAIE CAIF CPUVERSN FLAGS72 PARTFLG CAIG CAIH CAII CAIJ CAIK CAIL CAIN CAIO CAIP CAIQ CAIR CAIS CAIT CAIU CAIV CAIW CAIX CAIY CAIZ CAIZA CAIZB CAIZC CAIZD CAIZE CAIZF CAIZG CAIZH CAIZI CAIZJ CAIZK CAIZL CAIZM CAIZN CAIZO CAIZP CAIZQ CAIZR CAIZS CAIZT CAIZU CAIZV CAIZW CAIZX CAIZY CAIZZ CAIYA CAIYB CAIYC CAIYD CAIYE CAIYF CAIYG CAIYH CAIYI CAIYJ CAIYK CAIYL CAIYM CAIYN CAIYO CAIYP CAIYQ CAIYR CAIYS CAIYT CAIYU CAIYV CAIYW CAIYX CAIYY CAIYZ CAIVA CAIVB CAIVC CAIVD CAIVE CAIVF CAIVG CAIVH CAIVI R723MSCF R723GGLT CAI R723CADF SMF70STF R7024MSK TEMPIOML SMF70PRF SMF70V SMF70INB SMF72PRF SMF72RV5 R7023MSK SMF70FLA R723MFLG R723MFL2 SMF72FLA CPUTYPE CPUSER0 -CPUSER8 CPUSER9 CPUSERA CPUSERB CPUSERC CPUSERD CPUSERE CPUSERF CPUSERG CPUSERH CPUSERI CPUSERJ CPUSERK CPUSERL CPUSERN CPUSERO CPUSERP CPUSERQ CPUSERR CPUSERS CPUSERT CPUSERU CPUSERV CPUSERW CPUSERX CPUSERY CPUSERZ CPUSERZA CPUSERZB CPUSERZC CPUSERZD CPUSERZE CPUSERZF CPUSERZG CPUSERZH CPUSERZI CPUSERZJ CPUSERZK CPUSERZL CPUSERZM CPUSERZN CPUSERZO CPUSERZP CPUSERZQ CPUSERZR CPUSERZS CPUSER CPUSERZT CPUSERZU CPUSERZV CPUSERZW CPUSERZX CPUSERZY CPUSERZZ CPUSERYA CPUSERYB CPUSERYC CPUSERYD CPUSERYE CPUSERYF CPUSERYG CPUSERYH CPUSERYI CPUSERYJ CPUSERYK CPUSERYL CPUSERYM CPUSERYN CPUSERYO CPUSERYP CPUSERYQ CPUSERYR CPUSERYS CPUSERYT CPUSERYU CPUSERYV CPUSERYW CPUSERYX CPUSERYY CPUSERYZ CPUSERVA CPUSERVB CPUSERVC CPUSERVD CPUSERVE CPUSERVF CPUSERVG CPUSERVH CPUSERVI SUPATERN &MXGNOTRB ; RETAIN CPUTYPE ' ' CPUVERSN ' ' IOCCOEFF 0 IOCSYSTM ' ' NRCPUS 0 SU_SEC 0 GMTOFFTM 0 MXGVERSN "&MXGVERS" SERVMSCF CECSER ' ' CPCMODEL ' ' ; ARRAY RTSMAP (14) RTSMAP01-RTSMAP14; ARRAY RTSTRN (14) RTSTRN01-RTSTRN14; ARRAY IFARRAY (256) IFATYP0 -IFATYP8 IFATYP9 IFATYPA IFATYPB IFATYPC IFATYPD IFATYPE IFATYPF IFATYPG IFATYPH IFATYPI IFATYPJ IFATYPK IFATYPL IFATYPN IFATYPO IFATYPP IFATYPQ IFATYPR IFATYPS IFATYPT IFATYPU IFATYPV IFATYPW IFATYPX IFATYPY IFATYPZ IFATYPZA IFATYPZB IFATYPZC IFATYPZD IFATYPZE IFATYPZF IFATYPZG IFATYPZH IFATYPZI IFATYPZJ IFATYPZK IFATYPZL IFATYPZM IFATYPZN IFATYPZO IFATYPZP IFATYPZQ IFATYPZR IFATYPZS IFATYPZT IFATYPZU IFATYPZV IFATYPZW IFATYPZX IFATYPZY IFATYPZZ IFATYPYA IFATYPYB IFATYPYC IFATYPYD IFATYPYE IFATYPYF IFATYPYG IFATYPYH IFATYPYI IFATYPYJ IFATYPYK IFATYPYL IFATYPYM IFATYPYN IFATYPYO IFATYPYP IFATYPYQ IFATYPYR IFATYPYS IFATYPYT IFATYPYU IFATYPYV IFATYPYW IFATYPYX IFATYPYY IFATYPYZ IFATYPVA IFATYPVB IFATYPVC IFATYPVD IFATYPVE IFATYPVF IFATYPVG IFATYPVH IFATYPVI IFATYPVJ IFATYPVK IFATYPVL IFATYPVM IFATYPVN IFATYPVO IFATYP102-IFATYP255; ARRAY IFAWAIZ (256) IFAWAIT0-IFAWAIT9 IFAWAITA IFAWAITB IFAWAITC IFAWAITD IFAWAITE IFAWAITF IFAWAITG IFAWAITH IFAWAITI IFAWAITJ IFAWAITK IFAWAITL IFAWAITN IFAWAITO IFAWAITP IFAWAITQ IFAWAITR IFAWAITS IFAWAITT IFAWAITU IFAWAITV IFAWAITW IFAWAITX IFAWAITY IFAWAITZ IFAWAIZA IFAWAIZB IFAWAIZC IFAWAIZD IFAWAIZE IFAWAIZF IFAWAIZG IFAWAIZH IFAWAIZI IFAWAIZJ IFAWAIZK IFAWAIZL IFAWAIZM IFAWAIZN IFAWAIZO IFAWAIZP IFAWAIZQ IFAWAIZR IFAWAIZS IFAWAIZT IFAWAIZU IFAWAIZV IFAWAIZW IFAWAIZX IFAWAIZY IFAWAIZZ IFAWAIYA IFAWAIYB IFAWAIYC IFAWAIYD IFAWAIYE IFAWAIYF IFAWAIYG IFAWAIYH IFAWAIYI IFAWAIYJ IFAWAIYK IFAWAIYL IFAWAIYM IFAWAIYN IFAWAIYO IFAWAIYP IFAWAIYQ IFAWAIYR IFAWAIYS IFAWAIYT IFAWAIYU IFAWAIYV IFAWAIYW IFAWAIYX IFAWAIYY IFAWAIYZ IFAWAIVA IFAWAIVB IFAWAIVC IFAWAIVD IFAWAIVE IFAWAIVF IFAWAIVG IFAWAIVH IFAWAIVI IFAWAIVJ IFAWAIVK IFAWAIVL IFAWAIVM IFAWAIVN IFAWAIVO IFAWAI102-IFAWAI255; ARRAY ZIPWAIZ (256) ZIPWAIT0-ZIPWAIT9 ZIPWAITA ZIPWAITB ZIPWAITC ZIPWAITD ZIPWAITE ZIPWAITF ZIPWAITG ZIPWAITH ZIPWAITI ZIPWAITJ ZIPWAITK ZIPWAITL ZIPWAITN ZIPWAITO ZIPWAITP ZIPWAITQ ZIPWAITR ZIPWAITS ZIPWAITT ZIPWAITU ZIPWAITV ZIPWAITW ZIPWAITX ZIPWAITY ZIPWAITZ ZIPWAIZA ZIPWAIZB ZIPWAIZC ZIPWAIZD ZIPWAIZE ZIPWAIZF ZIPWAIZG ZIPWAIZH ZIPWAIZI ZIPWAIZJ ZIPWAIZK ZIPWAIZL ZIPWAIZM ZIPWAIZN ZIPWAIZO ZIPWAIZP ZIPWAIZQ ZIPWAIZR ZIPWAIZS ZIPWAIZT ZIPWAIZU ZIPWAIZV ZIPWAIZW ZIPWAIZX ZIPWAIZY ZIPWAIZZ ZIPWAIYA ZIPWAIYB ZIPWAIYC ZIPWAIYD ZIPWAIYE ZIPWAIYF ZIPWAIYG ZIPWAIYH ZIPWAIYI ZIPWAIYJ ZIPWAIYK ZIPWAIYL ZIPWAIYM ZIPWAIYN ZIPWAIYO ZIPWAIYP ZIPWAIYQ ZIPWAIYR ZIPWAIYS ZIPWAIYT ZIPWAIYU ZIPWAIYV ZIPWAIYW ZIPWAIYX ZIPWAIYY ZIPWAIYZ ZIPWAIVA ZIPWAIVB ZIPWAIVC ZIPWAIVD ZIPWAIVE ZIPWAIVF ZIPWAIVG ZIPWAIVH ZIPWAIVI ZIPWAIVJ ZIPWAIVK ZIPWAIVL ZIPWAIVM ZIPWAIVN ZIPWAIVO ZIPWAI102-ZIPWAI255; ARRAY CINWAIT (256) CINWAIT0-CINWAIT8 CINWAIT9 CINWAITA CINWAITB CINWAITC CINWAITD CINWAITE CINWAITF CINWAITG CINWAITH CINWAITI CINWAITJ CINWAITK CINWAITL CINWAITN CINWAITO CINWAITP CINWAITQ CINWAITR CINWAITS CINWAITT CINWAITU CINWAITV CINWAITW CINWAITX CINWAITY CINWAITZ CINWAIZA CINWAIZB CINWAIZC CINWAIZD CINWAIZE CINWAIZF CINWAIZG CINWAIZH CINWAIZI CINWAIZJ CINWAIZK CINWAIZL CINWAIZM CINWAIZN CINWAIZO CINWAIZP CINWAIZQ CINWAIZR CINWAIZS CINWAIZT CINWAIZU CINWAIZV CINWAIZW CINWAIZX CINWAIZY CINWAIZZ CINWAIYA CINWAIYB CINWAIYC CINWAIYD CINWAIYE CINWAIYF CINWAIYG CINWAIYH CINWAIYI CINWAIYJ CINWAIYK CINWAIYL CINWAIYM CINWAIYN CINWAIYO CINWAIYP CINWAIYQ CINWAIYR CINWAIYS CINWAIYT CINWAIYU CINWAIYV CINWAIYW CINWAIYX CINWAIYY CINWAIYZ CINWAIVA CINWAIVB CINWAIVC CINWAIVD CINWAIVE CINWAIVF CINWAIVG CINWAIVH CINWAIVI CINWAIVJ CINWAIVK CINWAIVL CINWAIVM CINWAIVN CINWAIVO CINWAI102-CINWAI255; ARRAY CPUPAT (256) CPUPATM0-CPUPATM8 CPUPATM9 CPUPATMA CPUPATMB CPUPATMC CPUPATMD CPUPATME CPUPATMF CPUPATMG CPUPATMH CPUPATMI CPUPATMJ CPUPATMK CPUPATML CPUPATMN CPUPATMO CPUPATMP CPUPATMQ CPUPATMR CPUPATMS CPUPATMT CPUPATMU CPUPATMV CPUPATMW CPUPATMX CPUPATMY CPUPATMZ CPUPATZA CPUPATZB CPUPATZC CPUPATZD CPUPATZE CPUPATZF CPUPATZG CPUPATZH CPUPATZI CPUPATZJ CPUPATZK CPUPATZL CPUPATZM CPUPATZN CPUPATZO CPUPATZP CPUPATZQ CPUPATZR CPUPATZS CPUPATZT CPUPATZU CPUPATZV CPUPATZW CPUPATZX CPUPATZY CPUPATZZ CPUPATYA CPUPATYB CPUPATYC CPUPATYD CPUPATYE CPUPATYF CPUPATYG CPUPATYH CPUPATYI CPUPATYJ CPUPATYK CPUPATYL CPUPATYM CPUPATYN CPUPATYO CPUPATYP CPUPATYQ CPUPATYR CPUPATYS CPUPATYT CPUPATYU CPUPATYV CPUPATYW CPUPATYX CPUPATYY CPUPATYZ CPUPATVA CPUPATVB CPUPATVC CPUPATVD CPUPATVE CPUPATVF CPUPATVG CPUPATVH CPUPATVI CPUPATVJ CPUPATVK CPUPATVL CPUPATVM CPUPATVN CPUPATVO CPUPAT102-CPUPAT255; IF ID=70 THEN DO; INPUT @15+OFFSMF SMF70SIZ &PIB.2. @17+OFFSMF STARTIME RMFSTAMP8. @25+OFFSMF DURATM RMFDUR4. @29+OFFSMF CPUTYPE $CHAR2. @31+OFFSMF SMF70SUB &PIB.2. @33+OFFSMF NRSAMPLE &PIB.4. @37+OFFSMF VERSNRMF &NUM.2. @39+OFFSMF SMF70RV1 &PIB.2. @41+OFFSMF RELEASE $EBCDIC4. @45+OFFSMF CYCLE &PD.4. @49+OFFSMF SMF70SCC &PIB.2. @51+OFFSMF NRCPUD &PIB.2. @53+OFFSMF SMF70SCD &PIB.2. @55+OFFSMF SMF70SAS &PIB.2. @57+OFFSMF SUPATERN $CHAR14. @71+OFFSMF SMF70RV2 &PIB.2. @; %%VMXGTIME(STARTIME,SYSTEM); /*******************************************************************/ /* */ /* THE FOLLOWING TEST SETS THE SU_SEC VALUE FOR THE CPU */ /* BEING USED. NOTE THIS IS FOR MVS/370 ONLY; MXS/XA IS */ /* HANDLED DIFFERENTLY. IN MVS/370 THERE IS NO DATA TO */ /* IDENTIFY WHICH MODEL (K,Q,ETC) OF A CPUTYPE IS BEING */ /* USED. THE FIRST MODEL IN EACH GROUP OF CPUTYPE WILL */ /* BE USED AS IS. YOU MAY HAVE TO REORDER THE SEQUENCE */ /* OF THE IF STATEMENT TO PLACE YOUR MODEL CPU FIRST IN */ /* THE LIST IF ALL OF YOUR CPUS ARE OF THE SAME MODEL. */ /* IF YOU HAVE DIFFERENT MODELS WITHIN A CPUTYPE (I.E., */ /* YOU HAVE BOTH A G MODEL AND K MODEL 3081, IT WILL */ /* BE NECESSARY FOR YOU TO MODIFY THIS CODE AND USE THE */ /* SYSTEM ID IN CONJUNCTION WITH CPUTYPE TO SET THE */ /* CORRECT VALUE. FOR EXAMPLE, IF SYS1 IS A 3081K AND */ /* SYS2 IS THE 3081G, AN ALGORITHM SIMILAR TO THE FOLLOWING */ /* MUST BE INSERTED BEFORE THE FIRST TEST FOR CPUTYPE='3081'X: */ /* */ /* ELSE IF CPUTYPE='3081'X AND SYSTEM='SYS1' THEN SU_SEC=368.4; */ /* ELSE IF CPUTYPE='3081'X AND SYSTEM='SYS2' THEN SU_SEC=291.1; */ /* */ /* */ /* IF THE INCORRECT VALUE IS SET FOR SU_SEC, THE CPUTCBTM AND */ /* CPUSRBTM VALUES IN TYPE72 WILL BE WRONG, AND CALCULATION */ /* OF MVS OVERHEAD IN RMFINTRV WILL ALSO BE WRONG. */ /* */ /*******************************************************************/ IF CPUTYPE='0000'X THEN SU_SEC=. ; /* DUMMY FOR INCLUDE */ %%INCLUDE SOURCLIB(IMACPUSU); /* OPTIONAL INSTALLATION OVERRIDE */ ELSE IF CPUTYPE='0580'X THEN SU_SEC=730.0; /* AMDAHL 580 */ ELSE IF CPUTYPE='0470'X THEN SU_SEC=439.0; /* AMDAHL V8 */ ELSE IF CPUTYPE='0470'X THEN SU_SEC=365.0; /* AMDAHL V7 */ ELSE IF CPUTYPE='3090'X THEN SU_SEC=712.5; /* 3090 200 */ ELSE IF CPUTYPE='3081'X THEN SU_SEC=368.4; /* 3081-K */ ELSE IF CPUTYPE='3081'X THEN SU_SEC=391.2; /* 3081-K+(PIF)*/ ELSE IF CPUTYPE='3081'X THEN SU_SEC=396.2; /* 3081-KX*/ ELSE IF CPUTYPE='3081'X THEN SU_SEC=291.1; /* 3081-G */ ELSE IF CPUTYPE='3081'X THEN SU_SEC=309.3; /* 3081-G+(PIF)*/ ELSE IF CPUTYPE='3081'X THEN SU_SEC=313.4; /* 3081-GX*/ ELSE IF CPUTYPE='3081'X THEN SU_SEC=276.3; /* 3081-D */ ELSE IF CPUTYPE='3081'X THEN SU_SEC=276.3; /* ORIG 3081-G */ ELSE IF CPUTYPE='3083'X THEN SU_SEC=388.8; /* 3083-J */ ELSE IF CPUTYPE='3083'X THEN SU_SEC=411.8; /* 3083-J+(PIF)*/ ELSE IF CPUTYPE='3083'X THEN SU_SEC=420.0; /* 3083-JX*/ ELSE IF CPUTYPE='3083'X THEN SU_SEC=306.5; /* 3083-B */ ELSE IF CPUTYPE='3083'X THEN SU_SEC=325.6; /* 3083-B+(PIF)*/ ELSE IF CPUTYPE='3083'X THEN SU_SEC=330.7; /* 3083-BX*/ ELSE IF CPUTYPE='3083'X THEN SU_SEC=289.6; /* ORIG 3083-B */ ELSE IF CPUTYPE='3083'X THEN SU_SEC=204.8; /* 3083-E */ ELSE IF CPUTYPE='3083'X THEN SU_SEC=217.6; /* 3083-E+(PIF)*/ ELSE IF CPUTYPE='3083'X THEN SU_SEC=213.2; /* 3083-EX*/ ELSE IF CPUTYPE='3083'X THEN SU_SEC=194.4; /* ORIG 3083-E */ ELSE IF CPUTYPE='3084'X THEN SU_SEC=368.4; /* ORIG 3084-Q */ ELSE IF CPUTYPE='3084'X THEN SU_SEC=366.5; /* 3084-Q+(PIF)*/ ELSE IF CPUTYPE='3084'X THEN SU_SEC=396.2; /* 3084-QX*/ ELSE IF CPUTYPE='3033'X THEN SU_SEC=261.3; /*3033-U */ ELSE IF CPUTYPE='3033'X THEN SU_SEC=151.0; /*3033-S */ ELSE IF CPUTYPE='3032'X THEN SU_SEC=166.0; ELSE IF CPUTYPE='0168'X THEN SU_SEC=151.0; ELSE IF CPUTYPE='0165'X THEN SU_SEC=125.0; ELSE IF CPUTYPE='4361'X THEN SU_SEC= 60.1; /* 1*/ ELSE IF CPUTYPE='4381'X THEN SU_SEC=153.9; /* 4381-III*/ ELSE IF CPUTYPE='4381'X THEN SU_SEC=181.0; /* 4381-II */ ELSE IF CPUTYPE='4381'X THEN SU_SEC=122.1; /* 4381-I */ ELSE IF CPUTYPE='4341'X THEN SU_SEC= 78.7; /* 4341-II */ ELSE IF CPUTYPE='4341'X THEN SU_SEC= 44.1; /* 4341-I */ ELSE IF CPUTYPE='3031'X THEN SU_SEC= 64.2; ELSE IF CPUTYPE='0158'X THEN SU_SEC= 51.2; ELSE IF CPUTYPE='0155'X THEN SU_SEC= 42.0; ELSE IF CPUTYPE='0148'X THEN SU_SEC= 29.0; ELSE IF CPUTYPE='0145'X THEN SU_SEC= 24.0; ELSE DO; N70ERR+1; IF N70ERR=1 THEN DO; %%MXLOGPUT(MESSAGE=MXGERROR::VMAC7072.002); &MXPUT ' *****ERROR*****TYPE70.*********'/ +4 CPUTYPE= ' NOT DECODED. '/ +4 'CPU TIME IN TYPE72 DATA WILL BE MISSING AS A RESULT. '/ +4 'THE CPUTYPE IS LOOKED UP IN A TABLE IN '/ +4 'THE CODE IN MEMBER VMAC7072 TO CONVERT SERVICE UNITS '/ +4 'TO CPU SECONDS. THE CONVERSION CONSTANT SU_SEC IS THE'/ +4 'NUMBER OF SERVICE UNITS GENERATED BY ONE CPU SECOND, '/ +4 'AND IS DOCUMENTED IN RMF MODULE IRARMCPU. CHAPTER 40,'/ +4 'SECTION TYPE70, DESCRIBES HOW TO USE THE TSO TEST '/ +4 'COMMAND TO DETERMINE THE CORRECT VALUE. THESE VALUES '/ +4 'ARE ALSO PROVIDED IN THE MXG NEWSLETTER FOR NEW CPUS.'/; %%MXLOGEND; PUT ' *****ERROR*****TYPE70.*********'/ +4 CPUTYPE= ' NOT DECODED. '/ +4 'CPU TIME IN TYPE72 DATA WILL BE MISSING AS A RESULT. '/ +4 'THE CPUTYPE IS LOOKED UP IN A TABLE IN '/ +4 'THE CODE IN MEMBER VMAC7072 TO CONVERT SERVICE UNITS '/ +4 'TO CPU SECONDS. THE CONVERSION CONSTANT SU_SEC IS THE'/ +4 'NUMBER OF SERVICE UNITS GENERATED BY ONE CPU SECOND, '/ +4 'AND IS DOCUMENTED IN RMF MODULE IRARMCPU. CHAPTER 40,'/ +4 'SECTION TYPE70, DESCRIBES HOW TO USE THE TSO TEST '/ +4 'COMMAND TO DETERMINE THE CORRECT VALUE. THESE VALUES '/ +4 'ARE ALSO PROVIDED IN THE MXG NEWSLETTER FOR NEW CPUS.'/; END; END; NRCPUS=0; CPUWAIT=0; DO _I_=1 TO NRCPUD; /*READ, STORE, NO OUTPUT*/ INPUT CPUWAITM &PIB.8. CPUID &PIB.2. SMF70RV3 &PIB.1. CAI $CHAR1. SMF70RV4 &PIB.1. CPUSER $CHAR3. @; IF CPUSER GT '000000'X AND CAI EQ '.......1'B THEN CECSER=SUBSTR(PUT(CPUSER,$HEX6.),3,4); /* EIGHT BYTES DIVIDED BY 4096 FOR BIT 51 =1 MICROSECONDS*/ /* AND DIVIDED BY 1E6 TO CONVERT TO SECONDS */ CPUWAITM=CPUWAITM/(4096*1E6); SMF70WAT=CPUWAITM; PCTCPUBY=.; IF CAI EQ '.......1'B THEN DO; /* CPU ONLINE ENTIRE INTERVAL */ PCTCPUBY=100*(DURATM-CPUWAITM)/DURATM; CPUWAIT=CPUWAIT+CPUWAITM; NRCPUS =NRCPUS+1; END; IF CPUID=0 THEN DO; CPUWAIT0=CPUWAITM; PCTCPBY0=PCTCPUBY; CAI0=CAI; CPUSER0=CPUSER; END; ELSE IF CPUID=1 THEN DO; CPUWAIT1=CPUWAITM; PCTCPBY1=PCTCPUBY; CAI1=CAI; CPUSER1=CPUSER; END; ELSE IF CPUID=2 THEN DO; CPUWAIT2=CPUWAITM; PCTCPBY2=PCTCPUBY; CAI2=CAI; CPUSER2=CPUSER; END; ELSE IF CPUID=3 THEN DO; CPUWAIT3=CPUWAITM; PCTCPBY3=PCTCPUBY; CAI3=CAI; CPUSER3=CPUSER; END; IF CPUID=4 THEN DO; CPUWAIT4=CPUWAITM; PCTCPBY4=PCTCPUBY; CAI4=CAI; CPUSER4=CPUSER; END; IF CPUID=5 THEN DO; CPUWAIT5=CPUWAITM; PCTCPBY5=PCTCPUBY; CAI5=CAI; CPUSER5=CPUSER; END; IF CPUID=6 THEN DO; CPUWAIT6=CPUWAITM; PCTCPBY6=PCTCPUBY; CAI6=CAI; CPUSER6=CPUSER; END; IF CPUID=7 THEN DO; CPUWAIT7=CPUWAITM; PCTCPBY7=PCTCPUBY; CAI7=CAI; CPUSER7=CPUSER; END; IF CPUID=8 THEN DO; CPUWAIT8=CPUWAITM; PCTCPBY8=PCTCPUBY; CAI8=CAI; CPUSER8=CPUSER; END; END; /* END DO OVER NRCPUS CPU SEGMENTS */ IF _XANT THEN CPUWAITM=CPUWAIT; IF NRCPUS*DURATM GT 0 THEN PCTCPUBY=(100*(NRCPUS*DURATM-CPUWAITM))/(NRCPUS*DURATM); INPUT READYMIN &PIB.2. /*SMF70RMN*/ READYMAX &PIB.2. /*SMF70RMM*/ READYAVG &PIB.4. /*SMF70RTT*/ (READY00 -READY15 ) ( &PIB.4.) INMIN &PIB.2. INMAX &PIB.2. INAVG &PIB.4. (IN00 -IN11 ) ( &PIB.4.) OUTMIN &PIB.2. OUTMAX &PIB.2. OUTAVG &PIB.4. (OUT00 -OUT11 ) ( &PIB.4.) WAITMIN &PIB.2. WAITMAX &PIB.2. WAITAVG &PIB.4. (WAIT00 -WAIT11 ) ( &PIB.4.) BATCHMIN &PIB.2. BATCHMAX &PIB.2. BATCHAVG &PIB.4. (BATCH00 -BATCH11 ) ( &PIB.4.) STCMIN &PIB.2. STCMAX &PIB.2. STCAVG &PIB.4. (STC00 -STC11 ) ( &PIB.4.) TSOMIN &PIB.2. TSOMAX &PIB.2. TSOAVG &PIB.4. (TSO00 -TSO11 ) ( &PIB.4.) LRDYMIN &PIB.2. LRDYMAX &PIB.2. LRDYAVG &PIB.4. (LRDY00 -LRDY11 ) ( &PIB.4.) LWAITMIN &PIB.2. LWAITMAX &PIB.2. LWAITAVG &PIB.4. (LWAIT00 -LWAIT11 ) ( &PIB.4.) @; IF NRSAMPLE GT 0 THEN DO; TEMPINV=100/NRSAMPLE; BATCH00 =BATCH00*TEMPINV; BATCH01 =BATCH01*TEMPINV; BATCH02 =BATCH02*TEMPINV; BATCH03 =BATCH03*TEMPINV; BATCH04 =BATCH04*TEMPINV; BATCH05 =BATCH05*TEMPINV; BATCH06 =BATCH06*TEMPINV; BATCH07 =BATCH07*TEMPINV; BATCH08 =BATCH08*TEMPINV; BATCH09 =BATCH09*TEMPINV; BATCH10 =BATCH10*TEMPINV; BATCH11 =BATCH11*TEMPINV; IN00 =IN00 *TEMPINV; IN01 =IN01 *TEMPINV; IN02 =IN02 *TEMPINV; IN03 =IN03 *TEMPINV; IN04 =IN04 *TEMPINV; IN05 =IN05 *TEMPINV; IN06 =IN06 *TEMPINV; IN07 =IN07 *TEMPINV; IN08 =IN08 *TEMPINV; IN09 =IN09 *TEMPINV; IN10 =IN10 *TEMPINV; IN11 =IN11 *TEMPINV; LRDY00 =LRDY00 *TEMPINV; LRDY01 =LRDY01 *TEMPINV; LRDY02 =LRDY02 *TEMPINV; LRDY03 =LRDY03 *TEMPINV; LRDY04 =LRDY04 *TEMPINV; LRDY05 =LRDY05 *TEMPINV; LRDY06 =LRDY06 *TEMPINV; LRDY07 =LRDY07 *TEMPINV; LRDY08 =LRDY08 *TEMPINV; LRDY09 =LRDY09 *TEMPINV; LRDY10 =LRDY10 *TEMPINV; LRDY11 =LRDY11 *TEMPINV; LWAIT00 =LWAIT00*TEMPINV; LWAIT01 =LWAIT01*TEMPINV; LWAIT02 =LWAIT02*TEMPINV; LWAIT03 =LWAIT03*TEMPINV; LWAIT04 =LWAIT04*TEMPINV; LWAIT05 =LWAIT05*TEMPINV; LWAIT06 =LWAIT06*TEMPINV; LWAIT07 =LWAIT07*TEMPINV; LWAIT08 =LWAIT08*TEMPINV; LWAIT09 =LWAIT09*TEMPINV; LWAIT10 =LWAIT10*TEMPINV; LWAIT11 =LWAIT11*TEMPINV; OUT00 =OUT00 *TEMPINV; OUT01 =OUT01 *TEMPINV; OUT02 =OUT02 *TEMPINV; OUT03 =OUT03 *TEMPINV; OUT04 =OUT04 *TEMPINV; OUT05 =OUT05 *TEMPINV; OUT06 =OUT06 *TEMPINV; OUT07 =OUT07 *TEMPINV; OUT08 =OUT08 *TEMPINV; OUT09 =OUT09 *TEMPINV; OUT10 =OUT10 *TEMPINV; OUT11 =OUT11 *TEMPINV; READY00 =READY00*TEMPINV; READY01 =READY01*TEMPINV; READY02 =READY02*TEMPINV; READY03 =READY03*TEMPINV; READY04 =READY04*TEMPINV; READY05 =READY05*TEMPINV; READY06 =READY06*TEMPINV; READY07 =READY07*TEMPINV; READY08 =READY08*TEMPINV; READY09 =READY09*TEMPINV; READY10 =READY10*TEMPINV; READY11 =READY11*TEMPINV; READY12 =READY12*TEMPINV; READY13 =READY13*TEMPINV; READY14 =READY14*TEMPINV; READY15 =READY15*TEMPINV; STC00 =STC00 *TEMPINV; STC01 =STC01 *TEMPINV; STC02 =STC02 *TEMPINV; STC03 =STC03 *TEMPINV; STC04 =STC04 *TEMPINV; STC05 =STC05 *TEMPINV; STC06 =STC06 *TEMPINV; STC07 =STC07 *TEMPINV; STC08 =STC08 *TEMPINV; STC09 =STC09 *TEMPINV; STC10 =STC10 *TEMPINV; STC11 =STC11 *TEMPINV; TSO00 =TSO00 *TEMPINV; TSO01 =TSO01 *TEMPINV; TSO02 =TSO02 *TEMPINV; TSO03 =TSO03 *TEMPINV; TSO04 =TSO04 *TEMPINV; TSO05 =TSO05 *TEMPINV; TSO06 =TSO06 *TEMPINV; TSO07 =TSO07 *TEMPINV; TSO08 =TSO08 *TEMPINV; TSO09 =TSO09 *TEMPINV; TSO10 =TSO10 *TEMPINV; TSO11 =TSO11 *TEMPINV; WAIT00 =WAIT00 *TEMPINV; WAIT01 =WAIT01 *TEMPINV; WAIT02 =WAIT02 *TEMPINV; WAIT03 =WAIT03 *TEMPINV; WAIT04 =WAIT04 *TEMPINV; WAIT05 =WAIT05 *TEMPINV; WAIT06 =WAIT06 *TEMPINV; WAIT07 =WAIT07 *TEMPINV; WAIT08 =WAIT08 *TEMPINV; WAIT09 =WAIT09 *TEMPINV; WAIT10 =WAIT10 *TEMPINV; WAIT11 =WAIT11 *TEMPINV; READYAVG=READYAVG/NRSAMPLE; INAVG =INAVG /NRSAMPLE; OUTAVG =OUTAVG /NRSAMPLE; WAITAVG =WAITAVG /NRSAMPLE; BATCHAVG=BATCHAVG/NRSAMPLE; STCAVG =STCAVG /NRSAMPLE; TSOAVG =TSOAVG /NRSAMPLE; LRDYAVG =LRDYAVG /NRSAMPLE; LWAITAVG=LWAITAVG/NRSAMPLE; END; IF NRCPUS=1 THEN PCTRDYWT=SUM(OF READY02-READY15); ELSE IF NRCPUS=2 THEN PCTRDYWT=SUM(OF READY03-READY15); ELSE IF NRCPUS=3 THEN PCTRDYWT=SUM(OF READY04-READY15); ELSE IF NRCPUS=4 THEN PCTRDYWT=SUM(OF READY05-READY15); ELSE IF NRCPUS=5 THEN PCTRDYWT=SUM(OF READY06-READY15); ELSE IF NRCPUS=6 THEN PCTRDYWT=SUM(OF READY07-READY15); ELSE IF NRCPUS=7 THEN PCTRDYWT=SUM(OF READY08-READY15); ELSE IF NRCPUS=8 THEN PCTRDYWT=SUM(OF READY09-READY15); ELSE IF NRCPUS=9 THEN PCTRDYWT=SUM(OF READY10-READY15); ELSE IF NRCPUS=10 THEN PCTRDYWT=SUM(OF READY11-READY15); ELSE IF NRCPUS=11 THEN PCTRDYWT=SUM(OF READY12-READY15); ELSE IF NRCPUS=12 THEN PCTRDYWT=SUM(OF READY13-READY15); ELSE IF NRCPUS=13 THEN PCTRDYWT=SUM(OF READY14-READY15); ELSE IF NRCPUS=14 THEN PCTRDYWT=READY15; ELSE PCTRDYWT=.; ZIPCPUS=FLOOR((100*ZIPUPTM/DURATM)+.1)/100; _ETY70; /*INC SOURCLIB(EXTY70); _WTY70 OUTPUTS TYPE70 */ RETURN; END; /* END TYPE 70 RECORD */ ELSE IF ID=72 THEN DO; INPUT @15+OFFSMF SMF72SIZ &PIB.2. @17+OFFSMF STARTIME RMFSTAMP8. @25+OFFSMF DURATM RMFDUR4. @29+OFFSMF SMF72RV0 &PIB.1. @30+OFFSMF FLAGS72 $CHAR1. @31+OFFSMF PERFGRP &PIB.2. @33+OFFSMF SMF72SAM &PIB.4. @37+OFFSMF VERSNRMF &NUM.2. @39+OFFSMF SMF72RV1 &PIB.2. @41+OFFSMF RELEASE $EBCDIC4. @45+OFFSMF SMF72CYC &PIB.4. @49+OFFSMF SMF72SWC &PIB.2. @51+OFFSMF NRPERIOD &PIB.2. @53+OFFSMF SMF72SPD &PIB.2. @55+OFFSMF HIGHPG &PIB.2. @57+OFFSMF IPSNAME $EBCDIC8. @65+OFFSMF IOCRFC &NUM.3. @68+OFFSMF CPURFC &NUM.3. @71+OFFSMF ERV &NUM.6. @77+OFFSMF IOCCOEFF &NUM.4. @81+OFFSMF CPUCOEFF &NUM.4. @85+OFFSMF MSOCOEFF &NUM.4. @89+OFFSMF SRBCOEFF &NUM.4. @93+OFFSMF OPTNAME $EBCDIC8. @101+OFFSMF ICSNAME $EBCDIC8. @109+OFFSMF SUBSYS $EBCDIC4. @113+OFFSMF PGNCLASS $EBCDIC10. @123+OFFSMF PGNUSER $EBCDIC10. @133+OFFSMF PGNTRANS $EBCDIC10. @; /* %%INCLUDE SOURCLIB(VSETZERO); RESET SECONDS 58,59, 01 TO 00*/ %%VMXGTIME(STARTIME,SYSTEM); IF VERSNRMF GE 330 THEN DO; INPUT NNNNNN &PIB.4. @; IF NNNNNN GT 0 THEN SU_SEC=16000000/NNNNNN; END; IF FLAGS72='......1.'B THEN PERFRPGN=PERFGRP; IOCSYSTM=SYSTEM; DO PERIOD=1 TO NRPERIOD; INPUT TRANS &PIB.4. ACTIVETM &PIB.4. SERVICE &PIB.4. ELAPSTM &PIB.4. WKLOAD &PIB.4. MSOUNITS &PIB.4. IOUNITS &PIB.4. CPUUNITS &PIB.4. RESIDTM &PIB.4. SWAPSEQ &PIB.4. DOMAIN &PIB.2. OBJCTIVE &PIB.1. TSLGROUP &PIB.1. SRBUNITS &PIB.4. SSQELAP &PIB.8. @; WKLOAD=WKLOAD/256; ACTIVETM=ACTIVETM*1024/(1E6); ELAPSTM=ELAPSTM*1024/(1E6); RESIDTM=RESIDTM*1024/(1E6); IF CPUCOEFF GT 0 THEN CPUTCBTM=CPUUNITS/(CPUCOEFF*SU_SEC); IF SRBCOEFF GT 0 THEN CPUSRBTM=SRBUNITS/(SRBCOEFF*SU_SEC); CPUTM=SUM(CPUTCBTM,CPUSRBTM); /* NON MVS/XA */ IF TRANS GT 0 THEN RESPAVG=ELAPSTM/TRANS; ELSE RESPAVG=.; SSQELAP=SSQELAP*1.024E-06; /* 1024/(1E6**2)*/ IF TRANS GT 1 THEN DO; RESPSTD=(SSQELAP-(ELAPSTM**2)/TRANS); IF RESPSTD GE 0 THEN RESPSTD=SQRT(RESPSTD/(TRANS-1)); ELSE RESPSTD=.; END; ELSE RESPSTD=.; IF IOCCOEFF GT 0 THEN PGPEXCP=IOUNITS/IOCCOEFF; ELSE PGPEXCP=.; IF CPUUNITS GT 0 AND MSOCOEFF GT 0 THEN AVGMEMSZ=200*MSOUNITS*CPUCOEFF/(MSOCOEFF*CPUUNITS); ELSE AVGMEMSZ=.; _ETY72; /*INC SOURCLIB(EXTY72); _WTY72 OUTPUTS TYPE72 */ END; END; /* MVS/370 TYPE 72 RECORD */ RETURN; END; /* TYPE 70, 72 RECORD FOR PRE-MVSXA */ ELSE IF (ID=70 OR ID=72) AND MVSXA THEN DO; /*MVS/XA AND LATER*/ IF ID=70 AND SUBTYPE LE 1 THEN DO; INPUT @15+OFFSMF SUBSYS $EBCDIC4. /*SMF70SSI*/ @19+OFFSMF SUBTYPE &PIB.2. /*SMF70STY*/ @21+OFFSMF NRTRIPLT &PIB.2. /*SMF70TRN*/ @23+OFFSMF SMF70RV5 &PIB.2. /*RESERVED*/ @25+OFFSMF OFFRMFP &PIB.4. /*SMF70PRS*/ @29+OFFSMF LENRMFP &PIB.2. /*SMF70PRL*/ @31+OFFSMF NRRMFP &PIB.2. /*SMF70PRN*/ @33+OFFSMF OFFCPUC &PIB.4. /*SMF70CCS*/ @37+OFFSMF LENCPUC &PIB.2. /*SMF70CCL*/ @39+OFFSMF NRCPUC &PIB.2. /*SMF70CCN*/ @41+OFFSMF OFFCPUD &PIB.4. /*SMF70CPS*/ @45+OFFSMF LENCPUD &PIB.2. /*SMF70CPL*/ @47+OFFSMF NRCPUD &PIB.2. /*SMF70CPN*/ @49+OFFSMF OFFASID &PIB.4. /*SMF70ASS*/ @53+OFFSMF LENASID &PIB.2. /*SMF70ASL*/ @55+OFFSMF NRASID &PIB.2. /*SMF70ASN*/ @; IF NRTRIPLT GE 6 THEN DO; INPUT @57+OFFSMF OFFPRCS &PIB.4. /*SMF70BCS*/ @61+OFFSMF LENPRCS &PIB.2. /*SMF70BCL*/ @63+OFFSMF NRPRCSS &PIB.2. /*SMF70BCN*/ @65+OFFSMF OFFPRDS &PIB.4. /*SMF70BVS*/ @69+OFFSMF LENPRDS &PIB.2. /*SMF70BVL*/ @71+OFFSMF NRPRDS &PIB.2. /*SMF70BVN*/ @; IF NRPRCSS GT 0 AND NRPRDS GT 0 THEN PRSMSYST='Y'; END; IF NRTRIPLT GE 7 THEN DO; /*OW37565*/ INPUT @73+OFFSMF OFFCPUID &PIB.4. /*SMF70CNS*/ @77+OFFSMF LENCPUID &PIB.2. /*SMF70CNL*/ @79+OFFSMF NRCPUID &PIB.2. /*SMF70CNN*/ @; END; IF NRTRIPLT GE 8 THEN DO; /*LOGICAL CORE*/ INPUT @81+OFFSMF SMF70COS &PIB.4. /*SMF70COS*/ @85+OFFSMF SMF70COL &PIB.2. /*SMF70COL*/ @87+OFFSMF SMF70CON &PIB.2. /*SMF70CON*/ @; END; IF NRTRIPLT GE 9 THEN DO; /*TENANT RG*/ INPUT @89+OFFSMF SMF70TNS &PIB.4. /*SMF70TNS*/ @93+OFFSMF SMF70TNL &PIB.2. /*SMF70TNL*/ @95+OFFSMF SMF70TNN &PIB.2. /*SMF70TNN*/ @; SMF70TNS=SMF70TNS-3; END; IF _XANT THEN PUTLOG _N_= COL= ' DEBUG ' SUBSYS= / SUBTYPE =' SMF70STY'/ NRTRIPLT=' SMF70TRN'/ SMF70RV5=' RESERVED'/ OFFRMFP =' SMF70PRS'/ LENRMFP =' SMF70PRL'/ NRRMFP =' SMF70PRN'/ OFFCPUC =' SMF70CCS'/ LENCPUC =' SMF70CCL'/ NRCPUC =' SMF70CCN'/ OFFCPUD =' SMF70CPS'/ LENCPUD =' SMF70CPL'/ NRCPUD =' SMF70CPN'/ OFFASID =' SMF70ASS'/ LENASID =' SMF70ASL'/ NRASID =' SMF70ASN'/ OFFPRCS =' SMF70BCS'/ LENPRCS =' SMF70BCL'/ NRPRCSS =' SMF70BCN'/ OFFPRDS =' SMF70BVS'/ LENPRDS =' SMF70BVL'/ NRPRDS =' SMF70BVN'/ OFFCPUID=' SMF70CNS'/ LENCPUID=' SMF70CNL'/ NRCPUID =' SMF70CNN'/ SMF70COS=' SMF70COS'/ SMF70COL=' SMF70COL'/ SMF70CON=' SMF70CON'/ ; IF OFFRMFP GT 0 AND NRRMFP GT 0 THEN DO; OFFRMFP=OFFRMFP-3+OFFSMF; IF OFFRMFP+LENRMFP*NRRMFP GT LENGTH+1 THEN DO; N70RMFP+1; IF N70RMFP EQ 1 THEN DO; %%MXLOGPUT(MESSAGE=MXGERROR::VMAC7072.003); &MXPUT ' TYPE70 RMFP SECTION ERROR.'// ' INVALID RECORD DETECTED AND DELETED.' OFFRMFP= LENRMFP= NRRMFP= LENGTH= _N_= SYSTEM= SMFTIME=; %%MXLOGEND; PUT ' TYPE70 RMFP SECTION ERROR.'// ' INVALID RECORD DETECTED AND DELETED.' OFFRMFP= LENRMFP= NRRMFP= LENGTH= _N_= SYSTEM= SMFTIME=; END; DELETE; END; INPUT @OFFRMFP VERSNRMF ?? &PD.2. @; /*SMF70MFV*/ IF VERSNRMF = . THEN INPUT @OFFRMFP VERSNRMF &NUM.2. @; INPUT @OFFRMFP+2 PRODUCT $EBCDIC8. /*SMF70PRD*/ @OFFRMFP+10 STARTIME RMFSTAMP8. /*SMF70IST-DAT*/ @OFFRMFP+18 DURATM RMFDUR4. /*SMF70INT*/ @OFFRMFP+22 MAINTIND &PIB.2. /*SMF70MFL*/ @OFFRMFP+24 NRSAMPLE &PIB.4. /*SMF70SAM*/ @OFFRMFP+28 SMF70RV6 &PIB.2. @OFFRMFP+30 CONVFLAG &PIB.1. /*NO LONGER USED*/ @OFFRMFP+30 SMF70FLA $CHAR2. /*SMF70FLA*/ @OFFRMFP+32 RELEASE $EBCDIC4. /*SMF70RLS*/ @OFFRMFP+36 CYCLE &PD.4. /*SMF70CYC*/ @; /* %%INCLUDE SOURCLIB(VSETZERO); RESET SECONDS 58,59, 01 TO 00*/ IF CONVFLAG='.1......'B THEN SAMPSKPD='Y'; /*SAMPLES*WERE*SKIPPE?*/ IF CONVFLAG='..1.....'B THEN RMFIIIRC='Y'; /*RMF III*WROTE*RECOR?*/ IF CONVFLAG='...1....'B THEN INTRVSYN='Y'; /*INTERVAL*WAS*SYNC-E?*/ IF SMF70FLA='.........1......'B THEN BOOSTACTIVE=0;/*ZIP*/ ELSE IF SMF70FLA='..........1.....'B THEN BOOSTACTIVE=1;/*SPEED*/ ELSE IF SMF70FLA='.........11.....'B THEN BOOSTACTIVE=2;/*BOTH*/ IF BOOSTACTIVE GT . THEN DO; IF SMF70FLA='.............001'B THEN BOOSTCLASS='IPL '; IF SMF70FLA='.............010'B THEN BOOSTCLASS='SHUT'; IF SMF70FLA='.............011'B THEN BOOSTCLASS='RECO'; END; IF SMF70RV6='........1.......'B THEN PRODUCT='CMF-CPM'; ELSE IF SMF70RV6='.........1......'B THEN PRODUCT='CMF-IPM'; IF VERSNRMF GE 321 THEN INPUT @OFFRMFP+40 MVSLEVEL $EBCDIC8. /*SMF70MVS*/ @OFFRMFP+48 TEMPIOML $CHAR1. /*SMF70IML*/ @OFFRMFP+49 SMF70PRF $CHAR1. /*SMF70PRF*/ @OFFRMFP+50 PARTISHN &PIB.1. /*SMF70PTN*/ @OFFRMFP+51 RMFSRCL &PIB.1. /*SMF70SRL*/ @; IF PRODUCT IN ('CMF-CPM','CMF-IPM') AND RMFSRCL GE 82 AND VERSNRMF=792 THEN VERSNRMF=794; IF LENRMFP GE 60 THEN INPUT @OFFRMFP+52 SYNCTIME TODSTAMP8. /*SMF70IET*/ @; IF LENRMFP GE 104 THEN DO; INPUT GMTOFF70 &IB.8.6 /*SMF70LGO*OFFSET*GMT TO LOCAL TIME*/ SMF70RAO &PIB.4. /*REASSEMBLY*AREA*OFFSET*/ SMF70RAL &PIB.2. /*REASSEMBLY*AREA*LENGTH*/ SMF70RAN &PIB.2. /*REASSEMBLY*AREA*NUMBER*/ SMF70OIL &PIB.2. /*ORIGINAL*INTERVAL*LENGTH TIME8.*/ SMF70SYN &PIB.2. /*SYNC*VALUE*/ SMF70GIE TODSTAMP8. /*PROJECTED*INTERVAL*END TIME GMT*/ SYSPLEX $EBCDIC8. /*SMF70XNM*SYSPLEX*NAME*/ SYSNAME $EBCDIC8. /*SMF70SNM*SYSTEM*NAME FROM*IEASYSXX*/ @; GMTOFF70=GMTOFF70/4096; GMTOFFTM=GMTOFF70; SYNCTIME=SYNCTIME+GMTOFF70; SMF70GIE=SMF70GIE+GMTOFF70; &MAC7001H; END; %%VMXGTIME(STARTIME SYNCTIME SMF70GIE,SYSTEM,SYSPLEX); DATETIME=STARTIME; %%INCLUDE SOURCLIB(IMACSHFT); IF LENRMFP GE 120 THEN DO; INPUT SMF70RBR &PIB.2. /*TOT NR BKN RECS BUILD FROM ORIG */ SMF70RSQ &PIB.2. /*SEQ NR OF THIS BROKEN RECORD*/ SMF70RIO &PIB.4. /*OFFSET TO 1ST REASSM INFO BLOCK*/ SMF70RIL &PIB.2. /*LENGTH OF REASSEMBLY INFO BLOCK*/ SMF70RIN &PIB.2. /*NUMBER OF REASSEMBLY INFO BLOCK*/ +4 /*RESERVED*/ @; END; IF LENRMFP GE 124 THEN DO; INPUT SMF70RNN &PIB.2. /*TOT SECTS IN ORIG LARGE RECORD */ SMF70RPP &PIB.2. /*POS OF 1ST CONSEC SECTION*/ @; END; IF TEMPIOML='......10'B THEN TYPEIOML='4381'; ELSE IF TEMPIOML='......01'B THEN TYPEIOML='308X'; ELSE IF TEMPIOML='......11'B THEN TYPEIOML='309X'; IF SMF70PRF='1.......'B THEN EXTNDSTO='Y'; IF SMF70PRF='.1......'B THEN ESCAENAB='Y'; IF SMF70PRF='..1.....'B THEN ESCACONF='Y'; IF SMF70PRF='...1....'B THEN ZARCHMDE='Y'; IF SMF70PRF='....1...'B THEN IFAAVAIL='Y'; /*at least one zCBP*/ IF SMF70PRF='.....1..'B THEN ZIPAVAIL='Y'; IF SMF70PRF='......1.'B THEN ENHDATAR='Y'; IF SMF70PRF='......1.'B THEN SMF70DAT1='Y'; IF SMF70PRF='.......1'B THEN SMF70DAT2='Y'; END; /* END RMF PRODUCT SECTION */ IF OFFASID GT 0 AND NRASID GT 0 AND (SMF70RAN=0 OR (SMF70RAN=1 AND SMF70RSQ=1)) THEN DO; OFFASID=OFFASID-3+OFFSMF; IF OFFASID+LENASID*NRASID GT LENGTH+1 THEN DO; N70ASID+1; IF N70ASID EQ 1 THEN DO; %%MXLOGPUT(MESSAGE=MXGERROR::VMAC7072.004); &MXPUT ' TYPE70 S ASID SECTION ERROR.' // ' INVALID RECORD DETECTED AND DELETED.' OFFASID= LENASID= NRASID= LENGTH= _N_= SYSTEM= SMFTIME=; %%MXLOGEND; PUT ' TYPE70 S ASID SECTION ERROR.' // ' INVALID RECORD DETECTED AND DELETED.' OFFASID= LENASID= NRASID= LENGTH= _N_= SYSTEM= SMFTIME=; END; DELETE; END; INPUT @OFFASID @; INPUT READYMIN &PIB.2. /*SMF70RMN*/ READYMAX &PIB.2. /*SMF70RMM*/ READYAVG &PIB.4. /*SMF70RTT*/ (READY00 -READY15 ) ( &PIB.4.) /*SMF70R00-SMF70R15*/ INMIN &PIB.2. INMAX &PIB.2. INAVG &PIB.4. (IN00 -IN11 ) ( &PIB.4.) /*SMF70I00-SMF70I15*/ OUTMIN &PIB.2. OUTMAX &PIB.2. OUTAVG &PIB.4. (OUT00 -OUT11 ) ( &PIB.4.) WAITMIN &PIB.2. WAITMAX &PIB.2. WAITAVG &PIB.4. (WAIT00 -WAIT11 ) ( &PIB.4.) BATCHMIN &PIB.2. BATCHMAX &PIB.2. BATCHAVG &PIB.4. (BATCH00 -BATCH11 ) ( &PIB.4.) STCMIN &PIB.2. STCMAX &PIB.2. STCAVG &PIB.4. (STC00 -STC11 ) ( &PIB.4.) TSOMIN &PIB.2. TSOMAX &PIB.2. TSOAVG &PIB.4. (TSO00 -TSO11 ) ( &PIB.4.) LRDYMIN &PIB.2. LRDYMAX &PIB.2. LRDYAVG &PIB.4. (LRDY00 -LRDY11 ) ( &PIB.4.) LWAITMIN &PIB.2. LWAITMAX &PIB.2. LWAITAVG &PIB.4. (LWAIT00 -LWAIT11 ) ( &PIB.4.) @; IF LENASID GE 576 THEN INPUT APPCMIN &PIB.2. APPCMAX &PIB.2. APPCAVG &PIB.4. (APPC00 -APPC11 ) ( &PIB.4.) @; IF LENASID GE 632 THEN INPUT OMVSMIN &PIB.2. OMVSMAX &PIB.2. OMVSAVG &PIB.4. (OMVS00 -OMVS11 ) ( &PIB.4.) /*SMF70X00-SMF70X11*/ @; IF LENASID GE 684 THEN DO; INPUT (SMF70Q00-SMF70Q12) ( &PIB.4.) @; IF NRSAMPLE GT 0 THEN DO; TEMPINV=100/NRSAMPLE; SMF70Q00=SMF70Q00*TEMPINV; SMF70Q01=SMF70Q01*TEMPINV; SMF70Q02=SMF70Q02*TEMPINV; SMF70Q03=SMF70Q03*TEMPINV; SMF70Q04=SMF70Q04*TEMPINV; SMF70Q05=SMF70Q05*TEMPINV; SMF70Q06=SMF70Q06*TEMPINV; SMF70Q07=SMF70Q07*TEMPINV; SMF70Q08=SMF70Q08*TEMPINV; SMF70Q09=SMF70Q09*TEMPINV; SMF70Q10=SMF70Q10*TEMPINV; SMF70Q11=SMF70Q11*TEMPINV; SMF70Q12=SMF70Q12*TEMPINV; PCTRDQWT=100-SMF70Q00; END; END; IF LENASID GE 788 THEN DO; INPUT SMF70SRM &PIB.4. /*SAMPLES*TAKEN*BY SRM*/ SMF70CMN &PIB.4. /*MIN*WORK UNITS*FOR CP-S*/ SMF70CMM &PIB.4. /*MAX*WORK UNITS*FOR CP-S*/ SMF70CTT &PIB.4. /*TOT*WORK UNITS*FOR CP-S*/ SMF70DMN &PIB.4. /*MIN*WORK UNITS*FOR ZCBP*/ SMF70DMM &PIB.4. /*MAX*WORK UNITS*FOR ZCBP*/ SMF70DTT &PIB.4. /*TOT*WORK UNITS*FOR ZCBP*/ SMF70EMN &PIB.4. /*MIN*WORK UNITS*FOR ZIIPS*/ SMF70EMM &PIB.4. /*MAX*WORK UNITS*FOR ZIIPS*/ SMF70ETT &PIB.4. /*TOT*WORK UNITS*FOR ZIIPS*/ (SMF70U00-SMF70U15) (&PIB.4.) @; IF SMF70SRM GT 0 THEN DO; SMF70CTT=SMF70CTT/SMF70SRM; SMF70DTT=SMF70DTT/SMF70SRM; SMF70ETT=SMF70ETT/SMF70SRM; TEMPINV=100/SMF70SRM; SMF70U00=SMF70U00*TEMPINV; SMF70U01=SMF70U01*TEMPINV; SMF70U02=SMF70U02*TEMPINV; SMF70U03=SMF70U03*TEMPINV; SMF70U04=SMF70U04*TEMPINV; SMF70U05=SMF70U05*TEMPINV; SMF70U06=SMF70U06*TEMPINV; SMF70U07=SMF70U07*TEMPINV; SMF70U08=SMF70U08*TEMPINV; SMF70U09=SMF70U09*TEMPINV; SMF70U10=SMF70U10*TEMPINV; SMF70U11=SMF70U11*TEMPINV; SMF70U12=SMF70U12*TEMPINV; SMF70U13=SMF70U13*TEMPINV; SMF70U14=SMF70U14*TEMPINV; SMF70U15=SMF70U15*TEMPINV; PCTWUQWT=100-SMF70U00; END; END; IF NRSAMPLE GT 0 THEN DO; TEMPINV=100/NRSAMPLE; APPC00 =APPC00*TEMPINV; APPC01 =APPC01*TEMPINV; APPC02 =APPC02*TEMPINV; APPC03 =APPC03*TEMPINV; APPC04 =APPC04*TEMPINV; APPC05 =APPC05*TEMPINV; APPC06 =APPC06*TEMPINV; APPC07 =APPC07*TEMPINV; APPC08 =APPC08*TEMPINV; APPC09 =APPC09*TEMPINV; APPC10 =APPC10*TEMPINV; APPC11 =APPC11*TEMPINV; BATCH00 =BATCH00*TEMPINV; BATCH01 =BATCH01*TEMPINV; BATCH02 =BATCH02*TEMPINV; BATCH03 =BATCH03*TEMPINV; BATCH04 =BATCH04*TEMPINV; BATCH05 =BATCH05*TEMPINV; BATCH06 =BATCH06*TEMPINV; BATCH07 =BATCH07*TEMPINV; BATCH08 =BATCH08*TEMPINV; BATCH09 =BATCH09*TEMPINV; BATCH10 =BATCH10*TEMPINV; BATCH11 =BATCH11*TEMPINV; IN00 =IN00 *TEMPINV; IN01 =IN01 *TEMPINV; IN02 =IN02 *TEMPINV; IN03 =IN03 *TEMPINV; IN04 =IN04 *TEMPINV; IN05 =IN05 *TEMPINV; IN06 =IN06 *TEMPINV; IN07 =IN07 *TEMPINV; IN08 =IN08 *TEMPINV; IN09 =IN09 *TEMPINV; IN10 =IN10 *TEMPINV; IN11 =IN11 *TEMPINV; LRDY00 =LRDY00 *TEMPINV; LRDY01 =LRDY01 *TEMPINV; LRDY02 =LRDY02 *TEMPINV; LRDY03 =LRDY03 *TEMPINV; LRDY04 =LRDY04 *TEMPINV; LRDY05 =LRDY05 *TEMPINV; LRDY06 =LRDY06 *TEMPINV; LRDY07 =LRDY07 *TEMPINV; LRDY08 =LRDY08 *TEMPINV; LRDY09 =LRDY09 *TEMPINV; LRDY10 =LRDY10 *TEMPINV; LRDY11 =LRDY11 *TEMPINV; LWAIT00 =LWAIT00*TEMPINV; LWAIT01 =LWAIT01*TEMPINV; LWAIT02 =LWAIT02*TEMPINV; LWAIT03 =LWAIT03*TEMPINV; LWAIT04 =LWAIT04*TEMPINV; LWAIT05 =LWAIT05*TEMPINV; LWAIT06 =LWAIT06*TEMPINV; LWAIT07 =LWAIT07*TEMPINV; LWAIT08 =LWAIT08*TEMPINV; LWAIT09 =LWAIT09*TEMPINV; LWAIT10 =LWAIT10*TEMPINV; LWAIT11 =LWAIT11*TEMPINV; OMVS00 =OMVS00*TEMPINV; OMVS01 =OMVS01*TEMPINV; OMVS02 =OMVS02*TEMPINV; OMVS03 =OMVS03*TEMPINV; OMVS04 =OMVS04*TEMPINV; OMVS05 =OMVS05*TEMPINV; OMVS06 =OMVS06*TEMPINV; OMVS07 =OMVS07*TEMPINV; OMVS08 =OMVS08*TEMPINV; OMVS09 =OMVS09*TEMPINV; OMVS10 =OMVS10*TEMPINV; OMVS11 =OMVS11*TEMPINV; OUT00 =OUT00 *TEMPINV; OUT01 =OUT01 *TEMPINV; OUT02 =OUT02 *TEMPINV; OUT03 =OUT03 *TEMPINV; OUT04 =OUT04 *TEMPINV; OUT05 =OUT05 *TEMPINV; OUT06 =OUT06 *TEMPINV; OUT07 =OUT07 *TEMPINV; OUT08 =OUT08 *TEMPINV; OUT09 =OUT09 *TEMPINV; OUT10 =OUT10 *TEMPINV; OUT11 =OUT11 *TEMPINV; READY00 =READY00*TEMPINV; READY01 =READY01*TEMPINV; READY02 =READY02*TEMPINV; READY03 =READY03*TEMPINV; READY04 =READY04*TEMPINV; READY05 =READY05*TEMPINV; READY06 =READY06*TEMPINV; READY07 =READY07*TEMPINV; READY08 =READY08*TEMPINV; READY09 =READY09*TEMPINV; READY10 =READY10*TEMPINV; READY11 =READY11*TEMPINV; READY12 =READY12*TEMPINV; READY13 =READY13*TEMPINV; READY14 =READY14*TEMPINV; READY15 =READY15*TEMPINV; STC00 =STC00 *TEMPINV; STC01 =STC01 *TEMPINV; STC02 =STC02 *TEMPINV; STC03 =STC03 *TEMPINV; STC04 =STC04 *TEMPINV; STC05 =STC05 *TEMPINV; STC06 =STC06 *TEMPINV; STC07 =STC07 *TEMPINV; STC08 =STC08 *TEMPINV; STC09 =STC09 *TEMPINV; STC10 =STC10 *TEMPINV; STC11 =STC11 *TEMPINV; TSO00 =TSO00 *TEMPINV; TSO01 =TSO01 *TEMPINV; TSO02 =TSO02 *TEMPINV; TSO03 =TSO03 *TEMPINV; TSO04 =TSO04 *TEMPINV; TSO05 =TSO05 *TEMPINV; TSO06 =TSO06 *TEMPINV; TSO07 =TSO07 *TEMPINV; TSO08 =TSO08 *TEMPINV; TSO09 =TSO09 *TEMPINV; TSO10 =TSO10 *TEMPINV; TSO11 =TSO11 *TEMPINV; WAIT00 =WAIT00 *TEMPINV; WAIT01 =WAIT01 *TEMPINV; WAIT02 =WAIT02 *TEMPINV; WAIT03 =WAIT03 *TEMPINV; WAIT04 =WAIT04 *TEMPINV; WAIT05 =WAIT05 *TEMPINV; WAIT06 =WAIT06 *TEMPINV; WAIT07 =WAIT07 *TEMPINV; WAIT08 =WAIT08 *TEMPINV; WAIT09 =WAIT09 *TEMPINV; WAIT10 =WAIT10 *TEMPINV; WAIT11 =WAIT11 *TEMPINV; APPCAVG =APPCAVG /NRSAMPLE; BATCHAVG=BATCHAVG/NRSAMPLE; INAVG =INAVG /NRSAMPLE; LRDYAVG =LRDYAVG /NRSAMPLE; LWAITAVG=LWAITAVG/NRSAMPLE; OMVSAVG =OMVSAVG /NRSAMPLE; OUTAVG =OUTAVG /NRSAMPLE; READYAVG=READYAVG/NRSAMPLE; STCAVG =STCAVG /NRSAMPLE; TSOAVG =TSOAVG /NRSAMPLE; WAITAVG =WAITAVG /NRSAMPLE; END; END; /* END ASID DATA SECTION */ /* CPU CONTROL SECTION HEADER MOVED HERE SO I CAN GET SMF70IFA */ /* FIRST, BEFORE THE CPU DATA SECTION IS READ. REAL READ OF */ /* THE CPU CONTROL SECTION IS AFTER THE DATA SECTIONS. */ IF OFFCPUC GT 0 AND NRCPUC GT 0 THEN DO; OFFCPUC=OFFCPUC-3+OFFSMF; IF OFFCPUC+LENCPUC*NRCPUC GT LENGTH+1 THEN DO; N70CPUC+1; IF N70CPUC LE 3 THEN DO; %%MXLOGPUT(MESSAGE=MXGERROR::VMAC7072.005); &MXPUT ' TYPE70 CPUC SECTION ERROR.' // ' INVALID RECORD DETECTED AND DELETED.' OFFCPUC= LENCPUC= NRCPUC= LENGTH= _N_= SYSTEM= SMFTIME=; %%MXLOGEND; PUT ' TYPE70 CPUC SECTION ERROR.' // ' INVALID RECORD DETECTED AND DELETED.' OFFCPUC= LENCPUC= NRCPUC= LENGTH= _N_= SYSTEM= SMFTIME=; END; DELETE; END; INPUT @OFFCPUC+26 /*SMF70CBPONL*CBPS*ONLINE*/ SMF70IFA &PIB.2. /*NUMBER OF*IFA PROCESSORS*ONLINE*/ @; END; SMTSEGNR=0; IF SMF70COS GT 0 AND SMF70CON GT 0 THEN DO; /*LOAD SMT ARRAYS */ SMF70COS=SMF70COS-3+OFFSMF; IF SMF70COS+SMF70COL*SMF70CON GT LENGTH+1 THEN DO; N70PRCS+1; IF N70PRCS LE 10 THEN DO; %%MXLOGPUT(MESSAGE=MXGERROR::VMAC7072.006); &MXPUT ' TYPERR PRCS SECTION ERROR.' // ' INVALID RECORD DETECTED AND DELETED.' SMF70COS= SMF70COL= SMF70CON= LENGTH= _N_= SYSTEM= SMFTIME=; %%MXLOGEND; PUT ' TYPERR PRCS SECTION ERROR.' // ' INVALID RECORD DETECTED AND DELETED.' SMF70COS= SMF70COL= SMF70CON= LENGTH= _N_= SYSTEM= SMFTIME=; END; DELETE; END; ARRAY ZSMT_CORE_ID (256) ZSMT_CORE_ID0 - ZSMT_CORE_ID255; ARRAY ZSMT_CORE_FLAG (256) $1 ZSMT_CORE_FLAG0 -ZSMT_CORE_FLAG255; ARRAY ZSMT_CPU_SKIP (256) ZSMT_CPU_SKIP0 -ZSMT_CPU_SKIP255; ARRAY ZSMT_CPU_NUM (256) ZSMT_CPU_NUM0 -ZSMT_CPU_NUM255; ARRAY ZSMT_CPU_PROD (256) ZSMT_CPU_PROD0 -ZSMT_CPU_PROD255; ARRAY ZSMT_LPAR_BUSY (256) ZSMT_LPAR_BUSY0 -ZSMT_LPAR_BUSY255; ARRAY ZSMT_CPUID (256) ZSMT_CPUID0 -ZSMT_CPUID255; ARRAY ZSMT_SEQNR (256) ZSMT_SEQNR1 -ZSMT_SEQNR256; ARRAY ZSMT_XCPUID (256) ZSMT_XCPUID0 -ZSMT_XCPUID255; ARRAY ZSMT_XSMF70TYP (256) ZSMT_XSMF70TYP0 -ZSMT_XSMF70TYP255; DO _I_=1 TO 256; ZSMT_CORE_ID(_I_)=.; ZSMT_CORE_FLAG(_I_)=' '; ZSMT_CPU_SKIP(_I_)=.; ZSMT_CPU_NUM(_I_)=.; ZSMT_CPU_PROD(_I_)=.; ZSMT_LPAR_BUSY(_I_)=.; ZSMT_CPUID(_I_)=.; ZSMT_SEQNR(_I_)=.; ZSMT_XCPUID(_I_)=.; ZSMT_XSMF70TYP(_I_)=.; END; SUMLPARBUSY=0; RETAIN SUMLPARBUSY; OFFCPUD=OFFCPUD-3; SMTSEGNR=0; MAXCOREID=0; DO _J_=1 TO SMF70CON; SMTSEGNR+1; INPUT @SMF70COS ZSMT_CORE_ID(SMTSEGNR) &PIB.2. /*CORE*IDENTIFICATION*/ ZSMT_CORE_FLAG(SMTSEGNR) $CHAR1. /*LOGICAL*CORE*INFORMATION*/ +1 ZSMT_CPU_SKIP(SMTSEGNR) &PIB.2. /*TO GET TO 1ST CPUD SEG*/ ZSMT_CPU_NUM(SMTSEGNR) &PIB.2./*CPUDATA*SECTS*THIS CORE*/ ZSMT_CPU_PROD(SMTSEGNR) &PIB.4./*MT*CORE*PRODUCTIVIT*/ ZSMT_LPAR_BUSY(SMTSEGNR) &PIB.4.3 /*MT*CORE*LPAR BUSY*TIME*/ @; IF ZSMT_CORE_FLAG(SMTSEGNR)='1.......'B THEN ZSMT_CORE_FLAG(SMTSEGNR)='Y'; ELSE ZSMT_CORE_FLAG(SMTSEGNR)='N'; LOCCPUD=OFFCPUD+(LENCPUD*(ZSMT_CPU_SKIP(SMTSEGNR) )); INPUT @LOCCPUD+8 XCPUID &PIB.2. XCAI $CHAR1. +4 XSMF70TYP &PIB.1. @; ZSMT_XCPUID(SMTSEGNR)=XCPUID; ZSMT_XSMF70TYP(SMTSEGNR)=XSMF70TYP; INPUT @LOCCPUD+8 ZSMT_CPUID(SMTSEGNR) &PIB.2. @; MAXCOREID=MAX(MAXCOREID,ZSMT_CORE_ID(SMTSEGNR)); ZSMT_CPU_PROD(SMTSEGNR)=100*ZSMT_CPU_PROD(SMTSEGNR)/1024; SUMLPARBUSY=SUM(SUMLPARBUSY,ZSMT_LPAR_BUSY(SMTSEGNR)); IF _XANT THEN PUTLOG '1: ' _N_= _J_= COL= SMTSEGNR= SMF70COS= STARTIME= / OFFCPUD= LOCCPUD= LENCPUD= / 'ZSMT_CORE_ID=' ZSMT_CORE_ID(SMTSEGNR)/ 'ZSMT_CPUID=' ZSMT_CPUID(SMTSEGNR)/ 'ZSMT_CORE_FLAG=' ZSMT_CORE_FLAG(SMTSEGNR)/ 'ZSMT_CPU_SKIP=' ZSMT_CPU_SKIP(SMTSEGNR)/ 'ZSMT_CPU_NUM=' ZSMT_CPU_NUM(SMTSEGNR)/ 'ZSMT_CPU_PROD=' ZSMT_CPU_PROD(SMTSEGNR)/ 'ZSMT_LPAR_BUSY=' ZSMT_LPAR_BUSY(SMTSEGNR)/ LOCCPUD= ZSMT_CPUID(SMTSEGNR)= / XCPUID= /XCAI= $HEX2. / XSMF70TYP=/; IF ZSMT_CPU_NUM(SMTSEGNR)=2 THEN DO; SMTSEGNR+1; ZSMT_CORE_ID(SMTSEGNR)=ZSMT_CORE_ID(SMTSEGNR-1); ZSMT_CORE_FLAG(SMTSEGNR)=ZSMT_CORE_FLAG(SMTSEGNR-1); ZSMT_CPU_SKIP(SMTSEGNR)=ZSMT_CPU_SKIP(SMTSEGNR-1); ZSMT_CPU_NUM(SMTSEGNR)=ZSMT_CPU_NUM(SMTSEGNR-1); ZSMT_CPU_PROD(SMTSEGNR)=.; ZSMT_LPAR_BUSY(SMTSEGNR)=.; ZSMT_XSMF70TYP(SMTSEGNR)=2; ZSMT_XCPUID(SMTSEGNR)=ZSMT_XCPUID(SMTSEGNR-1)+1; LOCCPUD=OFFCPUD+(LENCPUD*(ZSMT_CPU_SKIP(SMTSEGNR)+1)); INPUT @LOCCPUD+8 ZSMT_CPUID(SMTSEGNR) &PIB.2. @; IF _XANT THEN PUTLOG '2: ' _N_= SMTSEGNR= _J_= COL= SMF70COS= STARTIME= OFFCPUD= LOCCPUD=/ 'CORE_ID=' ZSMT_CORE_ID(SMTSEGNR)/ 'ZSMT_CPUID=' ZSMT_CPUID(SMTSEGNR)/ 'ZSMT_CORE_FLAG=' ZSMT_CORE_FLAG(SMTSEGNR)/ 'ZSMT_CPU_SKIP=' ZSMT_CPU_SKIP(SMTSEGNR)/ 'ZSMT_CPU_NUM=' ZSMT_CPU_NUM(SMTSEGNR)/ 'ZSMT_CPU_PROD=' ZSMT_CPU_PROD(SMTSEGNR)/ 'LPAR_BUSY=' ZSMT_LPAR_BUSY(SMTSEGNR)/; END; SMF70COS=SMF70COS+SMF70COL; END; DO _JJ_=1 TO SMTSEGNR; IF _XANT THEN PUTLOG ' DEBUG ARRAY LOAD ' _N_= _JJ_= SMTSEGNR= ZSMT_CORE_ID(_JJ_)= ZSMT_CPUID(_JJ_)= ZSMT_CORE_FLAG(_JJ_)= ZSMT_CPU_SKIP(_JJ_)= ZSMT_CPU_NUM(_JJ_)= ZSMT_CPU_PROD(_JJ_)= ZSMT_LPAR_BUSY(_JJ_)= ZSMT_XSMF70TYP(_JJ_)=; END; END; /* END SMF70COS LOAD SMT ARRAYS */ IF OFFCPUD GT 0 AND NRCPUD GT 0 THEN DO; IF SMTSEGNR EQ 0 THEN OFFCPUD=OFFCPUD-3+OFFSMF; /* ELSE WAS DONE IN COS SEGMENT */ IF OFFCPUD+LENCPUD*NRCPUD GT LENGTH+1 THEN DO; N70CPUD+1; IF N70CPUD EQ 1 THEN DO; %%MXLOGPUT(MESSAGE=MXGERROR::VMAC7072.007); &MXPUT ' TYPE70 CPUD SECTION ERROR.' // ' INVALID RECORD DETECTED AND DELETED.' OFFCPUD= LENCPUD= NRCPUD= LENGTH= _N_= SYSTEM= SMFTIME=; %%MXLOGEND; PUT ' TYPE70 CPUD SECTION ERROR.' // ' INVALID RECORD DETECTED AND DELETED.' OFFCPUD= LENCPUD= NRCPUD= LENGTH= _N_= SYSTEM= SMFTIME=; END; DELETE; END; INPUT @OFFCPUD @; TOTIOINT=0; TOTTPI =0; NRCPUS=0; NRIFAS=0; NRZIPCPU=0; CPUWAIT=0; IFAWAIT=.; ZIPWAIT=.; CPUBUSY=0; MVSNOTOK=0; /*DO NOTHING IF MVS DATA OK*/ ARRAY CAIXX (256) CAI0 -CAI8 CAI9 CAIA CAIB CAIC CAID CAIE CAIF CAIG CAIH CAII CAIJ CAIK CAIL CAIN CAIO CAIP CAIQ CAIR CAIS CAIT CAIU CAIV CAIW CAIX CAIY CAIZ CAIZA CAIZB CAIZC CAIZD CAIZE CAIZF CAIZG CAIZH CAIZI CAIZJ CAIZK CAIZL CAIZM CAIZN CAIZO CAIZP CAIZQ CAIZR CAIZS CAIZT CAIZU CAIZV CAIZW CAIZX CAIZY CAIZZ CAIYA CAIYB CAIYC CAIYD CAIYE CAIYF CAIYG CAIYH CAIYI CAIYJ CAIYK CAIYL CAIYM CAIYN CAIYO CAIYP CAIYQ CAIYR CAIYS CAIYT CAIYU CAIYV CAIYW CAIYX CAIYY CAIYZ CAIVA CAIVB CAIVC CAIVD CAIVE CAIVF CAIVG CAIVH CAIVI CAOVJ CAOVK CAOVL CAOVM CAOVN CAOVO CAO102-CAO255; DO _I_=1 TO 256; CAIXX(_I_)='00'X; CINWAIT(_I_)=.; /*CHANGE 29.070*/ CPUPAT(_I_)=.; /*CHANGE 29.070*/ END; LOCCPUD=COL; LOCFIRST=COL; DO _I_=1 TO NRCPUD; /*ZZZZZ CPU TWO START*/ INPUT @LOCCPUD CPUWAITM &PIB.8. /*SMF70WAT*/ CPUID &PIB.2. /*SMF70CID*/ CAI $CHAR1. /*SMF70CNF*/ SMF70RV3 &PIB.1. /*SMF70RV3*/ CPUSER $CHAR3. /*SMF70SER*/ SMF70TYP &PIB.1. /*SMF70TYP*/ /*0=CP,1=IFA,2=ZIP*/ SLIHIO &PIB.4. /*SMF70SLH*/ TPIIO &PIB.4. /*SMF70TPI*/ @; IF CPUID LT 255 THEN DO; /*'FF' CHAR,'C6C6'X=50886,CH 29.220*/ /*WEIGHT BYTES DIVIDED BY 4096 FOR BIT 51 =1 MICROSECONDS*/ /* AND DIVIDED BY 1E6 TO CONVERT TO SECONDS:*/ CPUWAITM=CPUWAITM/(4096*1E6); CPUFROMWAIT=DURATM-CPUWAITM; IF SMTSEGNR GT 0 /* AND SMF70TYP=2 */ THEN DO; DO _KK_=1 TO 256; IF ZSMT_CPUID(_KK_)=CPUID THEN DO; SMT_CORE_ID =ZSMT_CORE_ID(_KK_); SMT_CORE_FLAG=ZSMT_CORE_FLAG(_KK_); SMT_PROD =ZSMT_CPU_PROD(_KK_); SMT_NUM =ZSMT_CPU_NUM(_KK_); SMT_LPAR_BUSY=ZSMT_LPAR_BUSY(_KK_); XSMF70TYP =ZSMT_XSMF70TYP(_KK_); _KK_=999; END; END; IF _KK_=256 THEN DO; SMT_CORE_ID=.; SMT_CORE_FLAG=' '; SMT_PROD=.; SMT_NUM=.; SMT_LPAR_BUSY=.; END; END; /* IF SMTSEGNR GT 0 AND SMF70TYP=2 THEN DO; DO _KK_=1 TO 256; IF ZSMT_CPUID(_KK_)=CPUID THEN DO; SMT_CORE_ID =ZSMT_CORE_ID(_KK_); SMT_CORE_FLAG=ZSMT_CORE_FLAG(_KK_); SMT_PROD =ZSMT_CPU_PROD(_KK_); SMT_NUM =ZSMT_CPU_NUM(_KK_); SMT_LPAR_BUSY=ZSMT_LPAR_BUSY(_KK_); _KK_=999; END; END; IF _KK_=256 THEN DO; SMT_CORE_ID=.; SMT_CORE_FLAG=' '; SMT_PROD=.; SMT_NUM=.; SMT_LPAR_BUSY=.; END; END; */ IF _XANT THEN PUTLOG / ' CPUD TWO ' _N_= _I_= LOCCPUD= COL= CPUID= CAI= SMF70TYP= XSMF70TYP= SMT_CORE_ID= SMT_PROD= SMT_CORE_FLAG= /+2 SMT_LPAR_BUSY= SMT_NUM= CPUFROMWAIT= CPUSER= TPIIO= /+2 CPUWAITM= DURATM= SMT_LPAR_BUSY=; SMF70WAT=CPUWAITM; /* FOR TYPE70PR */ IF SMF70TYP GT 0 AND CAI NE '00' THEN CINWAIT(CPUID+1)=CPUWAITM; ELSE CINWAIT(CPUID+1)=.; IF &CNFBIT6 AND (CAI='02'X OR CAI='03'X) THEN DO; MVSNOTOK+1; CPUWAITM=.; SLIHIO=0; TPIIO=0; END; SKIP=LENCPUD-24; IF CPUSER GT '000000'X AND CAI EQ '.......1'B THEN CECSER=SUBSTR(PUT(CPUSER,$HEX6.),3,4); IF LENCPUD GE 32 THEN DO; INPUT VECONSAM &PIB.4. /*SMF70VFS*/ SMF70V $CHAR1. /*SMF70V */ +3 @; SKIP=SKIP-8; END; IF LENCPUD GE 40 THEN DO; INPUT SMF70PAT &PIB.8.6 /*CPU*PARKED*DURATION*/ @; SMF70PAT=SMF70PAT/4096; IF CAI NE '00'X THEN CPUPAT(CPUID+1)=SMF70PAT; /* PUTLOG ' 1.CPUD' _N_= _I_= CPUID= CAI= SMF70TYP= CPUWAITM= SMF70PAT= DURATM=;*/ SKIP=SKIP-8; END; IF LENCPUD GE 80 THEN DO; INPUT SMF70TCB &PIB.8. /*CPU*TCB*DISPATCHES*THIS CPU*/ SMF70SRB &PIB.8. /*CPU*SRB*DISPATCHES*THIS CPU*/ SMF70NIO &PIB.8. /*I/O-S*FOR THIS*CPU*/ SMF70SIG &PIB.8. /*SIGP-S*DONE BY*THIS CPU*/ SMF70WTD &PIB.8. /*WAIT*DISPATCH*COUNT*THIS CPU*/ @; SKIP=SKIP-40; END; IF LENCPUD GE 92 THEN DO; INPUT SMF70WTS &PIB.4. /*WTI-S*RETURNED*WITHIN*GRACE*PERIOD*/ SMF70WTU &PIB.4. /*WTI-S*UNABLE*TO RETURN*IN GRACE*/ SMF70WTI &PIB.4.3 /*DURATION*LP WAS YIELDED*DUE TO WTI*/ @; SKIP=SKIP-24; END; IF SKIP GT 0 THEN INPUT +SKIP @; PCTCPUBY=.; IF CAI EQ '.......1'B AND SMF70TYP=0 THEN DO; /* CPU ONLINE ENTIRE INTERVAL AND IS A CP */ CPUBSYTM=DURATM-CPUWAITM; PCTCPUBY=100*(DURATM-CPUWAITM)/DURATM; CPUWAIT=CPUWAIT+CPUWAITM; CPUBUSY=CPUBUSY+CPUBSYTM; NRCPUS =NRCPUS+1; PCTZIPBY=.; PCTIFABY=.; *IF SYSTEM='A090' THEN PUTLOG _N_= _I_= STARTIME= CAI= CPUID= NRCPUS=; END; ELSE IF CAI NE '00'X AND SMF70TYP=1 THEN DO; NRIFAS=NRIFAS+1; IFAWAIT=SUM(IFAWAIT,CPUWAITM); IF DURATM GT CPUWAITM AND SMF70PAT LE 0 THEN PCTIFABY=100*(DURATM-CPUWAITM)/DURATM; ELSE IF CPUWAITM=0 AND SMF70PAT GT 0 AND DURATM GT 0 AND ABS(DURATM-SMF70PAT) LT 0.10 THEN PCTIFABY=0; PCTZIPBY=.; END; ELSE IF CAI NE '00'X AND SMF70TYP=2 THEN DO; IF OLD_SMT_CORE_ID=. OR _I_=. OR (OLD_SMT_CORE_ID NE SMT_CORE_ID) THEN NRZIPCPU=NRZIPCPU+1; OLD_I_=_I_; OLD_SMT_CORE_ID=SMT_CORE_ID; RETAIN OLD_I_ OLD_SMT_CORE_ID; ZIPWAIT=SUM(ZIPWAIT,CPUWAITM); IF DURATM GT CPUWAITM AND SMF70PAT LE 0 THEN PCTZIPBY=100*(DURATM-CPUWAITM)/DURATM; ELSE IF CPUWAITM=0 AND SMF70PAT GT 0 AND DURATM GT 0 AND ABS(DURATM-SMF70PAT) LT 0.10 THEN PCTZIPBY=0; PCTIFABY=.; END; IOINTS=SLIHIO+TPIIO; /* IO INTERRUPTS ON THIS CPU */ TOTIOINT=TOTIOINT+IOINTS; /* ACCUM INTERRUPS ALL CPU */ TOTTPI =TOTTPI+TPIIO; /* ACCUM TPI INTERRUPTS */ IORATE=IOINTS/DURATM; /* CALC IO RATE THIS CPU */ IF IOINTS GT 0 THEN PCTTPI=100*TPIIO/IOINTS; ELSE PCTTPI=.; IMERGE=_I_; IF SMT_PROD GT . AND PCTZIPBY GT . THEN SMT_UTIL=SMT_PROD*PCTZIPBY/100; ELSE SMT_UTIL=.; IF CAI NE '00'X THEN DO; /*SPLIT RECORDS CREATE DUPE TYPE70EC BUT NODUP CLEARS*/ _ETY70EC; /*INC SOURCLIB(EXTY70EC);_WTY70EC OUTPUTS TYPE70EC*/ *IF SYSTEM='A090' THEN PUTLOG _N_= CPUID= ' OUTPUT EC '; END; IF CPUID=0 THEN DO; IFATYP0=SMF70TYP; CAI0=CAI; IF CAI NE '......00'B AND SMF70TYP=0 THEN DO; CPUWAIT0=CPUWAITM; PCTCPBY0=PCTCPUBY; CPUSER0=CPUSER; IORATE0=IORATE; PCTTPI0=PCTTPI; IF SMF70V='1.......'B THEN VFON0='Y'; IF NRSAMPLE GT 0 AND VECONSAM GT 0 THEN VFAFFTM0=VECONSAM*DURATM/NRSAMPLE; END; ELSE IF CAI NE '00'X AND SMF70TYP=1 THEN DO; IFAWAIT0=CPUWAITM; PCTIFBY0=PCTIFABY; END; ELSE IF CAI NE '00'X AND SMF70TYP=2 THEN DO; ZIPWAIT0=CPUWAITM; PCTZIBY0=PCTZIPBY; END; END; ELSE IF CPUID=1 THEN DO; IFATYP1=SMF70TYP; CAI1=CAI; IF CAI NE '......00'B AND SMF70TYP=0 THEN DO; CPUWAIT1=CPUWAITM; PCTCPBY1=PCTCPUBY; CPUSER1=CPUSER; IORATE1=IORATE; PCTTPI1=PCTTPI; IF SMF70V='1.......'B THEN VFON1='Y'; IF NRSAMPLE GT 0 AND VECONSAM GT 0 THEN VFAFFTM1=VECONSAM*DURATM/NRSAMPLE; END; ELSE IF CAI NE '00'X AND SMF70TYP=1 THEN DO; IFAWAIT1=CPUWAITM; PCTIFBY1=PCTIFABY; END; ELSE IF CAI NE '00'X AND SMF70TYP=2 THEN DO; ZIPWAIT1=CPUWAITM; PCTZIBY1=PCTZIPBY; END; END; ELSE IF CPUID=2 THEN DO; IFATYP2=SMF70TYP; CAI2=CAI; IF CAI NE '......00'B AND SMF70TYP=0 THEN DO; CPUWAIT2=CPUWAITM; PCTCPBY2=PCTCPUBY; CPUSER2=CPUSER; IORATE2=IORATE; PCTTPI2=PCTTPI; IF SMF70V='1.......'B THEN VFON2='Y'; IF NRSAMPLE GT 0 AND VECONSAM GT 0 THEN VFAFFTM2=VECONSAM*DURATM/NRSAMPLE; END; ELSE IF CAI NE '00'X AND SMF70TYP=1 THEN DO; IFAWAIT2=CPUWAITM; PCTIFBY2=PCTIFABY; END; ELSE IF CAI NE '00'X AND SMF70TYP=2 THEN DO; ZIPWAIT2=CPUWAITM; PCTZIBY2=PCTZIPBY; END; END; ELSE IF CPUID=3 THEN DO; IFATYP3=SMF70TYP; CAI3=CAI; IF CAI NE '......00'B AND SMF70TYP=0 THEN DO; CPUWAIT3=CPUWAITM; PCTCPBY3=PCTCPUBY; CPUSER3=CPUSER; IORATE3=IORATE; PCTTPI3=PCTTPI; IF SMF70V='1.......'B THEN VFON3='Y'; IF NRSAMPLE GT 0 AND VECONSAM GT 0 THEN VFAFFTM3=VECONSAM*DURATM/NRSAMPLE; END; ELSE IF CAI NE '00'X AND SMF70TYP=1 THEN DO; IFAWAIT3=CPUWAITM; PCTIFBY3=PCTIFABY; END; ELSE IF CAI NE '00'X AND SMF70TYP=2 THEN DO; ZIPWAIT3=CPUWAITM; PCTZIBY3=PCTZIPBY; END; END; ELSE IF CPUID=4 THEN DO; IFATYP4=SMF70TYP; CAI4=CAI; IF CAI NE '......00'B AND SMF70TYP=0 THEN DO; CPUWAIT4=CPUWAITM; PCTCPBY4=PCTCPUBY; CPUSER4=CPUSER; IORATE4=IORATE; PCTTPI4=PCTTPI; IF SMF70V='1.......'B THEN VFON4='Y'; IF NRSAMPLE GT 0 AND VECONSAM GT 0 THEN VFAFFTM4=VECONSAM*DURATM/NRSAMPLE; END; ELSE IF CAI NE '00'X AND SMF70TYP=1 THEN DO; IFAWAIT4=CPUWAITM; PCTIFBY4=PCTIFABY; END; ELSE IF CAI NE '00'X AND SMF70TYP=2 THEN DO; ZIPWAIT4=CPUWAITM; PCTZIBY4=PCTZIPBY; END; END; ELSE IF CPUID=5 THEN DO; IFATYP5=SMF70TYP; CAI5=CAI; IF CAI NE '......00'B AND SMF70TYP=0 THEN DO; CPUWAIT5=CPUWAITM; PCTCPBY5=PCTCPUBY; CPUSER5=CPUSER; IORATE5=IORATE; PCTTPI5=PCTTPI; IF SMF70V='1.......'B THEN VFON5='Y'; IF NRSAMPLE GT 0 AND VECONSAM GT 0 THEN VFAFFTM5=VECONSAM*DURATM/NRSAMPLE; END; ELSE IF CAI NE '00'X AND SMF70TYP=1 THEN DO; IFAWAIT5=CPUWAITM; PCTIFBY5=PCTIFABY; END; ELSE IF CAI NE '00'X AND SMF70TYP=2 THEN DO; ZIPWAIT5=CPUWAITM; PCTZIBY5=PCTZIPBY; END; END; ELSE IF CPUID=6 THEN DO; IFATYP6=SMF70TYP; CAI6=CAI; IF CAI NE '......00'B AND SMF70TYP=0 THEN DO; CPUWAIT6=CPUWAITM; PCTCPBY6=PCTCPUBY; CPUSER6=CPUSER; IORATE6=IORATE; PCTTPI6=PCTTPI; IF SMF70V='1.......'B THEN VFON6='Y'; IF NRSAMPLE GT 0 AND VECONSAM GT 0 THEN VFAFFTM6=VECONSAM*DURATM/NRSAMPLE; END; ELSE IF CAI NE '00'X AND SMF70TYP=1 THEN DO; IFAWAIT6=CPUWAITM; PCTIFBY6=PCTIFABY; END; ELSE IF CAI NE '00'X AND SMF70TYP=2 THEN DO; ZIPWAIT6=CPUWAITM; PCTZIBY6=PCTZIPBY; END; END; ELSE IF CPUID=7 THEN DO; IFATYP7=SMF70TYP; CAI7=CAI; IF CAI NE '......00'B AND SMF70TYP=0 THEN DO; CPUWAIT7=CPUWAITM; PCTCPBY7=PCTCPUBY; CPUSER7=CPUSER; IORATE7=IORATE; PCTTPI7=PCTTPI; IF SMF70V='1.......'B THEN VFON7='Y'; IF NRSAMPLE GT 0 AND VECONSAM GT 0 THEN VFAFFTM7=VECONSAM*DURATM/NRSAMPLE; END; ELSE IF CAI NE '00'X AND SMF70TYP=1 THEN DO; IFAWAIT7=CPUWAITM; PCTIFBY7=PCTIFABY; END; ELSE IF CAI NE '00'X AND SMF70TYP=2 THEN DO; ZIPWAIT7=CPUWAITM; PCTZIBY7=PCTZIPBY; END; END; ELSE IF CPUID=8 THEN DO; IFATYP8=SMF70TYP; CAI8=CAI; IF CAI NE '......00'B AND SMF70TYP=0 THEN DO; CPUWAIT8=CPUWAITM; PCTCPBY8=PCTCPUBY; CPUSER8=CPUSER; IORATE8=IORATE; PCTTPI8=PCTTPI; IF SMF70V='1.......'B THEN VFON8='Y'; IF NRSAMPLE GT 0 AND VECONSAM GT 0 THEN VFAFFTM8=VECONSAM*DURATM/NRSAMPLE; END; ELSE IF CAI NE '00'X AND SMF70TYP=1 THEN DO; IFAWAIT8=CPUWAITM; PCTIFBY8=PCTIFABY; END; ELSE IF CAI NE '00'X AND SMF70TYP=2 THEN DO; ZIPWAIT8=CPUWAITM; PCTZIBY8=PCTZIPBY; END; END; ELSE IF CPUID=9 THEN DO; IFATYP9=SMF70TYP; CAI9=CAI; IF CAI NE '......00'B AND SMF70TYP=0 THEN DO; CPUWAIT9=CPUWAITM; PCTCPBY9=PCTCPUBY; CPUSER9=CPUSER; IORATE9=IORATE; PCTTPI9=PCTTPI; IF SMF70V='1.......'B THEN VFON9='Y'; IF NRSAMPLE GT 0 AND VECONSAM GT 0 THEN VFAFFTM9=VECONSAM*DURATM/NRSAMPLE; END; ELSE IF CAI NE '00'X AND SMF70TYP=1 THEN DO; IFAWAIT9=CPUWAITM; PCTIFBY9=PCTIFABY; END; ELSE IF CAI NE '00'X AND SMF70TYP=2 THEN DO; ZIPWAIT9=CPUWAITM; PCTZIBY9=PCTZIPBY; END; END; ELSE IF CPUID=10 THEN DO; IFATYPA=SMF70TYP; CAIA=CAI; IF CAI NE '......00'B AND SMF70TYP=0 THEN DO; CPUWAITA=CPUWAITM; PCTCPBYA=PCTCPUBY; CPUSERA=CPUSER; IORATEA=IORATE; PCTTPIA=PCTTPI; IF SMF70V='1.......'B THEN VFONA='Y'; IF NRSAMPLE GT 0 AND VECONSAM GT 0 THEN VFAFFTMA=VECONSAM*DURATM/NRSAMPLE; END; ELSE IF CAI NE '00'X AND SMF70TYP=1 THEN DO; IFAWAITA=CPUWAITM; PCTIFBYA=PCTIFABY; END; ELSE IF CAI NE '00'X AND SMF70TYP=2 THEN DO; ZIPWAITA=CPUWAITM; PCTZIBYA=PCTZIPBY; END; END; ELSE IF CPUID=11 THEN DO; IFATYPB=SMF70TYP; CAIB=CAI; IF CAI NE '......00'B AND SMF70TYP=0 THEN DO; CPUWAITB=CPUWAITM; PCTCPBYB=PCTCPUBY; CPUSERB=CPUSER; IORATEB=IORATE; PCTTPIB=PCTTPI; IF SMF70V='1.......'B THEN VFONB='Y'; IF NRSAMPLE GT 0 AND VECONSAM GT 0 THEN VFAFFTMB=VECONSAM*DURATM/NRSAMPLE; END; ELSE IF CAI NE '00'X AND SMF70TYP=1 THEN DO; IFAWAITB=CPUWAITM; PCTIFBYB=PCTIFABY; END; ELSE IF CAI NE '00'X AND SMF70TYP=2 THEN DO; ZIPWAITB=CPUWAITM; PCTZIBYB=PCTZIPBY; END; END; ELSE IF CPUID=12 THEN DO; IFATYPC=SMF70TYP; CAIC=CAI; IF CAI NE '......00'B AND SMF70TYP=0 THEN DO; CPUWAITC=CPUWAITM; PCTCPBYC=PCTCPUBY; CPUSERC=CPUSER; IORATEC=IORATE; PCTTPIC=PCTTPI; IF SMF70V='1.......'B THEN VFONC='Y'; IF NRSAMPLE GT 0 AND VECONSAM GT 0 THEN VFAFFTMC=VECONSAM*DURATM/NRSAMPLE; END; ELSE IF CAI NE '00'X AND SMF70TYP=1 THEN DO; IFAWAITC=CPUWAITM; PCTIFBYC=PCTIFABY; END; ELSE IF CAI NE '00'X AND SMF70TYP=2 THEN DO; ZIPWAITC=CPUWAITM; PCTZIBYC=PCTZIPBY; END; END; ELSE IF CPUID=13 THEN DO; IFATYPD=SMF70TYP; CAID=CAI; IF CAI NE '......00'B AND SMF70TYP=0 THEN DO; CPUWAITD=CPUWAITM; PCTCPBYD=PCTCPUBY; CPUSERD=CPUSER; IORATED=IORATE; PCTTPID=PCTTPI; IF SMF70V='1.......'B THEN VFOND='Y'; IF NRSAMPLE GT 0 AND VECONSAM GT 0 THEN VFAFFTMD=VECONSAM*DURATM/NRSAMPLE; END; ELSE IF CAI NE '00'X AND SMF70TYP=1 THEN DO; IFAWAITD=CPUWAITM; PCTIFBYD=PCTIFABY; END; ELSE IF CAI NE '00'X AND SMF70TYP=2 THEN DO; ZIPWAITD=CPUWAITM; PCTZIBYD=PCTZIPBY; END; END; ELSE IF CPUID=14 THEN DO; IFATYPE=SMF70TYP; CAIE=CAI; IF CAI NE '......00'B AND SMF70TYP=0 THEN DO; CPUWAITE=CPUWAITM; PCTCPBYE=PCTCPUBY; CPUSERE=CPUSER; IORATEE=IORATE; PCTTPIE=PCTTPI; IF SMF70V='1.......'B THEN VFONE='Y'; IF NRSAMPLE GT 0 AND VECONSAM GT 0 THEN VFAFFTME=VECONSAM*DURATM/NRSAMPLE; END; ELSE IF CAI NE '00'X AND SMF70TYP=1 THEN DO; IFAWAITE=CPUWAITM; PCTIFBYE=PCTIFABY; END; ELSE IF CAI NE '00'X AND SMF70TYP=2 THEN DO; ZIPWAITE=CPUWAITM; PCTZIBYE=PCTZIPBY; END; END; ELSE IF CPUID=15 THEN DO; IFATYPF=SMF70TYP; CAIF=CAI; IF CAI NE '......00'B AND SMF70TYP=0 THEN DO; CPUWAITF=CPUWAITM; PCTCPBYF=PCTCPUBY; CPUSERF=CPUSER; IORATEF=IORATE; PCTTPIF=PCTTPI; IF SMF70V='1.......'B THEN VFONF='Y'; IF NRSAMPLE GT 0 AND VECONSAM GT 0 THEN VFAFFTMF=VECONSAM*DURATM/NRSAMPLE; END; ELSE IF CAI NE '00'X AND SMF70TYP=1 THEN DO; IFAWAITF=CPUWAITM; PCTIFBYF=PCTIFABY; END; ELSE IF CAI NE '00'X AND SMF70TYP=2 THEN DO; ZIPWAITF=CPUWAITM; PCTZIBYF=PCTZIPBY; END; END; ELSE IF CPUID=16 THEN DO; IFATYPG=SMF70TYP; CAIG=CAI; IF CAI NE '......00'B AND SMF70TYP=0 THEN DO; CPUWAITG=CPUWAITM; PCTCPBYG=PCTCPUBY; CPUSERG=CPUSER; IORATEG=IORATE; PCTTPIG=PCTTPI; IF SMF70V='1.......'B THEN VFONG='Y'; IF NRSAMPLE GT 0 AND VECONSAM GT 0 THEN VFAFFTMG=VECONSAM*DURATM/NRSAMPLE; END; ELSE IF CAI NE '00'X AND SMF70TYP=1 THEN DO; IFAWAITG=CPUWAITM; PCTIFBYG=PCTIFABY; END; ELSE IF CAI NE '00'X AND SMF70TYP=2 THEN DO; ZIPWAITG=CPUWAITM; PCTZIBYG=PCTZIPBY; END; END; ELSE IF CPUID=17 THEN DO; IFATYPH=SMF70TYP; CAIH=CAI; IF CAI NE '......00'B AND SMF70TYP=0 THEN DO; CPUWAITH=CPUWAITM; PCTCPBYH=PCTCPUBY; CPUSERH=CPUSER; IORATEH=IORATE; PCTTPIH=PCTTPI; IF SMF70V='1.......'B THEN VFONH='Y'; IF NRSAMPLE GT 0 AND VECONSAM GT 0 THEN VFAFFTMH=VECONSAM*DURATM/NRSAMPLE; END; ELSE IF CAI NE '00'X AND SMF70TYP=1 THEN DO; IFAWAITH=CPUWAITM; PCTIFBYH=PCTIFABY; END; ELSE IF CAI NE '00'X AND SMF70TYP=2 THEN DO; ZIPWAITH=CPUWAITM; PCTZIBYH=PCTZIPBY; END; END; ELSE IF CPUID=18 THEN DO; IFATYPI=SMF70TYP; CAII=CAI; IF CAI NE '......00'B AND SMF70TYP=0 THEN DO; CPUWAITI=CPUWAITM; PCTCPBYI=PCTCPUBY; CPUSERI=CPUSER; IORATEI=IORATE; PCTTPII=PCTTPI; IF SMF70V='1.......'B THEN VFONI='Y'; IF NRSAMPLE GT 0 AND VECONSAM GT 0 THEN VFAFFTMI=VECONSAM*DURATM/NRSAMPLE; END; ELSE IF CAI NE '00'X AND SMF70TYP=1 THEN DO; IFAWAITI=CPUWAITM; PCTIFBYI=PCTIFABY; END; ELSE IF CAI NE '00'X AND SMF70TYP=2 THEN DO; ZIPWAITI=CPUWAITM; PCTZIBYI=PCTZIPBY; END; END; ELSE IF CPUID=19 THEN DO; IFATYPJ=SMF70TYP; CAIJ=CAI; IF CAI NE '......00'B AND SMF70TYP=0 THEN DO; CPUWAITJ=CPUWAITM; PCTCPBYJ=PCTCPUBY; CPUSERJ=CPUSER; IORATEJ=IORATE; PCTTPIJ=PCTTPI; IF SMF70V='1.......'B THEN VFONJ='Y'; IF NRSAMPLE GT 0 AND VECONSAM GT 0 THEN VFAFFTMJ=VECONSAM*DURATM/NRSAMPLE; END; ELSE IF CAI NE '00'X AND SMF70TYP=1 THEN DO; IFAWAITJ=CPUWAITM; PCTIFBYJ=PCTIFABY; END; ELSE IF CAI NE '00'X AND SMF70TYP=2 THEN DO; ZIPWAITJ=CPUWAITM; PCTZIBYJ=PCTZIPBY; END; END; ELSE IF CPUID=20 THEN DO; IFATYPK=SMF70TYP; CAIK=CAI; IF CAI NE '......00'B AND SMF70TYP=0 THEN DO; CPUWAITK=CPUWAITM; PCTCPBYK=PCTCPUBY; CPUSERK=CPUSER; IORATEK=IORATE; PCTTPIK=PCTTPI; IF SMF70V='1.......'B THEN VFONK='Y'; IF NRSAMPLE GT 0 AND VECONSAM GT 0 THEN VFAFFTMK=VECONSAM*DURATM/NRSAMPLE; END; ELSE IF CAI NE '00'X AND SMF70TYP=1 THEN DO; IFAWAITK=CPUWAITM; PCTIFBYK=PCTIFABY; END; ELSE IF CAI NE '00'X AND SMF70TYP=2 THEN DO; ZIPWAITK=CPUWAITM; PCTZIBYK=PCTZIPBY; END; END; ELSE IF CPUID=21 THEN DO; IFATYPL=SMF70TYP; CAIL=CAI; IF CAI NE '......00'B AND SMF70TYP=0 THEN DO; CPUWAITL=CPUWAITM; PCTCPBYL=PCTCPUBY; CPUSERL=CPUSER; IORATEL=IORATE; PCTTPIL=PCTTPI; IF SMF70V='1.......'B THEN VFONL='Y'; IF NRSAMPLE GT 0 AND VECONSAM GT 0 THEN VFAFFTML=VECONSAM*DURATM/NRSAMPLE; END; ELSE IF CAI NE '00'X AND SMF70TYP=1 THEN DO; IFAWAITL=CPUWAITM; PCTIFBYL=PCTIFABY; END; ELSE IF CAI NE '00'X AND SMF70TYP=2 THEN DO; ZIPWAITL=CPUWAITM; PCTZIBYL=PCTZIPBY; END; END; ELSE IF CPUID=22 THEN DO; IFATYPN=SMF70TYP; CAIN=CAI; IF CAI NE '......00'B AND SMF70TYP=0 THEN DO; CPUWAITN=CPUWAITM; PCTCPBYN=PCTCPUBY; CPUSERN=CPUSER; IORATEN=IORATE; PCTTPIN=PCTTPI; IF SMF70V='1.......'B THEN VFONN='Y'; IF NRSAMPLE GT 0 AND VECONSAM GT 0 THEN VFAFFTMN=VECONSAM*DURATM/NRSAMPLE; END; ELSE IF CAI NE '00'X AND SMF70TYP=1 THEN DO; IFAWAITN=CPUWAITM; PCTIFBYN=PCTIFABY; END; ELSE IF CAI NE '00'X AND SMF70TYP=2 THEN DO; ZIPWAITN=CPUWAITM; PCTZIBYN=PCTZIPBY; END; END; ELSE IF CPUID=23 THEN DO; IFATYPO=SMF70TYP; CAIO=CAI; IF CAI NE '......00'B AND SMF70TYP=0 THEN DO; CPUWAITO=CPUWAITM; PCTCPBYO=PCTCPUBY; CPUSERO=CPUSER; IORATEO=IORATE; PCTTPIO=PCTTPI; IF SMF70V='1.......'B THEN VFONO='Y'; IF NRSAMPLE GT 0 AND VECONSAM GT 0 THEN VFAFFTMO=VECONSAM*DURATM/NRSAMPLE; END; ELSE IF CAI NE '00'X AND SMF70TYP=1 THEN DO; IFAWAITO=CPUWAITM; PCTIFBYO=PCTIFABY; END; ELSE IF CAI NE '00'X AND SMF70TYP=2 THEN DO; ZIPWAITO=CPUWAITM; PCTZIBYO=PCTZIPBY; END; END; ELSE IF CPUID=24 THEN DO; IFATYPP=SMF70TYP; CAIP=CAI; IF CAI NE '......00'B AND SMF70TYP=0 THEN DO; CPUWAITP=CPUWAITM; PCTCPBYP=PCTCPUBY; CPUSERP=CPUSER; IORATEP=IORATE; PCTTPIP=PCTTPI; IF SMF70V='1.......'B THEN VFONP='Y'; IF NRSAMPLE GT 0 AND VECONSAM GT 0 THEN VFAFFTMP=VECONSAM*DURATM/NRSAMPLE; END; ELSE IF CAI NE '00'X AND SMF70TYP=1 THEN DO; IFAWAITP=CPUWAITM; PCTIFBYP=PCTIFABY; END; ELSE IF CAI NE '00'X AND SMF70TYP=2 THEN DO; ZIPWAITP=CPUWAITM; PCTZIBYP=PCTZIPBY; END; END; ELSE IF CPUID=25 THEN DO; IFATYPQ=SMF70TYP; CAIQ=CAI; IF CAI NE '......00'B AND SMF70TYP=0 THEN DO; CPUWAITQ=CPUWAITM; PCTCPBYQ=PCTCPUBY; CPUSERQ=CPUSER; IORATEQ=IORATE; PCTTPIQ=PCTTPI; IF SMF70V='1.......'B THEN VFONQ='Y'; IF NRSAMPLE GT 0 AND VECONSAM GT 0 THEN VFAFFTMQ=VECONSAM*DURATM/NRSAMPLE; END; ELSE IF CAI NE '00'X AND SMF70TYP=1 THEN DO; IFAWAITQ=CPUWAITM; PCTIFBYQ=PCTIFABY; END; ELSE IF CAI NE '00'X AND SMF70TYP=2 THEN DO; ZIPWAITQ=CPUWAITM; PCTZIBYQ=PCTZIPBY; END; END; ELSE IF CPUID=26 THEN DO; IFATYPR=SMF70TYP; CAIR=CAI; IF CAI NE '......00'B AND SMF70TYP=0 THEN DO; CPUWAITR=CPUWAITM; PCTCPBYR=PCTCPUBY; CPUSERR=CPUSER; IORATER=IORATE; PCTTPIR=PCTTPI; IF SMF70V='1.......'B THEN VFONR='Y'; IF NRSAMPLE GT 0 AND VECONSAM GT 0 THEN VFAFFTMR=VECONSAM*DURATM/NRSAMPLE; END; ELSE IF CAI NE '00'X AND SMF70TYP=1 THEN DO; IFAWAITR=CPUWAITM; PCTIFBYR=PCTIFABY; END; ELSE IF CAI NE '00'X AND SMF70TYP=2 THEN DO; ZIPWAITR=CPUWAITM; PCTZIBYR=PCTZIPBY; END; END; ELSE IF CPUID=27 THEN DO; IFATYPS=SMF70TYP; CAIS=CAI; IF CAI NE '......00'B AND SMF70TYP=0 THEN DO; CPUWAITS=CPUWAITM; PCTCPBYS=PCTCPUBY; CPUSERS=CPUSER; IORATES=IORATE; PCTTPIS=PCTTPI; IF SMF70V='1.......'B THEN VFONS='Y'; IF NRSAMPLE GT 0 AND VECONSAM GT 0 THEN VFAFFTMS=VECONSAM*DURATM/NRSAMPLE; END; ELSE IF CAI NE '00'X AND SMF70TYP=1 THEN DO; IFAWAITS=CPUWAITM; PCTIFBYS=PCTIFABY; END; ELSE IF CAI NE '00'X AND SMF70TYP=2 THEN DO; ZIPWAITS=CPUWAITM; PCTZIBYS=PCTZIPBY; END; END; ELSE IF CPUID=28 THEN DO; IFATYPT=SMF70TYP; CAIT=CAI; IF CAI NE '......00'B AND SMF70TYP=0 THEN DO; CPUWAITT=CPUWAITM; PCTCPBYT=PCTCPUBY; CPUSERT=CPUSER; IORATET=IORATE; PCTTPIT=PCTTPI; IF SMF70V='1.......'B THEN VFONT='Y'; IF NRSAMPLE GT 0 AND VECONSAM GT 0 THEN VFAFFTMT=VECONSAM*DURATM/NRSAMPLE; END; ELSE IF CAI NE '00'X AND SMF70TYP=1 THEN DO; IFAWAITT=CPUWAITM; PCTIFBYT=PCTIFABY; END; ELSE IF CAI NE '00'X AND SMF70TYP=2 THEN DO; ZIPWAITT=CPUWAITM; PCTZIBYT=PCTZIPBY; END; END; ELSE IF CPUID=29 THEN DO; IFATYPU=SMF70TYP; CAIU=CAI; IF CAI NE '......00'B AND SMF70TYP=0 THEN DO; CPUWAITU=CPUWAITM; PCTCPBYU=PCTCPUBY; CPUSERU=CPUSER; IORATEU=IORATE; PCTTPIU=PCTTPI; IF SMF70V='1.......'B THEN VFONU='Y'; IF NRSAMPLE GT 0 AND VECONSAM GT 0 THEN VFAFFTMU=VECONSAM*DURATM/NRSAMPLE; END; ELSE IF CAI NE '00'X AND SMF70TYP=1 THEN DO; IFAWAITU=CPUWAITM; PCTIFBYU=PCTIFABY; END; ELSE IF CAI NE '00'X AND SMF70TYP=2 THEN DO; ZIPWAITU=CPUWAITM; PCTZIBYU=PCTZIPBY; END; END; ELSE IF CPUID=30 THEN DO; IFATYPV=SMF70TYP; CAIV=CAI; IF CAI NE '......00'B AND SMF70TYP=0 THEN DO; CPUWAITV=CPUWAITM; PCTCPBYV=PCTCPUBY; CPUSERV=CPUSER; IORATEV=IORATE; PCTTPIV=PCTTPI; IF SMF70V='1.......'B THEN VFONV='Y'; IF NRSAMPLE GT 0 AND VECONSAM GT 0 THEN VFAFFTMV=VECONSAM*DURATM/NRSAMPLE; END; ELSE IF CAI NE '00'X AND SMF70TYP=1 THEN DO; IFAWAITV=CPUWAITM; PCTIFBYV=PCTIFABY; END; ELSE IF CAI NE '00'X AND SMF70TYP=2 THEN DO; ZIPWAITV=CPUWAITM; PCTZIBYV=PCTZIPBY; END; END; ELSE IF CPUID=31 THEN DO; IFATYPW=SMF70TYP; CAIW=CAI; IF CAI NE '......00'B AND SMF70TYP=0 THEN DO; CPUWAITW=CPUWAITM; PCTCPBYW=PCTCPUBY; CPUSERW=CPUSER; IORATEW=IORATE; PCTTPIW=PCTTPI; IF SMF70V='1.......'B THEN VFONW='Y'; IF NRSAMPLE GT 0 AND VECONSAM GT 0 THEN VFAFFTMW=VECONSAM*DURATM/NRSAMPLE; END; ELSE IF CAI NE '00'X AND SMF70TYP=1 THEN DO; IFAWAITW=CPUWAITM; PCTIFBYW=PCTIFABY; END; ELSE IF CAI NE '00'X AND SMF70TYP=2 THEN DO; ZIPWAITW=CPUWAITM; PCTZIBYW=PCTZIPBY; END; END; ELSE IF CPUID=32 THEN DO; IFATYPX=SMF70TYP; CAIX=CAI; IF CAI NE '......00'B AND SMF70TYP=0 THEN DO; CPUWAITX=CPUWAITM; PCTCPBYX=PCTCPUBY; CPUSERX=CPUSER; IORATEX=IORATE; PCTTPIX=PCTTPI; IF SMF70V='1.......'B THEN VFONX='Y'; IF NRSAMPLE GT 0 AND VECONSAM GT 0 THEN VFAFFTMX=VECONSAM*DURATM/NRSAMPLE; END; ELSE IF CAI NE '00'X AND SMF70TYP=1 THEN DO; IFAWAITX=CPUWAITM; PCTIFBYX=PCTIFABY; END; ELSE IF CAI NE '00'X AND SMF70TYP=2 THEN DO; ZIPWAITX=CPUWAITM; PCTZIBYX=PCTZIPBY; END; END; ELSE IF CPUID=33 THEN DO; IFATYPY=SMF70TYP; CAIY=CAI; IF CAI NE '......00'B AND SMF70TYP=0 THEN DO; CPUWAITY=CPUWAITM; PCTCPBYY=PCTCPUBY; CPUSERY=CPUSER; IORATEY=IORATE; PCTTPIY=PCTTPI; IF SMF70V='1.......'B THEN VFONY='Y'; IF NRSAMPLE GT 0 AND VECONSAM GT 0 THEN VFAFFTMY=VECONSAM*DURATM/NRSAMPLE; END; ELSE IF CAI NE '00'X AND SMF70TYP=1 THEN DO; IFAWAITY=CPUWAITM; PCTIFBYY=PCTIFABY; END; ELSE IF CAI NE '00'X AND SMF70TYP=2 THEN DO; ZIPWAITY=CPUWAITM; PCTZIBYY=PCTZIPBY; END; END; ELSE IF CPUID=34 THEN DO; IFATYPZ=SMF70TYP; CAIZ=CAI; IF CAI NE '......00'B AND SMF70TYP=0 THEN DO; CPUWAITZ=CPUWAITM; PCTCPBYZ=PCTCPUBY; CPUSERZ=CPUSER; IORATEZ=IORATE; PCTTPIZ=PCTTPI; IF SMF70V='1.......'B THEN VFONZ='Y'; IF NRSAMPLE GT 0 AND VECONSAM GT 0 THEN VFAFFTMZ=VECONSAM*DURATM/NRSAMPLE; END; ELSE IF CAI NE '00'X AND SMF70TYP=1 THEN DO; IFAWAITZ=CPUWAITM; PCTIFBYZ=PCTIFABY; END; ELSE IF CAI NE '00'X AND SMF70TYP=2 THEN DO; ZIPWAITZ=CPUWAITM; PCTZIBYZ=PCTZIPBY; END; END; ELSE IF CPUID=35 THEN DO; IFATYPZA=SMF70TYP; CAIZA=CAI; IF CAI NE '......00'B AND SMF70TYP=0 THEN DO; CPUWAIZA=CPUWAITM; PCTCPBZA=PCTCPUBY; CPUSERZA=CPUSER; IORATEZA=IORATE; PCTTPIZA=PCTTPI; IF SMF70V='1.......'B THEN VFONZA='Y'; IF NRSAMPLE GT 0 AND VECONSAM GT 0 THEN VFAFFTZA=VECONSAM*DURATM/NRSAMPLE; END; ELSE IF CAI NE '00'X AND SMF70TYP=1 THEN DO; IFAWAIZA=CPUWAITM; PCTIFBZA=PCTIFABY; END; ELSE IF CAI NE '00'X AND SMF70TYP=2 THEN DO; ZIPWAIZA=CPUWAITM; PCTZIBZA=PCTZIPBY; END; END; ELSE IF CPUID=36 THEN DO; IFATYPZB=SMF70TYP; CAIZB=CAI; IF CAI NE '......00'B AND SMF70TYP=0 THEN DO; CPUWAIZB=CPUWAITM; PCTCPBZB=PCTCPUBY; CPUSERZB=CPUSER; IORATEZB=IORATE; PCTTPIZB=PCTTPI; IF SMF70V='1.......'B THEN VFONZB='Y'; IF NRSAMPLE GT 0 AND VECONSAM GT 0 THEN VFAFFTZB=VECONSAM*DURATM/NRSAMPLE; END; ELSE IF CAI NE '00'X AND SMF70TYP=1 THEN DO; IFAWAIZB=CPUWAITM; PCTIFBZB=PCTIFABY; END; ELSE IF CAI NE '00'X AND SMF70TYP=2 THEN DO; ZIPWAIZB=CPUWAITM; PCTZIBZB=PCTZIPBY; END; END; ELSE IF CPUID=37 THEN DO; IFATYPZC=SMF70TYP; CAIZC=CAI; IF CAI NE '......00'B AND SMF70TYP=0 THEN DO; CPUWAIZC=CPUWAITM; PCTCPBZC=PCTCPUBY; CPUSERZC=CPUSER; IORATEZC=IORATE; PCTTPIZC=PCTTPI; IF SMF70V='1.......'B THEN VFONZC='Y'; IF NRSAMPLE GT 0 AND VECONSAM GT 0 THEN VFAFFTZC=VECONSAM*DURATM/NRSAMPLE; END; ELSE IF CAI NE '00'X AND SMF70TYP=1 THEN DO; IFAWAIZC=CPUWAITM; PCTIFBZC=PCTIFABY; END; ELSE IF CAI NE '00'X AND SMF70TYP=2 THEN DO; ZIPWAIZC=CPUWAITM; PCTZIBZC=PCTZIPBY; END; END; ELSE IF CPUID=38 THEN DO; IFATYPZD=SMF70TYP; CAIZD=CAI; IF CAI NE '......00'B AND SMF70TYP=0 THEN DO; CPUWAIZD=CPUWAITM; PCTCPBZD=PCTCPUBY; CPUSERZD=CPUSER; IORATEZD=IORATE; PCTTPIZD=PCTTPI; IF SMF70V='1.......'B THEN VFONZD='Y'; IF NRSAMPLE GT 0 AND VECONSAM GT 0 THEN VFAFFTZD=VECONSAM*DURATM/NRSAMPLE; END; ELSE IF CAI NE '00'X AND SMF70TYP=1 THEN DO; IFAWAIZD=CPUWAITM; PCTIFBZD=PCTIFABY; END; ELSE IF CAI NE '00'X AND SMF70TYP=2 THEN DO; ZIPWAIZD=CPUWAITM; PCTZIBZD=PCTZIPBY; END; END; ELSE IF CPUID=39 THEN DO; IFATYPZE=SMF70TYP; CAIZE=CAI; IF CAI NE '......00'B AND SMF70TYP=0 THEN DO; CPUWAIZE=CPUWAITM; PCTCPBZE=PCTCPUBY; CPUSERZE=CPUSER; IORATEZE=IORATE; PCTTPIZE=PCTTPI; IF SMF70V='1.......'B THEN VFONZE='Y'; IF NRSAMPLE GT 0 AND VECONSAM GT 0 THEN VFAFFTZE=VECONSAM*DURATM/NRSAMPLE; END; ELSE IF CAI NE '00'X AND SMF70TYP=1 THEN DO; IFAWAIZE=CPUWAITM; PCTIFBZE=PCTIFABY; END; ELSE IF CAI NE '00'X AND SMF70TYP=2 THEN DO; ZIPWAIZE=CPUWAITM; PCTZIBZE=PCTZIPBY; END; END; ELSE IF CPUID=40 THEN DO; IFATYPZF=SMF70TYP; CAIZF=CAI; IF CAI NE '......00'B AND SMF70TYP=0 THEN DO; CPUWAIZF=CPUWAITM; PCTCPBZF=PCTCPUBY; CPUSERZF=CPUSER; IORATEZF=IORATE; PCTTPIZF=PCTTPI; IF SMF70V='1.......'B THEN VFONZF='Y'; IF NRSAMPLE GT 0 AND VECONSAM GT 0 THEN VFAFFTZF=VECONSAM*DURATM/NRSAMPLE; END; ELSE IF CAI NE '00'X AND SMF70TYP=1 THEN DO; IFAWAIZF=CPUWAITM; PCTIFBZF=PCTIFABY; END; ELSE IF CAI NE '00'X AND SMF70TYP=2 THEN DO; ZIPWAIZF=CPUWAITM; PCTZIBZF=PCTZIPBY; END; END; ELSE IF CPUID=41 THEN DO; IFATYPZG=SMF70TYP; CAIZG=CAI; IF CAI NE '......00'B AND SMF70TYP=0 THEN DO; CPUWAIZG=CPUWAITM; PCTCPBZG=PCTCPUBY; CPUSERZG=CPUSER; IORATEZG=IORATE; PCTTPIZG=PCTTPI; IF SMF70V='1.......'B THEN VFONZG='Y'; IF NRSAMPLE GT 0 AND VECONSAM GT 0 THEN VFAFFTZG=VECONSAM*DURATM/NRSAMPLE; END; ELSE IF CAI NE '00'X AND SMF70TYP=1 THEN DO; IFAWAIZG=CPUWAITM; PCTIFBZG=PCTIFABY; END; ELSE IF CAI NE '00'X AND SMF70TYP=2 THEN DO; ZIPWAIZG=CPUWAITM; PCTZIBZG=PCTZIPBY; END; END; ELSE IF CPUID=42 THEN DO; IFATYPZH=SMF70TYP; CAIZH=CAI; IF CAI NE '......00'B AND SMF70TYP=0 THEN DO; CPUWAIZH=CPUWAITM; PCTCPBZH=PCTCPUBY; CPUSERZH=CPUSER; IORATEZH=IORATE; PCTTPIZH=PCTTPI; IF SMF70V='1.......'B THEN VFONZH='Y'; IF NRSAMPLE GT 0 AND VECONSAM GT 0 THEN VFAFFTZH=VECONSAM*DURATM/NRSAMPLE; END; ELSE IF CAI NE '00'X AND SMF70TYP=1 THEN DO; IFAWAIZH=CPUWAITM; PCTIFBZH=PCTIFABY; END; ELSE IF CAI NE '00'X AND SMF70TYP=2 THEN DO; ZIPWAIZH=CPUWAITM; PCTZIBZH=PCTZIPBY; END; END; ELSE IF CPUID=43 THEN DO; IFATYPZI=SMF70TYP; CAIZI=CAI; IF CAI NE '......00'B AND SMF70TYP=0 THEN DO; CPUWAIZI=CPUWAITM; PCTCPBZI=PCTCPUBY; CPUSERZI=CPUSER; IORATEZI=IORATE; PCTTPIZI=PCTTPI; IF SMF70V='1.......'B THEN VFONZI='Y'; IF NRSAMPLE GT 0 AND VECONSAM GT 0 THEN VFAFFTZI=VECONSAM*DURATM/NRSAMPLE; END; ELSE IF CAI NE '00'X AND SMF70TYP=1 THEN DO; IFAWAIZI=CPUWAITM; PCTIFBZI=PCTIFABY; END; ELSE IF CAI NE '00'X AND SMF70TYP=2 THEN DO; ZIPWAIZI=CPUWAITM; PCTZIBZI=PCTZIPBY; END; END; ELSE IF CPUID=44 THEN DO; IFATYPZJ=SMF70TYP; CAIZJ=CAI; IF CAI NE '......00'B AND SMF70TYP=0 THEN DO; CPUWAIZJ=CPUWAITM; PCTCPBZJ=PCTCPUBY; CPUSERZJ=CPUSER; IORATEZJ=IORATE; PCTTPIZJ=PCTTPI; IF SMF70V='1.......'B THEN VFONZJ='Y'; IF NRSAMPLE GT 0 AND VECONSAM GT 0 THEN VFAFFTZJ=VECONSAM*DURATM/NRSAMPLE; END; ELSE IF CAI NE '00'X AND SMF70TYP=1 THEN DO; IFAWAIZJ=CPUWAITM; PCTIFBZJ=PCTIFABY; END; ELSE IF CAI NE '00'X AND SMF70TYP=2 THEN DO; ZIPWAIZJ=CPUWAITM; PCTZIBZJ=PCTZIPBY; END; END; ELSE IF CPUID=45 THEN DO; IFATYPZK=SMF70TYP; CAIZK=CAI; IF CAI NE '......00'B AND SMF70TYP=0 THEN DO; CPUWAIZK=CPUWAITM; PCTCPBZK=PCTCPUBY; CPUSERZK=CPUSER; IORATEZK=IORATE; PCTTPIZK=PCTTPI; IF SMF70V='1.......'B THEN VFONZK='Y'; IF NRSAMPLE GT 0 AND VECONSAM GT 0 THEN VFAFFTZK=VECONSAM*DURATM/NRSAMPLE; END; ELSE IF CAI NE '00'X AND SMF70TYP=1 THEN DO; IFAWAIZK=CPUWAITM; PCTIFBZK=PCTIFABY; END; ELSE IF CAI NE '00'X AND SMF70TYP=2 THEN DO; ZIPWAIZK=CPUWAITM; PCTZIBZK=PCTZIPBY; END; END; ELSE IF CPUID=46 THEN DO; IFATYPZL=SMF70TYP; CAIZL=CAI; IF CAI NE '......00'B AND SMF70TYP=0 THEN DO; CPUWAIZL=CPUWAITM; PCTCPBZL=PCTCPUBY; CPUSERZL=CPUSER; IORATEZL=IORATE; PCTTPIZL=PCTTPI; IF SMF70V='1.......'B THEN VFONZL='Y'; IF NRSAMPLE GT 0 AND VECONSAM GT 0 THEN VFAFFTZL=VECONSAM*DURATM/NRSAMPLE; END; ELSE IF CAI NE '00'X AND SMF70TYP=1 THEN DO; IFAWAIZL=CPUWAITM; PCTIFBZL=PCTIFABY; END; ELSE IF CAI NE '00'X AND SMF70TYP=2 THEN DO; ZIPWAIZL=CPUWAITM; PCTZIBZL=PCTZIPBY; END; END; ELSE IF CPUID=47 THEN DO; IFATYPZM=SMF70TYP; CAIZM=CAI; IF CAI NE '......00'B AND SMF70TYP=0 THEN DO; CPUWAIZM=CPUWAITM; PCTCPBZM=PCTCPUBY; CPUSERZM=CPUSER; IORATEZM=IORATE; PCTTPIZM=PCTTPI; IF SMF70V='1.......'B THEN VFONZM='Y'; IF NRSAMPLE GT 0 AND VECONSAM GT 0 THEN VFAFFTZM=VECONSAM*DURATM/NRSAMPLE; END; ELSE IF CAI NE '00'X AND SMF70TYP=1 THEN DO; IFAWAIZM=CPUWAITM; PCTIFBZM=PCTIFABY; END; ELSE IF CAI NE '00'X AND SMF70TYP=2 THEN DO; ZIPWAIZM=CPUWAITM; PCTZIBZM=PCTZIPBY; END; END; ELSE IF CPUID=48 THEN DO; IFATYPZN=SMF70TYP; CAIZN=CAI; IF CAI NE '......00'B AND SMF70TYP=0 THEN DO; CPUWAIZN=CPUWAITM; PCTCPBZN=PCTCPUBY; CPUSERZN=CPUSER; IORATEZN=IORATE; PCTTPIZN=PCTTPI; IF SMF70V='1.......'B THEN VFONZN='Y'; IF NRSAMPLE GT 0 AND VECONSAM GT 0 THEN VFAFFTZN=VECONSAM*DURATM/NRSAMPLE; END; ELSE IF CAI NE '00'X AND SMF70TYP=1 THEN DO; IFAWAIZN=CPUWAITM; PCTIFBZN=PCTIFABY; END; ELSE IF CAI NE '00'X AND SMF70TYP=2 THEN DO; ZIPWAIZN=CPUWAITM; PCTZIBZN=PCTZIPBY; END; END; ELSE IF CPUID=49 THEN DO; IFATYPZO=SMF70TYP; CAIZO=CAI; IF CAI NE '......00'B AND SMF70TYP=0 THEN DO; CPUWAIZO=CPUWAITM; PCTCPBZO=PCTCPUBY; CPUSERZO=CPUSER; IORATEZO=IORATE; PCTTPIZO=PCTTPI; IF SMF70V='1.......'B THEN VFONZO='Y'; IF NRSAMPLE GT 0 AND VECONSAM GT 0 THEN VFAFFTZO=VECONSAM*DURATM/NRSAMPLE; END; ELSE IF CAI NE '00'X AND SMF70TYP=1 THEN DO; IFAWAIZO=CPUWAITM; PCTIFBZO=PCTIFABY; END; ELSE IF CAI NE '00'X AND SMF70TYP=2 THEN DO; ZIPWAIZO=CPUWAITM; PCTZIBZO=PCTZIPBY; END; END; ELSE IF CPUID=50 THEN DO; IFATYPZP=SMF70TYP; CAIZP=CAI; IF CAI NE '......00'B AND SMF70TYP=0 THEN DO; CPUWAIZP=CPUWAITM; PCTCPBZP=PCTCPUBY; CPUSERZP=CPUSER; IORATEZP=IORATE; PCTTPIZP=PCTTPI; IF SMF70V='1.......'B THEN VFONZP='Y'; IF NRSAMPLE GT 0 AND VECONSAM GT 0 THEN VFAFFTZP=VECONSAM*DURATM/NRSAMPLE; END; ELSE IF CAI NE '00'X AND SMF70TYP=1 THEN DO; IFAWAIZP=CPUWAITM; PCTIFBZP=PCTIFABY; END; ELSE IF CAI NE '00'X AND SMF70TYP=2 THEN DO; ZIPWAIZP=CPUWAITM; PCTZIBZP=PCTZIPBY; END; END; ELSE IF CPUID=51 THEN DO; IFATYPZQ=SMF70TYP; CAIZQ=CAI; IF CAI NE '......00'B AND SMF70TYP=0 THEN DO; CPUWAIZQ=CPUWAITM; PCTCPBZQ=PCTCPUBY; CPUSERZQ=CPUSER; IORATEZQ=IORATE; PCTTPIZQ=PCTTPI; IF SMF70V='1.......'B THEN VFONZQ='Y'; IF NRSAMPLE GT 0 AND VECONSAM GT 0 THEN VFAFFTZQ=VECONSAM*DURATM/NRSAMPLE; END; ELSE IF CAI NE '00'X AND SMF70TYP=1 THEN DO; IFAWAIZQ=CPUWAITM; PCTIFBZQ=PCTIFABY; END; ELSE IF CAI NE '00'X AND SMF70TYP=2 THEN DO; ZIPWAIZQ=CPUWAITM; PCTZIBZQ=PCTZIPBY; END; END; ELSE IF CPUID=52 THEN DO; IFATYPZR=SMF70TYP; CAIZR=CAI; IF CAI NE '......00'B AND SMF70TYP=0 THEN DO; CPUWAIZR=CPUWAITM; PCTCPBZR=PCTCPUBY; CPUSERZR=CPUSER; IORATEZR=IORATE; PCTTPIZR=PCTTPI; IF SMF70V='1.......'B THEN VFONZR='Y'; IF NRSAMPLE GT 0 AND VECONSAM GT 0 THEN VFAFFTZR=VECONSAM*DURATM/NRSAMPLE; END; ELSE IF CAI NE '00'X AND SMF70TYP=1 THEN DO; IFAWAIZR=CPUWAITM; PCTIFBZR=PCTIFABY; END; ELSE IF CAI NE '00'X AND SMF70TYP=2 THEN DO; ZIPWAIZR=CPUWAITM; PCTZIBZR=PCTZIPBY; END; END; ELSE IF CPUID=53 THEN DO; IFATYPZS=SMF70TYP; CAIZS=CAI; IF CAI NE '......00'B AND SMF70TYP=0 THEN DO; CPUWAIZS=CPUWAITM; PCTCPBZS=PCTCPUBY; CPUSERZS=CPUSER; IORATEZS=IORATE; PCTTPIZS=PCTTPI; IF SMF70V='1.......'B THEN VFONZS='Y'; IF NRSAMPLE GT 0 AND VECONSAM GT 0 THEN VFAFFTZS=VECONSAM*DURATM/NRSAMPLE; END; ELSE IF CAI NE '00'X AND SMF70TYP=1 THEN DO; IFAWAIZS=CPUWAITM; PCTIFBZS=PCTIFABY; END; ELSE IF CAI NE '00'X AND SMF70TYP=2 THEN DO; ZIPWAIZS=CPUWAITM; PCTZIBZS=PCTZIPBY; END; END; ELSE IF CPUID=54 THEN DO; IFATYPZT=SMF70TYP; CAIZT=CAI; IF CAI NE '......00'B AND SMF70TYP=0 THEN DO; CPUWAIZT=CPUWAITM; PCTCPBZT=PCTCPUBY; CPUSERZT=CPUSER; IORATEZT=IORATE; PCTTPIZT=PCTTPI; IF SMF70V='1.......'B THEN VFONZT='Y'; IF NRSAMPLE GT 0 AND VECONSAM GT 0 THEN VFAFFTZT=VECONSAM*DURATM/NRSAMPLE; END; ELSE IF CAI NE '00'X AND SMF70TYP=1 THEN DO; IFAWAIZT=CPUWAITM; PCTIFBZT=PCTIFABY; END; ELSE IF CAI NE '00'X AND SMF70TYP=2 THEN DO; ZIPWAIZT=CPUWAITM; PCTZIBZT=PCTZIPBY; END; END; ELSE IF CPUID=55 THEN DO; IFATYPZU=SMF70TYP; CAIZU=CAI; IF CAI NE '......00'B AND SMF70TYP=0 THEN DO; CPUWAIZU=CPUWAITM; PCTCPBZU=PCTCPUBY; CPUSERZU=CPUSER; IORATEZU=IORATE; PCTTPIZU=PCTTPI; IF SMF70V='1.......'B THEN VFONZU='Y'; IF NRSAMPLE GT 0 AND VECONSAM GT 0 THEN VFAFFTZU=VECONSAM*DURATM/NRSAMPLE; END; ELSE IF CAI NE '00'X AND SMF70TYP=1 THEN DO; IFAWAIZU=CPUWAITM; PCTIFBZU=PCTIFABY; END; ELSE IF CAI NE '00'X AND SMF70TYP=2 THEN DO; ZIPWAIZU=CPUWAITM; PCTZIBZU=PCTZIPBY; END; END; ELSE IF CPUID=56 THEN DO; IFATYPZV=SMF70TYP; CAIZV=CAI; IF CAI NE '......00'B AND SMF70TYP=0 THEN DO; CPUWAIZV=CPUWAITM; PCTCPBZV=PCTCPUBY; CPUSERZV=CPUSER; IORATEZV=IORATE; PCTTPIZV=PCTTPI; IF SMF70V='1.......'B THEN VFONZV='Y'; IF NRSAMPLE GT 0 AND VECONSAM GT 0 THEN VFAFFTZV=VECONSAM*DURATM/NRSAMPLE; END; ELSE IF CAI NE '00'X AND SMF70TYP=1 THEN DO; IFAWAIZV=CPUWAITM; PCTIFBZV=PCTIFABY; END; ELSE IF CAI NE '00'X AND SMF70TYP=2 THEN DO; ZIPWAIZV=CPUWAITM; PCTZIBZV=PCTZIPBY; END; END; ELSE IF CPUID=57 THEN DO; IFATYPZW=SMF70TYP; CAIZW=CAI; IF CAI NE '......00'B AND SMF70TYP=0 THEN DO; CPUWAIZW=CPUWAITM; PCTCPBZW=PCTCPUBY; CPUSERZW=CPUSER; IORATEZW=IORATE; PCTTPIZW=PCTTPI; IF SMF70V='1.......'B THEN VFONZW='Y'; IF NRSAMPLE GT 0 AND VECONSAM GT 0 THEN VFAFFTZW=VECONSAM*DURATM/NRSAMPLE; END; ELSE IF CAI NE '00'X AND SMF70TYP=1 THEN DO; IFAWAIZW=CPUWAITM; PCTIFBZW=PCTIFABY; END; ELSE IF CAI NE '00'X AND SMF70TYP=2 THEN DO; ZIPWAIZW=CPUWAITM; PCTZIBZW=PCTZIPBY; END; END; ELSE IF CPUID=58 THEN DO; IFATYPZX=SMF70TYP; CAIZX=CAI; IF CAI NE '......00'B AND SMF70TYP=0 THEN DO; CPUWAIZX=CPUWAITM; PCTCPBZX=PCTCPUBY; CPUSERZX=CPUSER; IORATEZX=IORATE; PCTTPIZX=PCTTPI; IF SMF70V='1.......'B THEN VFONZX='Y'; IF NRSAMPLE GT 0 AND VECONSAM GT 0 THEN VFAFFTZX=VECONSAM*DURATM/NRSAMPLE; END; ELSE IF CAI NE '00'X AND SMF70TYP=1 THEN DO; IFAWAIZX=CPUWAITM; PCTIFBZX=PCTIFABY; END; ELSE IF CAI NE '00'X AND SMF70TYP=2 THEN DO; ZIPWAIZX=CPUWAITM; PCTZIBZX=PCTZIPBY; END; END; ELSE IF CPUID=59 THEN DO; IFATYPZY=SMF70TYP; CAIZY=CAI; IF CAI NE '......00'B AND SMF70TYP=0 THEN DO; CPUWAIZY=CPUWAITM; PCTCPBZY=PCTCPUBY; CPUSERZY=CPUSER; IORATEZY=IORATE; PCTTPIZY=PCTTPI; IF SMF70V='1.......'B THEN VFONZY='Y'; IF NRSAMPLE GT 0 AND VECONSAM GT 0 THEN VFAFFTZY=VECONSAM*DURATM/NRSAMPLE; END; ELSE IF CAI NE '00'X AND SMF70TYP=1 THEN DO; IFAWAIZY=CPUWAITM; PCTIFBZY=PCTIFABY; END; ELSE IF CAI NE '00'X AND SMF70TYP=2 THEN DO; ZIPWAIZY=CPUWAITM; PCTZIBZY=PCTZIPBY; END; END; ELSE IF CPUID=60 THEN DO; IFATYPZZ=SMF70TYP; CAIZZ=CAI; IF CAI NE '......00'B AND SMF70TYP=0 THEN DO; CPUWAIZZ=CPUWAITM; PCTCPBZZ=PCTCPUBY; CPUSERZZ=CPUSER; IORATEZZ=IORATE; PCTTPIZZ=PCTTPI; IF SMF70V='1.......'B THEN VFONZZ='Y'; IF NRSAMPLE GT 0 AND VECONSAM GT 0 THEN VFAFFTZZ=VECONSAM*DURATM/NRSAMPLE; END; ELSE IF CAI NE '00'X AND SMF70TYP=1 THEN DO; IFAWAIZZ=CPUWAITM; PCTIFBZZ=PCTIFABY; END; ELSE IF CAI NE '00'X AND SMF70TYP=2 THEN DO; ZIPWAIZZ=CPUWAITM; PCTZIBZZ=PCTZIPBY; END; END; ELSE IF CPUID=61 THEN DO; IFATYPYA=SMF70TYP; CAIYA=CAI; IF CAI NE '......00'B AND SMF70TYP=0 THEN DO; CPUWAIYA=CPUWAITM; PCTCPBXA=PCTCPUBY; CPUSERYA=CPUSER; IORATEYA=IORATE; PCTTPIYA=PCTTPI; IF SMF70V='1.......'B THEN VFONYA='Y'; IF NRSAMPLE GT 0 AND VECONSAM GT 0 THEN VFAFFTYA=VECONSAM*DURATM/NRSAMPLE; END; ELSE IF CAI NE '00'X AND SMF70TYP=1 THEN DO; IFAWAIYA=CPUWAITM; PCTIFBXA=PCTIFABY; END; ELSE IF CAI NE '00'X AND SMF70TYP=2 THEN DO; ZIPWAIYA=CPUWAITM; PCTZIBXA=PCTZIPBY; END; END; ELSE IF CPUID=62 THEN DO; IFATYPYB=SMF70TYP; CAIYB=CAI; IF CAI NE '......00'B AND SMF70TYP=0 THEN DO; CPUWAIYB=CPUWAITM; PCTCPBXB=PCTCPUBY; CPUSERYB=CPUSER; IORATEYB=IORATE; PCTTPIYB=PCTTPI; IF SMF70V='1.......'B THEN VFONYB='Y'; IF NRSAMPLE GT 0 AND VECONSAM GT 0 THEN VFAFFTYB=VECONSAM*DURATM/NRSAMPLE; END; ELSE IF CAI NE '00'X AND SMF70TYP=1 THEN DO; IFAWAIYB=CPUWAITM; PCTIFBXB=PCTIFABY; END; ELSE IF CAI NE '00'X AND SMF70TYP=2 THEN DO; ZIPWAIYB=CPUWAITM; PCTZIBXB=PCTZIPBY; END; END; ELSE IF CPUID=63 THEN DO; IFATYPYC=SMF70TYP; CAIYC=CAI; IF CAI NE '......00'B AND SMF70TYP=0 THEN DO; CPUWAIYC=CPUWAITM; PCTCPBXC=PCTCPUBY; CPUSERYC=CPUSER; IORATEYC=IORATE; PCTTPIYC=PCTTPI; IF SMF70V='1.......'B THEN VFONYC='Y'; IF NRSAMPLE GT 0 AND VECONSAM GT 0 THEN VFAFFTYC=VECONSAM*DURATM/NRSAMPLE; END; ELSE IF CAI NE '00'X AND SMF70TYP=1 THEN DO; IFAWAIYC=CPUWAITM; PCTIFBXC=PCTIFABY; END; ELSE IF CAI NE '00'X AND SMF70TYP=2 THEN DO; ZIPWAIYC=CPUWAITM; PCTZIBXC=PCTZIPBY; END; END; ELSE IF CPUID=64 THEN DO; IFATYPYD=SMF70TYP; CAIYD=CAI; IF CAI NE '......00'B AND SMF70TYP=0 THEN DO; CPUWAIYD=CPUWAITM; PCTCPBXD=PCTCPUBY; CPUSERYD=CPUSER; IORATEYD=IORATE; PCTTPIYD=PCTTPI; IF SMF70V='1.......'B THEN VFONYD='Y'; IF NRSAMPLE GT 0 AND VECONSAM GT 0 THEN VFAFFTYD=VECONSAM*DURATM/NRSAMPLE; END; ELSE IF CAI NE '00'X AND SMF70TYP=1 THEN DO; IFAWAIYD=CPUWAITM; PCTIFBXD=PCTIFABY; END; ELSE IF CAI NE '00'X AND SMF70TYP=2 THEN DO; ZIPWAIYD=CPUWAITM; PCTZIBXD=PCTZIPBY; END; END; ELSE IF CPUID=65 THEN DO; IFATYPYE=SMF70TYP; CAIYE=CAI; IF CAI NE '......00'B AND SMF70TYP=0 THEN DO; CPUWAIYE=CPUWAITM; PCTCPBXE=PCTCPUBY; CPUSERYE=CPUSER; IORATEYE=IORATE; PCTTPIYE=PCTTPI; IF SMF70V='1.......'B THEN VFONYE='Y'; IF NRSAMPLE GT 0 AND VECONSAM GT 0 THEN VFAFFTYE=VECONSAM*DURATM/NRSAMPLE; END; ELSE IF CAI NE '00'X AND SMF70TYP=1 THEN DO; IFAWAIYE=CPUWAITM; PCTIFBXE=PCTIFABY; END; ELSE IF CAI NE '00'X AND SMF70TYP=2 THEN DO; ZIPWAIYE=CPUWAITM; PCTZIBXE=PCTZIPBY; END; END; ELSE IF CPUID=66 THEN DO; IFATYPYF=SMF70TYP; CAIYF=CAI; IF CAI NE '......00'B AND SMF70TYP=0 THEN DO; CPUWAIYF=CPUWAITM; PCTCPBXF=PCTCPUBY; CPUSERYF=CPUSER; IORATEYF=IORATE; PCTTPIYF=PCTTPI; IF SMF70V='1.......'B THEN VFONYF='Y'; IF NRSAMPLE GT 0 AND VECONSAM GT 0 THEN VFAFFTYF=VECONSAM*DURATM/NRSAMPLE; END; ELSE IF CAI NE '00'X AND SMF70TYP=1 THEN DO; IFAWAIYF=CPUWAITM; PCTIFBXF=PCTIFABY; END; ELSE IF CAI NE '00'X AND SMF70TYP=2 THEN DO; ZIPWAIYF=CPUWAITM; PCTZIBXF=PCTZIPBY; END; END; ELSE IF CPUID=67 THEN DO; IFATYPYG=SMF70TYP; CAIYG=CAI; IF CAI NE '......00'B AND SMF70TYP=0 THEN DO; CPUWAIYG=CPUWAITM; PCTCPBXG=PCTCPUBY; CPUSERYG=CPUSER; IORATEYG=IORATE; PCTTPIYG=PCTTPI; IF SMF70V='1.......'B THEN VFONYG='Y'; IF NRSAMPLE GT 0 AND VECONSAM GT 0 THEN VFAFFTYG=VECONSAM*DURATM/NRSAMPLE; END; ELSE IF CAI NE '00'X AND SMF70TYP=1 THEN DO; IFAWAIYG=CPUWAITM; PCTIFBXG=PCTIFABY; END; ELSE IF CAI NE '00'X AND SMF70TYP=2 THEN DO; ZIPWAIYG=CPUWAITM; PCTZIBXG=PCTZIPBY; END; END; ELSE IF CPUID=68 THEN DO; IFATYPYH=SMF70TYP; CAIYH=CAI; IF CAI NE '......00'B AND SMF70TYP=0 THEN DO; CPUWAIYH=CPUWAITM; PCTCPBXH=PCTCPUBY; CPUSERYH=CPUSER; IORATEYH=IORATE; PCTTPIYH=PCTTPI; IF SMF70V='1.......'B THEN VFONYH='Y'; IF NRSAMPLE GT 0 AND VECONSAM GT 0 THEN VFAFFTYH=VECONSAM*DURATM/NRSAMPLE; END; ELSE IF CAI NE '00'X AND SMF70TYP=1 THEN DO; IFAWAIYH=CPUWAITM; PCTIFBXH=PCTIFABY; END; ELSE IF CAI NE '00'X AND SMF70TYP=2 THEN DO; ZIPWAIYH=CPUWAITM; PCTZIBXH=PCTZIPBY; END; END; ELSE IF CPUID=69 THEN DO; IFATYPYI=SMF70TYP; CAIYI=CAI; IF CAI NE '......00'B AND SMF70TYP=0 THEN DO; CPUWAIYI=CPUWAITM; PCTCPBXI=PCTCPUBY; CPUSERYI=CPUSER; IORATEYI=IORATE; PCTTPIYI=PCTTPI; IF SMF70V='1.......'B THEN VFONYI='Y'; IF NRSAMPLE GT 0 AND VECONSAM GT 0 THEN VFAFFTYI=VECONSAM*DURATM/NRSAMPLE; END; ELSE IF CAI NE '00'X AND SMF70TYP=1 THEN DO; IFAWAIYI=CPUWAITM; PCTIFBXI=PCTIFABY; END; ELSE IF CAI NE '00'X AND SMF70TYP=2 THEN DO; ZIPWAIYI=CPUWAITM; PCTZIBXI=PCTZIPBY; END; END; ELSE IF CPUID=70 THEN DO; IFATYPYJ=SMF70TYP; CAIYJ=CAI; IF CAI NE '......00'B AND SMF70TYP=0 THEN DO; CPUWAIYJ=CPUWAITM; PCTCPBXJ=PCTCPUBY; CPUSERYJ=CPUSER; IORATEYJ=IORATE; PCTTPIYJ=PCTTPI; IF SMF70V='1.......'B THEN VFONYJ='Y'; IF NRSAMPLE GT 0 AND VECONSAM GT 0 THEN VFAFFTYJ=VECONSAM*DURATM/NRSAMPLE; END; ELSE IF CAI NE '00'X AND SMF70TYP=1 THEN DO; IFAWAIYJ=CPUWAITM; PCTIFBXJ=PCTIFABY; END; ELSE IF CAI NE '00'X AND SMF70TYP=2 THEN DO; ZIPWAIYJ=CPUWAITM; PCTZIBXJ=PCTZIPBY; END; END; ELSE IF CPUID=71 THEN DO; IFATYPYK=SMF70TYP; CAIYK=CAI; IF CAI NE '......00'B AND SMF70TYP=0 THEN DO; CPUWAIYK=CPUWAITM; PCTCPBXK=PCTCPUBY; CPUSERYK=CPUSER; IORATEYK=IORATE; PCTTPIYK=PCTTPI; IF SMF70V='1.......'B THEN VFONYK='Y'; IF NRSAMPLE GT 0 AND VECONSAM GT 0 THEN VFAFFTYK=VECONSAM*DURATM/NRSAMPLE; END; ELSE IF CAI NE '00'X AND SMF70TYP=1 THEN DO; IFAWAIYK=CPUWAITM; PCTIFBXK=PCTIFABY; END; ELSE IF CAI NE '00'X AND SMF70TYP=2 THEN DO; ZIPWAIYK=CPUWAITM; PCTZIBXK=PCTZIPBY; END; END; ELSE IF CPUID=72 THEN DO; IFATYPYL=SMF70TYP; CAIYL=CAI; IF CAI NE '......00'B AND SMF70TYP=0 THEN DO; CPUWAIYL=CPUWAITM; PCTCPBXL=PCTCPUBY; CPUSERYL=CPUSER; IORATEYL=IORATE; PCTTPIYL=PCTTPI; IF SMF70V='1.......'B THEN VFONYL='Y'; IF NRSAMPLE GT 0 AND VECONSAM GT 0 THEN VFAFFTYL=VECONSAM*DURATM/NRSAMPLE; END; ELSE IF CAI NE '00'X AND SMF70TYP=1 THEN DO; IFAWAIYL=CPUWAITM; PCTIFBXL=PCTIFABY; END; ELSE IF CAI NE '00'X AND SMF70TYP=2 THEN DO; ZIPWAIYL=CPUWAITM; PCTZIBXL=PCTZIPBY; END; END; ELSE IF CPUID=73 THEN DO; IFATYPYM=SMF70TYP; CAIYM=CAI; IF CAI NE '......00'B AND SMF70TYP=0 THEN DO; CPUWAIYM=CPUWAITM; PCTCPBXM=PCTCPUBY; CPUSERYM=CPUSER; IORATEYM=IORATE; PCTTPIYM=PCTTPI; IF SMF70V='1.......'B THEN VFONYM='Y'; IF NRSAMPLE GT 0 AND VECONSAM GT 0 THEN VFAFFTYM=VECONSAM*DURATM/NRSAMPLE; END; ELSE IF CAI NE '00'X AND SMF70TYP=1 THEN DO; IFAWAIYM=CPUWAITM; PCTIFBXM=PCTIFABY; END; ELSE IF CAI NE '00'X AND SMF70TYP=2 THEN DO; ZIPWAIYM=CPUWAITM; PCTZIBXM=PCTZIPBY; END; END; ELSE IF CPUID=74 THEN DO; IFATYPYN=SMF70TYP; CAIYN=CAI; IF CAI NE '......00'B AND SMF70TYP=0 THEN DO; CPUWAIYN=CPUWAITM; PCTCPBXN=PCTCPUBY; CPUSERYN=CPUSER; IORATEYN=IORATE; PCTTPIYN=PCTTPI; IF SMF70V='1.......'B THEN VFONYN='Y'; IF NRSAMPLE GT 0 AND VECONSAM GT 0 THEN VFAFFTYN=VECONSAM*DURATM/NRSAMPLE; END; ELSE IF CAI NE '00'X AND SMF70TYP=1 THEN DO; IFAWAIYN=CPUWAITM; PCTIFBXN=PCTIFABY; END; ELSE IF CAI NE '00'X AND SMF70TYP=2 THEN DO; ZIPWAIYN=CPUWAITM; PCTZIBXN=PCTZIPBY; END; END; ELSE IF CPUID=75 THEN DO; IFATYPYO=SMF70TYP; CAIYO=CAI; IF CAI NE '......00'B AND SMF70TYP=0 THEN DO; CPUWAIYO=CPUWAITM; PCTCPBXO=PCTCPUBY; CPUSERYO=CPUSER; IORATEYO=IORATE; PCTTPIYO=PCTTPI; IF SMF70V='1.......'B THEN VFONYO='Y'; IF NRSAMPLE GT 0 AND VECONSAM GT 0 THEN VFAFFTYO=VECONSAM*DURATM/NRSAMPLE; END; ELSE IF CAI NE '00'X AND SMF70TYP=1 THEN DO; IFAWAIYO=CPUWAITM; PCTIFBXO=PCTIFABY; END; ELSE IF CAI NE '00'X AND SMF70TYP=2 THEN DO; ZIPWAIYO=CPUWAITM; PCTZIBXO=PCTZIPBY; END; END; ELSE IF CPUID=76 THEN DO; IFATYPYP=SMF70TYP; CAIYP=CAI; IF CAI NE '......00'B AND SMF70TYP=0 THEN DO; CPUWAIYP=CPUWAITM; PCTCPBXP=PCTCPUBY; CPUSERYP=CPUSER; IORATEYP=IORATE; PCTTPIYP=PCTTPI; IF SMF70V='1.......'B THEN VFONYP='Y'; IF NRSAMPLE GT 0 AND VECONSAM GT 0 THEN VFAFFTYP=VECONSAM*DURATM/NRSAMPLE; END; ELSE IF CAI NE '00'X AND SMF70TYP=1 THEN DO; IFAWAIYP=CPUWAITM; PCTIFBXP=PCTIFABY; END; ELSE IF CAI NE '00'X AND SMF70TYP=2 THEN DO; ZIPWAIYP=CPUWAITM; PCTZIBXP=PCTZIPBY; END; END; ELSE IF CPUID=77 THEN DO; IFATYPYQ=SMF70TYP; CAIYQ=CAI; IF CAI NE '......00'B AND SMF70TYP=0 THEN DO; CPUWAIYQ=CPUWAITM; PCTCPBXQ=PCTCPUBY; CPUSERYQ=CPUSER; IORATEYQ=IORATE; PCTTPIYQ=PCTTPI; IF SMF70V='1.......'B THEN VFONYQ='Y'; IF NRSAMPLE GT 0 AND VECONSAM GT 0 THEN VFAFFTYQ=VECONSAM*DURATM/NRSAMPLE; END; ELSE IF CAI NE '00'X AND SMF70TYP=1 THEN DO; IFAWAIYQ=CPUWAITM; PCTIFBXQ=PCTIFABY; END; ELSE IF CAI NE '00'X AND SMF70TYP=2 THEN DO; ZIPWAIYQ=CPUWAITM; PCTZIBXQ=PCTZIPBY; END; END; ELSE IF CPUID=78 THEN DO; IFATYPYR=SMF70TYP; CAIYR=CAI; IF CAI NE '......00'B AND SMF70TYP=0 THEN DO; CPUWAIYR=CPUWAITM; PCTCPBXR=PCTCPUBY; CPUSERYR=CPUSER; IORATEYR=IORATE; PCTTPIYR=PCTTPI; IF SMF70V='1.......'B THEN VFONYR='Y'; IF NRSAMPLE GT 0 AND VECONSAM GT 0 THEN VFAFFTYR=VECONSAM*DURATM/NRSAMPLE; END; ELSE IF CAI NE '00'X AND SMF70TYP=1 THEN DO; IFAWAIYR=CPUWAITM; PCTIFBXR=PCTIFABY; END; ELSE IF CAI NE '00'X AND SMF70TYP=2 THEN DO; ZIPWAIYR=CPUWAITM; PCTZIBXR=PCTZIPBY; END; END; ELSE IF CPUID=79 THEN DO; IFATYPYS=SMF70TYP; CAIYS=CAI; IF CAI NE '......00'B AND SMF70TYP=0 THEN DO; CPUWAIYS=CPUWAITM; PCTCPBXS=PCTCPUBY; CPUSERYS=CPUSER; IORATEYS=IORATE; PCTTPIYS=PCTTPI; IF SMF70V='1.......'B THEN VFONYS='Y'; IF NRSAMPLE GT 0 AND VECONSAM GT 0 THEN VFAFFTYS=VECONSAM*DURATM/NRSAMPLE; END; ELSE IF CAI NE '00'X AND SMF70TYP=1 THEN DO; IFAWAIYS=CPUWAITM; PCTIFBXS=PCTIFABY; END; ELSE IF CAI NE '00'X AND SMF70TYP=2 THEN DO; ZIPWAIYS=CPUWAITM; PCTZIBXS=PCTZIPBY; END; END; ELSE IF CPUID=80 THEN DO; IFATYPYT=SMF70TYP; CAIYT=CAI; IF CAI NE '......00'B AND SMF70TYP=0 THEN DO; CPUWAIYT=CPUWAITM; PCTCPBXT=PCTCPUBY; CPUSERYT=CPUSER; IORATEYT=IORATE; PCTTPIYT=PCTTPI; IF SMF70V='1.......'B THEN VFONYT='Y'; IF NRSAMPLE GT 0 AND VECONSAM GT 0 THEN VFAFFTYT=VECONSAM*DURATM/NRSAMPLE; END; ELSE IF CAI NE '00'X AND SMF70TYP=1 THEN DO; IFAWAIYT=CPUWAITM; PCTIFBXT=PCTIFABY; END; ELSE IF CAI NE '00'X AND SMF70TYP=2 THEN DO; ZIPWAIYT=CPUWAITM; PCTZIBXT=PCTZIPBY; END; END; ELSE IF CPUID=81 THEN DO; IFATYPYU=SMF70TYP; CAIYU=CAI; IF CAI NE '......00'B AND SMF70TYP=0 THEN DO; CPUWAIYU=CPUWAITM; PCTCPBXU=PCTCPUBY; CPUSERYU=CPUSER; IORATEYU=IORATE; PCTTPIYU=PCTTPI; IF SMF70V='1.......'B THEN VFONYU='Y'; IF NRSAMPLE GT 0 AND VECONSAM GT 0 THEN VFAFFTYU=VECONSAM*DURATM/NRSAMPLE; END; ELSE IF CAI NE '00'X AND SMF70TYP=1 THEN DO; IFAWAIYU=CPUWAITM; PCTIFBXU=PCTIFABY; END; ELSE IF CAI NE '00'X AND SMF70TYP=2 THEN DO; ZIPWAIYU=CPUWAITM; PCTZIBXU=PCTZIPBY; END; END; ELSE IF CPUID=82 THEN DO; IFATYPYV=SMF70TYP; CAIYV=CAI; IF CAI NE '......00'B AND SMF70TYP=0 THEN DO; CPUWAIYV=CPUWAITM; PCTCPBXV=PCTCPUBY; CPUSERYV=CPUSER; IORATEYV=IORATE; PCTTPIYV=PCTTPI; IF SMF70V='1.......'B THEN VFONYV='Y'; IF NRSAMPLE GT 0 AND VECONSAM GT 0 THEN VFAFFTYV=VECONSAM*DURATM/NRSAMPLE; END; ELSE IF CAI NE '00'X AND SMF70TYP=1 THEN DO; IFAWAIYV=CPUWAITM; PCTIFBXV=PCTIFABY; END; ELSE IF CAI NE '00'X AND SMF70TYP=2 THEN DO; ZIPWAIYV=CPUWAITM; PCTZIBXV=PCTZIPBY; END; END; ELSE IF CPUID=83 THEN DO; IFATYPYW=SMF70TYP; CAIYW=CAI; IF CAI NE '......00'B AND SMF70TYP=0 THEN DO; CPUWAIYW=CPUWAITM; PCTCPBXW=PCTCPUBY; CPUSERYW=CPUSER; IORATEYW=IORATE; PCTTPIYW=PCTTPI; IF SMF70V='1.......'B THEN VFONYW='Y'; IF NRSAMPLE GT 0 AND VECONSAM GT 0 THEN VFAFFTYW=VECONSAM*DURATM/NRSAMPLE; END; ELSE IF CAI NE '00'X AND SMF70TYP=1 THEN DO; IFAWAIYW=CPUWAITM; PCTIFBXW=PCTIFABY; END; ELSE IF CAI NE '00'X AND SMF70TYP=2 THEN DO; ZIPWAIYW=CPUWAITM; PCTZIBXW=PCTZIPBY; END; END; ELSE IF CPUID=84 THEN DO; IFATYPYX=SMF70TYP; CAIYX=CAI; IF CAI NE '......00'B AND SMF70TYP=0 THEN DO; CPUWAIYX=CPUWAITM; PCTCPBXX=PCTCPUBY; CPUSERYX=CPUSER; IORATEYX=IORATE; PCTTPIYX=PCTTPI; IF SMF70V='1.......'B THEN VFONYX='Y'; IF NRSAMPLE GT 0 AND VECONSAM GT 0 THEN VFAFFTYX=VECONSAM*DURATM/NRSAMPLE; END; ELSE IF CAI NE '00'X AND SMF70TYP=1 THEN DO; IFAWAIYX=CPUWAITM; PCTIFBXX=PCTIFABY; END; ELSE IF CAI NE '00'X AND SMF70TYP=2 THEN DO; ZIPWAIYX=CPUWAITM; PCTZIBXX=PCTZIPBY; END; END; ELSE IF CPUID=85 THEN DO; IFATYPYY=SMF70TYP; CAIYY=CAI; IF CAI NE '......00'B AND SMF70TYP=0 THEN DO; CPUWAIYY=CPUWAITM; PCTCPBXY=PCTCPUBY; CPUSERYY=CPUSER; IORATEYY=IORATE; PCTTPIYY=PCTTPI; IF SMF70V='1.......'B THEN VFONYY='Y'; IF NRSAMPLE GT 0 AND VECONSAM GT 0 THEN VFAFFTYY=VECONSAM*DURATM/NRSAMPLE; END; ELSE IF CAI NE '00'X AND SMF70TYP=1 THEN DO; IFAWAIYY=CPUWAITM; PCTIFBXY=PCTIFABY; END; ELSE IF CAI NE '00'X AND SMF70TYP=2 THEN DO; ZIPWAIYY=CPUWAITM; PCTZIBXY=PCTZIPBY; END; END; ELSE IF CPUID=86 THEN DO; IFATYPYZ=SMF70TYP; CAIYZ=CAI; IF CAI NE '......00'B AND SMF70TYP=0 THEN DO; CPUWAIYZ=CPUWAITM; PCTCPBXZ=PCTCPUBY; CPUSERYZ=CPUSER; IORATEYZ=IORATE; PCTTPIYZ=PCTTPI; IF SMF70V='1.......'B THEN VFONYZ='Y'; IF NRSAMPLE GT 0 AND VECONSAM GT 0 THEN VFAFFTYZ=VECONSAM*DURATM/NRSAMPLE; END; ELSE IF CAI NE '00'X AND SMF70TYP=1 THEN DO; IFAWAIYZ=CPUWAITM; PCTIFBXZ=PCTIFABY; END; ELSE IF CAI NE '00'X AND SMF70TYP=2 THEN DO; ZIPWAIYZ=CPUWAITM; PCTZIBXZ=PCTZIPBY; END; END; ELSE IF CPUID=87 THEN DO; IFATYPVA=SMF70TYP; CAIVA=CAI; IF CAI NE '......00'B AND SMF70TYP=0 THEN DO; CPUWAIVA=CPUWAITM; PCTCPBUA=PCTCPUBY; CPUSERVA=CPUSER; IORATEVA=IORATE; PCTTPIVA=PCTTPI; IF SMF70V='1.......'B THEN VFONVA='Y'; IF NRSAMPLE GT 0 AND VECONSAM GT 0 THEN VFAFFTVA=VECONSAM*DURATM/NRSAMPLE; END; ELSE IF CAI NE '00'X AND SMF70TYP=1 THEN DO; IFAWAIVA=CPUWAITM; PCTIFBUA=PCTIFABY; END; ELSE IF CAI NE '00'X AND SMF70TYP=2 THEN DO; ZIPWAIVA=CPUWAITM; PCTZIBUA=PCTZIPBY; END; END; ELSE IF CPUID=88 THEN DO; IFATYPVB=SMF70TYP; CAIVB=CAI; IF CAI NE '......00'B AND SMF70TYP=0 THEN DO; CPUWAIVB=CPUWAITM; PCTCPBUB=PCTCPUBY; CPUSERVB=CPUSER; IORATEVB=IORATE; PCTTPIVB=PCTTPI; IF SMF70V='1.......'B THEN VFONVB='Y'; IF NRSAMPLE GT 0 AND VECONSAM GT 0 THEN VFAFFTVB=VECONSAM*DURATM/NRSAMPLE; END; ELSE IF CAI NE '00'X AND SMF70TYP=1 THEN DO; IFAWAIVB=CPUWAITM; PCTIFBUB=PCTIFABY; END; ELSE IF CAI NE '00'X AND SMF70TYP=2 THEN DO; ZIPWAIVB=CPUWAITM; PCTZIBUB=PCTZIPBY; END; END; ELSE IF CPUID=89 THEN DO; IFATYPVC=SMF70TYP; CAIVC=CAI; IF CAI NE '......00'B AND SMF70TYP=0 THEN DO; CPUWAIVC=CPUWAITM; PCTCPBUC=PCTCPUBY; CPUSERVC=CPUSER; IORATEVC=IORATE; PCTTPIVC=PCTTPI; IF SMF70V='1.......'B THEN VFONVC='Y'; IF NRSAMPLE GT 0 AND VECONSAM GT 0 THEN VFAFFTVC=VECONSAM*DURATM/NRSAMPLE; END; ELSE IF CAI NE '00'X AND SMF70TYP=1 THEN DO; IFAWAIVC=CPUWAITM; PCTIFBUC=PCTIFABY; END; ELSE IF CAI NE '00'X AND SMF70TYP=2 THEN DO; ZIPWAIVC=CPUWAITM; PCTZIBUC=PCTZIPBY; END; END; ELSE IF CPUID=90 THEN DO; IFATYPVD=SMF70TYP; CAIVD=CAI; IF CAI NE '......00'B AND SMF70TYP=0 THEN DO; CPUWAIVD=CPUWAITM; PCTCPBUD=PCTCPUBY; CPUSERVD=CPUSER; IORATEVD=IORATE; PCTTPIVD=PCTTPI; IF SMF70V='1.......'B THEN VFONVD='Y'; IF NRSAMPLE GT 0 AND VECONSAM GT 0 THEN VFAFFTVD=VECONSAM*DURATM/NRSAMPLE; END; ELSE IF CAI NE '00'X AND SMF70TYP=1 THEN DO; IFAWAIVD=CPUWAITM; PCTIFBUD=PCTIFABY; END; ELSE IF CAI NE '00'X AND SMF70TYP=2 THEN DO; ZIPWAIVD=CPUWAITM; PCTZIBUD=PCTZIPBY; END; END; ELSE IF CPUID=91 THEN DO; IFATYPVE=SMF70TYP; CAIVE=CAI; IF CAI NE '......00'B AND SMF70TYP=0 THEN DO; CPUWAIVE=CPUWAITM; PCTCPBUE=PCTCPUBY; CPUSERVE=CPUSER; IORATEVE=IORATE; PCTTPIVE=PCTTPI; IF SMF70V='1.......'B THEN VFONVE='Y'; IF NRSAMPLE GT 0 AND VECONSAM GT 0 THEN VFAFFTVE=VECONSAM*DURATM/NRSAMPLE; END; ELSE IF CAI NE '00'X AND SMF70TYP=1 THEN DO; IFAWAIVE=CPUWAITM; PCTIFBUE=PCTIFABY; END; ELSE IF CAI NE '00'X AND SMF70TYP=2 THEN DO; ZIPWAIVE=CPUWAITM; PCTZIBUE=PCTZIPBY; END; END; ELSE IF CPUID=92 THEN DO; IFATYPVF=SMF70TYP; CAIVF=CAI; IF CAI NE '......00'B AND SMF70TYP=0 THEN DO; CPUWAIVF=CPUWAITM; PCTCPBUF=PCTCPUBY; CPUSERVF=CPUSER; IORATEVF=IORATE; PCTTPIVF=PCTTPI; IF SMF70V='1.......'B THEN VFONVF='Y'; IF NRSAMPLE GT 0 AND VECONSAM GT 0 THEN VFAFFTVF=VECONSAM*DURATM/NRSAMPLE; END; ELSE IF CAI NE '00'X AND SMF70TYP=1 THEN DO; IFAWAIVF=CPUWAITM; PCTIFBUF=PCTIFABY; END; ELSE IF CAI NE '00'X AND SMF70TYP=2 THEN DO; ZIPWAIVF=CPUWAITM; PCTZIBUF=PCTZIPBY; END; END; ELSE IF CPUID=93 THEN DO; IFATYPVG=SMF70TYP; CAIVG=CAI; IF CAI NE '......00'B AND SMF70TYP=0 THEN DO; CPUWAIVG=CPUWAITM; PCTCPBUG=PCTCPUBY; CPUSERVG=CPUSER; IORATEVG=IORATE; PCTTPIVG=PCTTPI; IF SMF70V='1.......'B THEN VFONVG='Y'; IF NRSAMPLE GT 0 AND VECONSAM GT 0 THEN VFAFFTVG=VECONSAM*DURATM/NRSAMPLE; END; ELSE IF CAI NE '00'X AND SMF70TYP=1 THEN DO; IFAWAIVG=CPUWAITM; PCTIFBUG=PCTIFABY; END; ELSE IF CAI NE '00'X AND SMF70TYP=2 THEN DO; ZIPWAIVG=CPUWAITM; PCTZIBUG=PCTZIPBY; END; END; ELSE IF CPUID=94 THEN DO; IFATYPVH=SMF70TYP; CAIVH=CAI; IF CAI NE '......00'B AND SMF70TYP=0 THEN DO; CPUWAIVH=CPUWAITM; PCTCPBUH=PCTCPUBY; CPUSERVH=CPUSER; IORATEVH=IORATE; PCTTPIVH=PCTTPI; IF SMF70V='1.......'B THEN VFONVH='Y'; IF NRSAMPLE GT 0 AND VECONSAM GT 0 THEN VFAFFTVH=VECONSAM*DURATM/NRSAMPLE; END; ELSE IF CAI NE '00'X AND SMF70TYP=1 THEN DO; IFAWAIVH=CPUWAITM; PCTIFBUH=PCTIFABY; END; ELSE IF CAI NE '00'X AND SMF70TYP=2 THEN DO; ZIPWAIVH=CPUWAITM; PCTZIBUH=PCTZIPBY; END; END; ELSE IF CPUID=95 THEN DO; IFATYPVI=SMF70TYP; CAIVI=CAI; IF CAI NE '......00'B AND SMF70TYP=0 THEN DO; CPUWAIVI=CPUWAITM; PCTCPBUI=PCTCPUBY; CPUSERVI=CPUSER; IORATEVI=IORATE; PCTTPIVI=PCTTPI; IF SMF70V='1.......'B THEN VFONVI='Y'; IF NRSAMPLE GT 0 AND VECONSAM GT 0 THEN VFAFFTVI=VECONSAM*DURATM/NRSAMPLE; END; ELSE IF CAI NE '00'X AND SMF70TYP=1 THEN DO; IFAWAIVI=CPUWAITM; PCTIFBUI=PCTIFABY; END; ELSE IF CAI NE '00'X AND SMF70TYP=2 THEN DO; ZIPWAIVI=CPUWAITM; PCTZIBUI=PCTZIPBY; END; END; ELSE IF CPUID=96 THEN DO; IFATYPVJ=SMF70TYP; CAIVJ=CAI; IF CAI NE '......00'B AND SMF70TYP=0 THEN DO; CPUWAIVJ=CPUWAITM; PCTCPBUJ=PCTCPUBY; CPUSERVJ=CPUSER; IORATEVJ=IORATE; PCTTPIVJ=PCTTPI; IF SMF70V='1.......'B THEN VFONVJ='Y'; IF NRSAMPLE GT 0 AND VECONSAM GT 0 THEN VFAFFTVJ=VECONSAM*DURATM/NRSAMPLE; END; ELSE IF CAI NE '00'X AND SMF70TYP=1 THEN DO; IFAWAIVJ=CPUWAITM; PCTIFBUJ=PCTIFABY; END; ELSE IF CAI NE '00'X AND SMF70TYP=2 THEN DO; ZIPWAIVJ=CPUWAITM; PCTZIBUJ=PCTZIPBY; END; END; ELSE IF CPUID=97 THEN DO; IFATYPVK=SMF70TYP; CAIVK=CAI; IF CAI NE '......00'B AND SMF70TYP=0 THEN DO; CPUWAIVK=CPUWAITM; PCTCPBUK=PCTCPUBY; CPUSERVK=CPUSER; IORATEVK=IORATE; PCTTPIVK=PCTTPI; IF SMF70V='1.......'B THEN VFONVK='Y'; IF NRSAMPLE GT 0 AND VECONSAM GT 0 THEN VFAFFTVK=VECONSAM*DURATM/NRSAMPLE; END; ELSE IF CAI NE '00'X AND SMF70TYP=1 THEN DO; IFAWAIVK=CPUWAITM; PCTIFBUK=PCTIFABY; END; ELSE IF CAI NE '00'X AND SMF70TYP=2 THEN DO; ZIPWAIVK=CPUWAITM; PCTZIBUK=PCTZIPBY; END; END; ELSE IF CPUID=98 THEN DO; IFATYPVL=SMF70TYP; CAIVL=CAI; IF CAI NE '......00'B AND SMF70TYP=0 THEN DO; CPUWAIVL=CPUWAITM; PCTCPBUL=PCTCPUBY; CPUSERVL=CPUSER; IORATEVL=IORATE; PCTTPIVL=PCTTPI; IF SMF70V='1.......'B THEN VFONVL='Y'; IF NRSAMPLE GT 0 AND VECONSAM GT 0 THEN VFAFFTVL=VECONSAM*DURATM/NRSAMPLE; END; ELSE IF CAI NE '00'X AND SMF70TYP=1 THEN DO; IFAWAIVL=CPUWAITM; PCTIFBUL=PCTIFABY; END; ELSE IF CAI NE '00'X AND SMF70TYP=2 THEN DO; ZIPWAIVL=CPUWAITM; PCTZIBUL=PCTZIPBY; END; END; ELSE IF CPUID=99 THEN DO; IFATYPVM=SMF70TYP; CAIVM=CAI; IF CAI NE '......00'B AND SMF70TYP=0 THEN DO; CPUWAIVM=CPUWAITM; PCTCPBUM=PCTCPUBY; CPUSERVM=CPUSER; IORATEVM=IORATE; PCTTPIVM=PCTTPI; IF SMF70V='1.......'B THEN VFONVM='Y'; IF NRSAMPLE GT 0 AND VECONSAM GT 0 THEN VFAFFTVM=VECONSAM*DURATM/NRSAMPLE; END; ELSE IF CAI NE '00'X AND SMF70TYP=1 THEN DO; IFAWAIVM=CPUWAITM; PCTIFBUM=PCTIFABY; END; ELSE IF CAI NE '00'X AND SMF70TYP=2 THEN DO; ZIPWAIVM=CPUWAITM; PCTZIBUM=PCTZIPBY; END; END; ELSE IF CPUID=100 THEN DO; IFATYPVN=SMF70TYP; CAIVN=CAI; IF CAI NE '......00'B AND SMF70TYP=0 THEN DO; CPUWAIVN=CPUWAITM; PCTCPBUN=PCTCPUBY; CPUSERVN=CPUSER; IORATEVN=IORATE; PCTTPIVN=PCTTPI; IF SMF70V='1.......'B THEN VFONVN='Y'; IF NRSAMPLE GT 0 AND VECONSAM GT 0 THEN VFAFFTVN=VECONSAM*DURATM/NRSAMPLE; END; ELSE IF CAI NE '00'X AND SMF70TYP=1 THEN DO; IFAWAIVN=CPUWAITM; PCTIFBUN=PCTIFABY; END; ELSE IF CAI NE '00'X AND SMF70TYP=2 THEN DO; ZIPWAIVN=CPUWAITM; PCTZIBUN=PCTZIPBY; END; END; ELSE IF CPUID=101 THEN DO; IFATYPVO=SMF70TYP; CAIVO=CAI; IF CAI NE '......00'B AND SMF70TYP=0 THEN DO; CPUWAIVO=CPUWAITM; PCTCPBUO=PCTCPUBY; CPUSERVO=CPUSER; IORATEVO=IORATE; PCTTPIVO=PCTTPI; IF SMF70V='1.......'B THEN VFONVO='Y'; IF NRSAMPLE GT 0 AND VECONSAM GT 0 THEN VFAFFTVO=VECONSAM*DURATM/NRSAMPLE; END; ELSE IF CAI NE '00'X AND SMF70TYP=1 THEN DO; IFAWAIVO=CPUWAITM; PCTIFBUO=PCTIFABY; END; ELSE IF CAI NE '00'X AND SMF70TYP=2 THEN DO; ZIPWAIVO=CPUWAITM; PCTZIBUO=PCTZIPBY; END; END; ELSE IF CPUID=102 THEN DO; IFATYP102=SMF70TYP; CAI102=CAI; IF CAI NE '......00'B AND SMF70TYP=0 THEN DO; CPUWAIT102=CPUWAITM; PCTCPB102=PCTCPUBY; CPUSER102=CPUSER; IORATE102=IORATE; PCTTPI102=PCTTPI; IF SMF70V='1.......'B THEN VFON102='Y'; IF NRSAMPLE GT 0 AND VECONSAM GT 0 THEN VFAFFTM102=VECONSAM*DURATM/NRSAMPLE; END; ELSE IF CAI NE '00'X AND SMF70TYP=1 THEN DO; IFAWAIT102=CPUWAITM; PCTIFB102=PCTIFABY; END; ELSE IF CAI NE '00'X AND SMF70TYP=2 THEN DO; ZIPWAIT102=CPUWAITM; PCTZIBY102=PCTZIPBY; END; END; ELSE IF CPUID=103 THEN DO; IFATYP103=SMF70TYP; CAI103=CAI; IF CAI NE '......00'B AND SMF70TYP=0 THEN DO; CPUWAIT103=CPUWAITM; PCTCPB103=PCTCPUBY; CPUSER103=CPUSER; IORATE103=IORATE; PCTTPI103=PCTTPI; IF SMF70V='1.......'B THEN VFON103='Y'; IF NRSAMPLE GT 0 AND VECONSAM GT 0 THEN VFAFFTM103=VECONSAM*DURATM/NRSAMPLE; END; ELSE IF CAI NE '00'X AND SMF70TYP=1 THEN DO; IFAWAIT103=CPUWAITM; PCTIFB103=PCTIFABY; END; ELSE IF CAI NE '00'X AND SMF70TYP=2 THEN DO; ZIPWAIT103=CPUWAITM; PCTZIBY103=PCTZIPBY; END; END; ELSE IF CPUID=104 THEN DO; IFATYP104=SMF70TYP; CAI104=CAI; IF CAI NE '......00'B AND SMF70TYP=0 THEN DO; CPUWAIT104=CPUWAITM; PCTCPB104=PCTCPUBY; CPUSER104=CPUSER; IORATE104=IORATE; PCTTPI104=PCTTPI; IF SMF70V='1.......'B THEN VFON104='Y'; IF NRSAMPLE GT 0 AND VECONSAM GT 0 THEN VFAFFTM104=VECONSAM*DURATM/NRSAMPLE; END; ELSE IF CAI NE '00'X AND SMF70TYP=1 THEN DO; IFAWAIT104=CPUWAITM; PCTIFB104=PCTIFABY; END; ELSE IF CAI NE '00'X AND SMF70TYP=2 THEN DO; ZIPWAIT104=CPUWAITM; PCTZIBY104=PCTZIPBY; END; END; ELSE IF CPUID=105 THEN DO; IFATYP105=SMF70TYP; CAI105=CAI; IF CAI NE '......00'B AND SMF70TYP=0 THEN DO; CPUWAIT105=CPUWAITM; PCTCPB105=PCTCPUBY; CPUSER105=CPUSER; IORATE105=IORATE; PCTTPI105=PCTTPI; IF SMF70V='1.......'B THEN VFON105='Y'; IF NRSAMPLE GT 0 AND VECONSAM GT 0 THEN VFAFFTM105=VECONSAM*DURATM/NRSAMPLE; END; ELSE IF CAI NE '00'X AND SMF70TYP=1 THEN DO; IFAWAIT105=CPUWAITM; PCTIFB105=PCTIFABY; END; ELSE IF CAI NE '00'X AND SMF70TYP=2 THEN DO; ZIPWAIT105=CPUWAITM; PCTZIBY105=PCTZIPBY; END; END; ELSE IF CPUID=106 THEN DO; IFATYP106=SMF70TYP; CAI106=CAI; IF CAI NE '......00'B AND SMF70TYP=0 THEN DO; CPUWAIT106=CPUWAITM; PCTCPB106=PCTCPUBY; CPUSER106=CPUSER; IORATE106=IORATE; PCTTPI106=PCTTPI; IF SMF70V='1.......'B THEN VFON106='Y'; IF NRSAMPLE GT 0 AND VECONSAM GT 0 THEN VFAFFTM106=VECONSAM*DURATM/NRSAMPLE; END; ELSE IF CAI NE '00'X AND SMF70TYP=1 THEN DO; IFAWAIT106=CPUWAITM; PCTIFB106=PCTIFABY; END; ELSE IF CAI NE '00'X AND SMF70TYP=2 THEN DO; ZIPWAIT106=CPUWAITM; PCTZIBY106=PCTZIPBY; END; END; ELSE IF CPUID=107 THEN DO; IFATYP107=SMF70TYP; CAI107=CAI; IF CAI NE '......00'B AND SMF70TYP=0 THEN DO; CPUWAIT107=CPUWAITM; PCTCPB107=PCTCPUBY; CPUSER107=CPUSER; IORATE107=IORATE; PCTTPI107=PCTTPI; IF SMF70V='1.......'B THEN VFON107='Y'; IF NRSAMPLE GT 0 AND VECONSAM GT 0 THEN VFAFFTM107=VECONSAM*DURATM/NRSAMPLE; END; ELSE IF CAI NE '00'X AND SMF70TYP=1 THEN DO; IFAWAIT107=CPUWAITM; PCTIFB107=PCTIFABY; END; ELSE IF CAI NE '00'X AND SMF70TYP=2 THEN DO; ZIPWAIT107=CPUWAITM; PCTZIBY107=PCTZIPBY; END; END; ELSE IF CPUID=108 THEN DO; IFATYP108=SMF70TYP; CAI108=CAI; IF CAI NE '......00'B AND SMF70TYP=0 THEN DO; CPUWAIT108=CPUWAITM; PCTCPB108=PCTCPUBY; CPUSER108=CPUSER; IORATE108=IORATE; PCTTPI108=PCTTPI; IF SMF70V='1.......'B THEN VFON108='Y'; IF NRSAMPLE GT 0 AND VECONSAM GT 0 THEN VFAFFTM108=VECONSAM*DURATM/NRSAMPLE; END; ELSE IF CAI NE '00'X AND SMF70TYP=1 THEN DO; IFAWAIT108=CPUWAITM; PCTIFB108=PCTIFABY; END; ELSE IF CAI NE '00'X AND SMF70TYP=2 THEN DO; ZIPWAIT108=CPUWAITM; PCTZIBY108=PCTZIPBY; END; END; ELSE IF CPUID=109 THEN DO; IFATYP109=SMF70TYP; CAI109=CAI; IF CAI NE '......00'B AND SMF70TYP=0 THEN DO; CPUWAIT109=CPUWAITM; PCTCPB109=PCTCPUBY; CPUSER109=CPUSER; IORATE109=IORATE; PCTTPI109=PCTTPI; IF SMF70V='1.......'B THEN VFON109='Y'; IF NRSAMPLE GT 0 AND VECONSAM GT 0 THEN VFAFFTM109=VECONSAM*DURATM/NRSAMPLE; END; ELSE IF CAI NE '00'X AND SMF70TYP=1 THEN DO; IFAWAIT109=CPUWAITM; PCTIFB109=PCTIFABY; END; ELSE IF CAI NE '00'X AND SMF70TYP=2 THEN DO; ZIPWAIT109=CPUWAITM; PCTZIBY109=PCTZIPBY; END; END; ELSE IF CPUID=110 THEN DO; IFATYP110=SMF70TYP; CAI110=CAI; IF CAI NE '......00'B AND SMF70TYP=0 THEN DO; CPUWAIT110=CPUWAITM; PCTCPB110=PCTCPUBY; CPUSER110=CPUSER; IORATE110=IORATE; PCTTPI110=PCTTPI; IF SMF70V='1.......'B THEN VFON110='Y'; IF NRSAMPLE GT 0 AND VECONSAM GT 0 THEN VFAFFTM110=VECONSAM*DURATM/NRSAMPLE; END; ELSE IF CAI NE '00'X AND SMF70TYP=1 THEN DO; IFAWAIT110=CPUWAITM; PCTIFB110=PCTIFABY; END; ELSE IF CAI NE '00'X AND SMF70TYP=2 THEN DO; ZIPWAIT110=CPUWAITM; PCTZIBY110=PCTZIPBY; END; END; ELSE IF CPUID=111 THEN DO; IFATYP111=SMF70TYP; CAI111=CAI; IF CAI NE '......00'B AND SMF70TYP=0 THEN DO; CPUWAIT111=CPUWAITM; PCTCPB111=PCTCPUBY; CPUSER111=CPUSER; IORATE111=IORATE; PCTTPI111=PCTTPI; IF SMF70V='1.......'B THEN VFON111='Y'; IF NRSAMPLE GT 0 AND VECONSAM GT 0 THEN VFAFFTM111=VECONSAM*DURATM/NRSAMPLE; END; ELSE IF CAI NE '00'X AND SMF70TYP=1 THEN DO; IFAWAIT111=CPUWAITM; PCTIFB111=PCTIFABY; END; ELSE IF CAI NE '00'X AND SMF70TYP=2 THEN DO; ZIPWAIT111=CPUWAITM; PCTZIBY111=PCTZIPBY; END; END; ELSE IF CPUID=112 THEN DO; IFATYP112=SMF70TYP; CAI112=CAI; IF CAI NE '......00'B AND SMF70TYP=0 THEN DO; CPUWAIT112=CPUWAITM; PCTCPB112=PCTCPUBY; CPUSER112=CPUSER; IORATE112=IORATE; PCTTPI112=PCTTPI; IF SMF70V='1.......'B THEN VFON112='Y'; IF NRSAMPLE GT 0 AND VECONSAM GT 0 THEN VFAFFTM112=VECONSAM*DURATM/NRSAMPLE; END; ELSE IF CAI NE '00'X AND SMF70TYP=1 THEN DO; IFAWAIT112=CPUWAITM; PCTIFB112=PCTIFABY; END; ELSE IF CAI NE '00'X AND SMF70TYP=2 THEN DO; ZIPWAIT112=CPUWAITM; PCTZIBY112=PCTZIPBY; END; END; ELSE IF CPUID=113 THEN DO; IFATYP113=SMF70TYP; CAI113=CAI; IF CAI NE '......00'B AND SMF70TYP=0 THEN DO; CPUWAIT113=CPUWAITM; PCTCPB113=PCTCPUBY; CPUSER113=CPUSER; IORATE113=IORATE; PCTTPI113=PCTTPI; IF SMF70V='1.......'B THEN VFON113='Y'; IF NRSAMPLE GT 0 AND VECONSAM GT 0 THEN VFAFFTM113=VECONSAM*DURATM/NRSAMPLE; END; ELSE IF CAI NE '00'X AND SMF70TYP=1 THEN DO; IFAWAIT113=CPUWAITM; PCTIFB113=PCTIFABY; END; ELSE IF CAI NE '00'X AND SMF70TYP=2 THEN DO; ZIPWAIT113=CPUWAITM; PCTZIBY113=PCTZIPBY; END; END; ELSE IF CPUID=114 THEN DO; IFATYP114=SMF70TYP; CAI114=CAI; IF CAI NE '......00'B AND SMF70TYP=0 THEN DO; CPUWAIT114=CPUWAITM; PCTCPB114=PCTCPUBY; CPUSER114=CPUSER; IORATE114=IORATE; PCTTPI114=PCTTPI; IF SMF70V='1.......'B THEN VFON114='Y'; IF NRSAMPLE GT 0 AND VECONSAM GT 0 THEN VFAFFTM114=VECONSAM*DURATM/NRSAMPLE; END; ELSE IF CAI NE '00'X AND SMF70TYP=1 THEN DO; IFAWAIT114=CPUWAITM; PCTIFB114=PCTIFABY; END; ELSE IF CAI NE '00'X AND SMF70TYP=2 THEN DO; ZIPWAIT114=CPUWAITM; PCTZIBY114=PCTZIPBY; END; END; ELSE IF CPUID=115 THEN DO; IFATYP115=SMF70TYP; CAI115=CAI; IF CAI NE '......00'B AND SMF70TYP=0 THEN DO; CPUWAIT115=CPUWAITM; PCTCPB115=PCTCPUBY; CPUSER115=CPUSER; IORATE115=IORATE; PCTTPI115=PCTTPI; IF SMF70V='1.......'B THEN VFON115='Y'; IF NRSAMPLE GT 0 AND VECONSAM GT 0 THEN VFAFFTM115=VECONSAM*DURATM/NRSAMPLE; END; ELSE IF CAI NE '00'X AND SMF70TYP=1 THEN DO; IFAWAIT115=CPUWAITM; PCTIFB115=PCTIFABY; END; ELSE IF CAI NE '00'X AND SMF70TYP=2 THEN DO; ZIPWAIT115=CPUWAITM; PCTZIBY115=PCTZIPBY; END; END; ELSE IF CPUID=116 THEN DO; IFATYP116=SMF70TYP; CAI116=CAI; IF CAI NE '......00'B AND SMF70TYP=0 THEN DO; CPUWAIT116=CPUWAITM; PCTCPB116=PCTCPUBY; CPUSER116=CPUSER; IORATE116=IORATE; PCTTPI116=PCTTPI; IF SMF70V='1.......'B THEN VFON116='Y'; IF NRSAMPLE GT 0 AND VECONSAM GT 0 THEN VFAFFTM116=VECONSAM*DURATM/NRSAMPLE; END; ELSE IF CAI NE '00'X AND SMF70TYP=1 THEN DO; IFAWAIT116=CPUWAITM; PCTIFB116=PCTIFABY; END; ELSE IF CAI NE '00'X AND SMF70TYP=2 THEN DO; ZIPWAIT116=CPUWAITM; PCTZIBY116=PCTZIPBY; END; END; ELSE IF CPUID=117 THEN DO; IFATYP117=SMF70TYP; CAI117=CAI; IF CAI NE '......00'B AND SMF70TYP=0 THEN DO; CPUWAIT117=CPUWAITM; PCTCPB117=PCTCPUBY; CPUSER117=CPUSER; IORATE117=IORATE; PCTTPI117=PCTTPI; IF SMF70V='1.......'B THEN VFON117='Y'; IF NRSAMPLE GT 0 AND VECONSAM GT 0 THEN VFAFFTM117=VECONSAM*DURATM/NRSAMPLE; END; ELSE IF CAI NE '00'X AND SMF70TYP=1 THEN DO; IFAWAIT117=CPUWAITM; PCTIFB117=PCTIFABY; END; ELSE IF CAI NE '00'X AND SMF70TYP=2 THEN DO; ZIPWAIT117=CPUWAITM; PCTZIBY117=PCTZIPBY; END; END; ELSE IF CPUID=118 THEN DO; IFATYP118=SMF70TYP; CAI118=CAI; IF CAI NE '......00'B AND SMF70TYP=0 THEN DO; CPUWAIT118=CPUWAITM; PCTCPB118=PCTCPUBY; CPUSER118=CPUSER; IORATE118=IORATE; PCTTPI118=PCTTPI; IF SMF70V='1.......'B THEN VFON118='Y'; IF NRSAMPLE GT 0 AND VECONSAM GT 0 THEN VFAFFTM118=VECONSAM*DURATM/NRSAMPLE; END; ELSE IF CAI NE '00'X AND SMF70TYP=1 THEN DO; IFAWAIT118=CPUWAITM; PCTIFB118=PCTIFABY; END; ELSE IF CAI NE '00'X AND SMF70TYP=2 THEN DO; ZIPWAIT118=CPUWAITM; PCTZIBY118=PCTZIPBY; END; END; ELSE IF CPUID=119 THEN DO; IFATYP119=SMF70TYP; CAI119=CAI; IF CAI NE '......00'B AND SMF70TYP=0 THEN DO; CPUWAIT119=CPUWAITM; PCTCPB119=PCTCPUBY; CPUSER119=CPUSER; IORATE119=IORATE; PCTTPI119=PCTTPI; IF SMF70V='1.......'B THEN VFON119='Y'; IF NRSAMPLE GT 0 AND VECONSAM GT 0 THEN VFAFFTM119=VECONSAM*DURATM/NRSAMPLE; END; ELSE IF CAI NE '00'X AND SMF70TYP=1 THEN DO; IFAWAIT119=CPUWAITM; PCTIFB119=PCTIFABY; END; ELSE IF CAI NE '00'X AND SMF70TYP=2 THEN DO; ZIPWAIT119=CPUWAITM; PCTZIBY119=PCTZIPBY; END; END; ELSE IF CPUID=120 THEN DO; IFATYP120=SMF70TYP; CAI120=CAI; IF CAI NE '......00'B AND SMF70TYP=0 THEN DO; CPUWAIT120=CPUWAITM; PCTCPB120=PCTCPUBY; CPUSER120=CPUSER; IORATE120=IORATE; PCTTPI120=PCTTPI; IF SMF70V='1.......'B THEN VFON120='Y'; IF NRSAMPLE GT 0 AND VECONSAM GT 0 THEN VFAFFTM120=VECONSAM*DURATM/NRSAMPLE; END; ELSE IF CAI NE '00'X AND SMF70TYP=1 THEN DO; IFAWAIT120=CPUWAITM; PCTIFB120=PCTIFABY; END; ELSE IF CAI NE '00'X AND SMF70TYP=2 THEN DO; ZIPWAIT120=CPUWAITM; PCTZIBY120=PCTZIPBY; END; END; ELSE IF CPUID=121 THEN DO; IFATYP121=SMF70TYP; CAI121=CAI; IF CAI NE '......00'B AND SMF70TYP=0 THEN DO; CPUWAIT121=CPUWAITM; PCTCPB121=PCTCPUBY; CPUSER121=CPUSER; IORATE121=IORATE; PCTTPI121=PCTTPI; IF SMF70V='1.......'B THEN VFON121='Y'; IF NRSAMPLE GT 0 AND VECONSAM GT 0 THEN VFAFFTM121=VECONSAM*DURATM/NRSAMPLE; END; ELSE IF CAI NE '00'X AND SMF70TYP=1 THEN DO; IFAWAIT121=CPUWAITM; PCTIFB121=PCTIFABY; END; ELSE IF CAI NE '00'X AND SMF70TYP=2 THEN DO; ZIPWAIT121=CPUWAITM; PCTZIBY121=PCTZIPBY; END; END; ELSE IF CPUID=122 THEN DO; IFATYP122=SMF70TYP; CAI122=CAI; IF CAI NE '......00'B AND SMF70TYP=0 THEN DO; CPUWAIT122=CPUWAITM; PCTCPB122=PCTCPUBY; CPUSER122=CPUSER; IORATE122=IORATE; PCTTPI122=PCTTPI; IF SMF70V='1.......'B THEN VFON122='Y'; IF NRSAMPLE GT 0 AND VECONSAM GT 0 THEN VFAFFTM122=VECONSAM*DURATM/NRSAMPLE; END; ELSE IF CAI NE '00'X AND SMF70TYP=1 THEN DO; IFAWAIT122=CPUWAITM; PCTIFB122=PCTIFABY; END; ELSE IF CAI NE '00'X AND SMF70TYP=2 THEN DO; ZIPWAIT122=CPUWAITM; PCTZIBY122=PCTZIPBY; END; END; ELSE IF CPUID=123 THEN DO; IFATYP123=SMF70TYP; CAI123=CAI; IF CAI NE '......00'B AND SMF70TYP=0 THEN DO; CPUWAIT123=CPUWAITM; PCTCPB123=PCTCPUBY; CPUSER123=CPUSER; IORATE123=IORATE; PCTTPI123=PCTTPI; IF SMF70V='1.......'B THEN VFON123='Y'; IF NRSAMPLE GT 0 AND VECONSAM GT 0 THEN VFAFFTM123=VECONSAM*DURATM/NRSAMPLE; END; ELSE IF CAI NE '00'X AND SMF70TYP=1 THEN DO; IFAWAIT123=CPUWAITM; PCTIFB123=PCTIFABY; END; ELSE IF CAI NE '00'X AND SMF70TYP=2 THEN DO; ZIPWAIT123=CPUWAITM; PCTZIBY123=PCTZIPBY; END; END; ELSE IF CPUID=124 THEN DO; IFATYP124=SMF70TYP; CAI124=CAI; IF CAI NE '......00'B AND SMF70TYP=0 THEN DO; CPUWAIT124=CPUWAITM; PCTCPB124=PCTCPUBY; CPUSER124=CPUSER; IORATE124=IORATE; PCTTPI124=PCTTPI; IF SMF70V='1.......'B THEN VFON124='Y'; IF NRSAMPLE GT 0 AND VECONSAM GT 0 THEN VFAFFTM124=VECONSAM*DURATM/NRSAMPLE; END; ELSE IF CAI NE '00'X AND SMF70TYP=1 THEN DO; IFAWAIT124=CPUWAITM; PCTIFB124=PCTIFABY; END; ELSE IF CAI NE '00'X AND SMF70TYP=2 THEN DO; ZIPWAIT124=CPUWAITM; PCTZIBY124=PCTZIPBY; END; END; ELSE IF CPUID=125 THEN DO; IFATYP125=SMF70TYP; CAI125=CAI; IF CAI NE '......00'B AND SMF70TYP=0 THEN DO; CPUWAIT125=CPUWAITM; PCTCPB125=PCTCPUBY; CPUSER125=CPUSER; IORATE125=IORATE; PCTTPI125=PCTTPI; IF SMF70V='1.......'B THEN VFON125='Y'; IF NRSAMPLE GT 0 AND VECONSAM GT 0 THEN VFAFFTM125=VECONSAM*DURATM/NRSAMPLE; END; ELSE IF CAI NE '00'X AND SMF70TYP=1 THEN DO; IFAWAIT125=CPUWAITM; PCTIFB125=PCTIFABY; END; ELSE IF CAI NE '00'X AND SMF70TYP=2 THEN DO; ZIPWAIT125=CPUWAITM; PCTZIBY125=PCTZIPBY; END; END; ELSE IF CPUID=126 THEN DO; IFATYP126=SMF70TYP; CAI126=CAI; IF CAI NE '......00'B AND SMF70TYP=0 THEN DO; CPUWAIT126=CPUWAITM; PCTCPB126=PCTCPUBY; CPUSER126=CPUSER; IORATE126=IORATE; PCTTPI126=PCTTPI; IF SMF70V='1.......'B THEN VFON126='Y'; IF NRSAMPLE GT 0 AND VECONSAM GT 0 THEN VFAFFTM126=VECONSAM*DURATM/NRSAMPLE; END; ELSE IF CAI NE '00'X AND SMF70TYP=1 THEN DO; IFAWAIT126=CPUWAITM; PCTIFB126=PCTIFABY; END; ELSE IF CAI NE '00'X AND SMF70TYP=2 THEN DO; ZIPWAIT126=CPUWAITM; PCTZIBY126=PCTZIPBY; END; END; ELSE IF CPUID=127 THEN DO; IFATYP127=SMF70TYP; CAI127=CAI; IF CAI NE '......00'B AND SMF70TYP=0 THEN DO; CPUWAIT127=CPUWAITM; PCTCPB127=PCTCPUBY; CPUSER127=CPUSER; IORATE127=IORATE; PCTTPI127=PCTTPI; IF SMF70V='1.......'B THEN VFON127='Y'; IF NRSAMPLE GT 0 AND VECONSAM GT 0 THEN VFAFFTM127=VECONSAM*DURATM/NRSAMPLE; END; ELSE IF CAI NE '00'X AND SMF70TYP=1 THEN DO; IFAWAIT127=CPUWAITM; PCTIFB127=PCTIFABY; END; ELSE IF CAI NE '00'X AND SMF70TYP=2 THEN DO; ZIPWAIT127=CPUWAITM; PCTZIBY127=PCTZIPBY; END; END; ELSE IF CPUID=128 THEN DO; IFATYP128=SMF70TYP; CAI128=CAI; IF CAI NE '......00'B AND SMF70TYP=0 THEN DO; CPUWAIT128=CPUWAITM; PCTCPB128=PCTCPUBY; CPUSER128=CPUSER; IORATE128=IORATE; PCTTPI128=PCTTPI; IF SMF70V='1.......'B THEN VFON128='Y'; IF NRSAMPLE GT 0 AND VECONSAM GT 0 THEN VFAFFTM128=VECONSAM*DURATM/NRSAMPLE; END; ELSE IF CAI NE '00'X AND SMF70TYP=1 THEN DO; IFAWAIT128=CPUWAITM; PCTIFB128=PCTIFABY; END; ELSE IF CAI NE '00'X AND SMF70TYP=2 THEN DO; ZIPWAIT128=CPUWAITM; PCTZIBY128=PCTZIPBY; END; END; ELSE IF CPUID=129 THEN DO; IFATYP129=SMF70TYP; CAI129=CAI; IF CAI NE '......00'B AND SMF70TYP=0 THEN DO; CPUWAIT129=CPUWAITM; PCTCPB129=PCTCPUBY; CPUSER129=CPUSER; IORATE129=IORATE; PCTTPI129=PCTTPI; IF SMF70V='1.......'B THEN VFON129='Y'; IF NRSAMPLE GT 0 AND VECONSAM GT 0 THEN VFAFFTM129=VECONSAM*DURATM/NRSAMPLE; END; ELSE IF CAI NE '00'X AND SMF70TYP=1 THEN DO; IFAWAIT129=CPUWAITM; PCTIFB129=PCTIFABY; END; ELSE IF CAI NE '00'X AND SMF70TYP=2 THEN DO; ZIPWAIT129=CPUWAITM; PCTZIBY129=PCTZIPBY; END; END; ELSE IF CPUID=130 THEN DO; IFATYP130=SMF70TYP; CAI130=CAI; IF CAI NE '......00'B AND SMF70TYP=0 THEN DO; CPUWAIT130=CPUWAITM; PCTCPB130=PCTCPUBY; CPUSER130=CPUSER; IORATE130=IORATE; PCTTPI130=PCTTPI; IF SMF70V='1.......'B THEN VFON130='Y'; IF NRSAMPLE GT 0 AND VECONSAM GT 0 THEN VFAFFTM130=VECONSAM*DURATM/NRSAMPLE; END; ELSE IF CAI NE '00'X AND SMF70TYP=1 THEN DO; IFAWAIT130=CPUWAITM; PCTIFB130=PCTIFABY; END; ELSE IF CAI NE '00'X AND SMF70TYP=2 THEN DO; ZIPWAIT130=CPUWAITM; PCTZIBY130=PCTZIPBY; END; END; ELSE IF CPUID=131 THEN DO; IFATYP131=SMF70TYP; CAI131=CAI; IF CAI NE '......00'B AND SMF70TYP=0 THEN DO; CPUWAIT131=CPUWAITM; PCTCPB131=PCTCPUBY; CPUSER131=CPUSER; IORATE131=IORATE; PCTTPI131=PCTTPI; IF SMF70V='1.......'B THEN VFON131='Y'; IF NRSAMPLE GT 0 AND VECONSAM GT 0 THEN VFAFFTM131=VECONSAM*DURATM/NRSAMPLE; END; ELSE IF CAI NE '00'X AND SMF70TYP=1 THEN DO; IFAWAIT131=CPUWAITM; PCTIFB131=PCTIFABY; END; ELSE IF CAI NE '00'X AND SMF70TYP=2 THEN DO; ZIPWAIT131=CPUWAITM; PCTZIBY131=PCTZIPBY; END; END; ELSE IF CPUID=132 THEN DO; IFATYP132=SMF70TYP; CAI132=CAI; IF CAI NE '......00'B AND SMF70TYP=0 THEN DO; CPUWAIT132=CPUWAITM; PCTCPB132=PCTCPUBY; CPUSER132=CPUSER; IORATE132=IORATE; PCTTPI132=PCTTPI; IF SMF70V='1.......'B THEN VFON132='Y'; IF NRSAMPLE GT 0 AND VECONSAM GT 0 THEN VFAFFTM132=VECONSAM*DURATM/NRSAMPLE; END; ELSE IF CAI NE '00'X AND SMF70TYP=1 THEN DO; IFAWAIT132=CPUWAITM; PCTIFB132=PCTIFABY; END; ELSE IF CAI NE '00'X AND SMF70TYP=2 THEN DO; ZIPWAIT132=CPUWAITM; PCTZIBY132=PCTZIPBY; END; END; ELSE IF CPUID=133 THEN DO; IFATYP133=SMF70TYP; CAI133=CAI; IF CAI NE '......00'B AND SMF70TYP=0 THEN DO; CPUWAIT133=CPUWAITM; PCTCPB133=PCTCPUBY; CPUSER133=CPUSER; IORATE133=IORATE; PCTTPI133=PCTTPI; IF SMF70V='1.......'B THEN VFON133='Y'; IF NRSAMPLE GT 0 AND VECONSAM GT 0 THEN VFAFFTM133=VECONSAM*DURATM/NRSAMPLE; END; ELSE IF CAI NE '00'X AND SMF70TYP=1 THEN DO; IFAWAIT133=CPUWAITM; PCTIFB133=PCTIFABY; END; ELSE IF CAI NE '00'X AND SMF70TYP=2 THEN DO; ZIPWAIT133=CPUWAITM; PCTZIBY133=PCTZIPBY; END; END; ELSE IF CPUID=134 THEN DO; IFATYP134=SMF70TYP; CAI134=CAI; IF CAI NE '......00'B AND SMF70TYP=0 THEN DO; CPUWAIT134=CPUWAITM; PCTCPB134=PCTCPUBY; CPUSER134=CPUSER; IORATE134=IORATE; PCTTPI134=PCTTPI; IF SMF70V='1.......'B THEN VFON134='Y'; IF NRSAMPLE GT 0 AND VECONSAM GT 0 THEN VFAFFTM134=VECONSAM*DURATM/NRSAMPLE; END; ELSE IF CAI NE '00'X AND SMF70TYP=1 THEN DO; IFAWAIT134=CPUWAITM; PCTIFB134=PCTIFABY; END; ELSE IF CAI NE '00'X AND SMF70TYP=2 THEN DO; ZIPWAIT134=CPUWAITM; PCTZIBY134=PCTZIPBY; END; END; ELSE IF CPUID=135 THEN DO; IFATYP135=SMF70TYP; CAI135=CAI; IF CAI NE '......00'B AND SMF70TYP=0 THEN DO; CPUWAIT135=CPUWAITM; PCTCPB135=PCTCPUBY; CPUSER135=CPUSER; IORATE135=IORATE; PCTTPI135=PCTTPI; IF SMF70V='1.......'B THEN VFON135='Y'; IF NRSAMPLE GT 0 AND VECONSAM GT 0 THEN VFAFFTM135=VECONSAM*DURATM/NRSAMPLE; END; ELSE IF CAI NE '00'X AND SMF70TYP=1 THEN DO; IFAWAIT135=CPUWAITM; PCTIFB135=PCTIFABY; END; ELSE IF CAI NE '00'X AND SMF70TYP=2 THEN DO; ZIPWAIT135=CPUWAITM; PCTZIBY135=PCTZIPBY; END; END; ELSE IF CPUID=136 THEN DO; IFATYP136=SMF70TYP; CAI136=CAI; IF CAI NE '......00'B AND SMF70TYP=0 THEN DO; CPUWAIT136=CPUWAITM; PCTCPB136=PCTCPUBY; CPUSER136=CPUSER; IORATE136=IORATE; PCTTPI136=PCTTPI; IF SMF70V='1.......'B THEN VFON136='Y'; IF NRSAMPLE GT 0 AND VECONSAM GT 0 THEN VFAFFTM136=VECONSAM*DURATM/NRSAMPLE; END; ELSE IF CAI NE '00'X AND SMF70TYP=1 THEN DO; IFAWAIT136=CPUWAITM; PCTIFB136=PCTIFABY; END; ELSE IF CAI NE '00'X AND SMF70TYP=2 THEN DO; ZIPWAIT136=CPUWAITM; PCTZIBY136=PCTZIPBY; END; END; ELSE IF CPUID=137 THEN DO; IFATYP137=SMF70TYP; CAI137=CAI; IF CAI NE '......00'B AND SMF70TYP=0 THEN DO; CPUWAIT137=CPUWAITM; PCTCPB137=PCTCPUBY; CPUSER137=CPUSER; IORATE137=IORATE; PCTTPI137=PCTTPI; IF SMF70V='1.......'B THEN VFON137='Y'; IF NRSAMPLE GT 0 AND VECONSAM GT 0 THEN VFAFFTM137=VECONSAM*DURATM/NRSAMPLE; END; ELSE IF CAI NE '00'X AND SMF70TYP=1 THEN DO; IFAWAIT137=CPUWAITM; PCTIFB137=PCTIFABY; END; ELSE IF CAI NE '00'X AND SMF70TYP=2 THEN DO; ZIPWAIT137=CPUWAITM; PCTZIBY137=PCTZIPBY; END; END; ELSE IF CPUID=138 THEN DO; IFATYP138=SMF70TYP; CAI138=CAI; IF CAI NE '......00'B AND SMF70TYP=0 THEN DO; CPUWAIT138=CPUWAITM; PCTCPB138=PCTCPUBY; CPUSER138=CPUSER; IORATE138=IORATE; PCTTPI138=PCTTPI; IF SMF70V='1.......'B THEN VFON138='Y'; IF NRSAMPLE GT 0 AND VECONSAM GT 0 THEN VFAFFTM138=VECONSAM*DURATM/NRSAMPLE; END; ELSE IF CAI NE '00'X AND SMF70TYP=1 THEN DO; IFAWAIT138=CPUWAITM; PCTIFB138=PCTIFABY; END; ELSE IF CAI NE '00'X AND SMF70TYP=2 THEN DO; ZIPWAIT138=CPUWAITM; PCTZIBY138=PCTZIPBY; END; END; ELSE IF CPUID=139 THEN DO; IFATYP139=SMF70TYP; CAI139=CAI; IF CAI NE '......00'B AND SMF70TYP=0 THEN DO; CPUWAIT139=CPUWAITM; PCTCPB139=PCTCPUBY; CPUSER139=CPUSER; IORATE139=IORATE; PCTTPI139=PCTTPI; IF SMF70V='1.......'B THEN VFON139='Y'; IF NRSAMPLE GT 0 AND VECONSAM GT 0 THEN VFAFFTM139=VECONSAM*DURATM/NRSAMPLE; END; ELSE IF CAI NE '00'X AND SMF70TYP=1 THEN DO; IFAWAIT139=CPUWAITM; PCTIFB139=PCTIFABY; END; ELSE IF CAI NE '00'X AND SMF70TYP=2 THEN DO; ZIPWAIT139=CPUWAITM; PCTZIBY139=PCTZIPBY; END; END; ELSE IF CPUID=140 THEN DO; IFATYP140=SMF70TYP; CAI140=CAI; IF CAI NE '......00'B AND SMF70TYP=0 THEN DO; CPUWAIT140=CPUWAITM; PCTCPB140=PCTCPUBY; CPUSER140=CPUSER; IORATE140=IORATE; PCTTPI140=PCTTPI; IF SMF70V='1.......'B THEN VFON140='Y'; IF NRSAMPLE GT 0 AND VECONSAM GT 0 THEN VFAFFTM140=VECONSAM*DURATM/NRSAMPLE; END; ELSE IF CAI NE '00'X AND SMF70TYP=1 THEN DO; IFAWAIT140=CPUWAITM; PCTIFB140=PCTIFABY; END; ELSE IF CAI NE '00'X AND SMF70TYP=2 THEN DO; ZIPWAIT140=CPUWAITM; PCTZIBY140=PCTZIPBY; END; END; ELSE IF CPUID=141 THEN DO; IFATYP141=SMF70TYP; CAI141=CAI; IF CAI NE '......00'B AND SMF70TYP=0 THEN DO; CPUWAIT141=CPUWAITM; PCTCPB141=PCTCPUBY; CPUSER141=CPUSER; IORATE141=IORATE; PCTTPI141=PCTTPI; IF SMF70V='1.......'B THEN VFON141='Y'; IF NRSAMPLE GT 0 AND VECONSAM GT 0 THEN VFAFFTM141=VECONSAM*DURATM/NRSAMPLE; END; ELSE IF CAI NE '00'X AND SMF70TYP=1 THEN DO; IFAWAIT141=CPUWAITM; PCTIFB141=PCTIFABY; END; ELSE IF CAI NE '00'X AND SMF70TYP=2 THEN DO; ZIPWAIT141=CPUWAITM; PCTZIBY141=PCTZIPBY; END; END; ELSE IF CPUID=142 THEN DO; IFATYP142=SMF70TYP; CAI142=CAI; IF CAI NE '......00'B AND SMF70TYP=0 THEN DO; CPUWAIT142=CPUWAITM; PCTCPB142=PCTCPUBY; CPUSER142=CPUSER; IORATE142=IORATE; PCTTPI142=PCTTPI; IF SMF70V='1.......'B THEN VFON142='Y'; IF NRSAMPLE GT 0 AND VECONSAM GT 0 THEN VFAFFTM142=VECONSAM*DURATM/NRSAMPLE; END; ELSE IF CAI NE '00'X AND SMF70TYP=1 THEN DO; IFAWAIT142=CPUWAITM; PCTIFB142=PCTIFABY; END; ELSE IF CAI NE '00'X AND SMF70TYP=2 THEN DO; ZIPWAIT142=CPUWAITM; PCTZIBY142=PCTZIPBY; END; END; ELSE IF CPUID=143 THEN DO; IFATYP143=SMF70TYP; CAI143=CAI; IF CAI NE '......00'B AND SMF70TYP=0 THEN DO; CPUWAIT143=CPUWAITM; PCTCPB143=PCTCPUBY; CPUSER143=CPUSER; IORATE143=IORATE; PCTTPI143=PCTTPI; IF SMF70V='1.......'B THEN VFON143='Y'; IF NRSAMPLE GT 0 AND VECONSAM GT 0 THEN VFAFFTM143=VECONSAM*DURATM/NRSAMPLE; END; ELSE IF CAI NE '00'X AND SMF70TYP=1 THEN DO; IFAWAIT143=CPUWAITM; PCTIFB143=PCTIFABY; END; ELSE IF CAI NE '00'X AND SMF70TYP=2 THEN DO; ZIPWAIT143=CPUWAITM; PCTZIBY143=PCTZIPBY; END; END; ELSE IF CPUID=144 THEN DO; IFATYP144=SMF70TYP; CAI144=CAI; IF CAI NE '......00'B AND SMF70TYP=0 THEN DO; CPUWAIT144=CPUWAITM; PCTCPB144=PCTCPUBY; CPUSER144=CPUSER; IORATE144=IORATE; PCTTPI144=PCTTPI; IF SMF70V='1.......'B THEN VFON144='Y'; IF NRSAMPLE GT 0 AND VECONSAM GT 0 THEN VFAFFTM144=VECONSAM*DURATM/NRSAMPLE; END; ELSE IF CAI NE '00'X AND SMF70TYP=1 THEN DO; IFAWAIT144=CPUWAITM; PCTIFB144=PCTIFABY; END; ELSE IF CAI NE '00'X AND SMF70TYP=2 THEN DO; ZIPWAIT144=CPUWAITM; PCTZIBY144=PCTZIPBY; END; END; ELSE IF CPUID=145 THEN DO; IFATYP145=SMF70TYP; CAI145=CAI; IF CAI NE '......00'B AND SMF70TYP=0 THEN DO; CPUWAIT145=CPUWAITM; PCTCPB145=PCTCPUBY; CPUSER145=CPUSER; IORATE145=IORATE; PCTTPI145=PCTTPI; IF SMF70V='1.......'B THEN VFON145='Y'; IF NRSAMPLE GT 0 AND VECONSAM GT 0 THEN VFAFFTM145=VECONSAM*DURATM/NRSAMPLE; END; ELSE IF CAI NE '00'X AND SMF70TYP=1 THEN DO; IFAWAIT145=CPUWAITM; PCTIFB145=PCTIFABY; END; ELSE IF CAI NE '00'X AND SMF70TYP=2 THEN DO; ZIPWAIT145=CPUWAITM; PCTZIBY145=PCTZIPBY; END; END; ELSE IF CPUID=146 THEN DO; IFATYP146=SMF70TYP; CAI146=CAI; IF CAI NE '......00'B AND SMF70TYP=0 THEN DO; CPUWAIT146=CPUWAITM; PCTCPB146=PCTCPUBY; CPUSER146=CPUSER; IORATE146=IORATE; PCTTPI146=PCTTPI; IF SMF70V='1.......'B THEN VFON146='Y'; IF NRSAMPLE GT 0 AND VECONSAM GT 0 THEN VFAFFTM146=VECONSAM*DURATM/NRSAMPLE; END; ELSE IF CAI NE '00'X AND SMF70TYP=1 THEN DO; IFAWAIT146=CPUWAITM; PCTIFB146=PCTIFABY; END; ELSE IF CAI NE '00'X AND SMF70TYP=2 THEN DO; ZIPWAIT146=CPUWAITM; PCTZIBY146=PCTZIPBY; END; END; ELSE IF CPUID=147 THEN DO; IFATYP147=SMF70TYP; CAI147=CAI; IF CAI NE '......00'B AND SMF70TYP=0 THEN DO; CPUWAIT147=CPUWAITM; PCTCPB147=PCTCPUBY; CPUSER147=CPUSER; IORATE147=IORATE; PCTTPI147=PCTTPI; IF SMF70V='1.......'B THEN VFON147='Y'; IF NRSAMPLE GT 0 AND VECONSAM GT 0 THEN VFAFFTM147=VECONSAM*DURATM/NRSAMPLE; END; ELSE IF CAI NE '00'X AND SMF70TYP=1 THEN DO; IFAWAIT147=CPUWAITM; PCTIFB147=PCTIFABY; END; ELSE IF CAI NE '00'X AND SMF70TYP=2 THEN DO; ZIPWAIT147=CPUWAITM; PCTZIBY147=PCTZIPBY; END; END; ELSE IF CPUID=148 THEN DO; IFATYP148=SMF70TYP; CAI148=CAI; IF CAI NE '......00'B AND SMF70TYP=0 THEN DO; CPUWAIT148=CPUWAITM; PCTCPB148=PCTCPUBY; CPUSER148=CPUSER; IORATE148=IORATE; PCTTPI148=PCTTPI; IF SMF70V='1.......'B THEN VFON148='Y'; IF NRSAMPLE GT 0 AND VECONSAM GT 0 THEN VFAFFTM148=VECONSAM*DURATM/NRSAMPLE; END; ELSE IF CAI NE '00'X AND SMF70TYP=1 THEN DO; IFAWAIT148=CPUWAITM; PCTIFB148=PCTIFABY; END; ELSE IF CAI NE '00'X AND SMF70TYP=2 THEN DO; ZIPWAIT148=CPUWAITM; PCTZIBY148=PCTZIPBY; END; END; ELSE IF CPUID=149 THEN DO; IFATYP149=SMF70TYP; CAI149=CAI; IF CAI NE '......00'B AND SMF70TYP=0 THEN DO; CPUWAIT149=CPUWAITM; PCTCPB149=PCTCPUBY; CPUSER149=CPUSER; IORATE149=IORATE; PCTTPI149=PCTTPI; IF SMF70V='1.......'B THEN VFON149='Y'; IF NRSAMPLE GT 0 AND VECONSAM GT 0 THEN VFAFFTM149=VECONSAM*DURATM/NRSAMPLE; END; ELSE IF CAI NE '00'X AND SMF70TYP=1 THEN DO; IFAWAIT149=CPUWAITM; PCTIFB149=PCTIFABY; END; ELSE IF CAI NE '00'X AND SMF70TYP=2 THEN DO; ZIPWAIT149=CPUWAITM; PCTZIBY149=PCTZIPBY; END; END; ELSE IF CPUID=150 THEN DO; IFATYP150=SMF70TYP; CAI150=CAI; IF CAI NE '......00'B AND SMF70TYP=0 THEN DO; CPUWAIT150=CPUWAITM; PCTCPB150=PCTCPUBY; CPUSER150=CPUSER; IORATE150=IORATE; PCTTPI150=PCTTPI; IF SMF70V='1.......'B THEN VFON150='Y'; IF NRSAMPLE GT 0 AND VECONSAM GT 0 THEN VFAFFTM150=VECONSAM*DURATM/NRSAMPLE; END; ELSE IF CAI NE '00'X AND SMF70TYP=1 THEN DO; IFAWAIT150=CPUWAITM; PCTIFB150=PCTIFABY; END; ELSE IF CAI NE '00'X AND SMF70TYP=2 THEN DO; ZIPWAIT150=CPUWAITM; PCTZIBY150=PCTZIPBY; END; END; ELSE IF CPUID=151 THEN DO; IFATYP151=SMF70TYP; CAI151=CAI; IF CAI NE '......00'B AND SMF70TYP=0 THEN DO; CPUWAIT151=CPUWAITM; PCTCPB151=PCTCPUBY; CPUSER151=CPUSER; IORATE151=IORATE; PCTTPI151=PCTTPI; IF SMF70V='1.......'B THEN VFON151='Y'; IF NRSAMPLE GT 0 AND VECONSAM GT 0 THEN VFAFFTM151=VECONSAM*DURATM/NRSAMPLE; END; ELSE IF CAI NE '00'X AND SMF70TYP=1 THEN DO; IFAWAIT151=CPUWAITM; PCTIFB151=PCTIFABY; END; ELSE IF CAI NE '00'X AND SMF70TYP=2 THEN DO; ZIPWAIT151=CPUWAITM; PCTZIBY151=PCTZIPBY; END; END; ELSE IF CPUID=152 THEN DO; IFATYP152=SMF70TYP; CAI152=CAI; IF CAI NE '......00'B AND SMF70TYP=0 THEN DO; CPUWAIT152=CPUWAITM; PCTCPB152=PCTCPUBY; CPUSER152=CPUSER; IORATE152=IORATE; PCTTPI152=PCTTPI; IF SMF70V='1.......'B THEN VFON152='Y'; IF NRSAMPLE GT 0 AND VECONSAM GT 0 THEN VFAFFTM152=VECONSAM*DURATM/NRSAMPLE; END; ELSE IF CAI NE '00'X AND SMF70TYP=1 THEN DO; IFAWAIT152=CPUWAITM; PCTIFB152=PCTIFABY; END; ELSE IF CAI NE '00'X AND SMF70TYP=2 THEN DO; ZIPWAIT152=CPUWAITM; PCTZIBY152=PCTZIPBY; END; END; ELSE IF CPUID=153 THEN DO; IFATYP153=SMF70TYP; CAI153=CAI; IF CAI NE '......00'B AND SMF70TYP=0 THEN DO; CPUWAIT153=CPUWAITM; PCTCPB153=PCTCPUBY; CPUSER153=CPUSER; IORATE153=IORATE; PCTTPI153=PCTTPI; IF SMF70V='1.......'B THEN VFON153='Y'; IF NRSAMPLE GT 0 AND VECONSAM GT 0 THEN VFAFFTM153=VECONSAM*DURATM/NRSAMPLE; END; ELSE IF CAI NE '00'X AND SMF70TYP=1 THEN DO; IFAWAIT153=CPUWAITM; PCTIFB153=PCTIFABY; END; ELSE IF CAI NE '00'X AND SMF70TYP=2 THEN DO; ZIPWAIT153=CPUWAITM; PCTZIBY153=PCTZIPBY; END; END; ELSE IF CPUID=154 THEN DO; IFATYP154=SMF70TYP; CAI154=CAI; IF CAI NE '......00'B AND SMF70TYP=0 THEN DO; CPUWAIT154=CPUWAITM; PCTCPB154=PCTCPUBY; CPUSER154=CPUSER; IORATE154=IORATE; PCTTPI154=PCTTPI; IF SMF70V='1.......'B THEN VFON154='Y'; IF NRSAMPLE GT 0 AND VECONSAM GT 0 THEN VFAFFTM154=VECONSAM*DURATM/NRSAMPLE; END; ELSE IF CAI NE '00'X AND SMF70TYP=1 THEN DO; IFAWAIT154=CPUWAITM; PCTIFB154=PCTIFABY; END; ELSE IF CAI NE '00'X AND SMF70TYP=2 THEN DO; ZIPWAIT154=CPUWAITM; PCTZIBY154=PCTZIPBY; END; END; ELSE IF CPUID=155 THEN DO; IFATYP155=SMF70TYP; CAI155=CAI; IF CAI NE '......00'B AND SMF70TYP=0 THEN DO; CPUWAIT155=CPUWAITM; PCTCPB155=PCTCPUBY; CPUSER155=CPUSER; IORATE155=IORATE; PCTTPI155=PCTTPI; IF SMF70V='1.......'B THEN VFON155='Y'; IF NRSAMPLE GT 0 AND VECONSAM GT 0 THEN VFAFFTM155=VECONSAM*DURATM/NRSAMPLE; END; ELSE IF CAI NE '00'X AND SMF70TYP=1 THEN DO; IFAWAIT155=CPUWAITM; PCTIFB155=PCTIFABY; END; ELSE IF CAI NE '00'X AND SMF70TYP=2 THEN DO; ZIPWAIT155=CPUWAITM; PCTZIBY155=PCTZIPBY; END; END; ELSE IF CPUID=156 THEN DO; IFATYP156=SMF70TYP; CAI156=CAI; IF CAI NE '......00'B AND SMF70TYP=0 THEN DO; CPUWAIT156=CPUWAITM; PCTCPB156=PCTCPUBY; CPUSER156=CPUSER; IORATE156=IORATE; PCTTPI156=PCTTPI; IF SMF70V='1.......'B THEN VFON156='Y'; IF NRSAMPLE GT 0 AND VECONSAM GT 0 THEN VFAFFTM156=VECONSAM*DURATM/NRSAMPLE; END; ELSE IF CAI NE '00'X AND SMF70TYP=1 THEN DO; IFAWAIT156=CPUWAITM; PCTIFB156=PCTIFABY; END; ELSE IF CAI NE '00'X AND SMF70TYP=2 THEN DO; ZIPWAIT156=CPUWAITM; PCTZIBY156=PCTZIPBY; END; END; ELSE IF CPUID=157 THEN DO; IFATYP157=SMF70TYP; CAI157=CAI; IF CAI NE '......00'B AND SMF70TYP=0 THEN DO; CPUWAIT157=CPUWAITM; PCTCPB157=PCTCPUBY; CPUSER157=CPUSER; IORATE157=IORATE; PCTTPI157=PCTTPI; IF SMF70V='1.......'B THEN VFON157='Y'; IF NRSAMPLE GT 0 AND VECONSAM GT 0 THEN VFAFFTM157=VECONSAM*DURATM/NRSAMPLE; END; ELSE IF CAI NE '00'X AND SMF70TYP=1 THEN DO; IFAWAIT157=CPUWAITM; PCTIFB157=PCTIFABY; END; ELSE IF CAI NE '00'X AND SMF70TYP=2 THEN DO; ZIPWAIT157=CPUWAITM; PCTZIBY157=PCTZIPBY; END; END; ELSE IF CPUID=158 THEN DO; IFATYP158=SMF70TYP; CAI158=CAI; IF CAI NE '......00'B AND SMF70TYP=0 THEN DO; CPUWAIT158=CPUWAITM; PCTCPB158=PCTCPUBY; CPUSER158=CPUSER; IORATE158=IORATE; PCTTPI158=PCTTPI; IF SMF70V='1.......'B THEN VFON158='Y'; IF NRSAMPLE GT 0 AND VECONSAM GT 0 THEN VFAFFTM158=VECONSAM*DURATM/NRSAMPLE; END; ELSE IF CAI NE '00'X AND SMF70TYP=1 THEN DO; IFAWAIT158=CPUWAITM; PCTIFB158=PCTIFABY; END; ELSE IF CAI NE '00'X AND SMF70TYP=2 THEN DO; ZIPWAIT158=CPUWAITM; PCTZIBY158=PCTZIPBY; END; END; ELSE IF CPUID=159 THEN DO; IFATYP159=SMF70TYP; CAI159=CAI; IF CAI NE '......00'B AND SMF70TYP=0 THEN DO; CPUWAIT159=CPUWAITM; PCTCPB159=PCTCPUBY; CPUSER159=CPUSER; IORATE159=IORATE; PCTTPI159=PCTTPI; IF SMF70V='1.......'B THEN VFON159='Y'; IF NRSAMPLE GT 0 AND VECONSAM GT 0 THEN VFAFFTM159=VECONSAM*DURATM/NRSAMPLE; END; ELSE IF CAI NE '00'X AND SMF70TYP=1 THEN DO; IFAWAIT159=CPUWAITM; PCTIFB159=PCTIFABY; END; ELSE IF CAI NE '00'X AND SMF70TYP=2 THEN DO; ZIPWAIT159=CPUWAITM; PCTZIBY159=PCTZIPBY; END; END; ELSE IF CPUID=160 THEN DO; IFATYP160=SMF70TYP; CAI160=CAI; IF CAI NE '......00'B AND SMF70TYP=0 THEN DO; CPUWAIT160=CPUWAITM; PCTCPB160=PCTCPUBY; CPUSER160=CPUSER; IORATE160=IORATE; PCTTPI160=PCTTPI; IF SMF70V='1.......'B THEN VFON160='Y'; IF NRSAMPLE GT 0 AND VECONSAM GT 0 THEN VFAFFTM160=VECONSAM*DURATM/NRSAMPLE; END; ELSE IF CAI NE '00'X AND SMF70TYP=1 THEN DO; IFAWAIT160=CPUWAITM; PCTIFB160=PCTIFABY; END; ELSE IF CAI NE '00'X AND SMF70TYP=2 THEN DO; ZIPWAIT160=CPUWAITM; PCTZIBY160=PCTZIPBY; END; END; ELSE IF CPUID=161 THEN DO; IFATYP161=SMF70TYP; CAI161=CAI; IF CAI NE '......00'B AND SMF70TYP=0 THEN DO; CPUWAIT161=CPUWAITM; PCTCPB161=PCTCPUBY; CPUSER161=CPUSER; IORATE161=IORATE; PCTTPI161=PCTTPI; IF SMF70V='1.......'B THEN VFON161='Y'; IF NRSAMPLE GT 0 AND VECONSAM GT 0 THEN VFAFFTM161=VECONSAM*DURATM/NRSAMPLE; END; ELSE IF CAI NE '00'X AND SMF70TYP=1 THEN DO; IFAWAIT161=CPUWAITM; PCTIFB161=PCTIFABY; END; ELSE IF CAI NE '00'X AND SMF70TYP=2 THEN DO; ZIPWAIT161=CPUWAITM; PCTZIBY161=PCTZIPBY; END; END; ELSE IF CPUID=162 THEN DO; IFATYP162=SMF70TYP; CAI162=CAI; IF CAI NE '......00'B AND SMF70TYP=0 THEN DO; CPUWAIT162=CPUWAITM; PCTCPB162=PCTCPUBY; CPUSER162=CPUSER; IORATE162=IORATE; PCTTPI162=PCTTPI; IF SMF70V='1.......'B THEN VFON162='Y'; IF NRSAMPLE GT 0 AND VECONSAM GT 0 THEN VFAFFTM162=VECONSAM*DURATM/NRSAMPLE; END; ELSE IF CAI NE '00'X AND SMF70TYP=1 THEN DO; IFAWAIT162=CPUWAITM; PCTIFB162=PCTIFABY; END; ELSE IF CAI NE '00'X AND SMF70TYP=2 THEN DO; ZIPWAIT162=CPUWAITM; PCTZIBY162=PCTZIPBY; END; END; ELSE IF CPUID=163 THEN DO; IFATYP163=SMF70TYP; CAI163=CAI; IF CAI NE '......00'B AND SMF70TYP=0 THEN DO; CPUWAIT163=CPUWAITM; PCTCPB163=PCTCPUBY; CPUSER163=CPUSER; IORATE163=IORATE; PCTTPI163=PCTTPI; IF SMF70V='1.......'B THEN VFON163='Y'; IF NRSAMPLE GT 0 AND VECONSAM GT 0 THEN VFAFFTM163=VECONSAM*DURATM/NRSAMPLE; END; ELSE IF CAI NE '00'X AND SMF70TYP=1 THEN DO; IFAWAIT163=CPUWAITM; PCTIFB163=PCTIFABY; END; ELSE IF CAI NE '00'X AND SMF70TYP=2 THEN DO; ZIPWAIT163=CPUWAITM; PCTZIBY163=PCTZIPBY; END; END; ELSE IF CPUID=164 THEN DO; IFATYP164=SMF70TYP; CAI164=CAI; IF CAI NE '......00'B AND SMF70TYP=0 THEN DO; CPUWAIT164=CPUWAITM; PCTCPB164=PCTCPUBY; CPUSER164=CPUSER; IORATE164=IORATE; PCTTPI164=PCTTPI; IF SMF70V='1.......'B THEN VFON164='Y'; IF NRSAMPLE GT 0 AND VECONSAM GT 0 THEN VFAFFTM164=VECONSAM*DURATM/NRSAMPLE; END; ELSE IF CAI NE '00'X AND SMF70TYP=1 THEN DO; IFAWAIT164=CPUWAITM; PCTIFB164=PCTIFABY; END; ELSE IF CAI NE '00'X AND SMF70TYP=2 THEN DO; ZIPWAIT164=CPUWAITM; PCTZIBY164=PCTZIPBY; END; END; ELSE IF CPUID=165 THEN DO; IFATYP165=SMF70TYP; CAI165=CAI; IF CAI NE '......00'B AND SMF70TYP=0 THEN DO; CPUWAIT165=CPUWAITM; PCTCPB165=PCTCPUBY; CPUSER165=CPUSER; IORATE165=IORATE; PCTTPI165=PCTTPI; IF SMF70V='1.......'B THEN VFON165='Y'; IF NRSAMPLE GT 0 AND VECONSAM GT 0 THEN VFAFFTM165=VECONSAM*DURATM/NRSAMPLE; END; ELSE IF CAI NE '00'X AND SMF70TYP=1 THEN DO; IFAWAIT165=CPUWAITM; PCTIFB165=PCTIFABY; END; ELSE IF CAI NE '00'X AND SMF70TYP=2 THEN DO; ZIPWAIT165=CPUWAITM; PCTZIBY165=PCTZIPBY; END; END; ELSE IF CPUID=166 THEN DO; IFATYP166=SMF70TYP; CAI166=CAI; IF CAI NE '......00'B AND SMF70TYP=0 THEN DO; CPUWAIT166=CPUWAITM; PCTCPB166=PCTCPUBY; CPUSER166=CPUSER; IORATE166=IORATE; PCTTPI166=PCTTPI; IF SMF70V='1.......'B THEN VFON166='Y'; IF NRSAMPLE GT 0 AND VECONSAM GT 0 THEN VFAFFTM166=VECONSAM*DURATM/NRSAMPLE; END; ELSE IF CAI NE '00'X AND SMF70TYP=1 THEN DO; IFAWAIT166=CPUWAITM; PCTIFB166=PCTIFABY; END; ELSE IF CAI NE '00'X AND SMF70TYP=2 THEN DO; ZIPWAIT166=CPUWAITM; PCTZIBY166=PCTZIPBY; END; END; ELSE IF CPUID=167 THEN DO; IFATYP167=SMF70TYP; CAI167=CAI; IF CAI NE '......00'B AND SMF70TYP=0 THEN DO; CPUWAIT167=CPUWAITM; PCTCPB167=PCTCPUBY; CPUSER167=CPUSER; IORATE167=IORATE; PCTTPI167=PCTTPI; IF SMF70V='1.......'B THEN VFON167='Y'; IF NRSAMPLE GT 0 AND VECONSAM GT 0 THEN VFAFFTM167=VECONSAM*DURATM/NRSAMPLE; END; ELSE IF CAI NE '00'X AND SMF70TYP=1 THEN DO; IFAWAIT167=CPUWAITM; PCTIFB167=PCTIFABY; END; ELSE IF CAI NE '00'X AND SMF70TYP=2 THEN DO; ZIPWAIT167=CPUWAITM; PCTZIBY167=PCTZIPBY; END; END; ELSE IF CPUID=168 THEN DO; IFATYP168=SMF70TYP; CAI168=CAI; IF CAI NE '......00'B AND SMF70TYP=0 THEN DO; CPUWAIT168=CPUWAITM; PCTCPB168=PCTCPUBY; CPUSER168=CPUSER; IORATE168=IORATE; PCTTPI168=PCTTPI; IF SMF70V='1.......'B THEN VFON168='Y'; IF NRSAMPLE GT 0 AND VECONSAM GT 0 THEN VFAFFTM168=VECONSAM*DURATM/NRSAMPLE; END; ELSE IF CAI NE '00'X AND SMF70TYP=1 THEN DO; IFAWAIT168=CPUWAITM; PCTIFB168=PCTIFABY; END; ELSE IF CAI NE '00'X AND SMF70TYP=2 THEN DO; ZIPWAIT168=CPUWAITM; PCTZIBY168=PCTZIPBY; END; END; ELSE IF CPUID=169 THEN DO; IFATYP169=SMF70TYP; CAI169=CAI; IF CAI NE '......00'B AND SMF70TYP=0 THEN DO; CPUWAIT169=CPUWAITM; PCTCPB169=PCTCPUBY; CPUSER169=CPUSER; IORATE169=IORATE; PCTTPI169=PCTTPI; IF SMF70V='1.......'B THEN VFON169='Y'; IF NRSAMPLE GT 0 AND VECONSAM GT 0 THEN VFAFFTM169=VECONSAM*DURATM/NRSAMPLE; END; ELSE IF CAI NE '00'X AND SMF70TYP=1 THEN DO; IFAWAIT169=CPUWAITM; PCTIFB169=PCTIFABY; END; ELSE IF CAI NE '00'X AND SMF70TYP=2 THEN DO; ZIPWAIT169=CPUWAITM; PCTZIBY169=PCTZIPBY; END; END; ELSE IF CPUID=170 THEN DO; IFATYP170=SMF70TYP; CAI170=CAI; IF CAI NE '......00'B AND SMF70TYP=0 THEN DO; CPUWAIT170=CPUWAITM; PCTCPB170=PCTCPUBY; CPUSER170=CPUSER; IORATE170=IORATE; PCTTPI170=PCTTPI; IF SMF70V='1.......'B THEN VFON170='Y'; IF NRSAMPLE GT 0 AND VECONSAM GT 0 THEN VFAFFTM170=VECONSAM*DURATM/NRSAMPLE; END; ELSE IF CAI NE '00'X AND SMF70TYP=1 THEN DO; IFAWAIT170=CPUWAITM; PCTIFB170=PCTIFABY; END; ELSE IF CAI NE '00'X AND SMF70TYP=2 THEN DO; ZIPWAIT170=CPUWAITM; PCTZIBY170=PCTZIPBY; END; END; ELSE IF CPUID=171 THEN DO; IFATYP171=SMF70TYP; CAI171=CAI; IF CAI NE '......00'B AND SMF70TYP=0 THEN DO; CPUWAIT171=CPUWAITM; PCTCPB171=PCTCPUBY; CPUSER171=CPUSER; IORATE171=IORATE; PCTTPI171=PCTTPI; IF SMF70V='1.......'B THEN VFON171='Y'; IF NRSAMPLE GT 0 AND VECONSAM GT 0 THEN VFAFFTM171=VECONSAM*DURATM/NRSAMPLE; END; ELSE IF CAI NE '00'X AND SMF70TYP=1 THEN DO; IFAWAIT171=CPUWAITM; PCTIFB171=PCTIFABY; END; ELSE IF CAI NE '00'X AND SMF70TYP=2 THEN DO; ZIPWAIT171=CPUWAITM; PCTZIBY171=PCTZIPBY; END; END; ELSE IF CPUID=172 THEN DO; IFATYP172=SMF70TYP; CAI172=CAI; IF CAI NE '......00'B AND SMF70TYP=0 THEN DO; CPUWAIT172=CPUWAITM; PCTCPB172=PCTCPUBY; CPUSER172=CPUSER; IORATE172=IORATE; PCTTPI172=PCTTPI; IF SMF70V='1.......'B THEN VFON172='Y'; IF NRSAMPLE GT 0 AND VECONSAM GT 0 THEN VFAFFTM172=VECONSAM*DURATM/NRSAMPLE; END; ELSE IF CAI NE '00'X AND SMF70TYP=1 THEN DO; IFAWAIT172=CPUWAITM; PCTIFB172=PCTIFABY; END; ELSE IF CAI NE '00'X AND SMF70TYP=2 THEN DO; ZIPWAIT172=CPUWAITM; PCTZIBY172=PCTZIPBY; END; END; ELSE IF CPUID=173 THEN DO; IFATYP173=SMF70TYP; CAI173=CAI; IF CAI NE '......00'B AND SMF70TYP=0 THEN DO; CPUWAIT173=CPUWAITM; PCTCPB173=PCTCPUBY; CPUSER173=CPUSER; IORATE173=IORATE; PCTTPI173=PCTTPI; IF SMF70V='1.......'B THEN VFON173='Y'; IF NRSAMPLE GT 0 AND VECONSAM GT 0 THEN VFAFFTM173=VECONSAM*DURATM/NRSAMPLE; END; ELSE IF CAI NE '00'X AND SMF70TYP=1 THEN DO; IFAWAIT173=CPUWAITM; PCTIFB173=PCTIFABY; END; ELSE IF CAI NE '00'X AND SMF70TYP=2 THEN DO; ZIPWAIT173=CPUWAITM; PCTZIBY173=PCTZIPBY; END; END; ELSE IF CPUID=174 THEN DO; IFATYP174=SMF70TYP; CAI174=CAI; IF CAI NE '......00'B AND SMF70TYP=0 THEN DO; CPUWAIT174=CPUWAITM; PCTCPB174=PCTCPUBY; CPUSER174=CPUSER; IORATE174=IORATE; PCTTPI174=PCTTPI; IF SMF70V='1.......'B THEN VFON174='Y'; IF NRSAMPLE GT 0 AND VECONSAM GT 0 THEN VFAFFTM174=VECONSAM*DURATM/NRSAMPLE; END; ELSE IF CAI NE '00'X AND SMF70TYP=1 THEN DO; IFAWAIT174=CPUWAITM; PCTIFB174=PCTIFABY; END; ELSE IF CAI NE '00'X AND SMF70TYP=2 THEN DO; ZIPWAIT174=CPUWAITM; PCTZIBY174=PCTZIPBY; END; END; ELSE IF CPUID=175 THEN DO; IFATYP175=SMF70TYP; CAI175=CAI; IF CAI NE '......00'B AND SMF70TYP=0 THEN DO; CPUWAIT175=CPUWAITM; PCTCPB175=PCTCPUBY; CPUSER175=CPUSER; IORATE175=IORATE; PCTTPI175=PCTTPI; IF SMF70V='1.......'B THEN VFON175='Y'; IF NRSAMPLE GT 0 AND VECONSAM GT 0 THEN VFAFFTM175=VECONSAM*DURATM/NRSAMPLE; END; ELSE IF CAI NE '00'X AND SMF70TYP=1 THEN DO; IFAWAIT175=CPUWAITM; PCTIFB175=PCTIFABY; END; ELSE IF CAI NE '00'X AND SMF70TYP=2 THEN DO; ZIPWAIT175=CPUWAITM; PCTZIBY175=PCTZIPBY; END; END; ELSE IF CPUID=176 THEN DO; IFATYP176=SMF70TYP; CAI176=CAI; IF CAI NE '......00'B AND SMF70TYP=0 THEN DO; CPUWAIT176=CPUWAITM; PCTCPB176=PCTCPUBY; CPUSER176=CPUSER; IORATE176=IORATE; PCTTPI176=PCTTPI; IF SMF70V='1.......'B THEN VFON176='Y'; IF NRSAMPLE GT 0 AND VECONSAM GT 0 THEN VFAFFTM176=VECONSAM*DURATM/NRSAMPLE; END; ELSE IF CAI NE '00'X AND SMF70TYP=1 THEN DO; IFAWAIT176=CPUWAITM; PCTIFB176=PCTIFABY; END; ELSE IF CAI NE '00'X AND SMF70TYP=2 THEN DO; ZIPWAIT176=CPUWAITM; PCTZIBY176=PCTZIPBY; END; END; ELSE IF CPUID=177 THEN DO; IFATYP177=SMF70TYP; CAI177=CAI; IF CAI NE '......00'B AND SMF70TYP=0 THEN DO; CPUWAIT177=CPUWAITM; PCTCPB177=PCTCPUBY; CPUSER177=CPUSER; IORATE177=IORATE; PCTTPI177=PCTTPI; IF SMF70V='1.......'B THEN VFON177='Y'; IF NRSAMPLE GT 0 AND VECONSAM GT 0 THEN VFAFFTM177=VECONSAM*DURATM/NRSAMPLE; END; ELSE IF CAI NE '00'X AND SMF70TYP=1 THEN DO; IFAWAIT177=CPUWAITM; PCTIFB177=PCTIFABY; END; ELSE IF CAI NE '00'X AND SMF70TYP=2 THEN DO; ZIPWAIT177=CPUWAITM; PCTZIBY177=PCTZIPBY; END; END; ELSE IF CPUID=178 THEN DO; IFATYP178=SMF70TYP; CAI178=CAI; IF CAI NE '......00'B AND SMF70TYP=0 THEN DO; CPUWAIT178=CPUWAITM; PCTCPB178=PCTCPUBY; CPUSER178=CPUSER; IORATE178=IORATE; PCTTPI178=PCTTPI; IF SMF70V='1.......'B THEN VFON178='Y'; IF NRSAMPLE GT 0 AND VECONSAM GT 0 THEN VFAFFTM178=VECONSAM*DURATM/NRSAMPLE; END; ELSE IF CAI NE '00'X AND SMF70TYP=1 THEN DO; IFAWAIT178=CPUWAITM; PCTIFB178=PCTIFABY; END; ELSE IF CAI NE '00'X AND SMF70TYP=2 THEN DO; ZIPWAIT178=CPUWAITM; PCTZIBY178=PCTZIPBY; END; END; ELSE IF CPUID=179 THEN DO; IFATYP179=SMF70TYP; CAI179=CAI; IF CAI NE '......00'B AND SMF70TYP=0 THEN DO; CPUWAIT179=CPUWAITM; PCTCPB179=PCTCPUBY; CPUSER179=CPUSER; IORATE179=IORATE; PCTTPI179=PCTTPI; IF SMF70V='1.......'B THEN VFON179='Y'; IF NRSAMPLE GT 0 AND VECONSAM GT 0 THEN VFAFFTM179=VECONSAM*DURATM/NRSAMPLE; END; ELSE IF CAI NE '00'X AND SMF70TYP=1 THEN DO; IFAWAIT179=CPUWAITM; PCTIFB179=PCTIFABY; END; ELSE IF CAI NE '00'X AND SMF70TYP=2 THEN DO; ZIPWAIT179=CPUWAITM; PCTZIBY179=PCTZIPBY; END; END; ELSE IF CPUID=180 THEN DO; IFATYP180=SMF70TYP; CAI180=CAI; IF CAI NE '......00'B AND SMF70TYP=0 THEN DO; CPUWAIT180=CPUWAITM; PCTCPB180=PCTCPUBY; CPUSER180=CPUSER; IORATE180=IORATE; PCTTPI180=PCTTPI; IF SMF70V='1.......'B THEN VFON180='Y'; IF NRSAMPLE GT 0 AND VECONSAM GT 0 THEN VFAFFTM180=VECONSAM*DURATM/NRSAMPLE; END; ELSE IF CAI NE '00'X AND SMF70TYP=1 THEN DO; IFAWAIT180=CPUWAITM; PCTIFB180=PCTIFABY; END; ELSE IF CAI NE '00'X AND SMF70TYP=2 THEN DO; ZIPWAIT180=CPUWAITM; PCTZIBY180=PCTZIPBY; END; END; ELSE IF CPUID=181 THEN DO; IFATYP181=SMF70TYP; CAI181=CAI; IF CAI NE '......00'B AND SMF70TYP=0 THEN DO; CPUWAIT181=CPUWAITM; PCTCPB181=PCTCPUBY; CPUSER181=CPUSER; IORATE181=IORATE; PCTTPI181=PCTTPI; IF SMF70V='1.......'B THEN VFON181='Y'; IF NRSAMPLE GT 0 AND VECONSAM GT 0 THEN VFAFFTM181=VECONSAM*DURATM/NRSAMPLE; END; ELSE IF CAI NE '00'X AND SMF70TYP=1 THEN DO; IFAWAIT181=CPUWAITM; PCTIFB181=PCTIFABY; END; ELSE IF CAI NE '00'X AND SMF70TYP=2 THEN DO; ZIPWAIT181=CPUWAITM; PCTZIBY181=PCTZIPBY; END; END; ELSE IF CPUID=182 THEN DO; IFATYP182=SMF70TYP; CAI182=CAI; IF CAI NE '......00'B AND SMF70TYP=0 THEN DO; CPUWAIT182=CPUWAITM; PCTCPB182=PCTCPUBY; CPUSER182=CPUSER; IORATE182=IORATE; PCTTPI182=PCTTPI; IF SMF70V='1.......'B THEN VFON182='Y'; IF NRSAMPLE GT 0 AND VECONSAM GT 0 THEN VFAFFTM182=VECONSAM*DURATM/NRSAMPLE; END; ELSE IF CAI NE '00'X AND SMF70TYP=1 THEN DO; IFAWAIT182=CPUWAITM; PCTIFB182=PCTIFABY; END; ELSE IF CAI NE '00'X AND SMF70TYP=2 THEN DO; ZIPWAIT182=CPUWAITM; PCTZIBY182=PCTZIPBY; END; END; ELSE IF CPUID=183 THEN DO; IFATYP183=SMF70TYP; CAI183=CAI; IF CAI NE '......00'B AND SMF70TYP=0 THEN DO; CPUWAIT183=CPUWAITM; PCTCPB183=PCTCPUBY; CPUSER183=CPUSER; IORATE183=IORATE; PCTTPI183=PCTTPI; IF SMF70V='1.......'B THEN VFON183='Y'; IF NRSAMPLE GT 0 AND VECONSAM GT 0 THEN VFAFFTM183=VECONSAM*DURATM/NRSAMPLE; END; ELSE IF CAI NE '00'X AND SMF70TYP=1 THEN DO; IFAWAIT183=CPUWAITM; PCTIFB183=PCTIFABY; END; ELSE IF CAI NE '00'X AND SMF70TYP=2 THEN DO; ZIPWAIT183=CPUWAITM; PCTZIBY183=PCTZIPBY; END; END; ELSE IF CPUID=184 THEN DO; IFATYP184=SMF70TYP; CAI184=CAI; IF CAI NE '......00'B AND SMF70TYP=0 THEN DO; CPUWAIT184=CPUWAITM; PCTCPB184=PCTCPUBY; CPUSER184=CPUSER; IORATE184=IORATE; PCTTPI184=PCTTPI; IF SMF70V='1.......'B THEN VFON184='Y'; IF NRSAMPLE GT 0 AND VECONSAM GT 0 THEN VFAFFTM184=VECONSAM*DURATM/NRSAMPLE; END; ELSE IF CAI NE '00'X AND SMF70TYP=1 THEN DO; IFAWAIT184=CPUWAITM; PCTIFB184=PCTIFABY; END; ELSE IF CAI NE '00'X AND SMF70TYP=2 THEN DO; ZIPWAIT184=CPUWAITM; PCTZIBY184=PCTZIPBY; END; END; ELSE IF CPUID=185 THEN DO; IFATYP185=SMF70TYP; CAI185=CAI; IF CAI NE '......00'B AND SMF70TYP=0 THEN DO; CPUWAIT185=CPUWAITM; PCTCPB185=PCTCPUBY; CPUSER185=CPUSER; IORATE185=IORATE; PCTTPI185=PCTTPI; IF SMF70V='1.......'B THEN VFON185='Y'; IF NRSAMPLE GT 0 AND VECONSAM GT 0 THEN VFAFFTM185=VECONSAM*DURATM/NRSAMPLE; END; ELSE IF CAI NE '00'X AND SMF70TYP=1 THEN DO; IFAWAIT185=CPUWAITM; PCTIFB185=PCTIFABY; END; ELSE IF CAI NE '00'X AND SMF70TYP=2 THEN DO; ZIPWAIT185=CPUWAITM; PCTZIBY185=PCTZIPBY; END; END; ELSE IF CPUID=186 THEN DO; IFATYP186=SMF70TYP; CAI186=CAI; IF CAI NE '......00'B AND SMF70TYP=0 THEN DO; CPUWAIT186=CPUWAITM; PCTCPB186=PCTCPUBY; CPUSER186=CPUSER; IORATE186=IORATE; PCTTPI186=PCTTPI; IF SMF70V='1.......'B THEN VFON186='Y'; IF NRSAMPLE GT 0 AND VECONSAM GT 0 THEN VFAFFTM186=VECONSAM*DURATM/NRSAMPLE; END; ELSE IF CAI NE '00'X AND SMF70TYP=1 THEN DO; IFAWAIT186=CPUWAITM; PCTIFB186=PCTIFABY; END; ELSE IF CAI NE '00'X AND SMF70TYP=2 THEN DO; ZIPWAIT186=CPUWAITM; PCTZIBY186=PCTZIPBY; END; END; ELSE IF CPUID=187 THEN DO; IFATYP187=SMF70TYP; CAI187=CAI; IF CAI NE '......00'B AND SMF70TYP=0 THEN DO; CPUWAIT187=CPUWAITM; PCTCPB187=PCTCPUBY; CPUSER187=CPUSER; IORATE187=IORATE; PCTTPI187=PCTTPI; IF SMF70V='1.......'B THEN VFON187='Y'; IF NRSAMPLE GT 0 AND VECONSAM GT 0 THEN VFAFFTM187=VECONSAM*DURATM/NRSAMPLE; END; ELSE IF CAI NE '00'X AND SMF70TYP=1 THEN DO; IFAWAIT187=CPUWAITM; PCTIFB187=PCTIFABY; END; ELSE IF CAI NE '00'X AND SMF70TYP=2 THEN DO; ZIPWAIT187=CPUWAITM; PCTZIBY187=PCTZIPBY; END; END; ELSE IF CPUID=188 THEN DO; IFATYP188=SMF70TYP; CAI188=CAI; IF CAI NE '......00'B AND SMF70TYP=0 THEN DO; CPUWAIT188=CPUWAITM; PCTCPB188=PCTCPUBY; CPUSER188=CPUSER; IORATE188=IORATE; PCTTPI188=PCTTPI; IF SMF70V='1.......'B THEN VFON188='Y'; IF NRSAMPLE GT 0 AND VECONSAM GT 0 THEN VFAFFTM188=VECONSAM*DURATM/NRSAMPLE; END; ELSE IF CAI NE '00'X AND SMF70TYP=1 THEN DO; IFAWAIT188=CPUWAITM; PCTIFB188=PCTIFABY; END; ELSE IF CAI NE '00'X AND SMF70TYP=2 THEN DO; ZIPWAIT188=CPUWAITM; PCTZIBY188=PCTZIPBY; END; END; ELSE IF CPUID=189 THEN DO; IFATYP189=SMF70TYP; CAI189=CAI; IF CAI NE '......00'B AND SMF70TYP=0 THEN DO; CPUWAIT189=CPUWAITM; PCTCPB189=PCTCPUBY; CPUSER189=CPUSER; IORATE189=IORATE; PCTTPI189=PCTTPI; IF SMF70V='1.......'B THEN VFON189='Y'; IF NRSAMPLE GT 0 AND VECONSAM GT 0 THEN VFAFFTM189=VECONSAM*DURATM/NRSAMPLE; END; ELSE IF CAI NE '00'X AND SMF70TYP=1 THEN DO; IFAWAIT189=CPUWAITM; PCTIFB189=PCTIFABY; END; ELSE IF CAI NE '00'X AND SMF70TYP=2 THEN DO; ZIPWAIT189=CPUWAITM; PCTZIBY189=PCTZIPBY; END; END; ELSE IF CPUID=190 THEN DO; IFATYP190=SMF70TYP; CAI190=CAI; IF CAI NE '......00'B AND SMF70TYP=0 THEN DO; CPUWAIT190=CPUWAITM; PCTCPB190=PCTCPUBY; CPUSER190=CPUSER; IORATE190=IORATE; PCTTPI190=PCTTPI; IF SMF70V='1.......'B THEN VFON190='Y'; IF NRSAMPLE GT 0 AND VECONSAM GT 0 THEN VFAFFTM190=VECONSAM*DURATM/NRSAMPLE; END; ELSE IF CAI NE '00'X AND SMF70TYP=1 THEN DO; IFAWAIT190=CPUWAITM; PCTIFB190=PCTIFABY; END; ELSE IF CAI NE '00'X AND SMF70TYP=2 THEN DO; ZIPWAIT190=CPUWAITM; PCTZIBY190=PCTZIPBY; END; END; ELSE IF CPUID=191 THEN DO; IFATYP191=SMF70TYP; CAI191=CAI; IF CAI NE '......00'B AND SMF70TYP=0 THEN DO; CPUWAIT191=CPUWAITM; PCTCPB191=PCTCPUBY; CPUSER191=CPUSER; IORATE191=IORATE; PCTTPI191=PCTTPI; IF SMF70V='1.......'B THEN VFON191='Y'; IF NRSAMPLE GT 0 AND VECONSAM GT 0 THEN VFAFFTM191=VECONSAM*DURATM/NRSAMPLE; END; ELSE IF CAI NE '00'X AND SMF70TYP=1 THEN DO; IFAWAIT191=CPUWAITM; PCTIFB191=PCTIFABY; END; ELSE IF CAI NE '00'X AND SMF70TYP=2 THEN DO; ZIPWAIT191=CPUWAITM; PCTZIBY191=PCTZIPBY; END; END; ELSE IF CPUID=192 THEN DO; IFATYP192=SMF70TYP; CAI192=CAI; IF CAI NE '......00'B AND SMF70TYP=0 THEN DO; CPUWAIT192=CPUWAITM; PCTCPB192=PCTCPUBY; CPUSER192=CPUSER; IORATE192=IORATE; PCTTPI192=PCTTPI; IF SMF70V='1.......'B THEN VFON192='Y'; IF NRSAMPLE GT 0 AND VECONSAM GT 0 THEN VFAFFTM192=VECONSAM*DURATM/NRSAMPLE; END; ELSE IF CAI NE '00'X AND SMF70TYP=1 THEN DO; IFAWAIT192=CPUWAITM; PCTIFB192=PCTIFABY; END; ELSE IF CAI NE '00'X AND SMF70TYP=2 THEN DO; ZIPWAIT192=CPUWAITM; PCTZIBY192=PCTZIPBY; END; END; ELSE IF CPUID=193 THEN DO; IFATYP193=SMF70TYP; CAI193=CAI; IF CAI NE '......00'B AND SMF70TYP=0 THEN DO; CPUWAIT193=CPUWAITM; PCTCPB193=PCTCPUBY; CPUSER193=CPUSER; IORATE193=IORATE; PCTTPI193=PCTTPI; IF SMF70V='1.......'B THEN VFON193='Y'; IF NRSAMPLE GT 0 AND VECONSAM GT 0 THEN VFAFFTM193=VECONSAM*DURATM/NRSAMPLE; END; ELSE IF CAI NE '00'X AND SMF70TYP=1 THEN DO; IFAWAIT193=CPUWAITM; PCTIFB193=PCTIFABY; END; ELSE IF CAI NE '00'X AND SMF70TYP=2 THEN DO; ZIPWAIT193=CPUWAITM; PCTZIBY193=PCTZIPBY; END; END; ELSE IF CPUID=194 THEN DO; IFATYP194=SMF70TYP; CAI194=CAI; IF CAI NE '......00'B AND SMF70TYP=0 THEN DO; CPUWAIT194=CPUWAITM; PCTCPB194=PCTCPUBY; CPUSER194=CPUSER; IORATE194=IORATE; PCTTPI194=PCTTPI; IF SMF70V='1.......'B THEN VFON194='Y'; IF NRSAMPLE GT 0 AND VECONSAM GT 0 THEN VFAFFTM194=VECONSAM*DURATM/NRSAMPLE; END; ELSE IF CAI NE '00'X AND SMF70TYP=1 THEN DO; IFAWAIT194=CPUWAITM; PCTIFB194=PCTIFABY; END; ELSE IF CAI NE '00'X AND SMF70TYP=2 THEN DO; ZIPWAIT194=CPUWAITM; PCTZIBY194=PCTZIPBY; END; END; ELSE IF CPUID=195 THEN DO; IFATYP195=SMF70TYP; CAI195=CAI; IF CAI NE '......00'B AND SMF70TYP=0 THEN DO; CPUWAIT195=CPUWAITM; PCTCPB195=PCTCPUBY; CPUSER195=CPUSER; IORATE195=IORATE; PCTTPI195=PCTTPI; IF SMF70V='1.......'B THEN VFON195='Y'; IF NRSAMPLE GT 0 AND VECONSAM GT 0 THEN VFAFFTM195=VECONSAM*DURATM/NRSAMPLE; END; ELSE IF CAI NE '00'X AND SMF70TYP=1 THEN DO; IFAWAIT195=CPUWAITM; PCTIFB195=PCTIFABY; END; ELSE IF CAI NE '00'X AND SMF70TYP=2 THEN DO; ZIPWAIT195=CPUWAITM; PCTZIBY195=PCTZIPBY; END; END; ELSE IF CPUID=196 THEN DO; IFATYP196=SMF70TYP; CAI196=CAI; IF CAI NE '......00'B AND SMF70TYP=0 THEN DO; CPUWAIT196=CPUWAITM; PCTCPB196=PCTCPUBY; CPUSER196=CPUSER; IORATE196=IORATE; PCTTPI196=PCTTPI; IF SMF70V='1.......'B THEN VFON196='Y'; IF NRSAMPLE GT 0 AND VECONSAM GT 0 THEN VFAFFTM196=VECONSAM*DURATM/NRSAMPLE; END; ELSE IF CAI NE '00'X AND SMF70TYP=1 THEN DO; IFAWAIT196=CPUWAITM; PCTIFB196=PCTIFABY; END; ELSE IF CAI NE '00'X AND SMF70TYP=2 THEN DO; ZIPWAIT196=CPUWAITM; PCTZIBY196=PCTZIPBY; END; END; ELSE IF CPUID=197 THEN DO; IFATYP197=SMF70TYP; CAI197=CAI; IF CAI NE '......00'B AND SMF70TYP=0 THEN DO; CPUWAIT197=CPUWAITM; PCTCPB197=PCTCPUBY; CPUSER197=CPUSER; IORATE197=IORATE; PCTTPI197=PCTTPI; IF SMF70V='1.......'B THEN VFON197='Y'; IF NRSAMPLE GT 0 AND VECONSAM GT 0 THEN VFAFFTM197=VECONSAM*DURATM/NRSAMPLE; END; ELSE IF CAI NE '00'X AND SMF70TYP=1 THEN DO; IFAWAIT197=CPUWAITM; PCTIFB197=PCTIFABY; END; ELSE IF CAI NE '00'X AND SMF70TYP=2 THEN DO; ZIPWAIT197=CPUWAITM; PCTZIBY197=PCTZIPBY; END; END; ELSE IF CPUID=198 THEN DO; IFATYP198=SMF70TYP; CAI198=CAI; IF CAI NE '......00'B AND SMF70TYP=0 THEN DO; CPUWAIT198=CPUWAITM; PCTCPB198=PCTCPUBY; CPUSER198=CPUSER; IORATE198=IORATE; PCTTPI198=PCTTPI; IF SMF70V='1.......'B THEN VFON198='Y'; IF NRSAMPLE GT 0 AND VECONSAM GT 0 THEN VFAFFTM198=VECONSAM*DURATM/NRSAMPLE; END; ELSE IF CAI NE '00'X AND SMF70TYP=1 THEN DO; IFAWAIT198=CPUWAITM; PCTIFB198=PCTIFABY; END; ELSE IF CAI NE '00'X AND SMF70TYP=2 THEN DO; ZIPWAIT198=CPUWAITM; PCTZIBY198=PCTZIPBY; END; END; ELSE IF CPUID=199 THEN DO; IFATYP199=SMF70TYP; CAI199=CAI; IF CAI NE '......00'B AND SMF70TYP=0 THEN DO; CPUWAIT199=CPUWAITM; PCTCPB199=PCTCPUBY; CPUSER199=CPUSER; IORATE199=IORATE; PCTTPI199=PCTTPI; IF SMF70V='1.......'B THEN VFON199='Y'; IF NRSAMPLE GT 0 AND VECONSAM GT 0 THEN VFAFFTM199=VECONSAM*DURATM/NRSAMPLE; END; ELSE IF CAI NE '00'X AND SMF70TYP=1 THEN DO; IFAWAIT199=CPUWAITM; PCTIFB199=PCTIFABY; END; ELSE IF CAI NE '00'X AND SMF70TYP=2 THEN DO; ZIPWAIT199=CPUWAITM; PCTZIBY199=PCTZIPBY; END; END; ELSE IF CPUID=200 THEN DO; IFATYP200=SMF70TYP; CAI200=CAI; IF CAI NE '......00'B AND SMF70TYP=0 THEN DO; CPUWAIT200=CPUWAITM; PCTCPB200=PCTCPUBY; CPUSER200=CPUSER; IORATE200=IORATE; PCTTPI200=PCTTPI; IF SMF70V='1.......'B THEN VFON200='Y'; IF NRSAMPLE GT 0 AND VECONSAM GT 0 THEN VFAFFTM200=VECONSAM*DURATM/NRSAMPLE; END; ELSE IF CAI NE '00'X AND SMF70TYP=1 THEN DO; IFAWAIT200=CPUWAITM; PCTIFB200=PCTIFABY; END; ELSE IF CAI NE '00'X AND SMF70TYP=2 THEN DO; ZIPWAIT200=CPUWAITM; PCTZIBY200=PCTZIPBY; END; END; ELSE IF CPUID=201 THEN DO; IFATYP201=SMF70TYP; CAI201=CAI; IF CAI NE '......00'B AND SMF70TYP=0 THEN DO; CPUWAIT201=CPUWAITM; PCTCPB201=PCTCPUBY; CPUSER201=CPUSER; IORATE201=IORATE; PCTTPI201=PCTTPI; IF SMF70V='1.......'B THEN VFON201='Y'; IF NRSAMPLE GT 0 AND VECONSAM GT 0 THEN VFAFFTM201=VECONSAM*DURATM/NRSAMPLE; END; ELSE IF CAI NE '00'X AND SMF70TYP=1 THEN DO; IFAWAIT201=CPUWAITM; PCTIFB201=PCTIFABY; END; ELSE IF CAI NE '00'X AND SMF70TYP=2 THEN DO; ZIPWAIT201=CPUWAITM; PCTZIBY201=PCTZIPBY; END; END; ELSE IF CPUID=202 THEN DO; IFATYP202=SMF70TYP; CAI202=CAI; IF CAI NE '......00'B AND SMF70TYP=0 THEN DO; CPUWAIT202=CPUWAITM; PCTCPB202=PCTCPUBY; CPUSER202=CPUSER; IORATE202=IORATE; PCTTPI202=PCTTPI; IF SMF70V='1.......'B THEN VFON202='Y'; IF NRSAMPLE GT 0 AND VECONSAM GT 0 THEN VFAFFTM202=VECONSAM*DURATM/NRSAMPLE; END; ELSE IF CAI NE '00'X AND SMF70TYP=1 THEN DO; IFAWAIT202=CPUWAITM; PCTIFB202=PCTIFABY; END; ELSE IF CAI NE '00'X AND SMF70TYP=2 THEN DO; ZIPWAIT202=CPUWAITM; PCTZIBY202=PCTZIPBY; END; END; ELSE IF CPUID=203 THEN DO; IFATYP203=SMF70TYP; CAI203=CAI; IF CAI NE '......00'B AND SMF70TYP=0 THEN DO; CPUWAIT203=CPUWAITM; PCTCPB203=PCTCPUBY; CPUSER203=CPUSER; IORATE203=IORATE; PCTTPI203=PCTTPI; IF SMF70V='1.......'B THEN VFON203='Y'; IF NRSAMPLE GT 0 AND VECONSAM GT 0 THEN VFAFFTM203=VECONSAM*DURATM/NRSAMPLE; END; ELSE IF CAI NE '00'X AND SMF70TYP=1 THEN DO; IFAWAIT203=CPUWAITM; PCTIFB203=PCTIFABY; END; ELSE IF CAI NE '00'X AND SMF70TYP=2 THEN DO; ZIPWAIT203=CPUWAITM; PCTZIBY203=PCTZIPBY; END; END; ELSE IF CPUID=204 THEN DO; IFATYP204=SMF70TYP; CAI204=CAI; IF CAI NE '......00'B AND SMF70TYP=0 THEN DO; CPUWAIT204=CPUWAITM; PCTCPB204=PCTCPUBY; CPUSER204=CPUSER; IORATE204=IORATE; PCTTPI204=PCTTPI; IF SMF70V='1.......'B THEN VFON204='Y'; IF NRSAMPLE GT 0 AND VECONSAM GT 0 THEN VFAFFTM204=VECONSAM*DURATM/NRSAMPLE; END; ELSE IF CAI NE '00'X AND SMF70TYP=1 THEN DO; IFAWAIT204=CPUWAITM; PCTIFB204=PCTIFABY; END; ELSE IF CAI NE '00'X AND SMF70TYP=2 THEN DO; ZIPWAIT204=CPUWAITM; PCTZIBY204=PCTZIPBY; END; END; ELSE IF CPUID=205 THEN DO; IFATYP205=SMF70TYP; CAI205=CAI; IF CAI NE '......00'B AND SMF70TYP=0 THEN DO; CPUWAIT205=CPUWAITM; PCTCPB205=PCTCPUBY; CPUSER205=CPUSER; IORATE205=IORATE; PCTTPI205=PCTTPI; IF SMF70V='1.......'B THEN VFON205='Y'; IF NRSAMPLE GT 0 AND VECONSAM GT 0 THEN VFAFFTM205=VECONSAM*DURATM/NRSAMPLE; END; ELSE IF CAI NE '00'X AND SMF70TYP=1 THEN DO; IFAWAIT205=CPUWAITM; PCTIFB205=PCTIFABY; END; ELSE IF CAI NE '00'X AND SMF70TYP=2 THEN DO; ZIPWAIT205=CPUWAITM; PCTZIBY205=PCTZIPBY; END; END; ELSE IF CPUID=206 THEN DO; IFATYP206=SMF70TYP; CAI206=CAI; IF CAI NE '......00'B AND SMF70TYP=0 THEN DO; CPUWAIT206=CPUWAITM; PCTCPB206=PCTCPUBY; CPUSER206=CPUSER; IORATE206=IORATE; PCTTPI206=PCTTPI; IF SMF70V='1.......'B THEN VFON206='Y'; IF NRSAMPLE GT 0 AND VECONSAM GT 0 THEN VFAFFTM206=VECONSAM*DURATM/NRSAMPLE; END; ELSE IF CAI NE '00'X AND SMF70TYP=1 THEN DO; IFAWAIT206=CPUWAITM; PCTIFB206=PCTIFABY; END; ELSE IF CAI NE '00'X AND SMF70TYP=2 THEN DO; ZIPWAIT206=CPUWAITM; PCTZIBY206=PCTZIPBY; END; END; ELSE IF CPUID=207 THEN DO; IFATYP207=SMF70TYP; CAI207=CAI; IF CAI NE '......00'B AND SMF70TYP=0 THEN DO; CPUWAIT207=CPUWAITM; PCTCPB207=PCTCPUBY; CPUSER207=CPUSER; IORATE207=IORATE; PCTTPI207=PCTTPI; IF SMF70V='1.......'B THEN VFON207='Y'; IF NRSAMPLE GT 0 AND VECONSAM GT 0 THEN VFAFFTM207=VECONSAM*DURATM/NRSAMPLE; END; ELSE IF CAI NE '00'X AND SMF70TYP=1 THEN DO; IFAWAIT207=CPUWAITM; PCTIFB207=PCTIFABY; END; ELSE IF CAI NE '00'X AND SMF70TYP=2 THEN DO; ZIPWAIT207=CPUWAITM; PCTZIBY207=PCTZIPBY; END; END; ELSE IF CPUID=208 THEN DO; IFATYP208=SMF70TYP; CAI208=CAI; IF CAI NE '......00'B AND SMF70TYP=0 THEN DO; CPUWAIT208=CPUWAITM; PCTCPB208=PCTCPUBY; CPUSER208=CPUSER; IORATE208=IORATE; PCTTPI208=PCTTPI; IF SMF70V='1.......'B THEN VFON208='Y'; IF NRSAMPLE GT 0 AND VECONSAM GT 0 THEN VFAFFTM208=VECONSAM*DURATM/NRSAMPLE; END; ELSE IF CAI NE '00'X AND SMF70TYP=1 THEN DO; IFAWAIT208=CPUWAITM; PCTIFB208=PCTIFABY; END; ELSE IF CAI NE '00'X AND SMF70TYP=2 THEN DO; ZIPWAIT208=CPUWAITM; PCTZIBY208=PCTZIPBY; END; END; ELSE IF CPUID=209 THEN DO; IFATYP209=SMF70TYP; CAI209=CAI; IF CAI NE '......00'B AND SMF70TYP=0 THEN DO; CPUWAIT209=CPUWAITM; PCTCPB209=PCTCPUBY; CPUSER209=CPUSER; IORATE209=IORATE; PCTTPI209=PCTTPI; IF SMF70V='1.......'B THEN VFON209='Y'; IF NRSAMPLE GT 0 AND VECONSAM GT 0 THEN VFAFFTM209=VECONSAM*DURATM/NRSAMPLE; END; ELSE IF CAI NE '00'X AND SMF70TYP=1 THEN DO; IFAWAIT209=CPUWAITM; PCTIFB209=PCTIFABY; END; ELSE IF CAI NE '00'X AND SMF70TYP=2 THEN DO; ZIPWAIT209=CPUWAITM; PCTZIBY209=PCTZIPBY; END; END; ELSE IF CPUID=210 THEN DO; IFATYP210=SMF70TYP; CAI210=CAI; IF CAI NE '......00'B AND SMF70TYP=0 THEN DO; CPUWAIT210=CPUWAITM; PCTCPB210=PCTCPUBY; CPUSER210=CPUSER; IORATE210=IORATE; PCTTPI210=PCTTPI; IF SMF70V='1.......'B THEN VFON210='Y'; IF NRSAMPLE GT 0 AND VECONSAM GT 0 THEN VFAFFTM210=VECONSAM*DURATM/NRSAMPLE; END; ELSE IF CAI NE '00'X AND SMF70TYP=1 THEN DO; IFAWAIT210=CPUWAITM; PCTIFB210=PCTIFABY; END; ELSE IF CAI NE '00'X AND SMF70TYP=2 THEN DO; ZIPWAIT210=CPUWAITM; PCTZIBY210=PCTZIPBY; END; END; ELSE IF CPUID=211 THEN DO; IFATYP211=SMF70TYP; CAI211=CAI; IF CAI NE '......00'B AND SMF70TYP=0 THEN DO; CPUWAIT211=CPUWAITM; PCTCPB211=PCTCPUBY; CPUSER211=CPUSER; IORATE211=IORATE; PCTTPI211=PCTTPI; IF SMF70V='1.......'B THEN VFON211='Y'; IF NRSAMPLE GT 0 AND VECONSAM GT 0 THEN VFAFFTM211=VECONSAM*DURATM/NRSAMPLE; END; ELSE IF CAI NE '00'X AND SMF70TYP=1 THEN DO; IFAWAIT211=CPUWAITM; PCTIFB211=PCTIFABY; END; ELSE IF CAI NE '00'X AND SMF70TYP=2 THEN DO; ZIPWAIT211=CPUWAITM; PCTZIBY211=PCTZIPBY; END; END; ELSE IF CPUID=212 THEN DO; IFATYP212=SMF70TYP; CAI212=CAI; IF CAI NE '......00'B AND SMF70TYP=0 THEN DO; CPUWAIT212=CPUWAITM; PCTCPB212=PCTCPUBY; CPUSER212=CPUSER; IORATE212=IORATE; PCTTPI212=PCTTPI; IF SMF70V='1.......'B THEN VFON212='Y'; IF NRSAMPLE GT 0 AND VECONSAM GT 0 THEN VFAFFTM212=VECONSAM*DURATM/NRSAMPLE; END; ELSE IF CAI NE '00'X AND SMF70TYP=1 THEN DO; IFAWAIT212=CPUWAITM; PCTIFB212=PCTIFABY; END; ELSE IF CAI NE '00'X AND SMF70TYP=2 THEN DO; ZIPWAIT212=CPUWAITM; PCTZIBY212=PCTZIPBY; END; END; ELSE IF CPUID=213 THEN DO; IFATYP213=SMF70TYP; CAI213=CAI; IF CAI NE '......00'B AND SMF70TYP=0 THEN DO; CPUWAIT213=CPUWAITM; PCTCPB213=PCTCPUBY; CPUSER213=CPUSER; IORATE213=IORATE; PCTTPI213=PCTTPI; IF SMF70V='1.......'B THEN VFON213='Y'; IF NRSAMPLE GT 0 AND VECONSAM GT 0 THEN VFAFFTM213=VECONSAM*DURATM/NRSAMPLE; END; ELSE IF CAI NE '00'X AND SMF70TYP=1 THEN DO; IFAWAIT213=CPUWAITM; PCTIFB213=PCTIFABY; END; ELSE IF CAI NE '00'X AND SMF70TYP=2 THEN DO; ZIPWAIT213=CPUWAITM; PCTZIBY213=PCTZIPBY; END; END; ELSE IF CPUID=214 THEN DO; IFATYP214=SMF70TYP; CAI214=CAI; IF CAI NE '......00'B AND SMF70TYP=0 THEN DO; CPUWAIT214=CPUWAITM; PCTCPB214=PCTCPUBY; CPUSER214=CPUSER; IORATE214=IORATE; PCTTPI214=PCTTPI; IF SMF70V='1.......'B THEN VFON214='Y'; IF NRSAMPLE GT 0 AND VECONSAM GT 0 THEN VFAFFTM214=VECONSAM*DURATM/NRSAMPLE; END; ELSE IF CAI NE '00'X AND SMF70TYP=1 THEN DO; IFAWAIT214=CPUWAITM; PCTIFB214=PCTIFABY; END; ELSE IF CAI NE '00'X AND SMF70TYP=2 THEN DO; ZIPWAIT214=CPUWAITM; PCTZIBY214=PCTZIPBY; END; END; ELSE IF CPUID=215 THEN DO; IFATYP215=SMF70TYP; CAI215=CAI; IF CAI NE '......00'B AND SMF70TYP=0 THEN DO; CPUWAIT215=CPUWAITM; PCTCPB215=PCTCPUBY; CPUSER215=CPUSER; IORATE215=IORATE; PCTTPI215=PCTTPI; IF SMF70V='1.......'B THEN VFON215='Y'; IF NRSAMPLE GT 0 AND VECONSAM GT 0 THEN VFAFFTM215=VECONSAM*DURATM/NRSAMPLE; END; ELSE IF CAI NE '00'X AND SMF70TYP=1 THEN DO; IFAWAIT215=CPUWAITM; PCTIFB215=PCTIFABY; END; ELSE IF CAI NE '00'X AND SMF70TYP=2 THEN DO; ZIPWAIT215=CPUWAITM; PCTZIBY215=PCTZIPBY; END; END; ELSE IF CPUID=216 THEN DO; IFATYP216=SMF70TYP; CAI216=CAI; IF CAI NE '......00'B AND SMF70TYP=0 THEN DO; CPUWAIT216=CPUWAITM; PCTCPB216=PCTCPUBY; CPUSER216=CPUSER; IORATE216=IORATE; PCTTPI216=PCTTPI; IF SMF70V='1.......'B THEN VFON216='Y'; IF NRSAMPLE GT 0 AND VECONSAM GT 0 THEN VFAFFTM216=VECONSAM*DURATM/NRSAMPLE; END; ELSE IF CAI NE '00'X AND SMF70TYP=1 THEN DO; IFAWAIT216=CPUWAITM; PCTIFB216=PCTIFABY; END; ELSE IF CAI NE '00'X AND SMF70TYP=2 THEN DO; ZIPWAIT216=CPUWAITM; PCTZIBY216=PCTZIPBY; END; END; ELSE IF CPUID=217 THEN DO; IFATYP217=SMF70TYP; CAI217=CAI; IF CAI NE '......00'B AND SMF70TYP=0 THEN DO; CPUWAIT217=CPUWAITM; PCTCPB217=PCTCPUBY; CPUSER217=CPUSER; IORATE217=IORATE; PCTTPI217=PCTTPI; IF SMF70V='1.......'B THEN VFON217='Y'; IF NRSAMPLE GT 0 AND VECONSAM GT 0 THEN VFAFFTM217=VECONSAM*DURATM/NRSAMPLE; END; ELSE IF CAI NE '00'X AND SMF70TYP=1 THEN DO; IFAWAIT217=CPUWAITM; PCTIFB217=PCTIFABY; END; ELSE IF CAI NE '00'X AND SMF70TYP=2 THEN DO; ZIPWAIT217=CPUWAITM; PCTZIBY217=PCTZIPBY; END; END; ELSE IF CPUID=218 THEN DO; IFATYP218=SMF70TYP; CAI218=CAI; IF CAI NE '......00'B AND SMF70TYP=0 THEN DO; CPUWAIT218=CPUWAITM; PCTCPB218=PCTCPUBY; CPUSER218=CPUSER; IORATE218=IORATE; PCTTPI218=PCTTPI; IF SMF70V='1.......'B THEN VFON218='Y'; IF NRSAMPLE GT 0 AND VECONSAM GT 0 THEN VFAFFTM218=VECONSAM*DURATM/NRSAMPLE; END; ELSE IF CAI NE '00'X AND SMF70TYP=1 THEN DO; IFAWAIT218=CPUWAITM; PCTIFB218=PCTIFABY; END; ELSE IF CAI NE '00'X AND SMF70TYP=2 THEN DO; ZIPWAIT218=CPUWAITM; PCTZIBY218=PCTZIPBY; END; END; ELSE IF CPUID=219 THEN DO; IFATYP219=SMF70TYP; CAI219=CAI; IF CAI NE '......00'B AND SMF70TYP=0 THEN DO; CPUWAIT219=CPUWAITM; PCTCPB219=PCTCPUBY; CPUSER219=CPUSER; IORATE219=IORATE; PCTTPI219=PCTTPI; IF SMF70V='1.......'B THEN VFON219='Y'; IF NRSAMPLE GT 0 AND VECONSAM GT 0 THEN VFAFFTM219=VECONSAM*DURATM/NRSAMPLE; END; ELSE IF CAI NE '00'X AND SMF70TYP=1 THEN DO; IFAWAIT219=CPUWAITM; PCTIFB219=PCTIFABY; END; ELSE IF CAI NE '00'X AND SMF70TYP=2 THEN DO; ZIPWAIT219=CPUWAITM; PCTZIBY219=PCTZIPBY; END; END; ELSE IF CPUID=220 THEN DO; IFATYP220=SMF70TYP; CAI220=CAI; IF CAI NE '......00'B AND SMF70TYP=0 THEN DO; CPUWAIT220=CPUWAITM; PCTCPB220=PCTCPUBY; CPUSER220=CPUSER; IORATE220=IORATE; PCTTPI220=PCTTPI; IF SMF70V='1.......'B THEN VFON220='Y'; IF NRSAMPLE GT 0 AND VECONSAM GT 0 THEN VFAFFTM220=VECONSAM*DURATM/NRSAMPLE; END; ELSE IF CAI NE '00'X AND SMF70TYP=1 THEN DO; IFAWAIT220=CPUWAITM; PCTIFB220=PCTIFABY; END; ELSE IF CAI NE '00'X AND SMF70TYP=2 THEN DO; ZIPWAIT220=CPUWAITM; PCTZIBY220=PCTZIPBY; END; END; ELSE IF CPUID=221 THEN DO; IFATYP221=SMF70TYP; CAI221=CAI; IF CAI NE '......00'B AND SMF70TYP=0 THEN DO; CPUWAIT221=CPUWAITM; PCTCPB221=PCTCPUBY; CPUSER221=CPUSER; IORATE221=IORATE; PCTTPI221=PCTTPI; IF SMF70V='1.......'B THEN VFON221='Y'; IF NRSAMPLE GT 0 AND VECONSAM GT 0 THEN VFAFFTM221=VECONSAM*DURATM/NRSAMPLE; END; ELSE IF CAI NE '00'X AND SMF70TYP=1 THEN DO; IFAWAIT221=CPUWAITM; PCTIFB221=PCTIFABY; END; ELSE IF CAI NE '00'X AND SMF70TYP=2 THEN DO; ZIPWAIT221=CPUWAITM; PCTZIBY221=PCTZIPBY; END; END; ELSE IF CPUID=222 THEN DO; IFATYP222=SMF70TYP; CAI222=CAI; IF CAI NE '......00'B AND SMF70TYP=0 THEN DO; CPUWAIT222=CPUWAITM; PCTCPB222=PCTCPUBY; CPUSER222=CPUSER; IORATE222=IORATE; PCTTPI222=PCTTPI; IF SMF70V='1.......'B THEN VFON222='Y'; IF NRSAMPLE GT 0 AND VECONSAM GT 0 THEN VFAFFTM222=VECONSAM*DURATM/NRSAMPLE; END; ELSE IF CAI NE '00'X AND SMF70TYP=1 THEN DO; IFAWAIT222=CPUWAITM; PCTIFB222=PCTIFABY; END; ELSE IF CAI NE '00'X AND SMF70TYP=2 THEN DO; ZIPWAIT222=CPUWAITM; PCTZIBY222=PCTZIPBY; END; END; ELSE IF CPUID=223 THEN DO; IFATYP223=SMF70TYP; CAI223=CAI; IF CAI NE '......00'B AND SMF70TYP=0 THEN DO; CPUWAIT223=CPUWAITM; PCTCPB223=PCTCPUBY; CPUSER223=CPUSER; IORATE223=IORATE; PCTTPI223=PCTTPI; IF SMF70V='1.......'B THEN VFON223='Y'; IF NRSAMPLE GT 0 AND VECONSAM GT 0 THEN VFAFFTM223=VECONSAM*DURATM/NRSAMPLE; END; ELSE IF CAI NE '00'X AND SMF70TYP=1 THEN DO; IFAWAIT223=CPUWAITM; PCTIFB223=PCTIFABY; END; ELSE IF CAI NE '00'X AND SMF70TYP=2 THEN DO; ZIPWAIT223=CPUWAITM; PCTZIBY223=PCTZIPBY; END; END; ELSE IF CPUID=224 THEN DO; IFATYP224=SMF70TYP; CAI224=CAI; IF CAI NE '......00'B AND SMF70TYP=0 THEN DO; CPUWAIT224=CPUWAITM; PCTCPB224=PCTCPUBY; CPUSER224=CPUSER; IORATE224=IORATE; PCTTPI224=PCTTPI; IF SMF70V='1.......'B THEN VFON224='Y'; IF NRSAMPLE GT 0 AND VECONSAM GT 0 THEN VFAFFTM224=VECONSAM*DURATM/NRSAMPLE; END; ELSE IF CAI NE '00'X AND SMF70TYP=1 THEN DO; IFAWAIT224=CPUWAITM; PCTIFB224=PCTIFABY; END; ELSE IF CAI NE '00'X AND SMF70TYP=2 THEN DO; ZIPWAIT224=CPUWAITM; PCTZIBY224=PCTZIPBY; END; END; ELSE IF CPUID=225 THEN DO; IFATYP225=SMF70TYP; CAI225=CAI; IF CAI NE '......00'B AND SMF70TYP=0 THEN DO; CPUWAIT225=CPUWAITM; PCTCPB225=PCTCPUBY; CPUSER225=CPUSER; IORATE225=IORATE; PCTTPI225=PCTTPI; IF SMF70V='1.......'B THEN VFON225='Y'; IF NRSAMPLE GT 0 AND VECONSAM GT 0 THEN VFAFFTM225=VECONSAM*DURATM/NRSAMPLE; END; ELSE IF CAI NE '00'X AND SMF70TYP=1 THEN DO; IFAWAIT225=CPUWAITM; PCTIFB225=PCTIFABY; END; ELSE IF CAI NE '00'X AND SMF70TYP=2 THEN DO; ZIPWAIT225=CPUWAITM; PCTZIBY225=PCTZIPBY; END; END; ELSE IF CPUID=226 THEN DO; IFATYP226=SMF70TYP; CAI226=CAI; IF CAI NE '......00'B AND SMF70TYP=0 THEN DO; CPUWAIT226=CPUWAITM; PCTCPB226=PCTCPUBY; CPUSER226=CPUSER; IORATE226=IORATE; PCTTPI226=PCTTPI; IF SMF70V='1.......'B THEN VFON226='Y'; IF NRSAMPLE GT 0 AND VECONSAM GT 0 THEN VFAFFTM226=VECONSAM*DURATM/NRSAMPLE; END; ELSE IF CAI NE '00'X AND SMF70TYP=1 THEN DO; IFAWAIT226=CPUWAITM; PCTIFB226=PCTIFABY; END; ELSE IF CAI NE '00'X AND SMF70TYP=2 THEN DO; ZIPWAIT226=CPUWAITM; PCTZIBY226=PCTZIPBY; END; END; ELSE IF CPUID=227 THEN DO; IFATYP227=SMF70TYP; CAI227=CAI; IF CAI NE '......00'B AND SMF70TYP=0 THEN DO; CPUWAIT227=CPUWAITM; PCTCPB227=PCTCPUBY; CPUSER227=CPUSER; IORATE227=IORATE; PCTTPI227=PCTTPI; IF SMF70V='1.......'B THEN VFON227='Y'; IF NRSAMPLE GT 0 AND VECONSAM GT 0 THEN VFAFFTM227=VECONSAM*DURATM/NRSAMPLE; END; ELSE IF CAI NE '00'X AND SMF70TYP=1 THEN DO; IFAWAIT227=CPUWAITM; PCTIFB227=PCTIFABY; END; ELSE IF CAI NE '00'X AND SMF70TYP=2 THEN DO; ZIPWAIT227=CPUWAITM; PCTZIBY227=PCTZIPBY; END; END; ELSE IF CPUID=228 THEN DO; IFATYP228=SMF70TYP; CAI228=CAI; IF CAI NE '......00'B AND SMF70TYP=0 THEN DO; CPUWAIT228=CPUWAITM; PCTCPB228=PCTCPUBY; CPUSER228=CPUSER; IORATE228=IORATE; PCTTPI228=PCTTPI; IF SMF70V='1.......'B THEN VFON228='Y'; IF NRSAMPLE GT 0 AND VECONSAM GT 0 THEN VFAFFTM228=VECONSAM*DURATM/NRSAMPLE; END; ELSE IF CAI NE '00'X AND SMF70TYP=1 THEN DO; IFAWAIT228=CPUWAITM; PCTIFB228=PCTIFABY; END; ELSE IF CAI NE '00'X AND SMF70TYP=2 THEN DO; ZIPWAIT228=CPUWAITM; PCTZIBY228=PCTZIPBY; END; END; ELSE IF CPUID=229 THEN DO; IFATYP229=SMF70TYP; CAI229=CAI; IF CAI NE '......00'B AND SMF70TYP=0 THEN DO; CPUWAIT229=CPUWAITM; PCTCPB229=PCTCPUBY; CPUSER229=CPUSER; IORATE229=IORATE; PCTTPI229=PCTTPI; IF SMF70V='1.......'B THEN VFON229='Y'; IF NRSAMPLE GT 0 AND VECONSAM GT 0 THEN VFAFFTM229=VECONSAM*DURATM/NRSAMPLE; END; ELSE IF CAI NE '00'X AND SMF70TYP=1 THEN DO; IFAWAIT229=CPUWAITM; PCTIFB229=PCTIFABY; END; ELSE IF CAI NE '00'X AND SMF70TYP=2 THEN DO; ZIPWAIT229=CPUWAITM; PCTZIBY229=PCTZIPBY; END; END; ELSE IF CPUID=230 THEN DO; IFATYP230=SMF70TYP; CAI230=CAI; IF CAI NE '......00'B AND SMF70TYP=0 THEN DO; CPUWAIT230=CPUWAITM; PCTCPB230=PCTCPUBY; CPUSER230=CPUSER; IORATE230=IORATE; PCTTPI230=PCTTPI; IF SMF70V='1.......'B THEN VFON230='Y'; IF NRSAMPLE GT 0 AND VECONSAM GT 0 THEN VFAFFTM230=VECONSAM*DURATM/NRSAMPLE; END; ELSE IF CAI NE '00'X AND SMF70TYP=1 THEN DO; IFAWAIT230=CPUWAITM; PCTIFB230=PCTIFABY; END; ELSE IF CAI NE '00'X AND SMF70TYP=2 THEN DO; ZIPWAIT230=CPUWAITM; PCTZIBY230=PCTZIPBY; END; END; ELSE IF CPUID=231 THEN DO; IFATYP231=SMF70TYP; CAI231=CAI; IF CAI NE '......00'B AND SMF70TYP=0 THEN DO; CPUWAIT231=CPUWAITM; PCTCPB231=PCTCPUBY; CPUSER231=CPUSER; IORATE231=IORATE; PCTTPI231=PCTTPI; IF SMF70V='1.......'B THEN VFON231='Y'; IF NRSAMPLE GT 0 AND VECONSAM GT 0 THEN VFAFFTM231=VECONSAM*DURATM/NRSAMPLE; END; ELSE IF CAI NE '00'X AND SMF70TYP=1 THEN DO; IFAWAIT231=CPUWAITM; PCTIFB231=PCTIFABY; END; ELSE IF CAI NE '00'X AND SMF70TYP=2 THEN DO; ZIPWAIT231=CPUWAITM; PCTZIBY231=PCTZIPBY; END; END; ELSE IF CPUID=232 THEN DO; IFATYP232=SMF70TYP; CAI232=CAI; IF CAI NE '......00'B AND SMF70TYP=0 THEN DO; CPUWAIT232=CPUWAITM; PCTCPB232=PCTCPUBY; CPUSER232=CPUSER; IORATE232=IORATE; PCTTPI232=PCTTPI; IF SMF70V='1.......'B THEN VFON232='Y'; IF NRSAMPLE GT 0 AND VECONSAM GT 0 THEN VFAFFTM232=VECONSAM*DURATM/NRSAMPLE; END; ELSE IF CAI NE '00'X AND SMF70TYP=1 THEN DO; IFAWAIT232=CPUWAITM; PCTIFB232=PCTIFABY; END; ELSE IF CAI NE '00'X AND SMF70TYP=2 THEN DO; ZIPWAIT232=CPUWAITM; PCTZIBY232=PCTZIPBY; END; END; ELSE IF CPUID=233 THEN DO; IFATYP233=SMF70TYP; CAI233=CAI; IF CAI NE '......00'B AND SMF70TYP=0 THEN DO; CPUWAIT233=CPUWAITM; PCTCPB233=PCTCPUBY; CPUSER233=CPUSER; IORATE233=IORATE; PCTTPI233=PCTTPI; IF SMF70V='1.......'B THEN VFON233='Y'; IF NRSAMPLE GT 0 AND VECONSAM GT 0 THEN VFAFFTM233=VECONSAM*DURATM/NRSAMPLE; END; ELSE IF CAI NE '00'X AND SMF70TYP=1 THEN DO; IFAWAIT233=CPUWAITM; PCTIFB233=PCTIFABY; END; ELSE IF CAI NE '00'X AND SMF70TYP=2 THEN DO; ZIPWAIT233=CPUWAITM; PCTZIBY233=PCTZIPBY; END; END; ELSE IF CPUID=234 THEN DO; IFATYP234=SMF70TYP; CAI234=CAI; IF CAI NE '......00'B AND SMF70TYP=0 THEN DO; CPUWAIT234=CPUWAITM; PCTCPB234=PCTCPUBY; CPUSER234=CPUSER; IORATE234=IORATE; PCTTPI234=PCTTPI; IF SMF70V='1.......'B THEN VFON234='Y'; IF NRSAMPLE GT 0 AND VECONSAM GT 0 THEN VFAFFTM234=VECONSAM*DURATM/NRSAMPLE; END; ELSE IF CAI NE '00'X AND SMF70TYP=1 THEN DO; IFAWAIT234=CPUWAITM; PCTIFB234=PCTIFABY; END; ELSE IF CAI NE '00'X AND SMF70TYP=2 THEN DO; ZIPWAIT234=CPUWAITM; PCTZIBY234=PCTZIPBY; END; END; ELSE IF CPUID=235 THEN DO; IFATYP235=SMF70TYP; CAI235=CAI; IF CAI NE '......00'B AND SMF70TYP=0 THEN DO; CPUWAIT235=CPUWAITM; PCTCPB235=PCTCPUBY; CPUSER235=CPUSER; IORATE235=IORATE; PCTTPI235=PCTTPI; IF SMF70V='1.......'B THEN VFON235='Y'; IF NRSAMPLE GT 0 AND VECONSAM GT 0 THEN VFAFFTM235=VECONSAM*DURATM/NRSAMPLE; END; ELSE IF CAI NE '00'X AND SMF70TYP=1 THEN DO; IFAWAIT235=CPUWAITM; PCTIFB235=PCTIFABY; END; ELSE IF CAI NE '00'X AND SMF70TYP=2 THEN DO; ZIPWAIT235=CPUWAITM; PCTZIBY235=PCTZIPBY; END; END; ELSE IF CPUID=236 THEN DO; IFATYP236=SMF70TYP; CAI236=CAI; IF CAI NE '......00'B AND SMF70TYP=0 THEN DO; CPUWAIT236=CPUWAITM; PCTCPB236=PCTCPUBY; CPUSER236=CPUSER; IORATE236=IORATE; PCTTPI236=PCTTPI; IF SMF70V='1.......'B THEN VFON236='Y'; IF NRSAMPLE GT 0 AND VECONSAM GT 0 THEN VFAFFTM236=VECONSAM*DURATM/NRSAMPLE; END; ELSE IF CAI NE '00'X AND SMF70TYP=1 THEN DO; IFAWAIT236=CPUWAITM; PCTIFB236=PCTIFABY; END; ELSE IF CAI NE '00'X AND SMF70TYP=2 THEN DO; ZIPWAIT236=CPUWAITM; PCTZIBY236=PCTZIPBY; END; END; ELSE IF CPUID=237 THEN DO; IFATYP237=SMF70TYP; CAI237=CAI; IF CAI NE '......00'B AND SMF70TYP=0 THEN DO; CPUWAIT237=CPUWAITM; PCTCPB237=PCTCPUBY; CPUSER237=CPUSER; IORATE237=IORATE; PCTTPI237=PCTTPI; IF SMF70V='1.......'B THEN VFON237='Y'; IF NRSAMPLE GT 0 AND VECONSAM GT 0 THEN VFAFFTM237=VECONSAM*DURATM/NRSAMPLE; END; ELSE IF CAI NE '00'X AND SMF70TYP=1 THEN DO; IFAWAIT237=CPUWAITM; PCTIFB237=PCTIFABY; END; ELSE IF CAI NE '00'X AND SMF70TYP=2 THEN DO; ZIPWAIT237=CPUWAITM; PCTZIBY237=PCTZIPBY; END; END; ELSE IF CPUID=238 THEN DO; IFATYP238=SMF70TYP; CAI238=CAI; IF CAI NE '......00'B AND SMF70TYP=0 THEN DO; CPUWAIT238=CPUWAITM; PCTCPB238=PCTCPUBY; CPUSER238=CPUSER; IORATE238=IORATE; PCTTPI238=PCTTPI; IF SMF70V='1.......'B THEN VFON238='Y'; IF NRSAMPLE GT 0 AND VECONSAM GT 0 THEN VFAFFTM238=VECONSAM*DURATM/NRSAMPLE; END; ELSE IF CAI NE '00'X AND SMF70TYP=1 THEN DO; IFAWAIT238=CPUWAITM; PCTIFB238=PCTIFABY; END; ELSE IF CAI NE '00'X AND SMF70TYP=2 THEN DO; ZIPWAIT238=CPUWAITM; PCTZIBY238=PCTZIPBY; END; END; ELSE IF CPUID=239 THEN DO; IFATYP239=SMF70TYP; CAI239=CAI; IF CAI NE '......00'B AND SMF70TYP=0 THEN DO; CPUWAIT239=CPUWAITM; PCTCPB239=PCTCPUBY; CPUSER239=CPUSER; IORATE239=IORATE; PCTTPI239=PCTTPI; IF SMF70V='1.......'B THEN VFON239='Y'; IF NRSAMPLE GT 0 AND VECONSAM GT 0 THEN VFAFFTM239=VECONSAM*DURATM/NRSAMPLE; END; ELSE IF CAI NE '00'X AND SMF70TYP=1 THEN DO; IFAWAIT239=CPUWAITM; PCTIFB239=PCTIFABY; END; ELSE IF CAI NE '00'X AND SMF70TYP=2 THEN DO; ZIPWAIT239=CPUWAITM; PCTZIBY239=PCTZIPBY; END; END; ELSE IF CPUID=240 THEN DO; IFATYP240=SMF70TYP; CAI240=CAI; IF CAI NE '......00'B AND SMF70TYP=0 THEN DO; CPUWAIT240=CPUWAITM; PCTCPB240=PCTCPUBY; CPUSER240=CPUSER; IORATE240=IORATE; PCTTPI240=PCTTPI; IF SMF70V='1.......'B THEN VFON240='Y'; IF NRSAMPLE GT 0 AND VECONSAM GT 0 THEN VFAFFTM240=VECONSAM*DURATM/NRSAMPLE; END; ELSE IF CAI NE '00'X AND SMF70TYP=1 THEN DO; IFAWAIT240=CPUWAITM; PCTIFB240=PCTIFABY; END; ELSE IF CAI NE '00'X AND SMF70TYP=2 THEN DO; ZIPWAIT240=CPUWAITM; PCTZIBY240=PCTZIPBY; END; END; ELSE IF CPUID=241 THEN DO; IFATYP241=SMF70TYP; CAI241=CAI; IF CAI NE '......00'B AND SMF70TYP=0 THEN DO; CPUWAIT241=CPUWAITM; PCTCPB241=PCTCPUBY; CPUSER241=CPUSER; IORATE241=IORATE; PCTTPI241=PCTTPI; IF SMF70V='1.......'B THEN VFON241='Y'; IF NRSAMPLE GT 0 AND VECONSAM GT 0 THEN VFAFFTM241=VECONSAM*DURATM/NRSAMPLE; END; ELSE IF CAI NE '00'X AND SMF70TYP=1 THEN DO; IFAWAIT241=CPUWAITM; PCTIFB241=PCTIFABY; END; ELSE IF CAI NE '00'X AND SMF70TYP=2 THEN DO; ZIPWAIT241=CPUWAITM; PCTZIBY241=PCTZIPBY; END; END; ELSE IF CPUID=242 THEN DO; IFATYP242=SMF70TYP; CAI242=CAI; IF CAI NE '......00'B AND SMF70TYP=0 THEN DO; CPUWAIT242=CPUWAITM; PCTCPB242=PCTCPUBY; CPUSER242=CPUSER; IORATE242=IORATE; PCTTPI242=PCTTPI; IF SMF70V='1.......'B THEN VFON242='Y'; IF NRSAMPLE GT 0 AND VECONSAM GT 0 THEN VFAFFTM242=VECONSAM*DURATM/NRSAMPLE; END; ELSE IF CAI NE '00'X AND SMF70TYP=1 THEN DO; IFAWAIT242=CPUWAITM; PCTIFB242=PCTIFABY; END; ELSE IF CAI NE '00'X AND SMF70TYP=2 THEN DO; ZIPWAIT242=CPUWAITM; PCTZIBY242=PCTZIPBY; END; END; ELSE IF CPUID=243 THEN DO; IFATYP243=SMF70TYP; CAI243=CAI; IF CAI NE '......00'B AND SMF70TYP=0 THEN DO; CPUWAIT243=CPUWAITM; PCTCPB243=PCTCPUBY; CPUSER243=CPUSER; IORATE243=IORATE; PCTTPI243=PCTTPI; IF SMF70V='1.......'B THEN VFON243='Y'; IF NRSAMPLE GT 0 AND VECONSAM GT 0 THEN VFAFFTM243=VECONSAM*DURATM/NRSAMPLE; END; ELSE IF CAI NE '00'X AND SMF70TYP=1 THEN DO; IFAWAIT243=CPUWAITM; PCTIFB243=PCTIFABY; END; ELSE IF CAI NE '00'X AND SMF70TYP=2 THEN DO; ZIPWAIT243=CPUWAITM; PCTZIBY243=PCTZIPBY; END; END; ELSE IF CPUID=244 THEN DO; IFATYP244=SMF70TYP; CAI244=CAI; IF CAI NE '......00'B AND SMF70TYP=0 THEN DO; CPUWAIT244=CPUWAITM; PCTCPB244=PCTCPUBY; CPUSER244=CPUSER; IORATE244=IORATE; PCTTPI244=PCTTPI; IF SMF70V='1.......'B THEN VFON244='Y'; IF NRSAMPLE GT 0 AND VECONSAM GT 0 THEN VFAFFTM244=VECONSAM*DURATM/NRSAMPLE; END; ELSE IF CAI NE '00'X AND SMF70TYP=1 THEN DO; IFAWAIT244=CPUWAITM; PCTIFB244=PCTIFABY; END; ELSE IF CAI NE '00'X AND SMF70TYP=2 THEN DO; ZIPWAIT244=CPUWAITM; PCTZIBY244=PCTZIPBY; END; END; ELSE IF CPUID=245 THEN DO; IFATYP245=SMF70TYP; CAI245=CAI; IF CAI NE '......00'B AND SMF70TYP=0 THEN DO; CPUWAIT245=CPUWAITM; PCTCPB245=PCTCPUBY; CPUSER245=CPUSER; IORATE245=IORATE; PCTTPI245=PCTTPI; IF SMF70V='1.......'B THEN VFON245='Y'; IF NRSAMPLE GT 0 AND VECONSAM GT 0 THEN VFAFFTM245=VECONSAM*DURATM/NRSAMPLE; END; ELSE IF CAI NE '00'X AND SMF70TYP=1 THEN DO; IFAWAIT245=CPUWAITM; PCTIFB245=PCTIFABY; END; ELSE IF CAI NE '00'X AND SMF70TYP=2 THEN DO; ZIPWAIT245=CPUWAITM; PCTZIBY245=PCTZIPBY; END; END; ELSE IF CPUID=246 THEN DO; IFATYP246=SMF70TYP; CAI246=CAI; IF CAI NE '......00'B AND SMF70TYP=0 THEN DO; CPUWAIT246=CPUWAITM; PCTCPB246=PCTCPUBY; CPUSER246=CPUSER; IORATE246=IORATE; PCTTPI246=PCTTPI; IF SMF70V='1.......'B THEN VFON246='Y'; IF NRSAMPLE GT 0 AND VECONSAM GT 0 THEN VFAFFTM246=VECONSAM*DURATM/NRSAMPLE; END; ELSE IF CAI NE '00'X AND SMF70TYP=1 THEN DO; IFAWAIT246=CPUWAITM; PCTIFB246=PCTIFABY; END; ELSE IF CAI NE '00'X AND SMF70TYP=2 THEN DO; ZIPWAIT246=CPUWAITM; PCTZIBY246=PCTZIPBY; END; END; ELSE IF CPUID=247 THEN DO; IFATYP247=SMF70TYP; CAI247=CAI; IF CAI NE '......00'B AND SMF70TYP=0 THEN DO; CPUWAIT247=CPUWAITM; PCTCPB247=PCTCPUBY; CPUSER247=CPUSER; IORATE247=IORATE; PCTTPI247=PCTTPI; IF SMF70V='1.......'B THEN VFON247='Y'; IF NRSAMPLE GT 0 AND VECONSAM GT 0 THEN VFAFFTM247=VECONSAM*DURATM/NRSAMPLE; END; ELSE IF CAI NE '00'X AND SMF70TYP=1 THEN DO; IFAWAIT247=CPUWAITM; PCTIFB247=PCTIFABY; END; ELSE IF CAI NE '00'X AND SMF70TYP=2 THEN DO; ZIPWAIT247=CPUWAITM; PCTZIBY247=PCTZIPBY; END; END; ELSE IF CPUID=248 THEN DO; IFATYP248=SMF70TYP; CAI248=CAI; IF CAI NE '......00'B AND SMF70TYP=0 THEN DO; CPUWAIT248=CPUWAITM; PCTCPB248=PCTCPUBY; CPUSER248=CPUSER; IORATE248=IORATE; PCTTPI248=PCTTPI; IF SMF70V='1.......'B THEN VFON248='Y'; IF NRSAMPLE GT 0 AND VECONSAM GT 0 THEN VFAFFTM248=VECONSAM*DURATM/NRSAMPLE; END; ELSE IF CAI NE '00'X AND SMF70TYP=1 THEN DO; IFAWAIT248=CPUWAITM; PCTIFB248=PCTIFABY; END; ELSE IF CAI NE '00'X AND SMF70TYP=2 THEN DO; ZIPWAIT248=CPUWAITM; PCTZIBY248=PCTZIPBY; END; END; ELSE IF CPUID=249 THEN DO; IFATYP249=SMF70TYP; CAI249=CAI; IF CAI NE '......00'B AND SMF70TYP=0 THEN DO; CPUWAIT249=CPUWAITM; PCTCPB249=PCTCPUBY; CPUSER249=CPUSER; IORATE249=IORATE; PCTTPI249=PCTTPI; IF SMF70V='1.......'B THEN VFON249='Y'; IF NRSAMPLE GT 0 AND VECONSAM GT 0 THEN VFAFFTM249=VECONSAM*DURATM/NRSAMPLE; END; ELSE IF CAI NE '00'X AND SMF70TYP=1 THEN DO; IFAWAIT249=CPUWAITM; PCTIFB249=PCTIFABY; END; ELSE IF CAI NE '00'X AND SMF70TYP=2 THEN DO; ZIPWAIT249=CPUWAITM; PCTZIBY249=PCTZIPBY; END; END; ELSE IF CPUID=250 THEN DO; IFATYP250=SMF70TYP; CAI250=CAI; IF CAI NE '......00'B AND SMF70TYP=0 THEN DO; CPUWAIT250=CPUWAITM; PCTCPB250=PCTCPUBY; CPUSER250=CPUSER; IORATE250=IORATE; PCTTPI250=PCTTPI; IF SMF70V='1.......'B THEN VFON250='Y'; IF NRSAMPLE GT 0 AND VECONSAM GT 0 THEN VFAFFTM250=VECONSAM*DURATM/NRSAMPLE; END; ELSE IF CAI NE '00'X AND SMF70TYP=1 THEN DO; IFAWAIT250=CPUWAITM; PCTIFB250=PCTIFABY; END; ELSE IF CAI NE '00'X AND SMF70TYP=2 THEN DO; ZIPWAIT250=CPUWAITM; PCTZIBY250=PCTZIPBY; END; END; ELSE IF CPUID=251 THEN DO; IFATYP251=SMF70TYP; CAI251=CAI; IF CAI NE '......00'B AND SMF70TYP=0 THEN DO; CPUWAIT251=CPUWAITM; PCTCPB251=PCTCPUBY; CPUSER251=CPUSER; IORATE251=IORATE; PCTTPI251=PCTTPI; IF SMF70V='1.......'B THEN VFON251='Y'; IF NRSAMPLE GT 0 AND VECONSAM GT 0 THEN VFAFFTM251=VECONSAM*DURATM/NRSAMPLE; END; ELSE IF CAI NE '00'X AND SMF70TYP=1 THEN DO; IFAWAIT251=CPUWAITM; PCTIFB251=PCTIFABY; END; ELSE IF CAI NE '00'X AND SMF70TYP=2 THEN DO; ZIPWAIT251=CPUWAITM; PCTZIBY251=PCTZIPBY; END; END; ELSE IF CPUID=252 THEN DO; IFATYP252=SMF70TYP; CAI252=CAI; IF CAI NE '......00'B AND SMF70TYP=0 THEN DO; CPUWAIT252=CPUWAITM; PCTCPB252=PCTCPUBY; CPUSER252=CPUSER; IORATE252=IORATE; PCTTPI252=PCTTPI; IF SMF70V='1.......'B THEN VFON252='Y'; IF NRSAMPLE GT 0 AND VECONSAM GT 0 THEN VFAFFTM252=VECONSAM*DURATM/NRSAMPLE; END; ELSE IF CAI NE '00'X AND SMF70TYP=1 THEN DO; IFAWAIT252=CPUWAITM; PCTIFB252=PCTIFABY; END; ELSE IF CAI NE '00'X AND SMF70TYP=2 THEN DO; ZIPWAIT252=CPUWAITM; PCTZIBY252=PCTZIPBY; END; END; ELSE IF CPUID=253 THEN DO; IFATYP253=SMF70TYP; CAI253=CAI; IF CAI NE '......00'B AND SMF70TYP=0 THEN DO; CPUWAIT253=CPUWAITM; PCTCPB253=PCTCPUBY; CPUSER253=CPUSER; IORATE253=IORATE; PCTTPI253=PCTTPI; IF SMF70V='1.......'B THEN VFON253='Y'; IF NRSAMPLE GT 0 AND VECONSAM GT 0 THEN VFAFFTM253=VECONSAM*DURATM/NRSAMPLE; END; ELSE IF CAI NE '00'X AND SMF70TYP=1 THEN DO; IFAWAIT253=CPUWAITM; PCTIFB253=PCTIFABY; END; ELSE IF CAI NE '00'X AND SMF70TYP=2 THEN DO; ZIPWAIT253=CPUWAITM; PCTZIBY253=PCTZIPBY; END; END; ELSE IF CPUID=254 THEN DO; IFATYP254=SMF70TYP; CAI254=CAI; IF CAI NE '......00'B AND SMF70TYP=0 THEN DO; CPUWAIT254=CPUWAITM; PCTCPB254=PCTCPUBY; CPUSER254=CPUSER; IORATE254=IORATE; PCTTPI254=PCTTPI; IF SMF70V='1.......'B THEN VFON254='Y'; IF NRSAMPLE GT 0 AND VECONSAM GT 0 THEN VFAFFTM254=VECONSAM*DURATM/NRSAMPLE; END; ELSE IF CAI NE '00'X AND SMF70TYP=1 THEN DO; IFAWAIT254=CPUWAITM; PCTIFB254=PCTIFABY; END; ELSE IF CAI NE '00'X AND SMF70TYP=2 THEN DO; ZIPWAIT254=CPUWAITM; PCTZIBY254=PCTZIPBY; END; END; ELSE IF CPUID=255 THEN DO; IFATYP255=SMF70TYP; CAI255=CAI; IF CAI NE '......00'B AND SMF70TYP=0 THEN DO; CPUWAIT255=CPUWAITM; PCTCPB255=PCTCPUBY; CPUSER255=CPUSER; IORATE255=IORATE; PCTTPI255=PCTTPI; IF SMF70V='1.......'B THEN VFON255='Y'; IF NRSAMPLE GT 0 AND VECONSAM GT 0 THEN VFAFFTM255=VECONSAM*DURATM/NRSAMPLE; END; ELSE IF CAI NE '00'X AND SMF70TYP=1 THEN DO; IFAWAIT255=CPUWAITM; PCTIFB255=PCTIFABY; END; ELSE IF CAI NE '00'X AND SMF70TYP=2 THEN DO; ZIPWAIT255=CPUWAITM; PCTZIBY255=PCTZIPBY; END; END; END; /* END DO GROUP WITH VALID CPUID NE 'FF' */ /* ELSE DO; CPUID='FF'X; IF OLDBD96=. THEN DO; PUTLOG // '***ERROR.TYPE7072. UNEXPECTED ' CPUID= CPUID= HEX4. / +3 _N_= LOCCPUID= SMF70TYP= NRCPUD= LENCPUD= / ' SEND LOG TO MERRILL CONSULTANTS. ' / ' TYPE70 AND/OR TYPE70PR DATA MAY BE WRONG.' / _ALL_; LIST; DELETE; END; OLDBD96=SMFRECNR; RETAIN OLDBD96; END; */ LOCCPUD=LOCCPUD+LENCPUD; /* NON SMT */ END; /* END DO OVER NRCPUD CPU SEGMENTS */ *IF SYSTEM='A090' THEN PUTLOG _N_= _I_= STARTIME= NRCPUS= ' AFTER NRCPUD '; CPUWAITM=CPUWAIT; IFAWAITM=IFAWAIT; ZIPWAITM=ZIPWAIT; CPUBSYTM=CPUBUSY; IF (NRCPUS*DURATM) GT 0 THEN PCTCPUBY=100*CPUBSYTM/(NRCPUS*DURATM); END; /* END CPU DATA SECTION(S) */ IF OFFCPUC GT 0 AND NRCPUC GT 0 THEN DO; /* HISTORICALLY, THIS CODE WAS PLACED AFTER THE CPU DATA SECTION*/ /* BECAUSE THATS WHERE I GOT THE NRCPUS FROM. */ INPUT @OFFCPUC CPUTYPE $CHAR2. /*SMF70MOD*/ @OFFCPUC+2 CPUVERSN $CHAR1. /*SMF70VER*/ @; IF LENCPUC GE 8 THEN DO; INPUT @OFFCPUC+3 PARTNCPU &PIB.1. /*SMF70BNP*/ @OFFCPUC+4 SMF70INB $CHAR1. /*SMF70INB*/ @OFFCPUC+5 SMF70STF $CHAR1. /*SMF70STF*/ @OFFCPUC+6 PRSMSLIC &PIB.2.3 /*SMF70GTS*DSPCH*TIMESLICE*/ @; IF SMF70INB='1.......'B THEN DIAG204F='Y'; ELSE DIAG204F='N'; /*DIAGNOSE*X204*FAILURE?*/ IF SMF70INB='.1......'B THEN NRPRCHGD='Y'; ELSE NRPRCHGD='N'; /*NUMBER OF PROCESSORS*WAS CHANGED?*/ IF SMF70INB='..1.....'B THEN SLICCHGD='Y'; ELSE SLICCHGD='N'; /*PRSMSLIC*TIME-SLICE*WAS CHANGED?*/ IF SMF70INB='...1....'B THEN PHYSICAL='Y'; ELSE PHYSICAL='N'; /*PHYSICAL=OVERHEAD*IS CAPTURED?*/ IF SMF70INB='....1...'B THEN DIAG204E='Y'; ELSE DIAG204E='N'; /*DIAGNOSE*X204*EXTENDED*SUPPORT?*/ IF SMF70INB='.....1..'B THEN DIAG204S='Y'; ELSE DIAG204S='N'; /*SIMPLIFIED*DIAGX204*FOR VM?*/ IF VERSNRMF LE 607 THEN OS390='Y'; IF NRCPUID=0 OR SMF70INB='.....1..'B THEN VMSYSTEM='Y'; /*APAR OA35675*/ ELSE VMSYSTEM='N'; /*THIS IS*ZOS SYSTEM*UNDER*ZVM?*/ IF SMF70STF='1.......'B THEN STSICPC ='Y'; ELSE STSICPC ='N'; /*STSI*FACILITY*IS AVAIL*FOR CPC*/ IF SMF70STF='.1......'B THEN CPUADJCH='Y'; /*SMF70ADC*/ ELSE CPUADJCH='N'; /*PHYSICAL*CPU*ADJ FACTOR*CHANGED*/ IF SMF70STF='..1.....'B THEN SUAVAICH='Y'; /*SMF70WUC*/ ELSE SUAVAICH='N'; /*SU*AVAILABLE*CHANGED*/ IF SMF70STF='...1....'B THEN STFBIT03='Y'; ELSE STFBIT03='N'; /*SMF70LAC*NO LONGER*INCLUDES*CPU WAIT?*/ IF SMF70STF='....1...'B THEN STFBIT04='Y'; ELSE STFBIT04='N'; /*SMF70MDL*MODEL*CAPACITY*ONLY?*/ IF SMF70STF='.....1..'B THEN STFBIT05='Y'; ELSE STFBIT05='N'; /*OPT PARM*BLWLTRPCT*CHANGED?*/ IF SMF70STF='......1.'B THEN STFBIT06='Y'; ELSE STFBIT06='N'; /*OPT PARM*BLWLINTHD*CHANGED?*/ IF SMF70STF='.......1'B THEN STFBIT07='Y'; ELSE STFBIT07='N'; /*SMF70GAU*IS*VALID?*/ END; /*PUT _N_= NRPRCHGD= SMF70INB= CPUADJCH= SMF70STF= ; */ IF LENCPUC GE 24 THEN DO; INPUT CPCMODEL $EBCDIC16. /*SMF70MDL*CPC*MODEL*IDENTIFIER*/ @; END; IF LENCPUC GE 28 THEN DO; INPUT SMF70DSA &PIB.2. /*NUMBER OF*DIAGNOSE*SAMPLES*/ SMF70IFA &PIB.2. /*NUMBER OF*IFA PROCESSORS*ONLINE*/ @; END; IF LENCPUC GE 40 THEN DO; /*ZOS, AND SOME PTF FOR 2.10*/ INPUT SMF70CPA &PIB.4. /*SU_SEC*FOR*THE*CEC*/ SMF70WLA &PIB.4. /*SU*LICENSED*TO MVS*IMAGE*/ SMF70LAC &PIB.4. /*LONG-TERM*AVERAGE*CPU*MSU*/ @; ORG70LAC=SMF70LAC; ORG70CPA=SMF70CPA; IF SMF70WLA EQ 0 THEN SMF70WLA=.; IF SMF70CPA GT 0 THEN SMF70CPA=16000000/SMF70CPA; ELSE DO; IF ( CPUTYPE IN ('2064'X,'2066'X,'2084'X,'2086'X,'2094'X, '2096'X) ) OR ZARCHMDE='Y' THEN DO; CPCMODE3=CPCMODEL; CPUVERS1='40'X; END; ELSE DO; CPCMODE3='404040'X; CPUVERS1=CPUVERSN; END; CPUSTUFI=CPUTYPE!!CPUVERS1!!CPCMODE3; CPUSTUFO=PUT(CPUSTUFI,$MG070CP.); IF CPUSTUFO NE CPUSTUFI THEN DO; /* FOUND CPU IN TABLE */ SMF70CPA=INPUT(SUBSTR(CPUSTUFO,15,10),10.); END; ELSE DO; CPCMODE3=PUT(CPCMODEL,$EBCDIC3.); /*ASCII*/ CPUSTUFI=CPUTYPE!!CPUVERS1!!CPCMODE3; CPUSTUFO=PUT(CPUSTUFI,$MG070CP.); IF CPUSTUFO NE CPUSTUFI THEN DO; /* FOUND CPU IN TABLE */ SMF70CPA=INPUT(SUBSTR(CPUSTUFO,15,10),10.); END; ELSE DO; NNEW+1; IF NNEW EQ 1 THEN DO; %%MXLOGPUT(MESSAGE=MXGERROR::VMAC7072.008); &MXPUT ' ***MXG ERROR: CPU NOT IN TABLE ' CPUTYPE= $HEX4. CPUVERSN= $HEX2. CPCMODE3= $HEX6. / +12 ' THIS CAUSES MISSING VALUES FOR SMF70CPA.'/; %%MXLOGEND; PUT ' ***MXG ERROR: CPU NOT IN TABLE ' CPUTYPE= $HEX4. CPUVERSN= $HEX2. CPCMODE3= $HEX6. / +12 ' THIS CAUSES MISSING VALUES FOR SMF70CPA.'/; END; SMF70CPA=.; END; END; END; ORG70CPA=SMF70CPA; END; IF LENCPUC GE 64 THEN DO; /*ZOS 1.7*/ INPUT TMP70HOF $CHAR8. @; /*ZERO LAST 3 NYBBLES*/ TMP70HOF=SUBSTR(TMP70HOF,1,6)!! PUT(16*FLOOR(INPUT(SUBSTR(TMP70HOF,7,1),&PIB.1.)/16),&PIB.1.)!! '00'X; SMF70HOF=INPUT(TMP70HOF,&IB.8.6)/4096; /*HYPERVISOR*DATETIME*OFFSET*/ INPUT SMF70HWM $EBCDIC16. /*CPC*PHYSICAL*MODEL*IDENTIFIER*/ @; IF SMF70HWM='00000000000000000000000000000000'X THEN SMF70HWM=' '; MACHTIME=SYNCTIME-SMF70HOF; END; IF LENCPUC GE 66 THEN DO; /*ZIPS*/ INPUT SMF70SUP &PIB.2. /*ZIPS*ONLINE*AT END OF*INTERVAL*/ @; END; IF LENCPUC EQ 102 THEN DO; /*ZOS 1.8*/ INPUT SMF70GJT TODSTAMP8. /*TIME WHEN*THIS PARTITION*JOIN*/ SMF70POM $EBCDIC4. /*PLANT*CODE*OF*MANUFACTURE*/ SMF70CSC $EBCDIC16. /*SEQUENCE*CODE*OF*CONFIGURATION*/ +8 @; %%VMXGTIME(SMF70GJT,SYSTEM); END; ELSE IF LENCPUC GE 116 THEN DO; /*ZOS 1.8+Z/OS 1.9 APAR OA18244*/ INPUT SMF70GJT TODSTAMP8. /*TIME WHEN*THIS PARTITION*JOIN*/ SMF70POM $EBCDIC4. /*PLANT*CODE*OF*MANUFACTURE*/ SMF70CSC $EBCDIC16. /*SEQUENCE*CODE*OF*CONFIGURATION*/ SMF70HHF &PIB.1. /*SMF70HHF*ADDITIONAL*FLAGS*OA24074*/ /* 0 HIPERDISPATCH SUPPORTED */ /* 1 HIPERDISPATCH IS ACTIVE */ /* 2 HIPERDISPATCH STATUS CHANGED */ /* 3 HISMT LOGICAL CORE FAILURE */ /* 4 ABSOLUTE MSU CAPPING ACTIVE*/ /* 5 SMF70OS_PRTCT IS VALID*/ SMF70CR &PIB.1. /*ZEP*FIELD*0*/ SMF70PMI &PIB.4. /*AVG*BLKED*DISPATCH*UNITS*MAY GET*/ SMF70PMU &PIB.4. /*BLKED*DISPATCH*UNITS*PROMOTED/S*/ SMF70PMW &PIB.4. /*AVG*DISPATCH*UNITS*BEING*BLOCKED*/ SMF70PMP &PIB.4. /*MAX*DISPATCH*UNITS*BEING*BLOCKED*/ SMF70PMT &PIB.2.3/*OPT*PARAMETER*BLWLTRPCT*/ SMF70PML &PIB.2. /*OPT*PARAMETER*BLWLINTHD*/ @; IF SMF70HHF='....1...'B THEN SMF70ABSMSU='Y'; ELSE SMF70ABSMSU=' '; IF SMF70HHF='.....1..'B THEN SMF70PRTCTV='Y'; ELSE SMF70PRTCTV=' '; %%VMXGTIME(SMF70GJT,SYSTEM); SMF70PMT=100*SMF70PMT; SMF70PMI=SMF70PMI/NRSAMPLE; SMF70PMU=(100*SMF70PMU)/(SMF70PMI*DURATM); SMF70PMW=SMF70PMW/NRSAMPLE; END; IF LENCPUC GE 160 THEN DO; /*APAR OA12774*/ INPUT SMF70MPC $EBCDIC16. /*MODEL*PERMANENT*CAPACITY*IDENT*/ SMF70MTC $EBCDIC16. /*MODEL*TEMPORARY*CAPACITY*IDENT*/ SMF70MCR &PIB.4. /*MODEL*CAPACITY*RATING OF*SMF70MDL*/ SMF70MPR &PIB.4. /*MODEL*PERMANENT*CAPACITY*RATING*/ SMF70MTR &PIB.4. /*MODEL*TEMPORARY*CAPACITY*RATING*/ @; END; IF LENCPUC GE 188 THEN DO; /*CHANGE 26.226*/ INPUT /*OA25708*/ SMF70ZEP &PIB.4. /*SMF70ZEP*RESERVED*/ SMF70ZER &PIB.8.6 /*SMF70ZER*RESERVED*/ SMF70ZEE &PIB.8.6 /*SMF70ZEE*RESERVED*/ SMF70ZEC &PIB.8.6 /*SMF70ZEC*RESERVED*/ @; SMF70ZER=SMF70ZER/4096; SMF70ZEE=(SMF70ZEE/4096)-SMF70ZER; SMF70ZEC=(SMF70ZEC/4096)-SMF70ZER; END; IF LENCPUC GE 192 THEN DO; /*CHANGE 26.243*/ INPUT /*OA21140*/ SMF70NRM &PIB.4. /*ZIIP*NORMALIZATION*FACTOR*/ @; END; IF LENCPUC GE 196 THEN DO; /*CHANGES 28.080*/ INPUT SMF70GAU &IB.4. /*CAPACITY*GROUP*AVAILABLE*MSU*/ @; SKIP=SKIP-4; END; IF LENCPUC GE 204 THEN DO; INPUT SMF70ZEI &PIB.8. /*ZEP*FIELD*FIVE*/ @; SKIP=SKIP-8; END; IF LENCPUC GE 220 THEN DO; INPUT SMF70NCR &PIB.4. /*NOMINAL*MODEL*CAPACITY*RATING*/ SMF70NPR &PIB.4. /*NOMINAL*PERMANENT*MODEL*CAPAC*/ SMF70NTR &PIB.4. /*NOMINAL*TEMPORARY*MODEL*CAPAC*/ SMF70CAI &PIB.1. /*CAPACITY*ADJUSTMENT*INDICATION*/ SMF70CCR &PIB.1. /*CAPACITY*CHANGE*REASON*/ @; SKIP=SKIP-16; END; IF LENCPUC GE 232 THEN DO; INPUT SMF70MCP &PIB.2. /*MAXIMUM*CPU*ADDRESS*AVAILABLE*/ SMF70ICP &PIB.2. /*HIGHEST*CPUID*INSTALLED*AT IPL*/ SMF70CCP &PIB.2. /*HIGHEST*CPUID*CURRENTLY*INSTALLED*/ SMF70CPA_ACTUAL &PIB.4. /*PHYSICAL*CPU*ADJUSTMENT*FACTOR*/ /*70CPA_ACTUAL*CBP*/ SMF70CPA_SCALING_FACTOR &PIB.4. /*70CPA_ACTUAL*SCALING*FACTOR*/ @; SMF70CPA_RATIO=SMF70CPA_SCALING_FACTOR/SMF70CPA_ACTUAL; SMF70CPA=16000000*SMF70CPA_RATIO; SKIP=SKIP-16; END; ARRAY CECSUSYSTEM (255) $8 _TEMPORARY_; ARRAY CECSUVALUE (255) 8 _TEMPORARY_; RETAIN CECSUSYSTEM CECSUVALUE NRCECSUMAP; IF NRCECSUMAP=. THEN DO; NRCECSUMAP=1; CECSUSYSTEM(1)=SYSTEM; CECSUVALUE(1)=SMF70CPA; END; ELSE DO; FOUND=0; DO _IV_=1 TO NRCECSUMAP; IF CECSUSYSTEM(_IV_)=SYSTEM THEN FOUND=1; END; IF FOUND=0 THEN DO; NRCECSUMAP=NRCECSUMAP+1; CECSUSYSTEM(NRCECSUMAP)=SYSTEM; CECSUVALUE (NRCECSUMAP)=SMF70CPA; END; END; IF LENCPUC GE 268 THEN DO; INPUT SMF70MCF &PIB.4. /*MULTITHREADING*MAXIMUM*CAPACITY*GP*/ SMF70MCFS &PIB.4. /*MULTITHREADING*MAXIMUM*CAPACITY*ZIIP*/ /*SMF70MCFX*MAXIMUM*CAPACITY*zCBP*/ SMF70MCFI &PIB.4. /*MULTITHREADING*MAXIMUM*CAPACITY*ZCBP*/ SMF70CF &PIB.4. /*MULTITHREADING*CAPACITY*GP*/ SMF70CFS &PIB.4. /*MULTITHREADING*CAPACITY*ZIIP*/ /*SMF70CFX*CAPACITY*zCBP*/ SMF70CFI &PIB.4. /*MULTITHREADING*CAPACITY*ZCBP*/ SMF70ATD &PIB.4. /*AVERAGE*THREAD*DENSITY*GP*/ SMF70ATDS &PIB.4. /*AVERAGE*THREAD*DENSITY*ZIIP*/ /*SMF70ATDX*THREAD*DENSITY*ZCBP*/ SMF70ATDI &PIB.4. /*AVERAGE*THREAD*DENSITY*ZCBP*/ @; SMF70MCF =SMF70MCF /1024; SMF70MCFS=SMF70MCFS/1024; SMF70MCFI=SMF70MCFI/1024; SMF70CF =SMF70CF /1024; SMF70CFS =SMF70CFS /1024; SMF70CFI =SMF70CFI /1024; SMF70ATD =SMF70ATD /1024; SMF70ATDI=SMF70ATDI/1024; SMF70ATDS=SMF70ATDS/1024; SKIP=SKIP-36; END; IF LENCPUC GE 280 THEN DO; INPUT SMF70LACM &PIB.4. /*MOBILE*LONGTERM*AVERAGE*MSU/HR*/ SMF70LACA &PIB.4. /*CAT A*LONGTERM*AVERAGE*MSU/HR*/ SMF70LACB &PIB.4. /*CAT B*LONGTERM*AVERAGE*MSU/HR*/ @; SKIP=SKIP-12; END; IF LENCPUC GE 284 THEN DO; INPUT SMF70ADJ &PIB.4. /*LOGICAL*CPU*ADJUSTMENT*FACTOR*/ @; SKIP=SKIP-4; END; IF LENCPUC GE 290 THEN DO; INPUT SMF70LACCR &PIB.4. /**LONGTERM*MSU*DFSMS*DATASET*ENCRYPTION*/ SMF70MAXPU &PIB.2. /*CORES*PHYSICALLY*AVAILABLE*THIS MODEL*/ @; SKIP=SKIP-6; END; IF LENCPUC GE 292 THEN DO; INPUT SMF70OS_PRTCT &PIB.1. /**OSPROTECT*VALUE*/ +1 @; SKIP=SKIP-2; IF SKIP=4 AND LENCPUC=296 THEN DO; INPUT +4 @; SKIP=0; END; END; IF LENCPUC GE 324 THEN DO; INPUT SMF70MDL_CBP $EBCDIC16. /**ZCBP*MODEL*IDENTIFIER*/ SMF70MCR_CBP &PIB.4. /**ZCBP*MODEL*CAPACITY*RATING*/ SMF70NCR_CBP &PIB.4. /**ZCBP*NOMINAL*CAPACITY*RATING*/ SMF70LAC_CBP &PIB.4. /**ZCBP*4HR MSU*ON CBP*PROCESSORS*/ SMF70CPA_ACTUAL_CBP &PIB.4. /**ZCBP*MODEL*CAPACITY*RATING*/ @; SKIP=SKIP-32; END; IF LENCPUC GE 340 THEN DO; INPUT SMF70_IPL_TIME TODSTAMP8. /*IPL*DATETIME*OF*PARTITION*/ SMF70_TRG_M_COUNT &PIB.4. /**TRG*MEMORY*CONSUMPTION*SAMPLES*/ +4 /**SMF70CRW RESERVED*/ @; SKIP=SKIP-16; END; IF LENCPUC GE 344 THEN DO; INPUT SMF70CPC_TYPE ?? &NUM.4. /*CPC*TYPE*/ @; SKIP=SKIP-4; END; IORATE=TOTIOINT/DURATM; IF TOTIOINT GT 0 THEN PCTTPI=100*TOTTPI/TOTIOINT; ELSE PCTTPI=.; IF SMF70RSQ LE 1 THEN DO; /*CREATE TYPE70SP FROM FIRST SPLIT*/ MVSWAIT0=CPUWAIT0; MVSWAIT1=CPUWAIT1; MVSWAIT2=CPUWAIT2; MVSWAIT3=CPUWAIT3; MVSWAIT4=CPUWAIT4; MVSWAIT5=CPUWAIT5; MVSWAIT6=CPUWAIT6; MVSWAIT7=CPUWAIT7; MVSWAIT8=CPUWAIT8; MVSWAIT9=CPUWAIT9; MVSWAITA=CPUWAITA; MVSWAITB=CPUWAITB; MVSWAITC=CPUWAITC; MVSWAITD=CPUWAITD; MVSWAITE=CPUWAITE; MVSWAITF=CPUWAITF; MVSWAITG=CPUWAITG; MVSWAITH=CPUWAITH; MVSWAITI=CPUWAITI; MVSWAITJ=CPUWAITJ; MVSWAITK=CPUWAITK; MVSWAITL=CPUWAITL; MVSWAITN=CPUWAITN; MVSWAITO=CPUWAITO; MVSWAITP=CPUWAITP; MVSWAITQ=CPUWAITQ; MVSWAITR=CPUWAITR; MVSWAITS=CPUWAITS; MVSWAITT=CPUWAITT; MVSWAITU=CPUWAITU; MVSWAITV=CPUWAITV; MVSWAITW=CPUWAITW; MVSWAITX=CPUWAITX; MVSWAITY=CPUWAITY; MVSWAITZ=CPUWAITZ; MVSWAIZA=CPUWAIZA; MVSWAIZB=CPUWAIZB; MVSWAIZC=CPUWAIZC; MVSWAIZD=CPUWAIZD; MVSWAIZE=CPUWAIZE; MVSWAIZF=CPUWAIZF; MVSWAIZG=CPUWAIZG; MVSWAIZH=CPUWAIZH; MVSWAIZI=CPUWAIZI; MVSWAIZJ=CPUWAIZJ; MVSWAIZK=CPUWAIZK; MVSWAIZL=CPUWAIZL; MVSWAIZM=CPUWAIZM; MVSWAIZN=CPUWAIZN; MVSWAIZO=CPUWAIZO; MVSWAIZP=CPUWAIZP; MVSWAIZQ=CPUWAIZQ; MVSWAIZR=CPUWAIZR; MVSWAIZS=CPUWAIZS; MVSWAIZT=CPUWAIZT; MVSWAIZU=CPUWAIZU; MVSWAIZV=CPUWAIZV; MVSWAIZW=CPUWAIZW; MVSWAIZX=CPUWAIZX; MVSWAIZY=CPUWAIZY; MVSWAIZZ=CPUWAIZZ; MVSWAIYA=CPUWAIYA; MVSWAIYB=CPUWAIYB; MVSWAIYC=CPUWAIYC; MVSWAIYD=CPUWAIYD; MVSWAIYE=CPUWAIYE; MVSWAIYF=CPUWAIYF; MVSWAIYG=CPUWAIYG; MVSWAIYH=CPUWAIYH; MVSWAIYI=CPUWAIYI; MVSWAIYJ=CPUWAIYJ; MVSWAIYK=CPUWAIYK; MVSWAIYL=CPUWAIYL; MVSWAIYM=CPUWAIYM; MVSWAIYN=CPUWAIYN; MVSWAIYO=CPUWAIYO; MVSWAIYP=CPUWAIYP; MVSWAIYQ=CPUWAIYQ; MVSWAIYR=CPUWAIYR; MVSWAIYS=CPUWAIYS; MVSWAIYT=CPUWAIYT; MVSWAIYU=CPUWAIYU; MVSWAIYV=CPUWAIYV; MVSWAIYW=CPUWAIYW; MVSWAIYX=CPUWAIYX; MVSWAIYY=CPUWAIYY; MVSWAIYZ=CPUWAIYZ; MVSWAIVA=CPUWAIVA; MVSWAIVB=CPUWAIVB; MVSWAIVC=CPUWAIVC; MVSWAIVD=CPUWAIVD; MVSWAIVE=CPUWAIVE; MVSWAIVF=CPUWAIVF; MVSWAIVG=CPUWAIVG; MVSWAIVH=CPUWAIVH; MVSWAIVI=CPUWAIVI; MVSWAITM=CPUWAITM; PCTMVSBY=PCTCPUBY; IF PRSMSYST='Y' THEN DO; /* RESET ONLY IF PR/SM DATA, PROTECT ZOS UNDER VM, NATIVE*/ CPUWAIT0=.; CPUWAIT1=.; CPUWAIT2=.; CPUWAIT3=.; CPUWAIT4=.; CPUWAIT5=.; CPUWAIT6=.; CPUWAIT7=.; CPUWAIT8=.; CPUWAIT9=.; CPUWAITA=.; CPUWAITB=.; CPUWAITC=.; CPUWAITD=.; CPUWAITE=.; CPUWAITF=.; CPUWAITG=.; CPUWAITH=.; CPUWAITI=.; CPUWAITJ=.; CPUWAITK=.; CPUWAITL=.; CPUWAITN=.; CPUWAITO=.; CPUWAITP=.; CPUWAITQ=.; CPUWAITR=.; CPUWAITS=.; CPUWAITT=.; CPUWAITU=.; CPUWAITV=.; CPUWAITW=.; CPUWAITX=.; CPUWAITY=.; CPUWAITZ=.; CPUWAIZA=.; CPUWAIZB=.; CPUWAIZC=.; CPUWAIZD=.; CPUWAIZE=.; CPUWAIZF=.; CPUWAIZG=.; CPUWAIZH=.; CPUWAIZI=.; CPUWAIZJ=.; CPUWAIZK=.; CPUWAIZL=.; CPUWAIZM=.; CPUWAIZN=.; CPUWAIZO=.; CPUWAIZP=.; CPUWAIZQ=.; CPUWAIZR=.; CPUWAIZS=.; CPUWAIZT=.; CPUWAIZU=.; CPUWAIZV=.; CPUWAIZW=.; CPUWAIZX=.; CPUWAIZY=.; CPUWAIZZ=.; CPUWAIYA=.; CPUWAIYB=.; CPUWAIYC=.; CPUWAITM=.; PCTCPUBY=.; END; IF NRCPUS LE 1 THEN PCTRDYWT=SUM(OF READY02-READY15); ELSE IF NRCPUS LE 2 THEN PCTRDYWT=SUM(OF READY03-READY15); ELSE IF NRCPUS LE 3 THEN PCTRDYWT=SUM(OF READY04-READY15); ELSE IF NRCPUS LE 4 THEN PCTRDYWT=SUM(OF READY05-READY15); ELSE IF NRCPUS LE 5 THEN PCTRDYWT=SUM(OF READY06-READY15); ELSE IF NRCPUS LE 6 THEN PCTRDYWT=SUM(OF READY07-READY15); ELSE IF NRCPUS LE 7 THEN PCTRDYWT=SUM(OF READY08-READY15); ELSE IF NRCPUS LE 8 THEN PCTRDYWT=SUM(OF READY09-READY15); ELSE IF NRCPUS LE 9 THEN PCTRDYWT=SUM(OF READY10-READY15); ELSE IF NRCPUS LE 10 THEN PCTRDYWT=SUM(OF READY11-READY15); ELSE IF NRCPUS LE 11 THEN PCTRDYWT=SUM(OF READY12-READY15); ELSE IF NRCPUS LE 12 THEN PCTRDYWT=SUM(OF READY13-READY15); ELSE IF NRCPUS LE 13 THEN PCTRDYWT=SUM(OF READY14-READY15); ELSE IF NRCPUS LE 14 THEN PCTRDYWT=READY15; ELSE PCTRDYWT=.; IF _XANT THEN PUTLOG ' 2.70SP' _N_= SMF70ONT= PCTCPUBY= PCTMVSBY= NEWWAIT= SMF70PAT= DURATM= IORATE= ZIPACTTM=; *IF SYSTEM='A090' THEN PUTLOG _N_= ' TY70SP ' NRCPUS= CPUSERYD=; _ETY70SP; /*INC SOURCLIB(EXTY70SP);_WTY70SP OUTPUTS TYPE70SP*/ CPUWAIT0=MVSWAIT0; CPUWAIT1=MVSWAIT1; CPUWAIT2=MVSWAIT2; CPUWAIT3=MVSWAIT3; CPUWAIT4=MVSWAIT4; CPUWAIT5=MVSWAIT5; CPUWAIT6=MVSWAIT6; CPUWAIT7=MVSWAIT7; CPUWAIT8=MVSWAIT8; CPUWAIT9=MVSWAIT9; CPUWAITA=MVSWAITA; CPUWAITB=MVSWAITB; CPUWAITC=MVSWAITC; CPUWAITD=MVSWAITD; CPUWAITE=MVSWAITE; CPUWAITF=MVSWAITF; CPUWAITG=MVSWAITG; CPUWAITH=MVSWAITH; CPUWAITI=MVSWAITI; CPUWAITJ=MVSWAITJ; CPUWAITK=MVSWAITK; CPUWAITL=MVSWAITL; CPUWAITN=MVSWAITN; CPUWAITO=MVSWAITO; CPUWAITP=MVSWAITP; CPUWAITQ=MVSWAITQ; CPUWAITR=MVSWAITR; CPUWAITS=MVSWAITS; CPUWAITT=MVSWAITT; CPUWAITU=MVSWAITU; CPUWAITV=MVSWAITV; CPUWAITW=MVSWAITW; CPUWAITX=MVSWAITX; CPUWAITY=MVSWAITY; CPUWAITZ=MVSWAITZ; CPUWAIZA=MVSWAIZA; CPUWAIZB=MVSWAIZB; CPUWAIZC=MVSWAIZC; CPUWAIZD=MVSWAIZD; CPUWAIZE=MVSWAIZE; CPUWAIZF=MVSWAIZF; CPUWAIZG=MVSWAIZG; CPUWAIZH=MVSWAIZH; CPUWAIZI=MVSWAIZI; CPUWAIZJ=MVSWAIZJ; CPUWAIZK=MVSWAIZK; CPUWAIZL=MVSWAIZL; CPUWAIZM=MVSWAIZM; CPUWAIZN=MVSWAIZN; CPUWAIZO=MVSWAIZO; CPUWAIZP=MVSWAIZP; CPUWAIZQ=MVSWAIZQ; CPUWAIZR=MVSWAIZR; CPUWAIZS=MVSWAIZS; CPUWAIZT=MVSWAIZT; CPUWAIZU=MVSWAIZU; CPUWAIZV=MVSWAIZV; CPUWAIZW=MVSWAIZW; CPUWAIZX=MVSWAIZX; CPUWAIZY=MVSWAIZY; CPUWAIZZ=MVSWAIZZ; CPUWAIYA=MVSWAIYA; CPUWAIYB=MVSWAIYB; CPUWAIYC=MVSWAIYC; CPUWAIYD=MVSWAIYD; CPUWAIYE=MVSWAIYE; CPUWAIYF=MVSWAIYF; CPUWAIYG=MVSWAIYG; CPUWAIYH=MVSWAIYH; CPUWAIYI=MVSWAIYI; CPUWAIYJ=MVSWAIYJ; CPUWAIYK=MVSWAIYK; CPUWAIYL=MVSWAIYL; CPUWAIYM=MVSWAIYM; CPUWAIYN=MVSWAIYN; CPUWAIYO=MVSWAIYO; CPUWAIYP=MVSWAIYP; CPUWAIYQ=MVSWAIYQ; CPUWAIYR=MVSWAIYR; CPUWAIYS=MVSWAIYS; CPUWAIYT=MVSWAIYT; CPUWAIYU=MVSWAIYU; CPUWAIYV=MVSWAIYV; CPUWAIYW=MVSWAIYW; CPUWAIYX=MVSWAIYX; CPUWAIYY=MVSWAIYY; CPUWAIYZ=MVSWAIYZ; CPUWAIVA=MVSWAIVA; CPUWAIVB=MVSWAIVB; CPUWAIVC=MVSWAIVC; CPUWAIVD=MVSWAIVD; CPUWAIVE=MVSWAIVE; CPUWAIVF=MVSWAIVF; CPUWAIVG=MVSWAIVG; CPUWAIVH=MVSWAIVH; CPUWAIVI=MVSWAIVI; CPUWAITM=MVSWAITM; PCTCPUBY=PCTMVSBY; PCTMVSBY=.; END; END; /* END CPU CONTROL SECTION */ ARRAY S70CIN (16) $3 _TEMPORARY_; /*ONE PER ENGINE TYPE - 6 NOW*/ ARRAY S70CTN (16) 4 _TEMPORARY_; ARRAY S70CAN (16) 4 _TEMPORARY_; ARRAY S70LPCP (86) _TEMPORARY_; /* ONE PER LPARNUM+PHYSICAL */ ARRAY S70LPIP (86) _TEMPORARY_; /* ONE PER LPARNUM+PHYSICAL */ OFFCPUID=OFFCPUID-3+OFFSMF; IF OFFCPUID GT 0 AND NRCPUID GT 0 AND OFFCPUID+NRCPUID*LENCPUID LE (LENGTH+1) THEN DO _I_=1 TO NRCPUID; IF LENCPUID EQ 16 THEN INPUT @OFFCPUID S70CIN(_I_) $EBCDIC3. @; ELSE IF LENCPUID EQ 20 THEN INPUT @OFFCPUID S70CIN(_I_) $EBCDIC3. +13 S70CTN(_I_) &PIB.2. /*NR CPUS OF THIS TYPE*/ +2 @; ELSE IF LENCPUID GE 24 THEN DO; INPUT @OFFCPUID S70CIN(_I_) $EBCDIC3. +13 S70CTN(_I_) &PIB.2. /*NR CPUS OF THIS TYPE*/ +2 S70CAN(_I_) &PIB.4. /*AVERAGE*CPUS*THIS*TYPE*/ @; IF SMF70DSA GT 0 THEN S70CAN(_I_)=S70CAN(_I_)/SMF70DSA; END; IF S70CIN(_I_)='CBP' THEN S70CIN(_I_)='IFA'; /*CHANGE 36.126*/ IF _XANT THEN PUTLOG _N_= _I_= OFFCPUID=S70CIN(_I_)= S70CTN(_I_)= S70CAN(_I_)= NRCPUID= LENCPUID=; OFFCPUID=OFFCPUID+LENCPUID; END; /* END CPUID DATA SECTION */ ELSE DO; VMSYSTEM='Y'; N70CPUID+1; IF N70CPUID EQ 1 THEN DO; %%MXLOGPUT(MESSAGE=MXGINFO::VMAC7072.009); &MXPUT // '***MXGINFO: RMF 70 CPUID SECTION DOES NOT EXIST.'/ ' THIS IS NORMAL IF Z/OS IS EXECUTING UNDER Z/VM,'/ ' AND UNDER VM NO DATA WAS LOST. OTHERWISE, THIS '/ ' IS AN INVALID RMF 70 RECORD, AND DATA WAS LOST.'/ +3 LENCPUID= NRCPUID= LENGTH= _N_= / +3 SYSTEM= SMFTIME=; %%MXLOGEND; PUT // '***MXGINFO: RMF 70 CPUID SECTION DOES NOT EXIST.'/ ' THIS IS NORMAL IF Z/OS IS EXECUTING UNDER Z/VM,'/ ' AND UNDER VM NO DATA WAS LOST; OTHERWISE, THIS '/ ' IS AN INVALID RMF 70 RECORD, AND DATA WAS LOST.'/ +3 LENCPUID= NRCPUID= LENGTH= _N_= / +3 SYSTEM= SMFTIME=; END; END; IF OFFPRCS GT 0 AND NRPRCSS GT 0 THEN DO; OFFPRCS=OFFPRCS-3+OFFSMF; IF OFFPRCS+LENPRCS*NRPRCSS GT LENGTH+1 THEN DO; N70PRCS+1; IF N70PRCS LE 3 THEN DO; %%MXLOGPUT(MESSAGE=MXGERROR::VMAC7072.010); &MXPUT ' TYPERR PRCS SECTION ERROR.' // ' INVALID RECORD DETECTED AND DELETED.' OFFPRCS= LENPRCS= NRPRCSS= LENGTH= _N_= SYSTEM= SMFTIME=; %%MXLOGEND; PUT ' TYPERR PRCS SECTION ERROR.' // ' INVALID RECORD DETECTED AND DELETED.' OFFPRCS= LENPRCS= NRPRCSS= LENGTH= _N_= SYSTEM= SMFTIME=; END; DELETE; END; INPUT @OFFPRCS @; NRPRCS=NRPRCSS; /*SET EQUAL TO NUMBER OF SEGMENTS*/ NRCIXGT0=0; /*VERIFIES OW37565 IS INSTALLED SO CIX IS VALID*/ NUPHYCPS=0; /*COUNTS PHYSICAL SEGMENTS*/ NUICFCPU=0; /*COUNTS ICF-S FOUND IN PLATFORM */ NUIFLCPU=0; /*COUNTS IFL-S FOUND IN PLATFORM */ NUCPSCPU=0; /*TEMP, NOT KEPT COUNTS CP ENGINES IN PLATFORM */ NUIFACPU=0; /*COUNTS IFA-S FOUND IN PLATFORM */ LOCPRCS=OFFPRCS; DO I = 1 TO NRPRCSS; /*LOOP COUNTS PHYSICAL AND ICFS, SETS VALUES*/ SMF70CIN=' '; /*27.074 */ INPUT @LOCPRCS LPARNAME $EBCDIC8. /*SMF70LPM*/ LPARNUM &PIB.1. /*SMF70LPN*/ +1 /*SMF70PFG- SEE PARTFLG, BELOW*/ LPARCPUX &PIB.2. /*SMF70BDN*/ BNDSKIP &PIB.4. /*SMF70BDS*/ @; IF LENPRCS GE 64 THEN INPUT SMF70BDA &PIB.4. /*LOGICAL CPUS*ACTIVE FOR*THIS PARTITION*/ @; IF LPARNAME='PHYSICAL' THEN DO; LPARNUM=0; NRPRCS=NRPRCS-1; /*SUB 1 IF PHY SEG*/ END; LOCPRDS=OFFPRDS+BNDSKIP*LENPRDS-3+OFFSMF; INPUT @LOCPRDS @; LPARCPUS=0; LPARZIPS=0; IF LPARCPUX GT 0 THEN DO J=1 TO LPARCPUX; /*LPARCPUX=SMF70BDN*/ SKIP=LENPRDS-16; LOCLPARCPUX=COL; INPUT RAW70PDT &PIB.8.6 /*LCPUPDTM - SMF70PDT*/ LCPUADDR &PIB.2. /*SMF70VPA*/ +2 /*SMF70BPS*/ +1 /*SMF70VPF*/ +1 /*SMF70POF*/ SMF70CIX &PIB.2. /*SMF70CIX*/ @; FORMAT RAW70PDT TIME12.2; IF RAW70PDT GT DURATM+60 THEN DO; PUT 'MXGWARN: IMPOSSIBLE VALUE DETECTED FOR LCPUPDTM ' LPARNAME= _N_=/ 'MXGWARN: ' STARTIME= SMF70CIN= DURATM=/ +8 ' LCPUPDTM=' RAW70PDT 15. ' ' COL=/; LCPUPDTM=0; END; IF PARTISHN=LPARNUM THEN DO; DO _KK_=1 TO 256; IF LCPUADDR = ZSMT_CORE_ID(_KK_) THEN DO; SMT_CORE_ID = LCPUADDR; XSMF70TYP = ZSMT_XSMF70TYP(_KK_); LCPUADDR = ZSMT_CPUID(_KK_); _KK_=999; END; END; IF _KK_=256 THEN DO; LCPUADDR=.; SMT_CORE_ID=.; XSMF70TYP=.; END; END; ELSE DO; /* 10/18 revision */ SMT_CORE_ID = LCPUADDR; IF SMF70CIX=1 THEN XSMF70TYP=1; /*CP*/ ELSE IF SMF70CIX=3 THEN XSMF70TYP=2; /*IFA*/ ELSE IF SMF70CIX=6 THEN XSMF70TYP=3; /*IIP*/ END; IF _XANT THEN PUTLOG / '70PR INPUT ' _N_= J= _KK_= COL= LPARNAME= LCPUADDR= SMT_CORE_ID= LPARCPUX= SMF70CIX= XSMF70TYP= /+2 RAW70PDT=; IF SMF70CIX EQ 1 AND XSMF70TYP=2 THEN SMF70CIX=6;/*FIX*/ IF SKIP GE 32 THEN DO; INPUT +24 /*EDT,ACS,MIS,MAS,NSI,NSA*/ SMF70ONT &PIB.8.6 /*SMF70ONT*/ @; IF SMF70ONT=0 AND VMSYSTEM='Y' THEN SMF70ONT=DURATM; SKIP=SKIP-32; END; ELSE SMF70ONT=.; IF SMF70ONT EQ 0 AND ( CPUTYPE NOT IN ('2064'X,'2066'X,'2084'X,'2086'X,'2094'X, '2096'X) AND ZARCHMDE NE 'Y' ) THEN SMF70ONT=.; IF SKIP GT 0 THEN INPUT +SKIP @; IF SMF70CIX GT 0 THEN NRCIXGT0+1; /* OW37565 IS INSTALLED*/ /* DOC NOTE: APAR OA10346 NOW SETS: */ /* BUT SEE CHANGE 27.010. */ /* SMF70CIX CPU TYPE */ /* 1 CP */ /* 2 */ /* 3 IFA */ /* 4 IFL */ /* 5 ICF */ /* 6 IIP */ IF NRCIXGT0 GT 0 THEN DO; IF SMF70CIX=1 THEN SMF70CIN='CP '; ELSE IF SMF70CIX=3 THEN SMF70CIN='IFA'; ELSE IF SMF70CIX=4 THEN SMF70CIN='IFL'; ELSE IF SMF70CIX=5 THEN SMF70CIN='ICF'; ELSE IF SMF70CIX=6 THEN SMF70CIN='IIP'; ELSE SMF70CIN=' '; IF _XANT THEN PUTLOG 'NRCIXGT0: ' _N_= I= LPARNAME= COL= LOCLPARCPUX= LCPUADDR= SMF70CIX= SMT_CORE_ID= SMF70CIN= SMFTIME=; END; ELSE IF CPUTYPE='9672'X AND LPARNAME='PHYSICAL' THEN SMF70CIN='CP'; ELSE SMF70CIN=' '; IF SMF70ONT NE 0 AND SMF70CIN='CP ' THEN LPARCPUS=LPARCPUS+1; IF SMF70ONT NE 0 AND SMF70CIN='IIP' THEN LPARZIPS=LPARZIPS+1; IF LPARNAME='PHYSICAL' THEN DO; IF SMF70CIN='CP ' THEN NUCPSCPU+1; ELSE IF SMF70CIN='ICF' THEN NUICFCPU+1; ELSE IF SMF70CIN='IFA' THEN NUIFACPU+1; ELSE IF SMF70CIN='IFL' THEN NUIFLCPU+1; ELSE IF SMF70CIN='IIP' THEN NUZIPCPU+1; IF _XANT THEN PUTLOG 'NRCIXGT2: ' LPARNAME= COL= LCPUADDR= SMF70CIX= SMF70CIN=; IF LPARNAME='PHYSICAL' AND SMF70CIN='ICF' AND CPUTYPE='2084'X AND VERSNRMF GE 715 THEN DO; IF OSMFCINR NE SMFRECNR THEN DO; IFASEGNR=0; NUICFCPU=0; NUIFACPU=0; END; OSMFCINR=SMFRECNR; RETAIN OSMFCINR IFASEGNR; IFASEGNR+1; IF CECIFANR=. THEN CECIFANR=.; &CECIFANR; /* SETS CECIFANR FOR EACH CECSER */ IF IFASEGNR LE CECIFANR THEN SMF70CIN='IFA'; ELSE IFASEGNR=9999; IF SMF70CIN='ICF' AND LPARNAME='PHYSICAL' THEN NRICFCPU+1; ELSE IF SMF70CIN='IFA' AND LPARNAME='PHYSICAL' THEN NRIFACPU+1; END; ELSE IF SMF70CIX=0 THEN SMF70CIN='ICF'; /*OW48190 NOT FIXED*/ IF _XANT THEN PUTLOG 'COUNTS' _N_= COL= LCPUADDR= SMF70CIX SMF70CIN= NUCPSCPU= NUICFCPU= NUIFACPU= NUIFLCPU= NUZIPCPU= LPARCPUS= LPARZIPS=; END; END; ELSE DO; /*LPARCPUX=0, OFFLINE LPAR */ LCPUADDR=.; SMF70CIX=.; SMF70ONT=.; NRCIXGT0=.; END; IF _XANT THEN PUTLOG "LPARNAME THREE: " _N_= LOCPRCS= SMF70CIN= LPARNAME= NRCPUS= NRZIPCPU= NUCPSCPU= NUIFACPU= NUIFLCPU= NUZIPCPU= NUICFCPU=; S70LPCP(LPARNUM+1)=LPARCPUS; S70LPIP(LPARNUM+1)=LPARZIPS; LOCPRCS=LOCPRCS+LENPRCS; INPUT @LOCPRCS @; END; /* NO306RST logic removed 37.02. */ INPUT @OFFPRCS @; CPUWAIT=0; MVSWAIT=0; CPUEFF =0; SUM70ONT=.; ICF70ONT=.; ICFPDTTM=.; IFA70ONT=.; IFAPDTTM=.; ZIP70ONT=.; ZIP70PAT=.; DO I = 1 TO NRPRCSS; /*SECOND, DETAIL*/ LOCLPARNAME=COL; INPUT LPARNAME $EBCDIC8. /*SMF70LPM*LOGICAL*PARTITION*NAME*/ LPARNUM &PIB.1. /*SMF70LPN*LOGICAL*PARTITION*NUMBER*/ PARTFLG $CHAR1. /*SMF70PFG*LOGICAL*PARTITION*FLAGS*/ LPARCPUX &PIB.2. /*SMF70BDN*NUMBER OF*CPUS IN*THIS LPAR*/ BDNSKIP &PIB.4. /*SMF70BDS PRDSSKIP*TOGETTO*PARTNS DATA*/ @; SKIP=LENPRCS-16; IF LENPRCS GE 72 THEN DO; INPUT SMF70BDA &PIB.4. /*LOGICAL CPUS*ACTIVE FOR*THIS PARTITION*/ SMF70SPN $EBCDIC8. /*CLUSTER*NAME*/ SMF70STN $EBCDIC8. /*SYSTEM*NAME*/ +4 SMF70CSF &PIB.4. /*CSTORE*ASSIGNED*THIS*PARTITION*/ +4 SMF70ESF &PIB.4. /*ESTORE*ASSIGNED*THIS*PARTITION*/ SMF70MSU &PIB.4. /*DEFINED*CAPACITY*LIMIT*IN MSU*/ SMF70PFL $CHAR1. /*ADDITIONAL*PARTITION*FLAGS*/ SMF70UPI &PIB.2. /*USER*PARTITION*ID*/ SMF70MTID &PIB.1. /*MAX THREAD*IDENTIFICATION*/ SMF70GNM $EBCDIC8. /*CAPACITY*GROUP*NAME*/ SMF70GMU &PIB.4. /*MAXIMUM*LICENSE*UNITS*OF A GROUP*/ @; &MXGSTNFX; IF _XANT THEN PUTLOG / 'REAL: LPARNAME ' _N_= I= COL= SYSTEM= SYSNAME= SMF70STN= LPARNAME=; SKIP=SKIP-56; IF SMF70SPN='0000000000000000'X THEN SMF70SPN=' '; IF SMF70PFL='0.......'B THEN SMF70UPI=.; IF SMF70PFL='.0......'B THEN SMF70GNM=' '; IF SMF70PFL='..1.....'B THEN SMF70HDM='Y'; /*OA12774*/ ELSE SMF70HDM=' '; IF SMF70PFL='...1....'B THEN SMF70UIW='Y'; /*SHUD*USE*INIT*WT*/ ELSE SMF70UIW=' '; SMF70STN=TRANSLATE(SMF70STN,' ','00'X); /*OFFLINE LPAR*/ SMF70CSF=1048576*SMF70CSF; SMF70ESF=1048576*SMF70ESF; IF SMF70DSA GT 0 THEN SMF70BDA=SMF70BDA/SMF70DSA; ELSE SMF70BDA=.; END; IF LENPRCS GE 80 THEN DO; INPUT SMF70HWGRNAME $EBCDIC8. /*HARDWARE*GROUP*OF THIS*PARTITION*/ @; SMF70HWGRNAME=TRANSLATE(SMF70HWGRNAME,' ','00'x); SKIP=SKIP-8; END; IF LENPRCS GE 84 THEN DO; INPUT SMF70_BOOSTINFO $CHAR1. /*BOOST_INFO BITS NOT KEPT*/ +3 @; IF SMF70_BOOSTINFO='10......'B THEN BOOSTACTIVE=3;/*PART ZIP*/ ELSE IF SMF70_BOOSTINFO='01......'B THEN BOOSTACTIVE=4;/*PART SPEED*/ ELSE IF SMF70_BOOSTINFO='11......'B THEN BOOSTACTIVE=5;/*PART BOTH*/ ELSE IF SMF70_BOOSTINFO='00......'B THEN BOOSTACTIVE=.; SKIP=SKIP-4; END; IF SKIP GT 0 THEN INPUT +SKIP @; IF LPARNAME='PHYSICAL' THEN LPARNUM=0; LPARCPUS=S70LPCP(LPARNUM+1); LPARZIPS=S70LPIP(LPARNUM+1); IF PARTFLG ='1.......'B THEN LPARCHAC='Y'; ELSE LPARCHAC='N'; /*PARTITION CHANGED ACTIVE/NON/VICEVERSA*/ IF PARTFLG ='.1......'B THEN LPARCHNR='Y'; ELSE LPARCHNR='N'; /*NUMBER OF LCPUS IN PARTITION CHANGED*/ IF PARTFLG ='..1.....'B THEN LPARCHDE='Y'; ELSE LPARCHDE='N'; /*NUMBER OF DEDICATED CPUS IN PART CHANGED*/ IF PARTFLG ='...1....'B THEN LPARCHSH='Y'; ELSE LPARCHSH='N'; /*NUMBER OF SHARED CPUS IN PARTITION CHANGED*/ IF PARTFLG ='....1...'B THEN LPARWLMG='Y';/*SMF70WLM*/ ELSE LPARWLMG='N'; /*WLM*LPAR*MANAGEMENT*IS ACTIVE?*/ IF PARTFLG ='.....1..'B THEN LPARWTFD='Y';/*SMF70WTF*/ ELSE LPARWTFD='N'; /*WAIT*TIME*FIELD*DEFINED? - MODIFYS BDN */ IF PARTFLG ='......1.'B THEN LPARDCLC='Y';/*SMF70MSC*/ ELSE LPARDCLC='N'; /*DEFINED*CAPACITY*LIMIT*CHANGED?*/ IF PARTFLG ='.......1'B THEN LPARCLND='Y';/*SMF70MSF*/ ELSE LPARCLND='N'; /*CAPACITY*LIMIT*NOT*DEFINED?*/ /* RESERVED IN Z/OS 1.7+*/ LPARCLND=' '; /*BLANK FORCED SINCE BIT RESERVED IN Z/OS 1.7 */ IF _XANT THEN PUTLOG / ' DEBUG 3.LPNAME ' _N_= LPARNAME= LPARNUM= / +5 COL= SYSTEM= SYSNAME= SMF70STN= / +5 SMF70ONT= SMF70PAT= LPARCHAC= LPARCHNR= LPARCHDE= LPARCHSH=/ +5 LPARWLMG= LPARWTFD= LPARDCLC= LPARCLND= PARTFLG= SMF70CIN= PARTISHN=; LOCPRCS=COL; LOCPRDS=OFFPRDS+BDNSKIP*LENPRDS-3+OFFSMF; IF LOCPRDS+LPARCPUX*LENPRDS GT LENGTH+1 THEN DO; NBDPRDS+1; IF NBDPRDS EQ 1 THEN DO; %%MXLOGPUT(MESSAGE=MXGERROR::VMAC7072.011); &MXPUT '***ERROR.VMAC7072.INVALID PRDS LOCATION ' LOCPRDS= OFFPRDS= LENPRDS= BDNSKIP= LOCPRCS= I= LENGTH= / +5 ' RECORD WAS DELETED. ' SYSTEM= SMFTIME= ; %%MXLOGEND; PUT '***ERROR.VMAC7072.INVALID PRDS LOCATION ' LOCPRDS= OFFPRDS= LENPRDS= BDNSKIP= LOCPRCS= I= LENGTH= / +5 ' RECORD WAS DELETED. ' SYSTEM= SMFTIME= ; END; DELETE; END; INPUT @LOCPRDS @; IF LPARCPUX=0 THEN DO; /* OFFLINE LPAR, OUTPUT IT */ HOLICFTM=ICFACTTM; HOLIFATM=IFAACTTM; HOLIFLTM=IFLACTTM; HOLZIPTM=ZIPACTTM; ICFACTTM=.; IFAACTTM=.; IFLACTTM=.; ZIPACTTM=.; LCPUPDTM=.; LCPUADDR=.; LCPUSHAR=.; LPARVPF =.; LCPUEDTM=.; LCPUDED =' '; LCPUWAIT=' '; LCPUCHST=' '; LCPUCHWT=' '; LCPUCAP =' '; LCPUCAPC=' '; LCPUVARY=' '; LCPUHWCL=' '; ORIGWAIT=.; NEWWAIT=.; PCTCPUBY=.; PCTMVSBY=.; SHORTCPS=.; PLCPRDYQ=.; SMF70ACS=.; SMF70LAC=.; SMF70MIS=.; SMF70MAS=.; SMF70MSU=.; SMF70NSI=.; SMF70NSA=.; SMF70NCA=.; SMF70NSW=.; SMF70ONT=.; SMF70PMA=.; SMF70WST=.; SMF70POW=.; MXGCIN=' '; SMF70CIN=' '; SMF70CTN=.; SMF70CAN=.; _ETY70PR;/*INC SOURCLIB(EXTY70PR);_WTY70PR OUTPUTS TYPE70PR*/ IFAACTTM=HOLIFATM; ZIPACTTM=HOLZIPTM; END; ELSE DO J= 1 TO LPARCPUX; /* REAL READ OF EACH LCPUADDR */ LOCLPARX=COL; INPUT LCPUPDTM &PIB.8.6 /*SMF70PDT*LOGICAL PROCESSOR*DISPATCH*DURAT*/ LCPUADDR &PIB.2. /*SMF70VPA*LOGICAL PROCESOR*ADDRESS*/ LCPUSHAR &PIB.2. /*SMF70BPS PROCESSOR*RELATIVE*SHARE*/ LPARVPF &PIB.1. /*SMF70VPF*WAIT STATE*ASSIST STATE*ENABLED?*/ SMF70POF $CHAR1. /*POLARIZATION*FLAG*APAR OA21140*/ SMF70CIX &PIB.2. /*SMF70CIX*INDEX*TO*CPU-ID-NAME*/ @; CP70BPS=.; ZIP70BPS=.; IFA70BPS=.; IFL70BPS=.; IF SMF70CIX=1 THEN CP70BPS=LCPUSHAR; ELSE IF SMF70CIX=3 THEN IFA70BPS=LCPUSHAR; ELSE IF SMF70CIX=4 THEN IFL70BPS=LCPUSHAR; ELSE IF SMF70CIX=6 THEN ZIP70BPS=LCPUSHAR; IF SMTSEGNR GT 0 AND PARTISHN=LPARNUM THEN DO; DO _KK_=1 TO 256; IF LCPUADDR = ZSMT_CORE_ID(_KK_) THEN DO; SMT_CORE_ID = LCPUADDR; XSMF70TYP = ZSMT_XSMF70TYP(_KK_); LCPUADDR = ZSMT_CPUID(_KK_); IF XSMF70TYP=2 THEN SMF70CIX=6;/*FIX IBM ERROR*/ _KK_=999; END; END; IF _KK_=256 THEN DO; LCPUADDR=.; SMT_CORE_ID=.; XSMF70TYP=.; END; SMT_PROD=.; SMT_NUM=.; SMT_LPAR_BUSY=.; END; ELSE DO; /* 10/18 REVISION */ SMT_CORE_ID = LCPUADDR; IF SMF70CIX=1 THEN XSMF70TYP=1; /*CP*/ ELSE IF SMF70CIX=3 THEN XSMF70TYP=2; /*IFA*/ ELSE IF SMF70CIX=6 THEN XSMF70TYP=3; /*IIP*/ SMT_PROD=.; SMT_NUM=.; SMT_LPAR_BUSY=.; END; IF _XANT THEN PUTLOG ' LCPUADDR CHANGE LOOP: ' _N_= COL= LPARNAME= LCPUADDR= SMT_CORE_ID= XSMF70TYP= SMF70CIX=; IF SMF70CIX=1 THEN SMF70CIN='CP '; ELSE IF SMF70CIX=3 THEN SMF70CIN='IFA'; ELSE IF SMF70CIX=4 THEN SMF70CIN='IFL'; ELSE IF SMF70CIX=5 THEN SMF70CIN='ICF'; ELSE IF SMF70CIX=6 THEN SMF70CIN='IIP'; ELSE SMF70CIN=' '; POLARITY=FLOOR(INPUT(SMF70POF,&PIB.1.)/64); IF SMF70POF='..1.....'B THEN POLARCHG='Y'; ELSE POLARCHG=' '; SKIP=LENPRDS-16; IF SKIP GE 16 THEN DO; INPUT LCPUEDTM &PIB.8.6 /*SMF70EDT*LOG PROC*EFF*DISPATCH*/ SMF70ACS &PIB.4. /*PROCESSOR*ACTUAL*SHARE*/ SMF70MIS &PIB.2. /*PROCESSOR*MINIMUM*SHARE*/ SMF70MAS &PIB.2. /*PROCESSOR*MAXIMUM*SHARE*/ @; IF SMF70DSA GT 0 THEN SMF70ACS=SMF70ACS/SMF70DSA; IF SMF70CIX=1 THEN CP70ACS=SMF70ACS; ELSE IF SMF70CIX=3 THEN IFA70ACS=SMF70ACS; ELSE IF SMF70CIX=4 THEN IFL70ACS=SMF70ACS; ELSE IF SMF70CIX=6 THEN ZIP70ACS=SMF70ACS; SKIP=SKIP-16; END; IF SKIP GE 32 THEN DO; INPUT SMF70NSI &PIB.4. /*SAMPLES*AT*MINIMUM*/ SMF70NSA &PIB.4. /*SAMPLES*AT*MAXIMUM*/ SMF70ONT &PIB.8.6 /*LPAR*ONLINE*TIME*/ SMF70WST &PIB.8.6 /*LPAR*WAIT*TIME*/ SMF70PMA &IB.4. /*AVERAGE*ADJUSTMENT*WEIGHT*/ SMF70NSW &PIB.4. /*SAMPLES*WHEN*LPAR*CAPPED*/ @; IF _XANT THEN PUTLOG ' SMF70ONT: ' _N_= COL= LPARNAME= SMT_LPAR_BUSY= LCPUADDR= SMF70ONT= LCPUPDTM= / +3 SMF70CIN= SMF70CIX=; IF SMF70ONT=0 AND VMSYSTEM='Y' THEN SMF70ONT=DURATM; IF SMF70DSA GT 0 THEN DO; SMF70NSI=100*SMF70NSI/SMF70DSA; SMF70NSA=100*SMF70NSA/SMF70DSA; SMF70NSW=100*SMF70NSW/SMF70DSA; END; SKIP=SKIP-32; END; ELSE SMF70ONT=.; IF SKIP GE 16 THEN DO; INPUT SMF70POW &PIB.4. /*AVG*HIPERDISPATCH*WEIGHT*/ SMF70NCA &PIB.4. /*SAMPS*WHEN*CAPPNG*LIMITED*/ SMF70HW_CAP_LIMIT &PIB.4.2 /*PARTITION*USAGE*ABSLIMIT*/ SMF70HWGR_CAP_LIMIT &PIB.4.2 /*HARDWARE*GROUP*ABSLI*/ @; IF SMF70DSA GT 0 THEN DO; SMF70NCA=100*SMF70NCA/SMF70DSA; SMF70POW=SMF70POW/(4096*SMF70DSA); END; SKIP=SKIP-16; END; IF SKIP GE 8 THEN DO; INPUT SMF70MTTT &PIB.8.6 /*SMF70MTIT*MULTITHREAD*IDLE*TIME*/ @; IF SMF70MTID EQ 0 THEN SMF70MTTT=.; SKIP=SKIP-8; END; IF SKIP GE 16 THEN DO; INPUT SMF70LPF $CHAR1. /**ADDITIONAL*PROCESSING FLAGS*/ SMF70MAXNL &PIB.1. /**MAXIMUM*TOPOLOGY*NESTING*LEVES*/ SMF70CORT1 &PIB.1. /**DISPATCH*LOC*TOPO NESTING*LEVE1*/ SMF70CORT2 &PIB.1. /**DISPATCH*LOC*TOPO NESTING*LEVE2*/ SMF70CORT3 &PIB.1. /**DISPATCH*LOC*TOPO NESTING*LEVE3*/ SMF70CORT4 &PIB.1. /**DISPATCH*LOC*TOPO NESTING*LEVE4*/ SMF70CORT5 &PIB.1. /**DISPATCH*LOC*TOPO NESTING*LEVE5*/ SMF70CORT6 &PIB.1. /**DISPATCH*LOC*TOPO NESTING*LEVE6*/ +8 @; SKIP=SKIP-16; END; IF SMF70ONT EQ 0 AND ( CPUTYPE NOT IN ('2064'X,'2066'X,'2084'X,'2086'X,'2094'X, '2096'X) AND ZARCHMDE NE 'Y' ) THEN SMF70ONT=.; IF SKIP GT 0 THEN INPUT +SKIP @; IF LCPUSHAR=0FFFFX THEN LCPUDED='Y'; ELSE LCPUDED='N'; IF LPARVPF ='1.......'B THEN LCPUWAIT='Y'; ELSE LCPUWAIT='N'; IF LPARVPF ='.1......'B THEN LCPUCHST='Y'; ELSE LCPUCHST='N'; IF LPARVPF ='..1.....'B THEN LCPUCHWT='Y'; ELSE LCPUCHWT='N'; IF LPARVPF ='...1....'B THEN LCPUCAP ='Y'; ELSE LCPUCAP ='N'; IF LPARVPF ='....1...'B THEN LCPUCAPC='Y'; ELSE LCPUCAPC='N'; IF LPARVPF ='.....1..'B THEN LCPUVARY='Y'; ELSE LCPUVARY='N'; IF LPARVPF ='......1.'B THEN LCPUHWCL='Y'; ELSE LCPUHWCL='N'; IF LPARVPF ='.......1'B THEN CAPLIMCH='Y'; ELSE CAPLIMCH='N'; ORIGWAIT=.; NEWWAIT=.; PCTCPUBY=.; PCTMVSBY=.; PLCPRDYQ=.; SHORTCPS=.; SMF70LAC=.; /*ONLY OUTPUT NON-MISSING FOR "THIS" LPAR*/ IF _XANT THEN PUTLOG ' PARTCHEK ' _N_= COL= J= PARTISHN= LPARNUM= LPARNAME= LCPUADDR= VMSYSTEM= OS390= SMF70STN=/+3 SMT_LPAR_BUSY=; IF LCPUADDR GT . THEN DO; IF PARTISHN=LPARNUM OR /*THIS SYSTEM, FOR TYPE70*/ VMSYSTEM='Y' OR OS390='Y' THEN DO;/*VM/OS390, FOR TYPE70*/ THISBDA=SMF70BDA; THISWLMG=LPARWLMG; THISLPAR=LPARNAME; SMF70LAC=ORG70LAC; /*WANT VALUE IN TYPE70PR */ IF LPARNAME NE 'PHYSICAL' AND LCPUADDR GT . THEN DO; IF IFARRAY(LCPUADDR+1)=1 THEN DO; IFA70ONT=SUM(IFA70ONT,SMF70ONT); IFA70PAT=SUM(IFA70PAT,SMF70PAT); IFAPDTTM=SUM(IFAPDTTM,LCPUPDTM); END; ELSE IF IFARRAY(LCPUADDR+1)=2 THEN DO; ZIP70ONT=SUM(ZIP70ONT,SMF70ONT); IF ZIP70PAT GT . THEN ZIP70PAT=SUM(ZIP70PAT,SMF70PAT); ELSE ZIP70PAT=SMF70PAT; ZIPPDTTM=SUM(ZIPPDTTM,LCPUPDTM); END; ELSE SUM70ONT=SUM(SUM70ONT,SMF70ONT); END; IF LCPUDED ='Y' THEN DO; /*DEDICATED PROCESSOR*ZZZZ TWO*/ IF DURATM GT 0 THEN TEMPONLN=100*(SMF70ONT/DURATM); ELSE TEMPONLN=0; IF TEMPONLN GT 100 THEN TEMPONLN=100; IF SYSNAME=SMF70STN AND LPARNAME NE 'PHYSICAL' AND SMF70ONT GT 0 AND SMF70CIN NE 'IFL' THEN DO; IMERGE=J; _ETY70EL;/*INC SOURCLIB(EXTY70EL);_WTY70EL OUTPUTS TYPE70EL*/ END; IF LCPUADDR=0 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAIT0; MVSWAIT0=CPUWAIT0; CPUPDTM0=LCPUPDTM; CPUEDTM0=LCPUEDTM; PCTONLN0=TEMPONLN; IF CAI0 EQ '.......1'B THEN DO; NEWWAIT=CPUWAIT0; CPUWAIT=CPUWAIT+CPUWAIT0; MVSWAIT=MVSWAIT+MVSWAIT0; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=1 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAIT1; MVSWAIT1=CPUWAIT1; CPUPDTM1=LCPUPDTM; CPUEDTM1=LCPUEDTM; PCTONLN1=TEMPONLN; IF CAI1 EQ '.......1'B THEN DO; NEWWAIT=CPUWAIT1; CPUWAIT=CPUWAIT+CPUWAIT1; MVSWAIT=MVSWAIT+MVSWAIT1; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=2 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAIT2; MVSWAIT2=CPUWAIT2; CPUPDTM2=LCPUPDTM; CPUEDTM2=LCPUEDTM; PCTONLN2=TEMPONLN; IF CAI2 EQ '.......1'B THEN DO; NEWWAIT=CPUWAIT2; CPUWAIT=CPUWAIT+CPUWAIT2; MVSWAIT=MVSWAIT+MVSWAIT2; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=3 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAIT3; MVSWAIT3=CPUWAIT3; CPUPDTM3=LCPUPDTM; CPUEDTM3=LCPUEDTM; PCTONLN3=TEMPONLN; IF CAI3 EQ '.......1'B THEN DO; NEWWAIT=CPUWAIT3; CPUWAIT=CPUWAIT+CPUWAIT3; MVSWAIT=MVSWAIT+MVSWAIT3; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=3 AND IFARRAY(LCPUADDR+1)=1 THEN DO; IFAORWT3=DURATM-CPUWAIT3; IFARDYQ3=IFAORWT3-CPUPDTM3; END; ELSE IF LCPUADDR=4 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAIT4; MVSWAIT4=CPUWAIT4; CPUPDTM4=LCPUPDTM; CPUEDTM4=LCPUEDTM; PCTONLN4=TEMPONLN; IF CAI4 EQ '.......1'B THEN DO; NEWWAIT=CPUWAIT4; CPUWAIT=CPUWAIT+CPUWAIT4; MVSWAIT=MVSWAIT+MVSWAIT4; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=5 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAIT5; MVSWAIT5=CPUWAIT5; CPUPDTM5=LCPUPDTM; CPUEDTM5=LCPUEDTM; PCTONLN5=TEMPONLN; IF CAI5 EQ '.......1'B THEN DO; NEWWAIT=CPUWAIT5; CPUWAIT=CPUWAIT+CPUWAIT5; MVSWAIT=MVSWAIT+MVSWAIT5; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=6 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAIT6; MVSWAIT6=CPUWAIT6; CPUPDTM6=LCPUPDTM; CPUEDTM6=LCPUEDTM; PCTONLN6=TEMPONLN; IF CAI6 EQ '.......1'B THEN DO; NEWWAIT=CPUWAIT6; CPUWAIT=CPUWAIT+CPUWAIT6; MVSWAIT=MVSWAIT+MVSWAIT6; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=7 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAIT7; MVSWAIT7=CPUWAIT7; CPUPDTM7=LCPUPDTM; CPUEDTM7=LCPUEDTM; PCTONLN7=TEMPONLN; IF CAI7 EQ '.......1'B THEN DO; NEWWAIT=CPUWAIT7; CPUWAIT=CPUWAIT+CPUWAIT7; MVSWAIT=MVSWAIT+MVSWAIT7; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=8 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAIT8; MVSWAIT8=CPUWAIT8; CPUPDTM8=LCPUPDTM; CPUEDTM8=LCPUEDTM; PCTONLN8=TEMPONLN; IF CAI8 EQ '.......1'B THEN DO; NEWWAIT=CPUWAIT8; CPUWAIT=CPUWAIT+CPUWAIT8; MVSWAIT=MVSWAIT+MVSWAIT8; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=9 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAIT9; MVSWAIT9=CPUWAIT9; CPUPDTM9=LCPUPDTM; CPUEDTM9=LCPUEDTM; PCTONLN9=TEMPONLN; IF CAI9 EQ '.......1'B THEN DO; NEWWAIT=CPUWAIT9; CPUWAIT=CPUWAIT+CPUWAIT9; MVSWAIT=MVSWAIT+MVSWAIT9; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=10 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAITA; MVSWAITA=CPUWAITA; CPUPDTMA=LCPUPDTM; CPUEDTMA=LCPUEDTM; PCTONLNA=TEMPONLN; IF CAIA EQ '.......1'B THEN DO; NEWWAIT=CPUWAITA; CPUWAIT=CPUWAIT+CPUWAITA; MVSWAIT=MVSWAIT+MVSWAITA; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=11 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAITB; MVSWAITB=CPUWAITB; CPUPDTMB=LCPUPDTM; CPUEDTMB=LCPUEDTM; PCTONLNB=TEMPONLN; IF CAIB EQ '.......1'B THEN DO; NEWWAIT=CPUWAITB; CPUWAIT=CPUWAIT+CPUWAITB; MVSWAIT=MVSWAIT+MVSWAITB; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=12 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAITC; MVSWAITC=CPUWAITC; CPUPDTMC=LCPUPDTM; CPUEDTMC=LCPUEDTM; PCTONLNC=TEMPONLN; IF CAIC EQ '.......1'B THEN DO; NEWWAIT=CPUWAITC; CPUWAIT=CPUWAIT+CPUWAITC; MVSWAIT=MVSWAIT+MVSWAITC; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=13 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAITD; MVSWAITD=CPUWAITD; CPUPDTMD=LCPUPDTM; CPUEDTMD=LCPUEDTM; PCTONLND=TEMPONLN; IF CAID EQ '.......1'B THEN DO; NEWWAIT=CPUWAITD; CPUWAIT=CPUWAIT+CPUWAITD; MVSWAIT=MVSWAIT+MVSWAITD; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=14 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAITE; MVSWAITE=CPUWAITE; CPUPDTME=LCPUPDTM; CPUEDTME=LCPUEDTM; PCTONLNE=TEMPONLN; IF CAIE EQ '.......1'B THEN DO; NEWWAIT=CPUWAITE; CPUWAIT=CPUWAIT+CPUWAITE; MVSWAIT=MVSWAIT+MVSWAITE; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=15 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAITF; MVSWAITF=CPUWAITF; CPUPDTMF=LCPUPDTM; CPUEDTMF=LCPUEDTM; PCTONLNF=TEMPONLN; IF CAIF EQ '.......1'B THEN DO; NEWWAIT=CPUWAITF; CPUWAIT=CPUWAIT+CPUWAITF; MVSWAIT=MVSWAIT+MVSWAITF; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=16 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAITG; MVSWAITG=CPUWAITG; CPUPDTMG=LCPUPDTM; CPUEDTMG=LCPUEDTM; PCTONLNG=TEMPONLN; IF CAIG EQ '.......1'B THEN DO; NEWWAIT=CPUWAITG; CPUWAIT=CPUWAIT+CPUWAITG; MVSWAIT=MVSWAIT+MVSWAITG; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=17 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAITH; MVSWAITH=CPUWAITH; CPUPDTMH=LCPUPDTM; CPUEDTMH=LCPUEDTM; PCTONLNH=TEMPONLN; IF CAIH EQ '.......1'B THEN DO; NEWWAIT=CPUWAITH; CPUWAIT=CPUWAIT+CPUWAITH; MVSWAIT=MVSWAIT+MVSWAITH; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=18 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAITI; MVSWAITI=CPUWAITI; CPUPDTMI=LCPUPDTM; CPUEDTMI=LCPUEDTM; PCTONLNI=TEMPONLN; IF CAII EQ '.......1'B THEN DO; NEWWAIT=CPUWAITI; CPUWAIT=CPUWAIT+CPUWAITI; MVSWAIT=MVSWAIT+MVSWAITI; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=19 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAITJ; MVSWAITJ=CPUWAITJ; CPUPDTMJ=LCPUPDTM; CPUEDTMJ=LCPUEDTM; PCTONLNJ=TEMPONLN; IF CAIJ EQ '.......1'B THEN DO; NEWWAIT=CPUWAITJ; CPUWAIT=CPUWAIT+CPUWAITJ; MVSWAIT=MVSWAIT+MVSWAITJ; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=20 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAITK; MVSWAITK=CPUWAITK; CPUPDTMK=LCPUPDTM; CPUEDTMK=LCPUEDTM; PCTONLNK=TEMPONLN; IF CAIK EQ '.......1'B THEN DO; NEWWAIT=CPUWAITK; CPUWAIT=CPUWAIT+CPUWAITK; MVSWAIT=MVSWAIT+MVSWAITK; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=21 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAITL; MVSWAITL=CPUWAITL; CPUPDTML=LCPUPDTM; CPUEDTML=LCPUEDTM; PCTONLNL=TEMPONLN; IF CAIL EQ '.......1'B THEN DO; NEWWAIT=CPUWAITL; CPUWAIT=CPUWAIT+CPUWAITL; MVSWAIT=MVSWAIT+MVSWAITL; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=22 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAITN; MVSWAITN=CPUWAITN; CPUPDTMN=LCPUPDTM; CPUEDTMN=LCPUEDTM; PCTONLNN=TEMPONLN; IF CAIN EQ '.......1'B THEN DO; NEWWAIT=CPUWAITN; CPUWAIT=CPUWAIT+CPUWAITN; MVSWAIT=MVSWAIT+MVSWAITN; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=23 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAITO; MVSWAITO=CPUWAITO; CPUPDTMO=LCPUPDTM; CPUEDTMO=LCPUEDTM; PCTONLNO=TEMPONLN; IF CAIO EQ '.......1'B THEN DO; NEWWAIT=CPUWAITO; CPUWAIT=CPUWAIT+CPUWAITO; MVSWAIT=MVSWAIT+MVSWAITO; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=24 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAITP; MVSWAITP=CPUWAITP; CPUPDTMP=LCPUPDTM; CPUEDTMP=LCPUEDTM; PCTONLNP=TEMPONLN; IF CAIP EQ '.......1'B THEN DO; NEWWAIT=CPUWAITP; CPUWAIT=CPUWAIT+CPUWAITP; MVSWAIT=MVSWAIT+MVSWAITP; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=25 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAITQ; MVSWAITQ=CPUWAITQ; CPUPDTMQ=LCPUPDTM; CPUEDTMQ=LCPUEDTM; PCTONLNQ=TEMPONLN; IF CAIQ EQ '.......1'B THEN DO; NEWWAIT=CPUWAITQ; CPUWAIT=CPUWAIT+CPUWAITQ; MVSWAIT=MVSWAIT+MVSWAITQ; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=26 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAITR; MVSWAITR=CPUWAITR; CPUPDTMR=LCPUPDTM; CPUEDTMR=LCPUEDTM; PCTONLNR=TEMPONLN; IF CAIR EQ '.......1'B THEN DO; NEWWAIT=CPUWAITR; CPUWAIT=CPUWAIT+CPUWAITR; MVSWAIT=MVSWAIT+MVSWAITR; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=27 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAITS; MVSWAITS=CPUWAITS; CPUPDTMS=LCPUPDTM; CPUEDTMS=LCPUEDTM; PCTONLNS=TEMPONLN; IF CAIS EQ '.......1'B THEN DO; NEWWAIT=CPUWAITS; CPUWAIT=CPUWAIT+CPUWAITS; MVSWAIT=MVSWAIT+MVSWAITS; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=28 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAITT; MVSWAITT=CPUWAITT; CPUPDTMT=LCPUPDTM; CPUEDTMT=LCPUEDTM; PCTONLNT=TEMPONLN; IF CAIT EQ '.......1'B THEN DO; NEWWAIT=CPUWAITT; CPUWAIT=CPUWAIT+CPUWAITT; MVSWAIT=MVSWAIT+MVSWAITT; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=29 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAITU; MVSWAITU=CPUWAITU; CPUPDTMU=LCPUPDTM; CPUEDTMU=LCPUEDTM; PCTONLNU=TEMPONLN; IF CAIU EQ '.......1'B THEN DO; NEWWAIT=CPUWAITU; CPUWAIT=CPUWAIT+CPUWAITU; MVSWAIT=MVSWAIT+MVSWAITU; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=30 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAITV; MVSWAITV=CPUWAITV; CPUPDTMV=LCPUPDTM; CPUEDTMV=LCPUEDTM; PCTONLNV=TEMPONLN; IF CAIV EQ '.......1'B THEN DO; NEWWAIT=CPUWAITV; CPUWAIT=CPUWAIT+CPUWAITV; MVSWAIT=MVSWAIT+MVSWAITV; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=31 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAITW; MVSWAITW=CPUWAITW; CPUPDTMW=LCPUPDTM; CPUEDTMW=LCPUEDTM; PCTONLNW=TEMPONLN; IF CAIW EQ '.......1'B THEN DO; NEWWAIT=CPUWAITW; CPUWAIT=CPUWAIT+CPUWAITW; MVSWAIT=MVSWAIT+MVSWAITW; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=32 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAITX; MVSWAITX=CPUWAITX; CPUPDTMX=LCPUPDTM; CPUEDTMX=LCPUEDTM; PCTONLNX=TEMPONLN; IF CAIX EQ '.......1'B THEN DO; NEWWAIT=CPUWAITX; CPUWAIT=CPUWAIT+CPUWAITX; MVSWAIT=MVSWAIT+MVSWAITX; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=33 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAITY; MVSWAITY=CPUWAITY; CPUPDTMY=LCPUPDTM; CPUEDTMY=LCPUEDTM; PCTONLNY=TEMPONLN; IF CAIY EQ '.......1'B THEN DO; NEWWAIT=CPUWAITY; CPUWAIT=CPUWAIT+CPUWAITY; MVSWAIT=MVSWAIT+MVSWAITY; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=34 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAITZ; MVSWAITZ=CPUWAITZ; CPUPDTMZ=LCPUPDTM; CPUEDTMZ=LCPUEDTM; PCTONLNZ=TEMPONLN; IF CAIZ EQ '.......1'B THEN DO; NEWWAIT=CPUWAITZ; CPUWAIT=CPUWAIT+CPUWAITZ; MVSWAIT=MVSWAIT+MVSWAITZ; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=35 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAIZA; MVSWAIZA=CPUWAIZA; CPUPDTZA=LCPUPDTM; CPUEDTZA=LCPUEDTM; PCTONLZA=TEMPONLN; IF CAIZA EQ '.......1'B THEN DO; NEWWAIT=CPUWAIZA; CPUWAIT=CPUWAIT+CPUWAIZA; MVSWAIT=MVSWAIT+MVSWAIZA; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=36 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAIZB; MVSWAIZB=CPUWAIZB; CPUPDTZB=LCPUPDTM; CPUEDTZB=LCPUEDTM; PCTONLZB=TEMPONLN; IF CAIZA EQ '.......1'B THEN DO; NEWWAIT=CPUWAIZB; CPUWAIT=CPUWAIT+CPUWAIZB; MVSWAIT=MVSWAIT+MVSWAIZB; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=37 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAIZC; MVSWAIZC=CPUWAIZC; CPUPDTZC=LCPUPDTM; CPUEDTZC=LCPUEDTM; PCTONLZC=TEMPONLN; IF CAIZC EQ '.......1'B THEN DO; NEWWAIT=CPUWAIZC; CPUWAIT=CPUWAIT+CPUWAIZC; MVSWAIT=MVSWAIT+MVSWAIZC; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=38 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAIZD; MVSWAIZD=CPUWAIZD; CPUPDTZD=LCPUPDTM; CPUEDTZD=LCPUEDTM; PCTONLZD=TEMPONLN; IF CAIZD EQ '.......1'B THEN DO; NEWWAIT=CPUWAIZD; CPUWAIT=CPUWAIT+CPUWAIZD; MVSWAIT=MVSWAIT+MVSWAIZD; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=39 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAIZE; MVSWAIZE=CPUWAIZE; CPUPDTZE=LCPUPDTM; CPUEDTZE=LCPUEDTM; PCTONLZE=TEMPONLN; IF CAIZE EQ '.......1'B THEN DO; NEWWAIT=CPUWAIZE; CPUWAIT=CPUWAIT+CPUWAIZE; MVSWAIT=MVSWAIT+MVSWAIZE; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=40 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAIZF; MVSWAIZF=CPUWAIZF; CPUPDTZF=LCPUPDTM; CPUEDTZF=LCPUEDTM; PCTONLZF=TEMPONLN; IF CAIZF EQ '.......1'B THEN DO; NEWWAIT=CPUWAIZF; CPUWAIT=CPUWAIT+CPUWAIZF; MVSWAIT=MVSWAIT+MVSWAIZF; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=41 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAIZG; MVSWAIZG=CPUWAIZG; CPUPDTZG=LCPUPDTM; CPUEDTZG=LCPUEDTM; PCTONLZG=TEMPONLN; IF CAIZG EQ '.......1'B THEN DO; NEWWAIT=CPUWAIZG; CPUWAIT=CPUWAIT+CPUWAIZG; MVSWAIT=MVSWAIT+MVSWAIZG; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=42 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAIZH; MVSWAIZH=CPUWAIZH; CPUPDTZH=LCPUPDTM; CPUEDTZH=LCPUEDTM; PCTONLZH=TEMPONLN; IF CAIZH EQ '.......1'B THEN DO; NEWWAIT=CPUWAIZH; CPUWAIT=CPUWAIT+CPUWAIZH; MVSWAIT=MVSWAIT+MVSWAIZH; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=43 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAIZI; MVSWAIZI=CPUWAIZI; CPUPDTZI=LCPUPDTM; CPUEDTZI=LCPUEDTM; PCTONLZI=TEMPONLN; IF CAIZI EQ '.......1'B THEN DO; NEWWAIT=CPUWAIZI; CPUWAIT=CPUWAIT+CPUWAIZI; MVSWAIT=MVSWAIT+MVSWAIZI; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=44 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAIZJ; MVSWAIZJ=CPUWAIZJ; CPUPDTZJ=LCPUPDTM; CPUEDTZJ=LCPUEDTM; PCTONLZJ=TEMPONLN; IF CAIZJ EQ '.......1'B THEN DO; NEWWAIT=CPUWAIZJ; CPUWAIT=CPUWAIT+CPUWAIZJ; MVSWAIT=MVSWAIT+MVSWAIZJ; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=45 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAIZK; MVSWAIZK=CPUWAIZK; CPUPDTZK=LCPUPDTM; CPUEDTZK=LCPUEDTM; PCTONLZK=TEMPONLN; IF CAIZK EQ '.......1'B THEN DO; NEWWAIT=CPUWAIZK; CPUWAIT=CPUWAIT+CPUWAIZK; MVSWAIT=MVSWAIT+MVSWAIZK; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=46 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAIZL; MVSWAIZL=CPUWAIZL; CPUPDTZL=LCPUPDTM; CPUEDTZL=LCPUEDTM; PCTONLZL=TEMPONLN; IF CAIZL EQ '.......1'B THEN DO; NEWWAIT=CPUWAIZL; CPUWAIT=CPUWAIT+CPUWAIZL; MVSWAIT=MVSWAIT+MVSWAIZL; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=47 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAIZM; MVSWAIZM=CPUWAIZM; CPUPDTZM=LCPUPDTM; CPUEDTZM=LCPUEDTM; PCTONLZM=TEMPONLN; IF CAIZM EQ '.......1'B THEN DO; NEWWAIT=CPUWAIZM; CPUWAIT=CPUWAIT+CPUWAIZM; MVSWAIT=MVSWAIT+MVSWAIZM; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=48 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAIZN; MVSWAIZN=CPUWAIZN; CPUPDTZN=LCPUPDTM; CPUEDTZN=LCPUEDTM; PCTONLZN=TEMPONLN; IF CAIZN EQ '.......1'B THEN DO; NEWWAIT=CPUWAIZN; CPUWAIT=CPUWAIT+CPUWAIZN; MVSWAIT=MVSWAIT+MVSWAIZN; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=49 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAIZO; MVSWAIZO=CPUWAIZO; CPUPDTZO=LCPUPDTM; CPUEDTZO=LCPUEDTM; PCTONLZO=TEMPONLN; IF CAIZO EQ '.......1'B THEN DO; NEWWAIT=CPUWAIZO; CPUWAIT=CPUWAIT+CPUWAIZO; MVSWAIT=MVSWAIT+MVSWAIZO; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=50 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAIZP; MVSWAIZP=CPUWAIZP; CPUPDTZP=LCPUPDTM; CPUEDTZP=LCPUEDTM; PCTONLZP=TEMPONLN; IF CAIZP EQ '.......1'B THEN DO; NEWWAIT=CPUWAIZP; CPUWAIT=CPUWAIT+CPUWAIZP; MVSWAIT=MVSWAIT+MVSWAIZP; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=51 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAIZQ; MVSWAIZQ=CPUWAIZQ; CPUPDTZQ=LCPUPDTM; CPUEDTZQ=LCPUEDTM; PCTONLZQ=TEMPONLN; IF CAIZQ EQ '.......1'B THEN DO; NEWWAIT=CPUWAIZQ; CPUWAIT=CPUWAIT+CPUWAIZQ; MVSWAIT=MVSWAIT+MVSWAIZQ; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=52 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAIZR; MVSWAIZR=CPUWAIZR; CPUPDTZR=LCPUPDTM; CPUEDTZR=LCPUEDTM; PCTONLZR=TEMPONLN; IF CAIZR EQ '.......1'B THEN DO; NEWWAIT=CPUWAIZR; CPUWAIT=CPUWAIT+CPUWAIZR; MVSWAIT=MVSWAIT+MVSWAIZR; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=53 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAIZS; MVSWAIZS=CPUWAIZS; CPUPDTZS=LCPUPDTM; CPUEDTZS=LCPUEDTM; PCTONLZS=TEMPONLN; IF CAIZS EQ '.......1'B THEN DO; NEWWAIT=CPUWAIZS; CPUWAIT=CPUWAIT+CPUWAIZS; MVSWAIT=MVSWAIT+MVSWAIZS; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=54 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAIZT; MVSWAIZT=CPUWAIZT; CPUPDTZT=LCPUPDTM; CPUEDTZT=LCPUEDTM; PCTONLZT=TEMPONLN; IF CAIZT EQ '.......1'B THEN DO; NEWWAIT=CPUWAIZT; CPUWAIT=CPUWAIT+CPUWAIZT; MVSWAIT=MVSWAIT+MVSWAIZT; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=55 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAIZU; MVSWAIZU=CPUWAIZU; CPUPDTZU=LCPUPDTM; CPUEDTZU=LCPUEDTM; PCTONLZU=TEMPONLN; IF CAIZU EQ '.......1'B THEN DO; NEWWAIT=CPUWAIZU; CPUWAIT=CPUWAIT+CPUWAIZU; MVSWAIT=MVSWAIT+MVSWAIZU; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=56 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAIZV; MVSWAIZV=CPUWAIZV; CPUPDTZV=LCPUPDTM; CPUEDTZV=LCPUEDTM; PCTONLZV=TEMPONLN; IF CAIZV EQ '.......1'B THEN DO; NEWWAIT=CPUWAIZV; CPUWAIT=CPUWAIT+CPUWAIZV; MVSWAIT=MVSWAIT+MVSWAIZV; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=57 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAIZW; MVSWAIZW=CPUWAIZW; CPUPDTZW=LCPUPDTM; CPUEDTZW=LCPUEDTM; PCTONLZW=TEMPONLN; IF CAIZW EQ '.......1'B THEN DO; NEWWAIT=CPUWAIZW; CPUWAIT=CPUWAIT+CPUWAIZW; MVSWAIT=MVSWAIT+MVSWAIZW; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=58 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAIZX; MVSWAIZX=CPUWAIZX; CPUPDTZX=LCPUPDTM; CPUEDTZX=LCPUEDTM; PCTONLZX=TEMPONLN; IF CAIZX EQ '.......1'B THEN DO; NEWWAIT=CPUWAIZX; CPUWAIT=CPUWAIT+CPUWAIZX; MVSWAIT=MVSWAIT+MVSWAIZX; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=59 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAIZY; MVSWAIZY=CPUWAIZY; CPUPDTZY=LCPUPDTM; CPUEDTZY=LCPUEDTM; PCTONLZY=TEMPONLN; IF CAIZY EQ '.......1'B THEN DO; NEWWAIT=CPUWAIZY; CPUWAIT=CPUWAIT+CPUWAIZY; MVSWAIT=MVSWAIT+MVSWAIZY; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=60 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAIZZ; MVSWAIZZ=CPUWAIZZ; CPUPDTZZ=LCPUPDTM; CPUEDTZZ=LCPUEDTM; PCTONLZZ=TEMPONLN; IF CAIZZ EQ '.......1'B THEN DO; NEWWAIT=CPUWAIZZ; CPUWAIT=CPUWAIT+CPUWAIZZ; MVSWAIT=MVSWAIT+MVSWAIZZ; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=61 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAIYA; MVSWAIYA=CPUWAIYA; CPUPDTYA=LCPUPDTM; CPUEDTYA=LCPUEDTM; PCTONLYA=TEMPONLN; IF CAIYA EQ '.......1'B THEN DO; NEWWAIT=CPUWAIYA; CPUWAIT=CPUWAIT+CPUWAIYA; MVSWAIT=MVSWAIT+MVSWAIYA; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=62 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAIYB; MVSWAIYB=CPUWAIYB; CPUPDTYB=LCPUPDTM; CPUEDTYB=LCPUEDTM; PCTONLYB=TEMPONLN; IF CAIYB EQ '.......1'B THEN DO; NEWWAIT=CPUWAIYB; CPUWAIT=CPUWAIT+CPUWAIYB; MVSWAIT=MVSWAIT+MVSWAIYB; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=63 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAIYC; MVSWAIYC=CPUWAIYC; CPUPDTYC=LCPUPDTM; CPUEDTYC=LCPUEDTM; PCTONLYC=TEMPONLN; IF CAIYC EQ '.......1'B THEN DO; NEWWAIT=CPUWAIYC; CPUWAIT=CPUWAIT+CPUWAIYC; MVSWAIT=MVSWAIT+MVSWAIYC; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=64 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAIYD; MVSWAIYD=CPUWAIYD; CPUPDTYD=LCPUPDTM; CPUEDTYD=LCPUEDTM; PCTONLYD=TEMPONLN; IF CAIYD EQ '.......1'B THEN DO; NEWWAIT=CPUWAIYD; CPUWAIT=CPUWAIT+CPUWAIYD; MVSWAIT=MVSWAIT+MVSWAIYD; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=65 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAIYE; MVSWAIYE=CPUWAIYE; CPUPDTYE=LCPUPDTM; CPUEDTYE=LCPUEDTM; PCTONLYE=TEMPONLN; IF CAIYE EQ '.......1'B THEN DO; NEWWAIT=CPUWAIYE; CPUWAIT=CPUWAIT+CPUWAIYE; MVSWAIT=MVSWAIT+MVSWAIYE; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=66 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAIYF; MVSWAIYF=CPUWAIYF; CPUPDTYF=LCPUPDTM; CPUEDTYF=LCPUEDTM; PCTONLYF=TEMPONLN; IF CAIYF EQ '.......1'B THEN DO; NEWWAIT=CPUWAIYF; CPUWAIT=CPUWAIT+CPUWAIYF; MVSWAIT=MVSWAIT+MVSWAIYF; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=67 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAIYG; MVSWAIYG=CPUWAIYG; CPUPDTYG=LCPUPDTM; CPUEDTYG=LCPUEDTM; PCTONLYG=TEMPONLN; IF CAIYG EQ '.......1'B THEN DO; NEWWAIT=CPUWAIYG; CPUWAIT=CPUWAIT+CPUWAIYG; MVSWAIT=MVSWAIT+MVSWAIYG; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=68 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAIYH; MVSWAIYH=CPUWAIYH; CPUPDTYH=LCPUPDTM; CPUEDTYH=LCPUEDTM; PCTONLYH=TEMPONLN; IF CAIYH EQ '.......1'B THEN DO; NEWWAIT=CPUWAIYH; CPUWAIT=CPUWAIT+CPUWAIYH; MVSWAIT=MVSWAIT+MVSWAIYH; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=69 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAIYI; MVSWAIYI=CPUWAIYI; CPUPDTYI=LCPUPDTM; CPUEDTYI=LCPUEDTM; PCTONLYI=TEMPONLN; IF CAIYI EQ '.......1'B THEN DO; NEWWAIT=CPUWAIYI; CPUWAIT=CPUWAIT+CPUWAIYI; MVSWAIT=MVSWAIT+MVSWAIYI; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=70 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAIYJ; MVSWAIYJ=CPUWAIYJ; CPUPDTYJ=LCPUPDTM; CPUEDTYJ=LCPUEDTM; PCTONLYJ=TEMPONLN; IF CAIYJ EQ '.......1'B THEN DO; NEWWAIT=CPUWAIYJ; CPUWAIT=CPUWAIT+CPUWAIYJ; MVSWAIT=MVSWAIT+MVSWAIYJ; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=71 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAIYK; MVSWAIYK=CPUWAIYK; CPUPDTYK=LCPUPDTM; CPUEDTYK=LCPUEDTM; PCTONLYK=TEMPONLN; IF CAIYK EQ '.......1'B THEN DO; NEWWAIT=CPUWAIYK; CPUWAIT=CPUWAIT+CPUWAIYK; MVSWAIT=MVSWAIT+MVSWAIYK; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=72 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAIYL; MVSWAIYL=CPUWAIYL; CPUPDTYL=LCPUPDTM; CPUEDTYL=LCPUEDTM; PCTONLYL=TEMPONLN; IF CAIYL EQ '.......1'B THEN DO; NEWWAIT=CPUWAIYL; CPUWAIT=CPUWAIT+CPUWAIYL; MVSWAIT=MVSWAIT+MVSWAIYL; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=73 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAIYM; MVSWAIYM=CPUWAIYM; CPUPDTYM=LCPUPDTM; CPUEDTYM=LCPUEDTM; PCTONLYM=TEMPONLN; IF CAIYM EQ '.......1'B THEN DO; NEWWAIT=CPUWAIYM; CPUWAIT=CPUWAIT+CPUWAIYM; MVSWAIT=MVSWAIT+MVSWAIYM; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=74 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAIYN; MVSWAIYN=CPUWAIYN; CPUPDTYN=LCPUPDTM; CPUEDTYN=LCPUEDTM; PCTONLYN=TEMPONLN; IF CAIYN EQ '.......1'B THEN DO; NEWWAIT=CPUWAIYN; CPUWAIT=CPUWAIT+CPUWAIYN; MVSWAIT=MVSWAIT+MVSWAIYN; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=75 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAIYO; MVSWAIYO=CPUWAIYO; CPUPDTYO=LCPUPDTM; CPUEDTYO=LCPUEDTM; PCTONLYO=TEMPONLN; IF CAIYO EQ '.......1'B THEN DO; NEWWAIT=CPUWAIYO; CPUWAIT=CPUWAIT+CPUWAIYO; MVSWAIT=MVSWAIT+MVSWAIYO; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=76 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAIYP; MVSWAIYP=CPUWAIYP; CPUPDTYP=LCPUPDTM; CPUEDTYP=LCPUEDTM; PCTONLYP=TEMPONLN; IF CAIYP EQ '.......1'B THEN DO; NEWWAIT=CPUWAIYP; CPUWAIT=CPUWAIT+CPUWAIYP; MVSWAIT=MVSWAIT+MVSWAIYP; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=77 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAIYQ; MVSWAIYQ=CPUWAIYQ; CPUPDTYQ=LCPUPDTM; CPUEDTYQ=LCPUEDTM; PCTONLYQ=TEMPONLN; IF CAIYQ EQ '.......1'B THEN DO; NEWWAIT=CPUWAIYQ; CPUWAIT=CPUWAIT+CPUWAIYQ; MVSWAIT=MVSWAIT+MVSWAIYQ; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=78 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAIYR; MVSWAIYR=CPUWAIYR; CPUPDTYR=LCPUPDTM; CPUEDTYR=LCPUEDTM; PCTONLYR=TEMPONLN; IF CAIYR EQ '.......1'B THEN DO; NEWWAIT=CPUWAIYR; CPUWAIT=CPUWAIT+CPUWAIYR; MVSWAIT=MVSWAIT+MVSWAIYR; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=79 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAIYS; MVSWAIYS=CPUWAIYS; CPUPDTYS=LCPUPDTM; CPUEDTYS=LCPUEDTM; PCTONLYS=TEMPONLN; IF CAIYS EQ '.......1'B THEN DO; NEWWAIT=CPUWAIYS; CPUWAIT=CPUWAIT+CPUWAIYS; MVSWAIT=MVSWAIT+MVSWAIYS; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=80 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAIYT; MVSWAIYT=CPUWAIYT; CPUPDTYT=LCPUPDTM; CPUEDTYT=LCPUEDTM; PCTONLYT=TEMPONLN; IF CAIYT EQ '.......1'B THEN DO; NEWWAIT=CPUWAIYT; CPUWAIT=CPUWAIT+CPUWAIYT; MVSWAIT=MVSWAIT+MVSWAIYT; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=81 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAIYU; MVSWAIYU=CPUWAIYU; CPUPDTYU=LCPUPDTM; CPUEDTYU=LCPUEDTM; PCTONLYU=TEMPONLN; IF CAIYU EQ '.......1'B THEN DO; NEWWAIT=CPUWAIYU; CPUWAIT=CPUWAIT+CPUWAIYU; MVSWAIT=MVSWAIT+MVSWAIYU; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=82 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAIYV; MVSWAIYV=CPUWAIYV; CPUPDTYV=LCPUPDTM; CPUEDTYV=LCPUEDTM; PCTONLYV=TEMPONLN; IF CAIYV EQ '.......1'B THEN DO; NEWWAIT=CPUWAIYV; CPUWAIT=CPUWAIT+CPUWAIYV; MVSWAIT=MVSWAIT+MVSWAIYV; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=83 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAIYW; MVSWAIYW=CPUWAIYW; CPUPDTYW=LCPUPDTM; CPUEDTYW=LCPUEDTM; PCTONLYW=TEMPONLN; IF CAIYW EQ '.......1'B THEN DO; NEWWAIT=CPUWAIYW; CPUWAIT=CPUWAIT+CPUWAIYW; MVSWAIT=MVSWAIT+MVSWAIYW; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=84 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAIYX; MVSWAIYX=CPUWAIYX; CPUPDTYX=LCPUPDTM; CPUEDTYX=LCPUEDTM; PCTONLYX=TEMPONLN; IF CAIYX EQ '.......1'B THEN DO; NEWWAIT=CPUWAIYX; CPUWAIT=CPUWAIT+CPUWAIYX; MVSWAIT=MVSWAIT+MVSWAIYX; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=85 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAIYY; MVSWAIYY=CPUWAIYY; CPUPDTYY=LCPUPDTM; CPUEDTYY=LCPUEDTM; PCTONLYY=TEMPONLN; IF CAIYY EQ '.......1'B THEN DO; NEWWAIT=CPUWAIYY; CPUWAIT=CPUWAIT+CPUWAIYY; MVSWAIT=MVSWAIT+MVSWAIYY; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=86 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAIYZ; MVSWAIYZ=CPUWAIYZ; CPUPDTYZ=LCPUPDTM; CPUEDTYZ=LCPUEDTM; PCTONLYZ=TEMPONLN; IF CAIYZ EQ '.......1'B THEN DO; NEWWAIT=CPUWAIYZ; CPUWAIT=CPUWAIT+CPUWAIYZ; MVSWAIT=MVSWAIT+MVSWAIYZ; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=87 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAIVA; MVSWAIVA=CPUWAIVA; CPUPDTVA=LCPUPDTM; CPUEDTVA=LCPUEDTM; PCTONLVA=TEMPONLN; IF CAIVA EQ '.......1'B THEN DO; NEWWAIT=CPUWAIVA; CPUWAIT=CPUWAIT+CPUWAIVA; MVSWAIT=MVSWAIT+MVSWAIVA; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=88 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAIVB; MVSWAIVB=CPUWAIVB; CPUPDTVB=LCPUPDTM; CPUEDTVB=LCPUEDTM; PCTONLVB=TEMPONLN; IF CAIVB EQ '.......1'B THEN DO; NEWWAIT=CPUWAIVB; CPUWAIT=CPUWAIT+CPUWAIVB; MVSWAIT=MVSWAIT+MVSWAIVB; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=89 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAIVC; MVSWAIVC=CPUWAIVC; CPUPDTVC=LCPUPDTM; CPUEDTVC=LCPUEDTM; PCTONLVC=TEMPONLN; IF CAIVC EQ '.......1'B THEN DO; NEWWAIT=CPUWAIVC; CPUWAIT=CPUWAIT+CPUWAIVC; MVSWAIT=MVSWAIT+MVSWAIVC; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=90 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAIVD; MVSWAIVD=CPUWAIVD; CPUPDTVD=LCPUPDTM; CPUEDTVD=LCPUEDTM; PCTONLVD=TEMPONLN; IF CAIVD EQ '.......1'B THEN DO; NEWWAIT=CPUWAIVD; CPUWAIT=CPUWAIT+CPUWAIVD; MVSWAIT=MVSWAIT+MVSWAIVD; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=91 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAIVE; MVSWAIVE=CPUWAIVE; CPUPDTVE=LCPUPDTM; CPUEDTVE=LCPUEDTM; PCTONLVE=TEMPONLN; IF CAIVE EQ '.......1'B THEN DO; NEWWAIT=CPUWAIVE; CPUWAIT=CPUWAIT+CPUWAIVE; MVSWAIT=MVSWAIT+MVSWAIVE; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=92 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAIVF; MVSWAIVF=CPUWAIVF; CPUPDTVF=LCPUPDTM; CPUEDTVF=LCPUEDTM; PCTONLVF=TEMPONLN; IF CAIVF EQ '.......1'B THEN DO; NEWWAIT=CPUWAIVF; CPUWAIT=CPUWAIT+CPUWAIVF; MVSWAIT=MVSWAIT+MVSWAIVF; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=93 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAIVG; MVSWAIVG=CPUWAIVG; CPUPDTVG=LCPUPDTM; CPUEDTVG=LCPUEDTM; PCTONLVG=TEMPONLN; IF CAIVG EQ '.......1'B THEN DO; NEWWAIT=CPUWAIVG; CPUWAIT=CPUWAIT+CPUWAIVG; MVSWAIT=MVSWAIT+MVSWAIVG; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=94 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAIVH; MVSWAIVH=CPUWAIVH; CPUPDTVH=LCPUPDTM; CPUEDTVH=LCPUEDTM; PCTONLVH=TEMPONLN; IF CAIVH EQ '.......1'B THEN DO; NEWWAIT=CPUWAIVH; CPUWAIT=CPUWAIT+CPUWAIVH; MVSWAIT=MVSWAIT+MVSWAIVH; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=95 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAIVI; MVSWAIVI=CPUWAIVI; CPUPDTVI=LCPUPDTM; CPUEDTVI=LCPUEDTM; PCTONLVI=TEMPONLN; IF CAIVI EQ '.......1'B THEN DO; NEWWAIT=CPUWAIVI; CPUWAIT=CPUWAIT+CPUWAIVI; MVSWAIT=MVSWAIT+MVSWAIVI; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=96 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAIVJ; MVSWAIVJ=CPUWAIVJ; CPUPDTVJ=LCPUPDTM; CPUEDTVJ=LCPUEDTM; PCTONLVJ=TEMPONLN; IF CAIVJ EQ '.......1'B THEN DO; NEWWAIT=CPUWAIVJ; CPUWAIT=CPUWAIT+CPUWAIVJ; MVSWAIT=MVSWAIT+MVSWAIVJ; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=97 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAIVK; MVSWAIVK=CPUWAIVK; CPUPDTVK=LCPUPDTM; CPUEDTVK=LCPUEDTM; PCTONLVK=TEMPONLN; IF CAIVK EQ '.......1'B THEN DO; NEWWAIT=CPUWAIVK; CPUWAIT=CPUWAIT+CPUWAIVK; MVSWAIT=MVSWAIT+MVSWAIVK; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=98 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAIVL; MVSWAIVL=CPUWAIVL; CPUPDTVL=LCPUPDTM; CPUEDTVL=LCPUEDTM; PCTONLVL=TEMPONLN; IF CAIVL EQ '.......1'B THEN DO; NEWWAIT=CPUWAIVL; CPUWAIT=CPUWAIT+CPUWAIVL; MVSWAIT=MVSWAIT+MVSWAIVL; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=99 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAIVM; MVSWAIVM=CPUWAIVM; CPUPDTVM=LCPUPDTM; CPUEDTVM=LCPUEDTM; PCTONLVM=TEMPONLN; IF CAIVM EQ '.......1'B THEN DO; NEWWAIT=CPUWAIVM; CPUWAIT=CPUWAIT+CPUWAIVM; MVSWAIT=MVSWAIT+MVSWAIVM; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=100 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAIVN; MVSWAIVN=CPUWAIVN; CPUPDTVN=LCPUPDTM; CPUEDTVN=LCPUEDTM; PCTONLVN=TEMPONLN; IF CAIVN EQ '.......1'B THEN DO; NEWWAIT=CPUWAIVN; CPUWAIT=CPUWAIT+CPUWAIVN; MVSWAIT=MVSWAIT+MVSWAIVN; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=101 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAIVO; MVSWAIVO=CPUWAIVO; CPUPDTVO=LCPUPDTM; CPUEDTVO=LCPUEDTM; PCTONLVO=TEMPONLN; IF CAIVO EQ '.......1'B THEN DO; NEWWAIT=CPUWAIVO; CPUWAIT=CPUWAIT+CPUWAIVO; MVSWAIT=MVSWAIT+MVSWAIVO; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=102 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI102; MVSWAI102=CPUWAI102; CPUPDT102=LCPUPDTM; CPUEDT102=LCPUEDTM; PCTONL102=TEMPONLN; IF CAI102 EQ '.......1'B THEN DO; NEWWAIT=CPUWAI102; CPUWAIT=CPUWAIT+CPUWAI102; MVSWAIT=MVSWAIT+MVSWAI102; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=103 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI103; MVSWAI103=CPUWAI103; CPUPDT103=LCPUPDTM; CPUEDT103=LCPUEDTM; PCTONL103=TEMPONLN; IF CAI103 EQ '.......1'B THEN DO; NEWWAIT=CPUWAI103; CPUWAIT=CPUWAIT+CPUWAI103; MVSWAIT=MVSWAIT+MVSWAI103; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=104 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI104; MVSWAI104=CPUWAI104; CPUPDT104=LCPUPDTM; CPUEDT104=LCPUEDTM; PCTONL104=TEMPONLN; IF CAI104 EQ '.......1'B THEN DO; NEWWAIT=CPUWAI104; CPUWAIT=CPUWAIT+CPUWAI104; MVSWAIT=MVSWAIT+MVSWAI104; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=105 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI105; MVSWAI105=CPUWAI105; CPUPDT105=LCPUPDTM; CPUEDT105=LCPUEDTM; PCTONL105=TEMPONLN; IF CAI105 EQ '.......1'B THEN DO; NEWWAIT=CPUWAI105; CPUWAIT=CPUWAIT+CPUWAI105; MVSWAIT=MVSWAIT+MVSWAI105; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=106 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI106; MVSWAI106=CPUWAI106; CPUPDT106=LCPUPDTM; CPUEDT106=LCPUEDTM; PCTONL106=TEMPONLN; IF CAI106 EQ '.......1'B THEN DO; NEWWAIT=CPUWAI106; CPUWAIT=CPUWAIT+CPUWAI106; MVSWAIT=MVSWAIT+MVSWAI106; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=107 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI107; MVSWAI107=CPUWAI107; CPUPDT107=LCPUPDTM; CPUEDT107=LCPUEDTM; PCTONL107=TEMPONLN; IF CAI107 EQ '.......1'B THEN DO; NEWWAIT=CPUWAI107; CPUWAIT=CPUWAIT+CPUWAI107; MVSWAIT=MVSWAIT+MVSWAI107; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=108 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI108; MVSWAI108=CPUWAI108; CPUPDT108=LCPUPDTM; CPUEDT108=LCPUEDTM; PCTONL108=TEMPONLN; IF CAI108 EQ '.......1'B THEN DO; NEWWAIT=CPUWAI108; CPUWAIT=CPUWAIT+CPUWAI108; MVSWAIT=MVSWAIT+MVSWAI108; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=109 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI109; MVSWAI109=CPUWAI109; CPUPDT109=LCPUPDTM; CPUEDT109=LCPUEDTM; PCTONL109=TEMPONLN; IF CAI109 EQ '.......1'B THEN DO; NEWWAIT=CPUWAI109; CPUWAIT=CPUWAIT+CPUWAI109; MVSWAIT=MVSWAIT+MVSWAI109; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=110 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI110; MVSWAI110=CPUWAI110; CPUPDT110=LCPUPDTM; CPUEDT110=LCPUEDTM; PCTONL110=TEMPONLN; IF CAI110 EQ '.......1'B THEN DO; NEWWAIT=CPUWAI110; CPUWAIT=CPUWAIT+CPUWAI110; MVSWAIT=MVSWAIT+MVSWAI110; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=111 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI111; MVSWAI111=CPUWAI111; CPUPDT111=LCPUPDTM; CPUEDT111=LCPUEDTM; PCTONL111=TEMPONLN; IF CAI111 EQ '.......1'B THEN DO; NEWWAIT=CPUWAI111; CPUWAIT=CPUWAIT+CPUWAI111; MVSWAIT=MVSWAIT+MVSWAI111; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=112 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI112; MVSWAI112=CPUWAI112; CPUPDT112=LCPUPDTM; CPUEDT112=LCPUEDTM; PCTONL112=TEMPONLN; IF CAI112 EQ '.......1'B THEN DO; NEWWAIT=CPUWAI112; CPUWAIT=CPUWAIT+CPUWAI112; MVSWAIT=MVSWAIT+MVSWAI112; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=113 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI113; MVSWAI113=CPUWAI113; CPUPDT113=LCPUPDTM; CPUEDT113=LCPUEDTM; PCTONL113=TEMPONLN; IF CAI113 EQ '.......1'B THEN DO; NEWWAIT=CPUWAI113; CPUWAIT=CPUWAIT+CPUWAI113; MVSWAIT=MVSWAIT+MVSWAI113; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=114 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI114; MVSWAI114=CPUWAI114; CPUPDT114=LCPUPDTM; CPUEDT114=LCPUEDTM; PCTONL114=TEMPONLN; IF CAI114 EQ '.......1'B THEN DO; NEWWAIT=CPUWAI114; CPUWAIT=CPUWAIT+CPUWAI114; MVSWAIT=MVSWAIT+MVSWAI114; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=115 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI115; MVSWAI115=CPUWAI115; CPUPDT115=LCPUPDTM; CPUEDT115=LCPUEDTM; PCTONL115=TEMPONLN; IF CAI115 EQ '.......1'B THEN DO; NEWWAIT=CPUWAI115; CPUWAIT=CPUWAIT+CPUWAI115; MVSWAIT=MVSWAIT+MVSWAI115; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=116 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI116; MVSWAI116=CPUWAI116; CPUPDT116=LCPUPDTM; CPUEDT116=LCPUEDTM; PCTONL116=TEMPONLN; IF CAI116 EQ '.......1'B THEN DO; NEWWAIT=CPUWAI116; CPUWAIT=CPUWAIT+CPUWAI116; MVSWAIT=MVSWAIT+MVSWAI116; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=117 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI117; MVSWAI117=CPUWAI117; CPUPDT117=LCPUPDTM; CPUEDT117=LCPUEDTM; PCTONL117=TEMPONLN; IF CAI117 EQ '.......1'B THEN DO; NEWWAIT=CPUWAI117; CPUWAIT=CPUWAIT+CPUWAI117; MVSWAIT=MVSWAIT+MVSWAI117; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=118 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI118; MVSWAI118=CPUWAI118; CPUPDT118=LCPUPDTM; CPUEDT118=LCPUEDTM; PCTONL118=TEMPONLN; IF CAI118 EQ '.......1'B THEN DO; NEWWAIT=CPUWAI118; CPUWAIT=CPUWAIT+CPUWAI118; MVSWAIT=MVSWAIT+MVSWAI118; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=119 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI119; MVSWAI119=CPUWAI119; CPUPDT119=LCPUPDTM; CPUEDT119=LCPUEDTM; PCTONL119=TEMPONLN; IF CAI119 EQ '.......1'B THEN DO; NEWWAIT=CPUWAI119; CPUWAIT=CPUWAIT+CPUWAI119; MVSWAIT=MVSWAIT+MVSWAI119; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=120 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI120; MVSWAI120=CPUWAI120; CPUPDT120=LCPUPDTM; CPUEDT120=LCPUEDTM; PCTONL120=TEMPONLN; IF CAI120 EQ '.......1'B THEN DO; NEWWAIT=CPUWAI120; CPUWAIT=CPUWAIT+CPUWAI120; MVSWAIT=MVSWAIT+MVSWAI120; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=121 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI121; MVSWAI121=CPUWAI121; CPUPDT121=LCPUPDTM; CPUEDT121=LCPUEDTM; PCTONL121=TEMPONLN; IF CAI121 EQ '.......1'B THEN DO; NEWWAIT=CPUWAI121; CPUWAIT=CPUWAIT+CPUWAI121; MVSWAIT=MVSWAIT+MVSWAI121; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=122 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI122; MVSWAI122=CPUWAI122; CPUPDT122=LCPUPDTM; CPUEDT122=LCPUEDTM; PCTONL122=TEMPONLN; IF CAI122 EQ '.......1'B THEN DO; NEWWAIT=CPUWAI122; CPUWAIT=CPUWAIT+CPUWAI122; MVSWAIT=MVSWAIT+MVSWAI122; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=123 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI123; MVSWAI123=CPUWAI123; CPUPDT123=LCPUPDTM; CPUEDT123=LCPUEDTM; PCTONL123=TEMPONLN; IF CAI123 EQ '.......1'B THEN DO; NEWWAIT=CPUWAI123; CPUWAIT=CPUWAIT+CPUWAI123; MVSWAIT=MVSWAIT+MVSWAI123; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=124 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI124; MVSWAI124=CPUWAI124; CPUPDT124=LCPUPDTM; CPUEDT124=LCPUEDTM; PCTONL124=TEMPONLN; IF CAI124 EQ '.......1'B THEN DO; NEWWAIT=CPUWAI124; CPUWAIT=CPUWAIT+CPUWAI124; MVSWAIT=MVSWAIT+MVSWAI124; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=125 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI125; MVSWAI125=CPUWAI125; CPUPDT125=LCPUPDTM; CPUEDT125=LCPUEDTM; PCTONL125=TEMPONLN; IF CAI125 EQ '.......1'B THEN DO; NEWWAIT=CPUWAI125; CPUWAIT=CPUWAIT+CPUWAI125; MVSWAIT=MVSWAIT+MVSWAI125; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=126 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI126; MVSWAI126=CPUWAI126; CPUPDT126=LCPUPDTM; CPUEDT126=LCPUEDTM; PCTONL126=TEMPONLN; IF CAI126 EQ '.......1'B THEN DO; NEWWAIT=CPUWAI126; CPUWAIT=CPUWAIT+CPUWAI126; MVSWAIT=MVSWAIT+MVSWAI126; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=127 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI127; MVSWAI127=CPUWAI127; CPUPDT127=LCPUPDTM; CPUEDT127=LCPUEDTM; PCTONL127=TEMPONLN; IF CAI127 EQ '.......1'B THEN DO; NEWWAIT=CPUWAI127; CPUWAIT=CPUWAIT+CPUWAI127; MVSWAIT=MVSWAIT+MVSWAI127; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=128 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI128; MVSWAI128=CPUWAI128; CPUPDT128=LCPUPDTM; CPUEDT128=LCPUEDTM; PCTONL128=TEMPONLN; IF CAI128 EQ '.......1'B THEN DO; NEWWAIT=CPUWAI128; CPUWAIT=CPUWAIT+CPUWAI128; MVSWAIT=MVSWAIT+MVSWAI128; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=129 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI129; MVSWAI129=CPUWAI129; CPUPDT129=LCPUPDTM; CPUEDT129=LCPUEDTM; PCTONL129=TEMPONLN; IF CAI129 EQ '.......1'B THEN DO; NEWWAIT=CPUWAI129; CPUWAIT=CPUWAIT+CPUWAI129; MVSWAIT=MVSWAIT+MVSWAI129; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=130 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI130; MVSWAI130=CPUWAI130; CPUPDT130=LCPUPDTM; CPUEDT130=LCPUEDTM; PCTONL130=TEMPONLN; IF CAI130 EQ '.......1'B THEN DO; NEWWAIT=CPUWAI130; CPUWAIT=CPUWAIT+CPUWAI130; MVSWAIT=MVSWAIT+MVSWAI130; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=131 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI131; MVSWAI131=CPUWAI131; CPUPDT131=LCPUPDTM; CPUEDT131=LCPUEDTM; PCTONL131=TEMPONLN; IF CAI131 EQ '.......1'B THEN DO; NEWWAIT=CPUWAI131; CPUWAIT=CPUWAIT+CPUWAI131; MVSWAIT=MVSWAIT+MVSWAI131; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=132 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI132; MVSWAI132=CPUWAI132; CPUPDT132=LCPUPDTM; CPUEDT132=LCPUEDTM; PCTONL132=TEMPONLN; IF CAI132 EQ '.......1'B THEN DO; NEWWAIT=CPUWAI132; CPUWAIT=CPUWAIT+CPUWAI132; MVSWAIT=MVSWAIT+MVSWAI132; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=133 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI133; MVSWAI133=CPUWAI133; CPUPDT133=LCPUPDTM; CPUEDT133=LCPUEDTM; PCTONL133=TEMPONLN; IF CAI133 EQ '.......1'B THEN DO; NEWWAIT=CPUWAI133; CPUWAIT=CPUWAIT+CPUWAI133; MVSWAIT=MVSWAIT+MVSWAI133; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=134 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI134; MVSWAI134=CPUWAI134; CPUPDT134=LCPUPDTM; CPUEDT134=LCPUEDTM; PCTONL134=TEMPONLN; IF CAI134 EQ '.......1'B THEN DO; NEWWAIT=CPUWAI134; CPUWAIT=CPUWAIT+CPUWAI134; MVSWAIT=MVSWAIT+MVSWAI134; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=135 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI135; MVSWAI135=CPUWAI135; CPUPDT135=LCPUPDTM; CPUEDT135=LCPUEDTM; PCTONL135=TEMPONLN; IF CAI135 EQ '.......1'B THEN DO; NEWWAIT=CPUWAI135; CPUWAIT=CPUWAIT+CPUWAI135; MVSWAIT=MVSWAIT+MVSWAI135; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=136 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI136; MVSWAI136=CPUWAI136; CPUPDT136=LCPUPDTM; CPUEDT136=LCPUEDTM; PCTONL136=TEMPONLN; IF CAI136 EQ '.......1'B THEN DO; NEWWAIT=CPUWAI136; CPUWAIT=CPUWAIT+CPUWAI136; MVSWAIT=MVSWAIT+MVSWAI136; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=137 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI137; MVSWAI137=CPUWAI137; CPUPDT137=LCPUPDTM; CPUEDT137=LCPUEDTM; PCTONL137=TEMPONLN; IF CAI137 EQ '.......1'B THEN DO; NEWWAIT=CPUWAI137; CPUWAIT=CPUWAIT+CPUWAI137; MVSWAIT=MVSWAIT+MVSWAI137; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=138 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI138; MVSWAI138=CPUWAI138; CPUPDT138=LCPUPDTM; CPUEDT138=LCPUEDTM; PCTONL138=TEMPONLN; IF CAI138 EQ '.......1'B THEN DO; NEWWAIT=CPUWAI138; CPUWAIT=CPUWAIT+CPUWAI138; MVSWAIT=MVSWAIT+MVSWAI138; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=139 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI139; MVSWAI139=CPUWAI139; CPUPDT139=LCPUPDTM; CPUEDT139=LCPUEDTM; PCTONL139=TEMPONLN; IF CAI139 EQ '.......1'B THEN DO; NEWWAIT=CPUWAI139; CPUWAIT=CPUWAIT+CPUWAI139; MVSWAIT=MVSWAIT+MVSWAI139; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=140 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI140; MVSWAI140=CPUWAI140; CPUPDT140=LCPUPDTM; CPUEDT140=LCPUEDTM; PCTONL140=TEMPONLN; IF CAI140 EQ '.......1'B THEN DO; NEWWAIT=CPUWAI140; CPUWAIT=CPUWAIT+CPUWAI140; MVSWAIT=MVSWAIT+MVSWAI140; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=141 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI141; MVSWAI141=CPUWAI141; CPUPDT141=LCPUPDTM; CPUEDT141=LCPUEDTM; PCTONL141=TEMPONLN; IF CAI141 EQ '.......1'B THEN DO; NEWWAIT=CPUWAI141; CPUWAIT=CPUWAIT+CPUWAI141; MVSWAIT=MVSWAIT+MVSWAI141; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=142 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI142; MVSWAI142=CPUWAI142; CPUPDT142=LCPUPDTM; CPUEDT142=LCPUEDTM; PCTONL142=TEMPONLN; IF CAI142 EQ '.......1'B THEN DO; NEWWAIT=CPUWAI142; CPUWAIT=CPUWAIT+CPUWAI142; MVSWAIT=MVSWAIT+MVSWAI142; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=143 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI143; MVSWAI143=CPUWAI143; CPUPDT143=LCPUPDTM; CPUEDT143=LCPUEDTM; PCTONL143=TEMPONLN; IF CAI143 EQ '.......1'B THEN DO; NEWWAIT=CPUWAI143; CPUWAIT=CPUWAIT+CPUWAI143; MVSWAIT=MVSWAIT+MVSWAI143; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=144 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI144; MVSWAI144=CPUWAI144; CPUPDT144=LCPUPDTM; CPUEDT144=LCPUEDTM; PCTONL144=TEMPONLN; IF CAI144 EQ '.......1'B THEN DO; NEWWAIT=CPUWAI144; CPUWAIT=CPUWAIT+CPUWAI144; MVSWAIT=MVSWAIT+MVSWAI144; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=145 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI145; MVSWAI145=CPUWAI145; CPUPDT145=LCPUPDTM; CPUEDT145=LCPUEDTM; PCTONL145=TEMPONLN; IF CAI145 EQ '.......1'B THEN DO; NEWWAIT=CPUWAI145; CPUWAIT=CPUWAIT+CPUWAI145; MVSWAIT=MVSWAIT+MVSWAI145; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=146 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI146; MVSWAI146=CPUWAI146; CPUPDT146=LCPUPDTM; CPUEDT146=LCPUEDTM; PCTONL146=TEMPONLN; IF CAI146 EQ '.......1'B THEN DO; NEWWAIT=CPUWAI146; CPUWAIT=CPUWAIT+CPUWAI146; MVSWAIT=MVSWAIT+MVSWAI146; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=147 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI147; MVSWAI147=CPUWAI147; CPUPDT147=LCPUPDTM; CPUEDT147=LCPUEDTM; PCTONL147=TEMPONLN; IF CAI147 EQ '.......1'B THEN DO; NEWWAIT=CPUWAI147; CPUWAIT=CPUWAIT+CPUWAI147; MVSWAIT=MVSWAIT+MVSWAI147; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=148 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI148; MVSWAI148=CPUWAI148; CPUPDT148=LCPUPDTM; CPUEDT148=LCPUEDTM; PCTONL148=TEMPONLN; IF CAI148 EQ '.......1'B THEN DO; NEWWAIT=CPUWAI148; CPUWAIT=CPUWAIT+CPUWAI148; MVSWAIT=MVSWAIT+MVSWAI148; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=149 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI149; MVSWAI149=CPUWAI149; CPUPDT149=LCPUPDTM; CPUEDT149=LCPUEDTM; PCTONL149=TEMPONLN; IF CAI149 EQ '.......1'B THEN DO; NEWWAIT=CPUWAI149; CPUWAIT=CPUWAIT+CPUWAI149; MVSWAIT=MVSWAIT+MVSWAI149; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=150 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI150; MVSWAI150=CPUWAI150; CPUPDT150=LCPUPDTM; CPUEDT150=LCPUEDTM; PCTONL150=TEMPONLN; IF CAI150 EQ '.......1'B THEN DO; NEWWAIT=CPUWAI150; CPUWAIT=CPUWAIT+CPUWAI150; MVSWAIT=MVSWAIT+MVSWAI150; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=151 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI151; MVSWAI151=CPUWAI151; CPUPDT151=LCPUPDTM; CPUEDT151=LCPUEDTM; PCTONL151=TEMPONLN; IF CAI151 EQ '.......1'B THEN DO; NEWWAIT=CPUWAI151; CPUWAIT=CPUWAIT+CPUWAI151; MVSWAIT=MVSWAIT+MVSWAI151; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=152 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI152; MVSWAI152=CPUWAI152; CPUPDT152=LCPUPDTM; CPUEDT152=LCPUEDTM; PCTONL152=TEMPONLN; IF CAI152 EQ '.......1'B THEN DO; NEWWAIT=CPUWAI152; CPUWAIT=CPUWAIT+CPUWAI152; MVSWAIT=MVSWAIT+MVSWAI152; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=153 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI153; MVSWAI153=CPUWAI153; CPUPDT153=LCPUPDTM; CPUEDT153=LCPUEDTM; PCTONL153=TEMPONLN; IF CAI153 EQ '.......1'B THEN DO; NEWWAIT=CPUWAI153; CPUWAIT=CPUWAIT+CPUWAI153; MVSWAIT=MVSWAIT+MVSWAI153; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=154 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI154; MVSWAI154=CPUWAI154; CPUPDT154=LCPUPDTM; CPUEDT154=LCPUEDTM; PCTONL154=TEMPONLN; IF CAI154 EQ '.......1'B THEN DO; NEWWAIT=CPUWAI154; CPUWAIT=CPUWAIT+CPUWAI154; MVSWAIT=MVSWAIT+MVSWAI154; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=155 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI155; MVSWAI155=CPUWAI155; CPUPDT155=LCPUPDTM; CPUEDT155=LCPUEDTM; PCTONL155=TEMPONLN; IF CAI155 EQ '.......1'B THEN DO; NEWWAIT=CPUWAI155; CPUWAIT=CPUWAIT+CPUWAI155; MVSWAIT=MVSWAIT+MVSWAI155; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=156 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI156; MVSWAI156=CPUWAI156; CPUPDT156=LCPUPDTM; CPUEDT156=LCPUEDTM; PCTONL156=TEMPONLN; IF CAI156 EQ '.......1'B THEN DO; NEWWAIT=CPUWAI156; CPUWAIT=CPUWAIT+CPUWAI156; MVSWAIT=MVSWAIT+MVSWAI156; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=157 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI157; MVSWAI157=CPUWAI157; CPUPDT157=LCPUPDTM; CPUEDT157=LCPUEDTM; PCTONL157=TEMPONLN; IF CAI157 EQ '.......1'B THEN DO; NEWWAIT=CPUWAI157; CPUWAIT=CPUWAIT+CPUWAI157; MVSWAIT=MVSWAIT+MVSWAI157; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=158 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI158; MVSWAI158=CPUWAI158; CPUPDT158=LCPUPDTM; CPUEDT158=LCPUEDTM; PCTONL158=TEMPONLN; IF CAI158 EQ '.......1'B THEN DO; NEWWAIT=CPUWAI158; CPUWAIT=CPUWAIT+CPUWAI158; MVSWAIT=MVSWAIT+MVSWAI158; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=159 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI159; MVSWAI159=CPUWAI159; CPUPDT159=LCPUPDTM; CPUEDT159=LCPUEDTM; PCTONL159=TEMPONLN; IF CAI159 EQ '.......1'B THEN DO; NEWWAIT=CPUWAI159; CPUWAIT=CPUWAIT+CPUWAI159; MVSWAIT=MVSWAIT+MVSWAI159; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=160 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI160; MVSWAI160=CPUWAI160; CPUPDT160=LCPUPDTM; CPUEDT160=LCPUEDTM; PCTONL160=TEMPONLN; IF CAI160 EQ '.......1'B THEN DO; NEWWAIT=CPUWAI160; CPUWAIT=CPUWAIT+CPUWAI160; MVSWAIT=MVSWAIT+MVSWAI160; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=161 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI161; MVSWAI161=CPUWAI161; CPUPDT161=LCPUPDTM; CPUEDT161=LCPUEDTM; PCTONL161=TEMPONLN; IF CAI161 EQ '.......1'B THEN DO; NEWWAIT=CPUWAI161; CPUWAIT=CPUWAIT+CPUWAI161; MVSWAIT=MVSWAIT+MVSWAI161; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=162 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI162; MVSWAI162=CPUWAI162; CPUPDT162=LCPUPDTM; CPUEDT162=LCPUEDTM; PCTONL162=TEMPONLN; IF CAI162 EQ '.......1'B THEN DO; NEWWAIT=CPUWAI162; CPUWAIT=CPUWAIT+CPUWAI162; MVSWAIT=MVSWAIT+MVSWAI162; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=163 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI163; MVSWAI163=CPUWAI163; CPUPDT163=LCPUPDTM; CPUEDT163=LCPUEDTM; PCTONL163=TEMPONLN; IF CAI163 EQ '.......1'B THEN DO; NEWWAIT=CPUWAI163; CPUWAIT=CPUWAIT+CPUWAI163; MVSWAIT=MVSWAIT+MVSWAI163; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=164 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI164; MVSWAI164=CPUWAI164; CPUPDT164=LCPUPDTM; CPUEDT164=LCPUEDTM; PCTONL164=TEMPONLN; IF CAI164 EQ '.......1'B THEN DO; NEWWAIT=CPUWAI164; CPUWAIT=CPUWAIT+CPUWAI164; MVSWAIT=MVSWAIT+MVSWAI164; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=165 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI165; MVSWAI165=CPUWAI165; CPUPDT165=LCPUPDTM; CPUEDT165=LCPUEDTM; PCTONL165=TEMPONLN; IF CAI165 EQ '.......1'B THEN DO; NEWWAIT=CPUWAI165; CPUWAIT=CPUWAIT+CPUWAI165; MVSWAIT=MVSWAIT+MVSWAI165; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=166 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI166; MVSWAI166=CPUWAI166; CPUPDT166=LCPUPDTM; CPUEDT166=LCPUEDTM; PCTONL166=TEMPONLN; IF CAI166 EQ '.......1'B THEN DO; NEWWAIT=CPUWAI166; CPUWAIT=CPUWAIT+CPUWAI166; MVSWAIT=MVSWAIT+MVSWAI166; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=167 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI167; MVSWAI167=CPUWAI167; CPUPDT167=LCPUPDTM; CPUEDT167=LCPUEDTM; PCTONL167=TEMPONLN; IF CAI167 EQ '.......1'B THEN DO; NEWWAIT=CPUWAI167; CPUWAIT=CPUWAIT+CPUWAI167; MVSWAIT=MVSWAIT+MVSWAI167; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=168 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI168; MVSWAI168=CPUWAI168; CPUPDT168=LCPUPDTM; CPUEDT168=LCPUEDTM; PCTONL168=TEMPONLN; IF CAI168 EQ '.......1'B THEN DO; NEWWAIT=CPUWAI168; CPUWAIT=CPUWAIT+CPUWAI168; MVSWAIT=MVSWAIT+MVSWAI168; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=169 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI169; MVSWAI169=CPUWAI169; CPUPDT169=LCPUPDTM; CPUEDT169=LCPUEDTM; PCTONL169=TEMPONLN; IF CAI169 EQ '.......1'B THEN DO; NEWWAIT=CPUWAI169; CPUWAIT=CPUWAIT+CPUWAI169; MVSWAIT=MVSWAIT+MVSWAI169; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=170 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI170; MVSWAI170=CPUWAI170; CPUPDT170=LCPUPDTM; CPUEDT170=LCPUEDTM; PCTONL170=TEMPONLN; IF CAI170 EQ '.......1'B THEN DO; NEWWAIT=CPUWAI170; CPUWAIT=CPUWAIT+CPUWAI170; MVSWAIT=MVSWAIT+MVSWAI170; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=171 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI171; MVSWAI171=CPUWAI171; CPUPDT171=LCPUPDTM; CPUEDT171=LCPUEDTM; PCTONL171=TEMPONLN; IF CAI171 EQ '.......1'B THEN DO; NEWWAIT=CPUWAI171; CPUWAIT=CPUWAIT+CPUWAI171; MVSWAIT=MVSWAIT+MVSWAI171; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=172 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI172; MVSWAI172=CPUWAI172; CPUPDT172=LCPUPDTM; CPUEDT172=LCPUEDTM; PCTONL172=TEMPONLN; IF CAI172 EQ '.......1'B THEN DO; NEWWAIT=CPUWAI172; CPUWAIT=CPUWAIT+CPUWAI172; MVSWAIT=MVSWAIT+MVSWAI172; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=173 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI173; MVSWAI173=CPUWAI173; CPUPDT173=LCPUPDTM; CPUEDT173=LCPUEDTM; PCTONL173=TEMPONLN; IF CAI173 EQ '.......1'B THEN DO; NEWWAIT=CPUWAI173; CPUWAIT=CPUWAIT+CPUWAI173; MVSWAIT=MVSWAIT+MVSWAI173; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=174 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI174; MVSWAI174=CPUWAI174; CPUPDT174=LCPUPDTM; CPUEDT174=LCPUEDTM; PCTONL174=TEMPONLN; IF CAI174 EQ '.......1'B THEN DO; NEWWAIT=CPUWAI174; CPUWAIT=CPUWAIT+CPUWAI174; MVSWAIT=MVSWAIT+MVSWAI174; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=175 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI175; MVSWAI175=CPUWAI175; CPUPDT175=LCPUPDTM; CPUEDT175=LCPUEDTM; PCTONL175=TEMPONLN; IF CAI175 EQ '.......1'B THEN DO; NEWWAIT=CPUWAI175; CPUWAIT=CPUWAIT+CPUWAI175; MVSWAIT=MVSWAIT+MVSWAI175; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=176 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI176; MVSWAI176=CPUWAI176; CPUPDT176=LCPUPDTM; CPUEDT176=LCPUEDTM; PCTONL176=TEMPONLN; IF CAI176 EQ '.......1'B THEN DO; NEWWAIT=CPUWAI176; CPUWAIT=CPUWAIT+CPUWAI176; MVSWAIT=MVSWAIT+MVSWAI176; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=177 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI177; MVSWAI177=CPUWAI177; CPUPDT177=LCPUPDTM; CPUEDT177=LCPUEDTM; PCTONL177=TEMPONLN; IF CAI177 EQ '.......1'B THEN DO; NEWWAIT=CPUWAI177; CPUWAIT=CPUWAIT+CPUWAI177; MVSWAIT=MVSWAIT+MVSWAI177; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=178 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI178; MVSWAI178=CPUWAI178; CPUPDT178=LCPUPDTM; CPUEDT178=LCPUEDTM; PCTONL178=TEMPONLN; IF CAI178 EQ '.......1'B THEN DO; NEWWAIT=CPUWAI178; CPUWAIT=CPUWAIT+CPUWAI178; MVSWAIT=MVSWAIT+MVSWAI178; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=179 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI179; MVSWAI179=CPUWAI179; CPUPDT179=LCPUPDTM; CPUEDT179=LCPUEDTM; PCTONL179=TEMPONLN; IF CAI179 EQ '.......1'B THEN DO; NEWWAIT=CPUWAI179; CPUWAIT=CPUWAIT+CPUWAI179; MVSWAIT=MVSWAIT+MVSWAI179; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=180 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI180; MVSWAI180=CPUWAI180; CPUPDT180=LCPUPDTM; CPUEDT180=LCPUEDTM; PCTONL180=TEMPONLN; IF CAI180 EQ '.......1'B THEN DO; NEWWAIT=CPUWAI180; CPUWAIT=CPUWAIT+CPUWAI180; MVSWAIT=MVSWAIT+MVSWAI180; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=181 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI181; MVSWAI181=CPUWAI181; CPUPDT181=LCPUPDTM; CPUEDT181=LCPUEDTM; PCTONL181=TEMPONLN; IF CAI181 EQ '.......1'B THEN DO; NEWWAIT=CPUWAI181; CPUWAIT=CPUWAIT+CPUWAI181; MVSWAIT=MVSWAIT+MVSWAI181; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=182 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI182; MVSWAI182=CPUWAI182; CPUPDT182=LCPUPDTM; CPUEDT182=LCPUEDTM; PCTONL182=TEMPONLN; IF CAI182 EQ '.......1'B THEN DO; NEWWAIT=CPUWAI182; CPUWAIT=CPUWAIT+CPUWAI182; MVSWAIT=MVSWAIT+MVSWAI182; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=183 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI183; MVSWAI183=CPUWAI183; CPUPDT183=LCPUPDTM; CPUEDT183=LCPUEDTM; PCTONL183=TEMPONLN; IF CAI183 EQ '.......1'B THEN DO; NEWWAIT=CPUWAI183; CPUWAIT=CPUWAIT+CPUWAI183; MVSWAIT=MVSWAIT+MVSWAI183; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=184 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI184; MVSWAI184=CPUWAI184; CPUPDT184=LCPUPDTM; CPUEDT184=LCPUEDTM; PCTONL184=TEMPONLN; IF CAI184 EQ '.......1'B THEN DO; NEWWAIT=CPUWAI184; CPUWAIT=CPUWAIT+CPUWAI184; MVSWAIT=MVSWAIT+MVSWAI184; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=185 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI185; MVSWAI185=CPUWAI185; CPUPDT185=LCPUPDTM; CPUEDT185=LCPUEDTM; PCTONL185=TEMPONLN; IF CAI185 EQ '.......1'B THEN DO; NEWWAIT=CPUWAI185; CPUWAIT=CPUWAIT+CPUWAI185; MVSWAIT=MVSWAIT+MVSWAI185; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=186 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI186; MVSWAI186=CPUWAI186; CPUPDT186=LCPUPDTM; CPUEDT186=LCPUEDTM; PCTONL186=TEMPONLN; IF CAI186 EQ '.......1'B THEN DO; NEWWAIT=CPUWAI186; CPUWAIT=CPUWAIT+CPUWAI186; MVSWAIT=MVSWAIT+MVSWAI186; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=187 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI187; MVSWAI187=CPUWAI187; CPUPDT187=LCPUPDTM; CPUEDT187=LCPUEDTM; PCTONL187=TEMPONLN; IF CAI187 EQ '.......1'B THEN DO; NEWWAIT=CPUWAI187; CPUWAIT=CPUWAIT+CPUWAI187; MVSWAIT=MVSWAIT+MVSWAI187; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=188 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI188; MVSWAI188=CPUWAI188; CPUPDT188=LCPUPDTM; CPUEDT188=LCPUEDTM; PCTONL188=TEMPONLN; IF CAI188 EQ '.......1'B THEN DO; NEWWAIT=CPUWAI188; CPUWAIT=CPUWAIT+CPUWAI188; MVSWAIT=MVSWAIT+MVSWAI188; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=189 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI189; MVSWAI189=CPUWAI189; CPUPDT189=LCPUPDTM; CPUEDT189=LCPUEDTM; PCTONL189=TEMPONLN; IF CAI189 EQ '.......1'B THEN DO; NEWWAIT=CPUWAI189; CPUWAIT=CPUWAIT+CPUWAI189; MVSWAIT=MVSWAIT+MVSWAI189; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=190 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI190; MVSWAI190=CPUWAI190; CPUPDT190=LCPUPDTM; CPUEDT190=LCPUEDTM; PCTONL190=TEMPONLN; IF CAI190 EQ '.......1'B THEN DO; NEWWAIT=CPUWAI190; CPUWAIT=CPUWAIT+CPUWAI190; MVSWAIT=MVSWAIT+MVSWAI190; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=191 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI191; MVSWAI191=CPUWAI191; CPUPDT191=LCPUPDTM; CPUEDT191=LCPUEDTM; PCTONL191=TEMPONLN; IF CAI191 EQ '.......1'B THEN DO; NEWWAIT=CPUWAI191; CPUWAIT=CPUWAIT+CPUWAI191; MVSWAIT=MVSWAIT+MVSWAI191; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=192 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI192; MVSWAI192=CPUWAI192; CPUPDT192=LCPUPDTM; CPUEDT192=LCPUEDTM; PCTONL192=TEMPONLN; IF CAI192 EQ '.......1'B THEN DO; NEWWAIT=CPUWAI192; CPUWAIT=CPUWAIT+CPUWAI192; MVSWAIT=MVSWAIT+MVSWAI192; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=193 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI193; MVSWAI193=CPUWAI193; CPUPDT193=LCPUPDTM; CPUEDT193=LCPUEDTM; PCTONL193=TEMPONLN; IF CAI193 EQ '.......1'B THEN DO; NEWWAIT=CPUWAI193; CPUWAIT=CPUWAIT+CPUWAI193; MVSWAIT=MVSWAIT+MVSWAI193; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=194 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI194; MVSWAI194=CPUWAI194; CPUPDT194=LCPUPDTM; CPUEDT194=LCPUEDTM; PCTONL194=TEMPONLN; IF CAI194 EQ '.......1'B THEN DO; NEWWAIT=CPUWAI194; CPUWAIT=CPUWAIT+CPUWAI194; MVSWAIT=MVSWAIT+MVSWAI194; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=195 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI195; MVSWAI195=CPUWAI195; CPUPDT195=LCPUPDTM; CPUEDT195=LCPUEDTM; PCTONL195=TEMPONLN; IF CAI195 EQ '.......1'B THEN DO; NEWWAIT=CPUWAI195; CPUWAIT=CPUWAIT+CPUWAI195; MVSWAIT=MVSWAIT+MVSWAI195; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=196 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI196; MVSWAI196=CPUWAI196; CPUPDT196=LCPUPDTM; CPUEDT196=LCPUEDTM; PCTONL196=TEMPONLN; IF CAI196 EQ '.......1'B THEN DO; NEWWAIT=CPUWAI196; CPUWAIT=CPUWAIT+CPUWAI196; MVSWAIT=MVSWAIT+MVSWAI196; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=197 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI197; MVSWAI197=CPUWAI197; CPUPDT197=LCPUPDTM; CPUEDT197=LCPUEDTM; PCTONL197=TEMPONLN; IF CAI197 EQ '.......1'B THEN DO; NEWWAIT=CPUWAI197; CPUWAIT=CPUWAIT+CPUWAI197; MVSWAIT=MVSWAIT+MVSWAI197; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=198 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI198; MVSWAI198=CPUWAI198; CPUPDT198=LCPUPDTM; CPUEDT198=LCPUEDTM; PCTONL198=TEMPONLN; IF CAI198 EQ '.......1'B THEN DO; NEWWAIT=CPUWAI198; CPUWAIT=CPUWAIT+CPUWAI198; MVSWAIT=MVSWAIT+MVSWAI198; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=199 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI199; MVSWAI199=CPUWAI199; CPUPDT199=LCPUPDTM; CPUEDT199=LCPUEDTM; PCTONL199=TEMPONLN; IF CAI199 EQ '.......1'B THEN DO; NEWWAIT=CPUWAI199; CPUWAIT=CPUWAIT+CPUWAI199; MVSWAIT=MVSWAIT+MVSWAI199; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=200 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI200; MVSWAI200=CPUWAI200; CPUPDT200=LCPUPDTM; CPUEDT200=LCPUEDTM; PCTONL200=TEMPONLN; IF CAI200 EQ '.......1'B THEN DO; NEWWAIT=CPUWAI200; CPUWAIT=CPUWAIT+CPUWAI200; MVSWAIT=MVSWAIT+MVSWAI200; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=201 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI201; MVSWAI201=CPUWAI201; CPUPDT201=LCPUPDTM; CPUEDT201=LCPUEDTM; PCTONL201=TEMPONLN; IF CAI201 EQ '.......1'B THEN DO; NEWWAIT=CPUWAI201; CPUWAIT=CPUWAIT+CPUWAI201; MVSWAIT=MVSWAIT+MVSWAI201; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=202 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI202; MVSWAI202=CPUWAI202; CPUPDT202=LCPUPDTM; CPUEDT202=LCPUEDTM; PCTONL202=TEMPONLN; IF CAI202 EQ '.......1'B THEN DO; NEWWAIT=CPUWAI202; CPUWAIT=CPUWAIT+CPUWAI202; MVSWAIT=MVSWAIT+MVSWAI202; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=203 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI203; MVSWAI203=CPUWAI203; CPUPDT203=LCPUPDTM; CPUEDT203=LCPUEDTM; PCTONL203=TEMPONLN; IF CAI203 EQ '.......1'B THEN DO; NEWWAIT=CPUWAI203; CPUWAIT=CPUWAIT+CPUWAI203; MVSWAIT=MVSWAIT+MVSWAI203; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=204 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI204; MVSWAI204=CPUWAI204; CPUPDT204=LCPUPDTM; CPUEDT204=LCPUEDTM; PCTONL204=TEMPONLN; IF CAI204 EQ '.......1'B THEN DO; NEWWAIT=CPUWAI204; CPUWAIT=CPUWAIT+CPUWAI204; MVSWAIT=MVSWAIT+MVSWAI204; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=205 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI205; MVSWAI205=CPUWAI205; CPUPDT205=LCPUPDTM; CPUEDT205=LCPUEDTM; PCTONL205=TEMPONLN; IF CAI205 EQ '.......1'B THEN DO; NEWWAIT=CPUWAI205; CPUWAIT=CPUWAIT+CPUWAI205; MVSWAIT=MVSWAIT+MVSWAI205; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=206 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI206; MVSWAI206=CPUWAI206; CPUPDT206=LCPUPDTM; CPUEDT206=LCPUEDTM; PCTONL206=TEMPONLN; IF CAI206 EQ '.......1'B THEN DO; NEWWAIT=CPUWAI206; CPUWAIT=CPUWAIT+CPUWAI206; MVSWAIT=MVSWAIT+MVSWAI206; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=207 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI207; MVSWAI207=CPUWAI207; CPUPDT207=LCPUPDTM; CPUEDT207=LCPUEDTM; PCTONL207=TEMPONLN; IF CAI207 EQ '.......1'B THEN DO; NEWWAIT=CPUWAI207; CPUWAIT=CPUWAIT+CPUWAI207; MVSWAIT=MVSWAIT+MVSWAI207; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=208 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI208; MVSWAI208=CPUWAI208; CPUPDT208=LCPUPDTM; CPUEDT208=LCPUEDTM; PCTONL208=TEMPONLN; IF CAI208 EQ '.......1'B THEN DO; NEWWAIT=CPUWAI208; CPUWAIT=CPUWAIT+CPUWAI208; MVSWAIT=MVSWAIT+MVSWAI208; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=209 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI209; MVSWAI209=CPUWAI209; CPUPDT209=LCPUPDTM; CPUEDT209=LCPUEDTM; PCTONL209=TEMPONLN; IF CAI209 EQ '.......1'B THEN DO; NEWWAIT=CPUWAI209; CPUWAIT=CPUWAIT+CPUWAI209; MVSWAIT=MVSWAIT+MVSWAI209; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=210 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI210; MVSWAI210=CPUWAI210; CPUPDT210=LCPUPDTM; CPUEDT210=LCPUEDTM; PCTONL210=TEMPONLN; IF CAI210 EQ '.......1'B THEN DO; NEWWAIT=CPUWAI210; CPUWAIT=CPUWAIT+CPUWAI210; MVSWAIT=MVSWAIT+MVSWAI210; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=211 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI211; MVSWAI211=CPUWAI211; CPUPDT211=LCPUPDTM; CPUEDT211=LCPUEDTM; PCTONL211=TEMPONLN; IF CAI211 EQ '.......1'B THEN DO; NEWWAIT=CPUWAI211; CPUWAIT=CPUWAIT+CPUWAI211; MVSWAIT=MVSWAIT+MVSWAI211; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=212 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI212; MVSWAI212=CPUWAI212; CPUPDT212=LCPUPDTM; CPUEDT212=LCPUEDTM; PCTONL212=TEMPONLN; IF CAI212 EQ '.......1'B THEN DO; NEWWAIT=CPUWAI212; CPUWAIT=CPUWAIT+CPUWAI212; MVSWAIT=MVSWAIT+MVSWAI212; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=213 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI213; MVSWAI213=CPUWAI213; CPUPDT213=LCPUPDTM; CPUEDT213=LCPUEDTM; PCTONL213=TEMPONLN; IF CAI213 EQ '.......1'B THEN DO; NEWWAIT=CPUWAI213; CPUWAIT=CPUWAIT+CPUWAI213; MVSWAIT=MVSWAIT+MVSWAI213; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=214 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI214; MVSWAI214=CPUWAI214; CPUPDT214=LCPUPDTM; CPUEDT214=LCPUEDTM; PCTONL214=TEMPONLN; IF CAI214 EQ '.......1'B THEN DO; NEWWAIT=CPUWAI214; CPUWAIT=CPUWAIT+CPUWAI214; MVSWAIT=MVSWAIT+MVSWAI214; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=215 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI215; MVSWAI215=CPUWAI215; CPUPDT215=LCPUPDTM; CPUEDT215=LCPUEDTM; PCTONL215=TEMPONLN; IF CAI215 EQ '.......1'B THEN DO; NEWWAIT=CPUWAI215; CPUWAIT=CPUWAIT+CPUWAI215; MVSWAIT=MVSWAIT+MVSWAI215; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=216 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI216; MVSWAI216=CPUWAI216; CPUPDT216=LCPUPDTM; CPUEDT216=LCPUEDTM; PCTONL216=TEMPONLN; IF CAI216 EQ '.......1'B THEN DO; NEWWAIT=CPUWAI216; CPUWAIT=CPUWAIT+CPUWAI216; MVSWAIT=MVSWAIT+MVSWAI216; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=217 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI217; MVSWAI217=CPUWAI217; CPUPDT217=LCPUPDTM; CPUEDT217=LCPUEDTM; PCTONL217=TEMPONLN; IF CAI217 EQ '.......1'B THEN DO; NEWWAIT=CPUWAI217; CPUWAIT=CPUWAIT+CPUWAI217; MVSWAIT=MVSWAIT+MVSWAI217; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=218 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI218; MVSWAI218=CPUWAI218; CPUPDT218=LCPUPDTM; CPUEDT218=LCPUEDTM; PCTONL218=TEMPONLN; IF CAI218 EQ '.......1'B THEN DO; NEWWAIT=CPUWAI218; CPUWAIT=CPUWAIT+CPUWAI218; MVSWAIT=MVSWAIT+MVSWAI218; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=219 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI219; MVSWAI219=CPUWAI219; CPUPDT219=LCPUPDTM; CPUEDT219=LCPUEDTM; PCTONL219=TEMPONLN; IF CAI219 EQ '.......1'B THEN DO; NEWWAIT=CPUWAI219; CPUWAIT=CPUWAIT+CPUWAI219; MVSWAIT=MVSWAIT+MVSWAI219; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=220 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI220; MVSWAI220=CPUWAI220; CPUPDT220=LCPUPDTM; CPUEDT220=LCPUEDTM; PCTONL220=TEMPONLN; IF CAI220 EQ '.......1'B THEN DO; NEWWAIT=CPUWAI220; CPUWAIT=CPUWAIT+CPUWAI220; MVSWAIT=MVSWAIT+MVSWAI220; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=221 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI221; MVSWAI221=CPUWAI221; CPUPDT221=LCPUPDTM; CPUEDT221=LCPUEDTM; PCTONL221=TEMPONLN; IF CAI221 EQ '.......1'B THEN DO; NEWWAIT=CPUWAI221; CPUWAIT=CPUWAIT+CPUWAI221; MVSWAIT=MVSWAIT+MVSWAI221; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=222 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI222; MVSWAI222=CPUWAI222; CPUPDT222=LCPUPDTM; CPUEDT222=LCPUEDTM; PCTONL222=TEMPONLN; IF CAI222 EQ '.......1'B THEN DO; NEWWAIT=CPUWAI222; CPUWAIT=CPUWAIT+CPUWAI222; MVSWAIT=MVSWAIT+MVSWAI222; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=223 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI223; MVSWAI223=CPUWAI223; CPUPDT223=LCPUPDTM; CPUEDT223=LCPUEDTM; PCTONL223=TEMPONLN; IF CAI223 EQ '.......1'B THEN DO; NEWWAIT=CPUWAI223; CPUWAIT=CPUWAIT+CPUWAI223; MVSWAIT=MVSWAIT+MVSWAI223; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=224 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI224; MVSWAI224=CPUWAI224; CPUPDT224=LCPUPDTM; CPUEDT224=LCPUEDTM; PCTONL224=TEMPONLN; IF CAI224 EQ '.......1'B THEN DO; NEWWAIT=CPUWAI224; CPUWAIT=CPUWAIT+CPUWAI224; MVSWAIT=MVSWAIT+MVSWAI224; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=225 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI225; MVSWAI225=CPUWAI225; CPUPDT225=LCPUPDTM; CPUEDT225=LCPUEDTM; PCTONL225=TEMPONLN; IF CAI225 EQ '.......1'B THEN DO; NEWWAIT=CPUWAI225; CPUWAIT=CPUWAIT+CPUWAI225; MVSWAIT=MVSWAIT+MVSWAI225; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=226 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI226; MVSWAI226=CPUWAI226; CPUPDT226=LCPUPDTM; CPUEDT226=LCPUEDTM; PCTONL226=TEMPONLN; IF CAI226 EQ '.......1'B THEN DO; NEWWAIT=CPUWAI226; CPUWAIT=CPUWAIT+CPUWAI226; MVSWAIT=MVSWAIT+MVSWAI226; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=227 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI227; MVSWAI227=CPUWAI227; CPUPDT227=LCPUPDTM; CPUEDT227=LCPUEDTM; PCTONL227=TEMPONLN; IF CAI227 EQ '.......1'B THEN DO; NEWWAIT=CPUWAI227; CPUWAIT=CPUWAIT+CPUWAI227; MVSWAIT=MVSWAIT+MVSWAI227; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=228 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI228; MVSWAI228=CPUWAI228; CPUPDT228=LCPUPDTM; CPUEDT228=LCPUEDTM; PCTONL228=TEMPONLN; IF CAI228 EQ '.......1'B THEN DO; NEWWAIT=CPUWAI228; CPUWAIT=CPUWAIT+CPUWAI228; MVSWAIT=MVSWAIT+MVSWAI228; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=229 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI229; MVSWAI229=CPUWAI229; CPUPDT229=LCPUPDTM; CPUEDT229=LCPUEDTM; PCTONL229=TEMPONLN; IF CAI229 EQ '.......1'B THEN DO; NEWWAIT=CPUWAI229; CPUWAIT=CPUWAIT+CPUWAI229; MVSWAIT=MVSWAIT+MVSWAI229; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=230 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI230; MVSWAI230=CPUWAI230; CPUPDT230=LCPUPDTM; CPUEDT230=LCPUEDTM; PCTONL230=TEMPONLN; IF CAI230 EQ '.......1'B THEN DO; NEWWAIT=CPUWAI230; CPUWAIT=CPUWAIT+CPUWAI230; MVSWAIT=MVSWAIT+MVSWAI230; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=231 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI231; MVSWAI231=CPUWAI231; CPUPDT231=LCPUPDTM; CPUEDT231=LCPUEDTM; PCTONL231=TEMPONLN; IF CAI231 EQ '.......1'B THEN DO; NEWWAIT=CPUWAI231; CPUWAIT=CPUWAIT+CPUWAI231; MVSWAIT=MVSWAIT+MVSWAI231; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=232 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI232; MVSWAI232=CPUWAI232; CPUPDT232=LCPUPDTM; CPUEDT232=LCPUEDTM; PCTONL232=TEMPONLN; IF CAI232 EQ '.......1'B THEN DO; NEWWAIT=CPUWAI232; CPUWAIT=CPUWAIT+CPUWAI232; MVSWAIT=MVSWAIT+MVSWAI232; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=233 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI233; MVSWAI233=CPUWAI233; CPUPDT233=LCPUPDTM; CPUEDT233=LCPUEDTM; PCTONL233=TEMPONLN; IF CAI233 EQ '.......1'B THEN DO; NEWWAIT=CPUWAI233; CPUWAIT=CPUWAIT+CPUWAI233; MVSWAIT=MVSWAIT+MVSWAI233; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=234 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI234; MVSWAI234=CPUWAI234; CPUPDT234=LCPUPDTM; CPUEDT234=LCPUEDTM; PCTONL234=TEMPONLN; IF CAI234 EQ '.......1'B THEN DO; NEWWAIT=CPUWAI234; CPUWAIT=CPUWAIT+CPUWAI234; MVSWAIT=MVSWAIT+MVSWAI234; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=235 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI235; MVSWAI235=CPUWAI235; CPUPDT235=LCPUPDTM; CPUEDT235=LCPUEDTM; PCTONL235=TEMPONLN; IF CAI235 EQ '.......1'B THEN DO; NEWWAIT=CPUWAI235; CPUWAIT=CPUWAIT+CPUWAI235; MVSWAIT=MVSWAIT+MVSWAI235; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=236 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI236; MVSWAI236=CPUWAI236; CPUPDT236=LCPUPDTM; CPUEDT236=LCPUEDTM; PCTONL236=TEMPONLN; IF CAI236 EQ '.......1'B THEN DO; NEWWAIT=CPUWAI236; CPUWAIT=CPUWAIT+CPUWAI236; MVSWAIT=MVSWAIT+MVSWAI236; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=237 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI237; MVSWAI237=CPUWAI237; CPUPDT237=LCPUPDTM; CPUEDT237=LCPUEDTM; PCTONL237=TEMPONLN; IF CAI237 EQ '.......1'B THEN DO; NEWWAIT=CPUWAI237; CPUWAIT=CPUWAIT+CPUWAI237; MVSWAIT=MVSWAIT+MVSWAI237; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=238 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI238; MVSWAI238=CPUWAI238; CPUPDT238=LCPUPDTM; CPUEDT238=LCPUEDTM; PCTONL238=TEMPONLN; IF CAI238 EQ '.......1'B THEN DO; NEWWAIT=CPUWAI238; CPUWAIT=CPUWAIT+CPUWAI238; MVSWAIT=MVSWAIT+MVSWAI238; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=239 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI239; MVSWAI239=CPUWAI239; CPUPDT239=LCPUPDTM; CPUEDT239=LCPUEDTM; PCTONL239=TEMPONLN; IF CAI239 EQ '.......1'B THEN DO; NEWWAIT=CPUWAI239; CPUWAIT=CPUWAIT+CPUWAI239; MVSWAIT=MVSWAIT+MVSWAI239; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=240 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI240; MVSWAI240=CPUWAI240; CPUPDT240=LCPUPDTM; CPUEDT240=LCPUEDTM; PCTONL240=TEMPONLN; IF CAI240 EQ '.......1'B THEN DO; NEWWAIT=CPUWAI240; CPUWAIT=CPUWAIT+CPUWAI240; MVSWAIT=MVSWAIT+MVSWAI240; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=241 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI241; MVSWAI241=CPUWAI241; CPUPDT241=LCPUPDTM; CPUEDT241=LCPUEDTM; PCTONL241=TEMPONLN; IF CAI241 EQ '.......1'B THEN DO; NEWWAIT=CPUWAI241; CPUWAIT=CPUWAIT+CPUWAI241; MVSWAIT=MVSWAIT+MVSWAI241; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=242 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI242; MVSWAI242=CPUWAI242; CPUPDT242=LCPUPDTM; CPUEDT242=LCPUEDTM; PCTONL242=TEMPONLN; IF CAI242 EQ '.......1'B THEN DO; NEWWAIT=CPUWAI242; CPUWAIT=CPUWAIT+CPUWAI242; MVSWAIT=MVSWAIT+MVSWAI242; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=243 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI243; MVSWAI243=CPUWAI243; CPUPDT243=LCPUPDTM; CPUEDT243=LCPUEDTM; PCTONL243=TEMPONLN; IF CAI243 EQ '.......1'B THEN DO; NEWWAIT=CPUWAI243; CPUWAIT=CPUWAIT+CPUWAI243; MVSWAIT=MVSWAIT+MVSWAI243; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=244 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI244; MVSWAI244=CPUWAI244; CPUPDT244=LCPUPDTM; CPUEDT244=LCPUEDTM; PCTONL244=TEMPONLN; IF CAI244 EQ '.......1'B THEN DO; NEWWAIT=CPUWAI244; CPUWAIT=CPUWAIT+CPUWAI244; MVSWAIT=MVSWAIT+MVSWAI244; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=245 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI245; MVSWAI245=CPUWAI245; CPUPDT245=LCPUPDTM; CPUEDT245=LCPUEDTM; PCTONL245=TEMPONLN; IF CAI245 EQ '.......1'B THEN DO; NEWWAIT=CPUWAI245; CPUWAIT=CPUWAIT+CPUWAI245; MVSWAIT=MVSWAIT+MVSWAI245; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=246 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI246; MVSWAI246=CPUWAI246; CPUPDT246=LCPUPDTM; CPUEDT246=LCPUEDTM; PCTONL246=TEMPONLN; IF CAI246 EQ '.......1'B THEN DO; NEWWAIT=CPUWAI246; CPUWAIT=CPUWAIT+CPUWAI246; MVSWAIT=MVSWAIT+MVSWAI246; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=247 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI247; MVSWAI247=CPUWAI247; CPUPDT247=LCPUPDTM; CPUEDT247=LCPUEDTM; PCTONL247=TEMPONLN; IF CAI247 EQ '.......1'B THEN DO; NEWWAIT=CPUWAI247; CPUWAIT=CPUWAIT+CPUWAI247; MVSWAIT=MVSWAIT+MVSWAI247; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=248 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI248; MVSWAI248=CPUWAI248; CPUPDT248=LCPUPDTM; CPUEDT248=LCPUEDTM; PCTONL248=TEMPONLN; IF CAI248 EQ '.......1'B THEN DO; NEWWAIT=CPUWAI248; CPUWAIT=CPUWAIT+CPUWAI248; MVSWAIT=MVSWAIT+MVSWAI248; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=249 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI249; MVSWAI249=CPUWAI249; CPUPDT249=LCPUPDTM; CPUEDT249=LCPUEDTM; PCTONL249=TEMPONLN; IF CAI249 EQ '.......1'B THEN DO; NEWWAIT=CPUWAI249; CPUWAIT=CPUWAIT+CPUWAI249; MVSWAIT=MVSWAIT+MVSWAI249; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=250 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI250; MVSWAI250=CPUWAI250; CPUPDT250=LCPUPDTM; CPUEDT250=LCPUEDTM; PCTONL250=TEMPONLN; IF CAI250 EQ '.......1'B THEN DO; NEWWAIT=CPUWAI250; CPUWAIT=CPUWAIT+CPUWAI250; MVSWAIT=MVSWAIT+MVSWAI250; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=251 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI251; MVSWAI251=CPUWAI251; CPUPDT251=LCPUPDTM; CPUEDT251=LCPUEDTM; PCTONL251=TEMPONLN; IF CAI251 EQ '.......1'B THEN DO; NEWWAIT=CPUWAI251; CPUWAIT=CPUWAIT+CPUWAI251; MVSWAIT=MVSWAIT+MVSWAI251; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=252 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI252; MVSWAI252=CPUWAI252; CPUPDT252=LCPUPDTM; CPUEDT252=LCPUEDTM; PCTONL252=TEMPONLN; IF CAI252 EQ '.......1'B THEN DO; NEWWAIT=CPUWAI252; CPUWAIT=CPUWAIT+CPUWAI252; MVSWAIT=MVSWAIT+MVSWAI252; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=253 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI253; MVSWAI253=CPUWAI253; CPUPDT253=LCPUPDTM; CPUEDT253=LCPUEDTM; PCTONL253=TEMPONLN; IF CAI253 EQ '.......1'B THEN DO; NEWWAIT=CPUWAI253; CPUWAIT=CPUWAIT+CPUWAI253; MVSWAIT=MVSWAIT+MVSWAI253; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=254 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI254; MVSWAI254=CPUWAI254; CPUPDT254=LCPUPDTM; CPUEDT254=LCPUEDTM; PCTONL254=TEMPONLN; IF CAI254 EQ '.......1'B THEN DO; NEWWAIT=CPUWAI254; CPUWAIT=CPUWAIT+CPUWAI254; MVSWAIT=MVSWAIT+MVSWAI254; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=255 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI255; MVSWAI255=CPUWAI255; CPUPDT255=LCPUPDTM; CPUEDT255=LCPUEDTM; PCTONL255=TEMPONLN; IF CAI255 EQ '.......1'B THEN DO; NEWWAIT=CPUWAI255; CPUWAIT=CPUWAIT+CPUWAI255; MVSWAIT=MVSWAIT+MVSWAI255; CPUEFF =CPUEFF +LCPUEDTM; END; END; END; ELSE IF LCPUWAIT='Y' THEN DO; /*SHARED, WAIT=YES*ZZZZ THREE*/ IF SYSNAME=SMF70STN AND LPARNAME NE 'PHYSICAL' AND SMF70ONT GT 0 AND SMF70CIN NE 'IFL' THEN DO; IMERGE=J; _ETY70EL;/*INC SOURCLIB(EXTY70EL);_WTY70EL OUTPUTS TYPE70EL*/ END; IF LCPUADDR=0 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAIT0; MVSWAIT0=CPUWAIT0; CPUPDTM0=LCPUPDTM; CPUEDTM0=LCPUEDTM; CPUWAIT0=DURATM-(LCPUPDTM-CPUWAIT0); PCTCPBY0=100*(DURATM-CPUWAIT0)/DURATM; IF CAI0 EQ '.......1'B THEN DO; NEWWAIT=CPUWAIT0; CPUWAIT=CPUWAIT+CPUWAIT0; MVSWAIT=MVSWAIT+MVSWAIT0; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=1 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAIT1; MVSWAIT1=CPUWAIT1; CPUPDTM1=LCPUPDTM; CPUEDTM1=LCPUEDTM; CPUWAIT1=DURATM-(LCPUPDTM-CPUWAIT1); PCTCPBY1=100*(DURATM-CPUWAIT1)/DURATM; IF CAI1 EQ '.......1'B THEN DO; NEWWAIT=CPUWAIT1; CPUWAIT=CPUWAIT+CPUWAIT1; MVSWAIT=MVSWAIT+MVSWAIT1; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=2 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAIT2; MVSWAIT2=CPUWAIT2; CPUPDTM2=LCPUPDTM; CPUEDTM2=LCPUEDTM; CPUWAIT2=DURATM-(LCPUPDTM-CPUWAIT2); PCTCPBY2=100*(DURATM-CPUWAIT2)/DURATM; IF CAI2 EQ '.......1'B THEN DO; NEWWAIT=CPUWAIT2; CPUWAIT=CPUWAIT+CPUWAIT2; MVSWAIT=MVSWAIT+MVSWAIT2; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=3 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAIT3; MVSWAIT3=CPUWAIT3; CPUPDTM3=LCPUPDTM; CPUEDTM3=LCPUEDTM; CPUWAIT3=DURATM-(LCPUPDTM-CPUWAIT3); PCTCPBY3=100*(DURATM-CPUWAIT3)/DURATM; IF CAI3 EQ '.......1'B THEN DO; NEWWAIT=CPUWAIT3; CPUWAIT=CPUWAIT+CPUWAIT3; MVSWAIT=MVSWAIT+MVSWAIT3; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=4 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAIT4; MVSWAIT4=CPUWAIT4; CPUPDTM4=LCPUPDTM; CPUEDTM4=LCPUEDTM; CPUWAIT4=DURATM-(LCPUPDTM-CPUWAIT4); PCTCPBY4=100*(DURATM-CPUWAIT4)/DURATM; IF CAI4 EQ '.......1'B THEN DO; NEWWAIT=CPUWAIT4; CPUWAIT=CPUWAIT+CPUWAIT4; MVSWAIT=MVSWAIT+MVSWAIT4; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=5 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAIT5; MVSWAIT5=CPUWAIT5; CPUPDTM5=LCPUPDTM; CPUEDTM5=LCPUEDTM; CPUWAIT5=DURATM-(LCPUPDTM-CPUWAIT5); PCTCPBY5=100*(DURATM-CPUWAIT5)/DURATM; IF CAI5 EQ '.......1'B THEN DO; NEWWAIT=CPUWAIT5; CPUWAIT=CPUWAIT+CPUWAIT5; MVSWAIT=MVSWAIT+MVSWAIT5; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=6 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAIT6; MVSWAIT6=CPUWAIT6; CPUPDTM6=LCPUPDTM; CPUEDTM6=LCPUEDTM; CPUWAIT6=DURATM-(LCPUPDTM-CPUWAIT6); PCTCPBY6=100*(DURATM-CPUWAIT6)/DURATM; IF CAI6 EQ '.......1'B THEN DO; NEWWAIT=CPUWAIT6; CPUWAIT=CPUWAIT+CPUWAIT6; MVSWAIT=MVSWAIT+MVSWAIT6; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=7 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAIT7; MVSWAIT7=CPUWAIT7; CPUPDTM7=LCPUPDTM; CPUEDTM7=LCPUEDTM; CPUWAIT7=DURATM-(LCPUPDTM-CPUWAIT7); PCTCPBY7=100*(DURATM-CPUWAIT7)/DURATM; IF CAI7 EQ '.......1'B THEN DO; NEWWAIT=CPUWAIT7; CPUWAIT=CPUWAIT+CPUWAIT7; MVSWAIT=MVSWAIT+MVSWAIT7; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=8 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAIT8; MVSWAIT8=CPUWAIT8; CPUPDTM8=LCPUPDTM; CPUEDTM8=LCPUEDTM; CPUWAIT8=DURATM-(LCPUPDTM-CPUWAIT8); PCTCPBY8=100*(DURATM-CPUWAIT8)/DURATM; IF CAI8 EQ '.......1'B THEN DO; NEWWAIT=CPUWAIT8; CPUWAIT=CPUWAIT+CPUWAIT8; MVSWAIT=MVSWAIT+MVSWAIT8; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=9 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAIT9; MVSWAIT9=CPUWAIT9; CPUPDTM9=LCPUPDTM; CPUEDTM9=LCPUEDTM; CPUWAIT9=DURATM-(LCPUPDTM-CPUWAIT9); PCTCPBY9=100*(DURATM-CPUWAIT9)/DURATM; IF CAI9 EQ '.......1'B THEN DO; NEWWAIT=CPUWAIT9; CPUWAIT=CPUWAIT+CPUWAIT9; MVSWAIT=MVSWAIT+MVSWAIT9; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=10 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAITA; MVSWAITA=CPUWAITA; CPUPDTMA=LCPUPDTM; CPUEDTMA=LCPUEDTM; CPUWAITA=DURATM-(LCPUPDTM-CPUWAITA); PCTCPBYA=100*(DURATM-CPUWAITA)/DURATM; IF CAIA EQ '.......1'B THEN DO; NEWWAIT=CPUWAITA; CPUWAIT=CPUWAIT+CPUWAITA; MVSWAIT=MVSWAIT+MVSWAITA; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=11 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAITB; MVSWAITB=CPUWAITB; CPUPDTMB=LCPUPDTM; CPUEDTMB=LCPUEDTM; CPUWAITB=DURATM-(LCPUPDTM-CPUWAITB); PCTCPBYB=100*(DURATM-CPUWAITB)/DURATM; IF CAIB EQ '.......1'B THEN DO; NEWWAIT=CPUWAITB; CPUWAIT=CPUWAIT+CPUWAITB; MVSWAIT=MVSWAIT+MVSWAITB; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=12 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAITC; MVSWAITC=CPUWAITC; CPUPDTMC=LCPUPDTM; CPUEDTMC=LCPUEDTM; CPUWAITC=DURATM-(LCPUPDTM-CPUWAITC); PCTCPBYC=100*(DURATM-CPUWAITC)/DURATM; IF CAIC EQ '.......1'B THEN DO; NEWWAIT=CPUWAITC; CPUWAIT=CPUWAIT+CPUWAITC; MVSWAIT=MVSWAIT+MVSWAITC; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=13 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAITD; MVSWAITD=CPUWAITD; CPUPDTMD=LCPUPDTM; CPUEDTMD=LCPUEDTM; CPUWAITD=DURATM-(LCPUPDTM-CPUWAITD); PCTCPBYD=100*(DURATM-CPUWAITD)/DURATM; IF CAID EQ '.......1'B THEN DO; NEWWAIT=CPUWAITD; CPUWAIT=CPUWAIT+CPUWAITD; MVSWAIT=MVSWAIT+MVSWAITD; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=14 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAITE; MVSWAITE=CPUWAITE; CPUPDTME=LCPUPDTM; CPUEDTME=LCPUEDTM; CPUWAITE=DURATM-(LCPUPDTM-CPUWAITE); PCTCPBYE=100*(DURATM-CPUWAITE)/DURATM; IF CAIE EQ '.......1'B THEN DO; NEWWAIT=CPUWAITE; CPUWAIT=CPUWAIT+CPUWAITE; MVSWAIT=MVSWAIT+MVSWAITE; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=15 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAITF; MVSWAITF=CPUWAITF; CPUPDTMF=LCPUPDTM; CPUEDTMF=LCPUEDTM; CPUWAITF=DURATM-(LCPUPDTM-CPUWAITF); PCTCPBYF=100*(DURATM-CPUWAITF)/DURATM; IF CAIF EQ '.......1'B THEN DO; NEWWAIT=CPUWAITF; CPUWAIT=CPUWAIT+CPUWAITF; MVSWAIT=MVSWAIT+MVSWAITF; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=16 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAITG; MVSWAITG=CPUWAITG; CPUPDTMG=LCPUPDTM; CPUEDTMG=LCPUEDTM; CPUWAITG=DURATM-(LCPUPDTM-CPUWAITG); PCTCPBYG=100*(DURATM-CPUWAITG)/DURATM; IF CAIG EQ '.......1'B THEN DO; NEWWAIT=CPUWAITG; CPUWAIT=CPUWAIT+CPUWAITG; MVSWAIT=MVSWAIT+MVSWAITG; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=17 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAITH; MVSWAITH=CPUWAITH; CPUPDTMH=LCPUPDTM; CPUEDTMH=LCPUEDTM; CPUWAITH=DURATM-(LCPUPDTM-CPUWAITH); PCTCPBYH=100*(DURATM-CPUWAITH)/DURATM; IF CAIH EQ '.......1'B THEN DO; NEWWAIT=CPUWAITH; CPUWAIT=CPUWAIT+CPUWAITH; MVSWAIT=MVSWAIT+MVSWAITH; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=18 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAITI; MVSWAITI=CPUWAITI; CPUPDTMI=LCPUPDTM; CPUEDTMI=LCPUEDTM; CPUWAITI=DURATM-(LCPUPDTM-CPUWAITI); PCTCPBYI=100*(DURATM-CPUWAITI)/DURATM; IF CAII EQ '.......1'B THEN DO; NEWWAIT=CPUWAITI; CPUWAIT=CPUWAIT+CPUWAITI; MVSWAIT=MVSWAIT+MVSWAITI; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=19 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAITJ; MVSWAITJ=CPUWAITJ; CPUPDTMJ=LCPUPDTM; CPUEDTMJ=LCPUEDTM; CPUWAITJ=DURATM-(LCPUPDTM-CPUWAITJ); PCTCPBYJ=100*(DURATM-CPUWAITJ)/DURATM; IF CAIJ EQ '.......1'B THEN DO; NEWWAIT=CPUWAITJ; CPUWAIT=CPUWAIT+CPUWAITJ; MVSWAIT=MVSWAIT+MVSWAITJ; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=20 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAITK; MVSWAITK=CPUWAITK; CPUPDTMK=LCPUPDTM; CPUEDTMK=LCPUEDTM; CPUWAITK=DURATM-(LCPUPDTM-CPUWAITK); PCTCPBYK=100*(DURATM-CPUWAITK)/DURATM; IF CAIK EQ '.......1'B THEN DO; NEWWAIT=CPUWAITK; CPUWAIT=CPUWAIT+CPUWAITK; MVSWAIT=MVSWAIT+MVSWAITK; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=21 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAITL; MVSWAITL=CPUWAITL; CPUPDTML=LCPUPDTM; CPUEDTML=LCPUEDTM; CPUWAITL=DURATM-(LCPUPDTM-CPUWAITL); PCTCPBYL=100*(DURATM-CPUWAITL)/DURATM; IF CAIL EQ '.......1'B THEN DO; NEWWAIT=CPUWAITL; CPUWAIT=CPUWAIT+CPUWAITL; MVSWAIT=MVSWAIT+MVSWAITL; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=22 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAITN; MVSWAITN=CPUWAITN; CPUPDTMN=LCPUPDTM; CPUEDTMN=LCPUEDTM; CPUWAITN=DURATM-(LCPUPDTM-CPUWAITN); PCTCPBYN=100*(DURATM-CPUWAITN)/DURATM; IF CAIN EQ '.......1'B THEN DO; NEWWAIT=CPUWAITN; CPUWAIT=CPUWAIT+CPUWAITN; MVSWAIT=MVSWAIT+MVSWAITN; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=23 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAITO; MVSWAITO=CPUWAITO; CPUPDTMO=LCPUPDTM; CPUEDTMO=LCPUEDTM; CPUWAITO=DURATM-(LCPUPDTM-CPUWAITO); PCTCPBYO=100*(DURATM-CPUWAITO)/DURATM; IF CAIO EQ '.......1'B THEN DO; NEWWAIT=CPUWAITO; CPUWAIT=CPUWAIT+CPUWAITO; MVSWAIT=MVSWAIT+MVSWAITO; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=24 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAITP; MVSWAITP=CPUWAITP; CPUPDTMP=LCPUPDTM; CPUEDTMP=LCPUEDTM; CPUWAITP=DURATM-(LCPUPDTM-CPUWAITP); PCTCPBYP=100*(DURATM-CPUWAITP)/DURATM; IF CAIP EQ '.......1'B THEN DO; NEWWAIT=CPUWAITP; CPUWAIT=CPUWAIT+CPUWAITP; MVSWAIT=MVSWAIT+MVSWAITP; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=25 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAITQ; MVSWAITQ=CPUWAITQ; CPUPDTMQ=LCPUPDTM; CPUEDTMQ=LCPUEDTM; CPUWAITQ=DURATM-(LCPUPDTM-CPUWAITQ); PCTCPBYQ=100*(DURATM-CPUWAITQ)/DURATM; IF CAIQ EQ '.......1'B THEN DO; NEWWAIT=CPUWAITQ; CPUWAIT=CPUWAIT+CPUWAITQ; MVSWAIT=MVSWAIT+MVSWAITQ; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=26 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAITR; MVSWAITR=CPUWAITR; CPUPDTMR=LCPUPDTM; CPUEDTMR=LCPUEDTM; CPUWAITR=DURATM-(LCPUPDTM-CPUWAITR); PCTCPBYR=100*(DURATM-CPUWAITR)/DURATM; IF CAIR EQ '.......1'B THEN DO; NEWWAIT=CPUWAITR; CPUWAIT=CPUWAIT+CPUWAITR; MVSWAIT=MVSWAIT+MVSWAITR; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=27 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAITS; MVSWAITS=CPUWAITS; CPUPDTMS=LCPUPDTM; CPUEDTMS=LCPUEDTM; CPUWAITS=DURATM-(LCPUPDTM-CPUWAITS); PCTCPBYS=100*(DURATM-CPUWAITS)/DURATM; IF CAIS EQ '.......1'B THEN DO; NEWWAIT=CPUWAITS; CPUWAIT=CPUWAIT+CPUWAITS; MVSWAIT=MVSWAIT+MVSWAITS; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=28 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAITT; MVSWAITT=CPUWAITT; CPUPDTMT=LCPUPDTM; CPUEDTMT=LCPUEDTM; CPUWAITT=DURATM-(LCPUPDTM-CPUWAITT); PCTCPBYT=100*(DURATM-CPUWAITT)/DURATM; IF CAIT EQ '.......1'B THEN DO; NEWWAIT=CPUWAITT; CPUWAIT=CPUWAIT+CPUWAITT; MVSWAIT=MVSWAIT+MVSWAITT; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=29 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAITU; MVSWAITU=CPUWAITU; CPUPDTMU=LCPUPDTM; CPUEDTMU=LCPUEDTM; CPUWAITU=DURATM-(LCPUPDTM-CPUWAITU); PCTCPBYU=100*(DURATM-CPUWAITU)/DURATM; IF CAIU EQ '.......1'B THEN DO; NEWWAIT=CPUWAITU; CPUWAIT=CPUWAIT+CPUWAITU; MVSWAIT=MVSWAIT+MVSWAITU; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=30 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAITV; MVSWAITV=CPUWAITV; CPUPDTMV=LCPUPDTM; CPUEDTMV=LCPUEDTM; CPUWAITV=DURATM-(LCPUPDTM-CPUWAITV); PCTCPBYV=100*(DURATM-CPUWAITV)/DURATM; IF CAIV EQ '.......1'B THEN DO; NEWWAIT=CPUWAITV; CPUWAIT=CPUWAIT+CPUWAITV; MVSWAIT=MVSWAIT+MVSWAITV; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=31 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAITW; MVSWAITW=CPUWAITW; CPUPDTMW=LCPUPDTM; CPUEDTMW=LCPUEDTM; CPUWAITW=DURATM-(LCPUPDTM-CPUWAITW); PCTCPBYW=100*(DURATM-CPUWAITW)/DURATM; IF CAIW EQ '.......1'B THEN DO; NEWWAIT=CPUWAITW; CPUWAIT=CPUWAIT+CPUWAITW; MVSWAIT=MVSWAIT+MVSWAITW; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=32 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAITX; MVSWAITX=CPUWAITX; CPUPDTMX=LCPUPDTM; CPUEDTMX=LCPUEDTM; CPUWAITX=DURATM-(LCPUPDTM-CPUWAITX); PCTCPBYX=100*(DURATM-CPUWAITX)/DURATM; IF CAIX EQ '.......1'B THEN DO; NEWWAIT=CPUWAITX; CPUWAIT=CPUWAIT+CPUWAITX; MVSWAIT=MVSWAIT+MVSWAITX; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=33 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAITY; MVSWAITY=CPUWAITY; CPUPDTMY=LCPUPDTM; CPUEDTMY=LCPUEDTM; CPUWAITY=DURATM-(LCPUPDTM-CPUWAITY); PCTCPBYY=100*(DURATM-CPUWAITY)/DURATM; IF CAIY EQ '.......1'B THEN DO; NEWWAIT=CPUWAITY; CPUWAIT=CPUWAIT+CPUWAITY; MVSWAIT=MVSWAIT+MVSWAITY; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=34 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAITZ; MVSWAITZ=CPUWAITZ; CPUPDTMZ=LCPUPDTM; CPUEDTMZ=LCPUEDTM; CPUWAITZ=DURATM-(LCPUPDTM-CPUWAITZ); PCTCPBYZ=100*(DURATM-CPUWAITZ)/DURATM; IF CAIZ EQ '.......1'B THEN DO; NEWWAIT=CPUWAITZ; CPUWAIT=CPUWAIT+CPUWAITZ; MVSWAIT=MVSWAIT+MVSWAITZ; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=35 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAIZA; MVSWAIZA=CPUWAIZA; CPUPDTZA=LCPUPDTM; CPUEDTZA=LCPUEDTM; CPUWAIZA=DURATM-(LCPUPDTM-CPUWAIZA); PCTCPBZA=100*(DURATM-CPUWAIZA)/DURATM; IF CAIZA EQ '.......1'B THEN DO; NEWWAIT=CPUWAIZA; CPUWAIT=CPUWAIT+CPUWAIZA; MVSWAIT=MVSWAIT+MVSWAIZA; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=36 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAIZB; MVSWAIZB=CPUWAIZB; CPUPDTZB=LCPUPDTM; CPUEDTZB=LCPUEDTM; CPUWAIZB=DURATM-(LCPUPDTM-CPUWAIZB); PCTCPBZC=100*(DURATM-CPUWAIZB)/DURATM; IF CAIZB EQ '.......1'B THEN DO; NEWWAIT=CPUWAIZB; CPUWAIT=CPUWAIT+CPUWAIZB; MVSWAIT=MVSWAIT+MVSWAIZB; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=37 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAIZC; MVSWAIZC=CPUWAIZC; CPUPDTZC=LCPUPDTM; CPUEDTZC=LCPUEDTM; CPUWAIZC=DURATM-(LCPUPDTM-CPUWAIZC); PCTCPBZC=100*(DURATM-CPUWAIZC)/DURATM; IF CAIZC EQ '.......1'B THEN DO; NEWWAIT=CPUWAIZC; CPUWAIT=CPUWAIT+CPUWAIZC; MVSWAIT=MVSWAIT+MVSWAIZC; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=38 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAIZD; MVSWAIZD=CPUWAIZD; CPUPDTZD=LCPUPDTM; CPUEDTZD=LCPUEDTM; CPUWAIZD=DURATM-(LCPUPDTM-CPUWAIZD); PCTCPBZD=100*(DURATM-CPUWAIZD)/DURATM; IF CAIZD EQ '.......1'B THEN DO; NEWWAIT=CPUWAIZD; CPUWAIT=CPUWAIT+CPUWAIZD; MVSWAIT=MVSWAIT+MVSWAIZD; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=39 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAIZE; MVSWAIZE=CPUWAIZE; CPUPDTZE=LCPUPDTM; CPUEDTZE=LCPUEDTM; CPUWAIZE=DURATM-(LCPUPDTM-CPUWAIZE); PCTCPBZE=100*(DURATM-CPUWAIZE)/DURATM; IF CAIZE EQ '.......1'B THEN DO; NEWWAIT=CPUWAIZE; CPUWAIT=CPUWAIT+CPUWAIZE; MVSWAIT=MVSWAIT+MVSWAIZE; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=40 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAIZF; MVSWAIZF=CPUWAIZF; CPUPDTZF=LCPUPDTM; CPUEDTZF=LCPUEDTM; CPUWAIZF=DURATM-(LCPUPDTM-CPUWAIZF); PCTCPBZF=100*(DURATM-CPUWAIZF)/DURATM; IF CAIZF EQ '.......1'B THEN DO; NEWWAIT=CPUWAIZF; CPUWAIT=CPUWAIT+CPUWAIZF; MVSWAIT=MVSWAIT+MVSWAIZF; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=41 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAIZG; MVSWAIZG=CPUWAIZG; CPUPDTZG=LCPUPDTM; CPUEDTZG=LCPUEDTM; CPUWAIZG=DURATM-(LCPUPDTM-CPUWAIZG); PCTCPBZG=100*(DURATM-CPUWAIZG)/DURATM; IF CAIZG EQ '.......1'B THEN DO; NEWWAIT=CPUWAIZG; CPUWAIT=CPUWAIT+CPUWAIZG; MVSWAIT=MVSWAIT+MVSWAIZG; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=42 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAIZH; MVSWAIZH=CPUWAIZH; CPUPDTZH=LCPUPDTM; CPUEDTZH=LCPUEDTM; CPUWAIZH=DURATM-(LCPUPDTM-CPUWAIZH); PCTCPBZH=100*(DURATM-CPUWAIZH)/DURATM; IF CAIZH EQ '.......1'B THEN DO; NEWWAIT=CPUWAIZH; CPUWAIT=CPUWAIT+CPUWAIZH; MVSWAIT=MVSWAIT+MVSWAIZH; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=43 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAIZI; MVSWAIZI=CPUWAIZI; CPUPDTZI=LCPUPDTM; CPUEDTZI=LCPUEDTM; CPUWAIZI=DURATM-(LCPUPDTM-CPUWAIZI); PCTCPBZI=100*(DURATM-CPUWAIZI)/DURATM; IF CAIZI EQ '.......1'B THEN DO; NEWWAIT=CPUWAIZI; CPUWAIT=CPUWAIT+CPUWAIZI; MVSWAIT=MVSWAIT+MVSWAIZI; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=44 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAIZJ; MVSWAIZJ=CPUWAIZJ; CPUPDTZJ=LCPUPDTM; CPUEDTZJ=LCPUEDTM; CPUWAIZJ=DURATM-(LCPUPDTM-CPUWAIZJ); PCTCPBZJ=100*(DURATM-CPUWAIZJ)/DURATM; IF CAIZJ EQ '.......1'B THEN DO; NEWWAIT=CPUWAIZJ; CPUWAIT=CPUWAIT+CPUWAIZJ; MVSWAIT=MVSWAIT+MVSWAIZJ; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=45 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAIZK; MVSWAIZK=CPUWAIZK; CPUPDTZK=LCPUPDTM; CPUEDTZK=LCPUEDTM; CPUWAIZK=DURATM-(LCPUPDTM-CPUWAIZK); PCTCPBZK=100*(DURATM-CPUWAIZK)/DURATM; IF CAIZK EQ '.......1'B THEN DO; NEWWAIT=CPUWAIZK; CPUWAIT=CPUWAIT+CPUWAIZK; MVSWAIT=MVSWAIT+MVSWAIZK; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=46 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAIZL; MVSWAIZL=CPUWAIZL; CPUPDTZL=LCPUPDTM; CPUEDTZL=LCPUEDTM; CPUWAIZL=DURATM-(LCPUPDTM-CPUWAIZL); PCTCPBZL=100*(DURATM-CPUWAIZL)/DURATM; IF CAIZL EQ '.......1'B THEN DO; NEWWAIT=CPUWAIZL; CPUWAIT=CPUWAIT+CPUWAIZL; MVSWAIT=MVSWAIT+MVSWAIZL; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=47 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAIZM; MVSWAIZM=CPUWAIZM; CPUPDTZM=LCPUPDTM; CPUEDTZM=LCPUEDTM; CPUWAIZM=DURATM-(LCPUPDTM-CPUWAIZM); PCTCPBZM=100*(DURATM-CPUWAIZM)/DURATM; IF CAIZM EQ '.......1'B THEN DO; NEWWAIT=CPUWAIZM; CPUWAIT=CPUWAIT+CPUWAIZM; MVSWAIT=MVSWAIT+MVSWAIZM; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=48 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAIZN; MVSWAIZN=CPUWAIZN; CPUPDTZN=LCPUPDTM; CPUEDTZN=LCPUEDTM; CPUWAIZN=DURATM-(LCPUPDTM-CPUWAIZN); PCTCPBZN=100*(DURATM-CPUWAIZN)/DURATM; IF CAIZN EQ '.......1'B THEN DO; NEWWAIT=CPUWAIZN; CPUWAIT=CPUWAIT+CPUWAIZN; MVSWAIT=MVSWAIT+MVSWAIZN; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=49 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAIZO; MVSWAIZO=CPUWAIZO; CPUPDTZO=LCPUPDTM; CPUEDTZO=LCPUEDTM; CPUWAIZO=DURATM-(LCPUPDTM-CPUWAIZO); PCTCPBZO=100*(DURATM-CPUWAIZO)/DURATM; IF CAIZO EQ '.......1'B THEN DO; NEWWAIT=CPUWAIZO; CPUWAIT=CPUWAIT+CPUWAIZO; MVSWAIT=MVSWAIT+MVSWAIZO; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=50 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAIZP; MVSWAIZP=CPUWAIZP; CPUPDTZP=LCPUPDTM; CPUEDTZP=LCPUEDTM; CPUWAIZP=DURATM-(LCPUPDTM-CPUWAIZP); PCTCPBZP=100*(DURATM-CPUWAIZP)/DURATM; IF CAIZP EQ '.......1'B THEN DO; NEWWAIT=CPUWAIZP; CPUWAIT=CPUWAIT+CPUWAIZP; MVSWAIT=MVSWAIT+MVSWAIZP; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=51 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAIZQ; MVSWAIZQ=CPUWAIZQ; CPUPDTZQ=LCPUPDTM; CPUEDTZQ=LCPUEDTM; CPUWAIZQ=DURATM-(LCPUPDTM-CPUWAIZQ); PCTCPBZQ=100*(DURATM-CPUWAIZQ)/DURATM; IF CAIZQ EQ '.......1'B THEN DO; NEWWAIT=CPUWAIZQ; CPUWAIT=CPUWAIT+CPUWAIZQ; MVSWAIT=MVSWAIT+MVSWAIZQ; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=52 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAIZR; MVSWAIZR=CPUWAIZR; CPUPDTZR=LCPUPDTM; CPUEDTZR=LCPUEDTM; CPUWAIZR=DURATM-(LCPUPDTM-CPUWAIZR); PCTCPBZR=100*(DURATM-CPUWAIZR)/DURATM; IF CAIZR EQ '.......1'B THEN DO; NEWWAIT=CPUWAIZR; CPUWAIT=CPUWAIT+CPUWAIZR; MVSWAIT=MVSWAIT+MVSWAIZR; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=53 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAIZS; MVSWAIZS=CPUWAIZS; CPUPDTZS=LCPUPDTM; CPUEDTZS=LCPUEDTM; CPUWAIZS=DURATM-(LCPUPDTM-CPUWAIZS); PCTCPBZS=100*(DURATM-CPUWAIZS)/DURATM; IF CAIZS EQ '.......1'B THEN DO; NEWWAIT=CPUWAIZS; CPUWAIT=CPUWAIT+CPUWAIZS; MVSWAIT=MVSWAIT+MVSWAIZS; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=54 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAIZT; MVSWAIZT=CPUWAIZT; CPUPDTZT=LCPUPDTM; CPUEDTZT=LCPUEDTM; CPUWAIZT=DURATM-(LCPUPDTM-CPUWAIZT); PCTCPBZT=100*(DURATM-CPUWAIZT)/DURATM; IF CAIZT EQ '.......1'B THEN DO; NEWWAIT=CPUWAIZT; CPUWAIT=CPUWAIT+CPUWAIZT; MVSWAIT=MVSWAIT+MVSWAIZT; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=55 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAIZU; MVSWAIZU=CPUWAIZU; CPUPDTZU=LCPUPDTM; CPUEDTZU=LCPUEDTM; CPUWAIZU=DURATM-(LCPUPDTM-CPUWAIZU); PCTCPBZU=100*(DURATM-CPUWAIZU)/DURATM; IF CAIZU EQ '.......1'B THEN DO; NEWWAIT=CPUWAIZU; CPUWAIT=CPUWAIT+CPUWAIZU; MVSWAIT=MVSWAIT+MVSWAIZU; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=56 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAIZV; MVSWAIZV=CPUWAIZV; CPUPDTZV=LCPUPDTM; CPUEDTZV=LCPUEDTM; CPUWAIZV=DURATM-(LCPUPDTM-CPUWAIZV); PCTCPBZV=100*(DURATM-CPUWAIZV)/DURATM; IF CAIZV EQ '.......1'B THEN DO; NEWWAIT=CPUWAIZV; CPUWAIT=CPUWAIT+CPUWAIZV; MVSWAIT=MVSWAIT+MVSWAIZV; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=57 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAIZW; MVSWAIZW=CPUWAIZW; CPUPDTZW=LCPUPDTM; CPUEDTZW=LCPUEDTM; CPUWAIZW=DURATM-(LCPUPDTM-CPUWAIZW); PCTCPBZW=100*(DURATM-CPUWAIZW)/DURATM; IF CAIZW EQ '.......1'B THEN DO; NEWWAIT=CPUWAIZW; CPUWAIT=CPUWAIT+CPUWAIZW; MVSWAIT=MVSWAIT+MVSWAIZW; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=58 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAIZX; MVSWAIZX=CPUWAIZX; CPUPDTZX=LCPUPDTM; CPUEDTZX=LCPUEDTM; CPUWAIZX=DURATM-(LCPUPDTM-CPUWAIZX); PCTCPBZX=100*(DURATM-CPUWAIZX)/DURATM; IF CAIZX EQ '.......1'B THEN DO; NEWWAIT=CPUWAIZX; CPUWAIT=CPUWAIT+CPUWAIZX; MVSWAIT=MVSWAIT+MVSWAIZX; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=59 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAIZY; MVSWAIZY=CPUWAIZY; CPUPDTZY=LCPUPDTM; CPUEDTZY=LCPUEDTM; CPUWAIZY=DURATM-(LCPUPDTM-CPUWAIZY); PCTCPBZY=100*(DURATM-CPUWAIZY)/DURATM; IF CAIZY EQ '.......1'B THEN DO; NEWWAIT=CPUWAIZY; CPUWAIT=CPUWAIT+CPUWAIZY; MVSWAIT=MVSWAIT+MVSWAIZY; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=60 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAIZZ; MVSWAIZZ=CPUWAIZZ; CPUPDTZZ=LCPUPDTM; CPUEDTZZ=LCPUEDTM; CPUWAIZZ=DURATM-(LCPUPDTM-CPUWAIZZ); PCTCPBZZ=100*(DURATM-CPUWAIZZ)/DURATM; IF CAIZZ EQ '.......1'B THEN DO; NEWWAIT=CPUWAIZZ; CPUWAIT=CPUWAIT+CPUWAIZZ; MVSWAIT=MVSWAIT+MVSWAIZZ; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=61 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAIYA; MVSWAIYA=CPUWAIYA; CPUPDTYA=LCPUPDTM; CPUEDTYA=LCPUEDTM; CPUWAIYA=DURATM-(LCPUPDTM-CPUWAIYA); PCTCPBXA=100*(DURATM-CPUWAIYA)/DURATM; IF CAIYA EQ '.......1'B THEN DO; NEWWAIT=CPUWAIYA; CPUWAIT=CPUWAIT+CPUWAIYA; MVSWAIT=MVSWAIT+MVSWAIYA; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=62 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAIYB; MVSWAIYB=CPUWAIYB; CPUPDTYB=LCPUPDTM; CPUEDTYB=LCPUEDTM; CPUWAIYB=DURATM-(LCPUPDTM-CPUWAIYB); PCTCPBXB=100*(DURATM-CPUWAIYB)/DURATM; IF CAIYB EQ '.......1'B THEN DO; NEWWAIT=CPUWAIYB; CPUWAIT=CPUWAIT+CPUWAIYB; MVSWAIT=MVSWAIT+MVSWAIYB; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=63 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAIYC; MVSWAIYC=CPUWAIYC; CPUPDTYC=LCPUPDTM; CPUEDTYC=LCPUEDTM; CPUWAIYC=DURATM-(LCPUPDTM-CPUWAIYC); PCTCPBXC=100*(DURATM-CPUWAIYC)/DURATM; IF CAIYC EQ '.......1'B THEN DO; NEWWAIT=CPUWAIYC; CPUWAIT=CPUWAIT+CPUWAIYC; MVSWAIT=MVSWAIT+MVSWAIYC; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=64 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAIYD; MVSWAIYD=CPUWAIYD; CPUPDTYD=LCPUPDTM; CPUEDTYD=LCPUEDTM; CPUWAIYD=DURATM-(LCPUPDTM-CPUWAIYD); PCTCPBXD=100*(DURATM-CPUWAIYD)/DURATM; IF CAIYD EQ '.......1'B THEN DO; NEWWAIT=CPUWAIYD; CPUWAIT=CPUWAIT+CPUWAIYD; MVSWAIT=MVSWAIT+MVSWAIYD; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=65 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAIYE; MVSWAIYE=CPUWAIYE; CPUPDTYE=LCPUPDTM; CPUEDTYE=LCPUEDTM; CPUWAIYE=DURATM-(LCPUPDTM-CPUWAIYE); PCTCPBXE=100*(DURATM-CPUWAIYE)/DURATM; IF CAIYE EQ '.......1'B THEN DO; NEWWAIT=CPUWAIYE; CPUWAIT=CPUWAIT+CPUWAIYE; MVSWAIT=MVSWAIT+MVSWAIYE; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=66 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAIYF; MVSWAIYF=CPUWAIYF; CPUPDTYF=LCPUPDTM; CPUEDTYF=LCPUEDTM; CPUWAIYF=DURATM-(LCPUPDTM-CPUWAIYF); PCTCPBXF=100*(DURATM-CPUWAIYF)/DURATM; IF CAIYF EQ '.......1'B THEN DO; NEWWAIT=CPUWAIYF; CPUWAIT=CPUWAIT+CPUWAIYF; MVSWAIT=MVSWAIT+MVSWAIYF; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=67 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAIYG; MVSWAIYG=CPUWAIYG; CPUPDTYG=LCPUPDTM; CPUEDTYG=LCPUEDTM; CPUWAIYG=DURATM-(LCPUPDTM-CPUWAIYG); PCTCPBXG=100*(DURATM-CPUWAIYG)/DURATM; IF CAIYG EQ '.......1'B THEN DO; NEWWAIT=CPUWAIYG; CPUWAIT=CPUWAIT+CPUWAIYG; MVSWAIT=MVSWAIT+MVSWAIYG; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=68 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAIYH; MVSWAIYH=CPUWAIYH; CPUPDTYH=LCPUPDTM; CPUEDTYH=LCPUEDTM; CPUWAIYH=DURATM-(LCPUPDTM-CPUWAIYH); PCTCPBXH=100*(DURATM-CPUWAIYH)/DURATM; IF CAIYH EQ '.......1'B THEN DO; NEWWAIT=CPUWAIYH; CPUWAIT=CPUWAIT+CPUWAIYH; MVSWAIT=MVSWAIT+MVSWAIYH; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=69 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAIYI; MVSWAIYI=CPUWAIYI; CPUPDTYI=LCPUPDTM; CPUEDTYI=LCPUEDTM; CPUWAIYI=DURATM-(LCPUPDTM-CPUWAIYI); PCTCPBXI=100*(DURATM-CPUWAIYI)/DURATM; IF CAIYI EQ '.......1'B THEN DO; NEWWAIT=CPUWAIYI; CPUWAIT=CPUWAIT+CPUWAIYI; MVSWAIT=MVSWAIT+MVSWAIYI; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=70 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAIYJ; MVSWAIYJ=CPUWAIYJ; CPUPDTYJ=LCPUPDTM; CPUEDTYJ=LCPUEDTM; CPUWAIYJ=DURATM-(LCPUPDTM-CPUWAIYJ); PCTCPBXJ=100*(DURATM-CPUWAIYJ)/DURATM; IF CAIYJ EQ '.......1'B THEN DO; NEWWAIT=CPUWAIYJ; CPUWAIT=CPUWAIT+CPUWAIYJ; MVSWAIT=MVSWAIT+MVSWAIYJ; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=71 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAIYK; MVSWAIYK=CPUWAIYK; CPUPDTYK=LCPUPDTM; CPUEDTYK=LCPUEDTM; CPUWAIYK=DURATM-(LCPUPDTM-CPUWAIYK); PCTCPBXK=100*(DURATM-CPUWAIYK)/DURATM; IF CAIYK EQ '.......1'B THEN DO; NEWWAIT=CPUWAIYK; CPUWAIT=CPUWAIT+CPUWAIYK; MVSWAIT=MVSWAIT+MVSWAIYK; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=72 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAIYL; MVSWAIYL=CPUWAIYL; CPUPDTYL=LCPUPDTM; CPUEDTYL=LCPUEDTM; CPUWAIYL=DURATM-(LCPUPDTM-CPUWAIYL); PCTCPBXL=100*(DURATM-CPUWAIYL)/DURATM; IF CAIYL EQ '.......1'B THEN DO; NEWWAIT=CPUWAIYL; CPUWAIT=CPUWAIT+CPUWAIYL; MVSWAIT=MVSWAIT+MVSWAIYL; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=73 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAIYM; MVSWAIYM=CPUWAIYM; CPUPDTYM=LCPUPDTM; CPUEDTYM=LCPUEDTM; CPUWAIYM=DURATM-(LCPUPDTM-CPUWAIYM); PCTCPBXM=100*(DURATM-CPUWAIYM)/DURATM; IF CAIYM EQ '.......1'B THEN DO; NEWWAIT=CPUWAIYM; CPUWAIT=CPUWAIT+CPUWAIYM; MVSWAIT=MVSWAIT+MVSWAIYM; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=74 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAIYN; MVSWAIYN=CPUWAIYN; CPUPDTYN=LCPUPDTM; CPUEDTYN=LCPUEDTM; CPUWAIYN=DURATM-(LCPUPDTM-CPUWAIYN); PCTCPBXN=100*(DURATM-CPUWAIYN)/DURATM; IF CAIYN EQ '.......1'B THEN DO; NEWWAIT=CPUWAIYN; CPUWAIT=CPUWAIT+CPUWAIYN; MVSWAIT=MVSWAIT+MVSWAIYN; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=75 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAIYO; MVSWAIYO=CPUWAIYO; CPUPDTYO=LCPUPDTM; CPUEDTYO=LCPUEDTM; CPUWAIYO=DURATM-(LCPUPDTM-CPUWAIYO); PCTCPBXO=100*(DURATM-CPUWAIYO)/DURATM; IF CAIYO EQ '.......1'B THEN DO; NEWWAIT=CPUWAIYO; CPUWAIT=CPUWAIT+CPUWAIYO; MVSWAIT=MVSWAIT+MVSWAIYO; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=76 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAIYP; MVSWAIYP=CPUWAIYP; CPUPDTYP=LCPUPDTM; CPUEDTYP=LCPUEDTM; CPUWAIYP=DURATM-(LCPUPDTM-CPUWAIYP); PCTCPBXP=100*(DURATM-CPUWAIYP)/DURATM; IF CAIYP EQ '.......1'B THEN DO; NEWWAIT=CPUWAIYP; CPUWAIT=CPUWAIT+CPUWAIYP; MVSWAIT=MVSWAIT+MVSWAIYP; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=77 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAIYQ; MVSWAIYQ=CPUWAIYQ; CPUPDTYQ=LCPUPDTM; CPUEDTYQ=LCPUEDTM; CPUWAIYQ=DURATM-(LCPUPDTM-CPUWAIYQ); PCTCPBXQ=100*(DURATM-CPUWAIYQ)/DURATM; IF CAIYQ EQ '.......1'B THEN DO; NEWWAIT=CPUWAIYQ; CPUWAIT=CPUWAIT+CPUWAIYQ; MVSWAIT=MVSWAIT+MVSWAIYQ; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=78 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAIYR; MVSWAIYR=CPUWAIYR; CPUPDTYR=LCPUPDTM; CPUEDTYR=LCPUEDTM; CPUWAIYR=DURATM-(LCPUPDTM-CPUWAIYR); PCTCPBXR=100*(DURATM-CPUWAIYR)/DURATM; IF CAIYR EQ '.......1'B THEN DO; NEWWAIT=CPUWAIYR; CPUWAIT=CPUWAIT+CPUWAIYR; MVSWAIT=MVSWAIT+MVSWAIYR; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=79 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAIYS; MVSWAIYS=CPUWAIYS; CPUPDTYS=LCPUPDTM; CPUEDTYS=LCPUEDTM; CPUWAIYS=DURATM-(LCPUPDTM-CPUWAIYS); PCTCPBXS=100*(DURATM-CPUWAIYS)/DURATM; IF CAIYS EQ '.......1'B THEN DO; NEWWAIT=CPUWAIYS; CPUWAIT=CPUWAIT+CPUWAIYS; MVSWAIT=MVSWAIT+MVSWAIYS; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=80 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAIYT; MVSWAIYT=CPUWAIYT; CPUPDTYT=LCPUPDTM; CPUEDTYT=LCPUEDTM; CPUWAIYT=DURATM-(LCPUPDTM-CPUWAIYT); PCTCPBXT=100*(DURATM-CPUWAIYT)/DURATM; IF CAIYT EQ '.......1'B THEN DO; NEWWAIT=CPUWAIYT; CPUWAIT=CPUWAIT+CPUWAIYT; MVSWAIT=MVSWAIT+MVSWAIYT; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=81 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAIYU; MVSWAIYU=CPUWAIYU; CPUPDTYU=LCPUPDTM; CPUEDTYU=LCPUEDTM; CPUWAIYU=DURATM-(LCPUPDTM-CPUWAIYU); PCTCPBXU=100*(DURATM-CPUWAIYU)/DURATM; IF CAIYU EQ '.......1'B THEN DO; NEWWAIT=CPUWAIYU; CPUWAIT=CPUWAIT+CPUWAIYU; MVSWAIT=MVSWAIT+MVSWAIYU; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=82 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAIYV; MVSWAIYV=CPUWAIYV; CPUPDTYV=LCPUPDTM; CPUEDTYV=LCPUEDTM; CPUWAIYV=DURATM-(LCPUPDTM-CPUWAIYV); PCTCPBXV=100*(DURATM-CPUWAIYV)/DURATM; IF CAIYV EQ '.......1'B THEN DO; NEWWAIT=CPUWAIYV; CPUWAIT=CPUWAIT+CPUWAIYV; MVSWAIT=MVSWAIT+MVSWAIYV; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=83 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAIYW; MVSWAIYW=CPUWAIYW; CPUPDTYW=LCPUPDTM; CPUEDTYW=LCPUEDTM; CPUWAIYW=DURATM-(LCPUPDTM-CPUWAIYW); PCTCPBXW=100*(DURATM-CPUWAIYW)/DURATM; IF CAIYW EQ '.......1'B THEN DO; NEWWAIT=CPUWAIYW; CPUWAIT=CPUWAIT+CPUWAIYW; MVSWAIT=MVSWAIT+MVSWAIYW; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=84 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAIYX; MVSWAIYX=CPUWAIYX; CPUPDTYX=LCPUPDTM; CPUEDTYX=LCPUEDTM; CPUWAIYX=DURATM-(LCPUPDTM-CPUWAIYX); PCTCPBXX=100*(DURATM-CPUWAIYX)/DURATM; IF CAIYX EQ '.......1'B THEN DO; NEWWAIT=CPUWAIYX; CPUWAIT=CPUWAIT+CPUWAIYX; MVSWAIT=MVSWAIT+MVSWAIYX; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=85 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAIYY; MVSWAIYY=CPUWAIYY; CPUPDTYY=LCPUPDTM; CPUEDTYY=LCPUEDTM; CPUWAIYY=DURATM-(LCPUPDTM-CPUWAIYY); PCTCPBXY=100*(DURATM-CPUWAIYY)/DURATM; IF CAIYY EQ '.......1'B THEN DO; NEWWAIT=CPUWAIYY; CPUWAIT=CPUWAIT+CPUWAIYY; MVSWAIT=MVSWAIT+MVSWAIYY; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=86 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAIYZ; MVSWAIYZ=CPUWAIYZ; CPUPDTYZ=LCPUPDTM; CPUEDTYZ=LCPUEDTM; CPUWAIYZ=DURATM-(LCPUPDTM-CPUWAIYZ); PCTCPBXZ=100*(DURATM-CPUWAIYZ)/DURATM; IF CAIYZ EQ '.......1'B THEN DO; NEWWAIT=CPUWAIYZ; CPUWAIT=CPUWAIT+CPUWAIYZ; MVSWAIT=MVSWAIT+MVSWAIYZ; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=87 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAIVA; MVSWAIVA=CPUWAIVA; CPUPDTVA=LCPUPDTM; CPUEDTVA=LCPUEDTM; CPUWAIVA=DURATM-(LCPUPDTM-CPUWAIVA); PCTCPBUA=100*(DURATM-CPUWAIVA)/DURATM; IF CAIVA EQ '.......1'B THEN DO; NEWWAIT=CPUWAIVA; CPUWAIT=CPUWAIT+CPUWAIVA; MVSWAIT=MVSWAIT+MVSWAIVA; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=88 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAIVB; MVSWAIVB=CPUWAIVB; CPUPDTVB=LCPUPDTM; CPUEDTVB=LCPUEDTM; CPUWAIVB=DURATM-(LCPUPDTM-CPUWAIVB); PCTCPBUB=100*(DURATM-CPUWAIVB)/DURATM; IF CAIVB EQ '.......1'B THEN DO; NEWWAIT=CPUWAIVB; CPUWAIT=CPUWAIT+CPUWAIVB; MVSWAIT=MVSWAIT+MVSWAIVB; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=89 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAIVC; MVSWAIVC=CPUWAIVC; CPUPDTVC=LCPUPDTM; CPUEDTVC=LCPUEDTM; CPUWAIVC=DURATM-(LCPUPDTM-CPUWAIVC); PCTCPBUC=100*(DURATM-CPUWAIVC)/DURATM; IF CAIVC EQ '.......1'B THEN DO; NEWWAIT=CPUWAIVC; CPUWAIT=CPUWAIT+CPUWAIVC; MVSWAIT=MVSWAIT+MVSWAIVC; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=90 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAIVD; MVSWAIVD=CPUWAIVD; CPUPDTVD=LCPUPDTM; CPUEDTVD=LCPUEDTM; CPUWAIVD=DURATM-(LCPUPDTM-CPUWAIVD); PCTCPBUD=100*(DURATM-CPUWAIVD)/DURATM; IF CAIVD EQ '.......1'B THEN DO; NEWWAIT=CPUWAIVD; CPUWAIT=CPUWAIT+CPUWAIVD; MVSWAIT=MVSWAIT+MVSWAIVD; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=91 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAIVE; MVSWAIVE=CPUWAIVE; CPUPDTVE=LCPUPDTM; CPUEDTVE=LCPUEDTM; CPUWAIVE=DURATM-(LCPUPDTM-CPUWAIVE); PCTCPBUE=100*(DURATM-CPUWAIVE)/DURATM; IF CAIVE EQ '.......1'B THEN DO; NEWWAIT=CPUWAIVE; CPUWAIT=CPUWAIT+CPUWAIVE; MVSWAIT=MVSWAIT+MVSWAIVE; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=92 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAIVF; MVSWAIVF=CPUWAIVF; CPUPDTVF=LCPUPDTM; CPUEDTVF=LCPUEDTM; CPUWAIVF=DURATM-(LCPUPDTM-CPUWAIVF); PCTCPBUF=100*(DURATM-CPUWAIVF)/DURATM; IF CAIVF EQ '.......1'B THEN DO; NEWWAIT=CPUWAIVF; CPUWAIT=CPUWAIT+CPUWAIVF; MVSWAIT=MVSWAIT+MVSWAIVF; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=93 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAIVG; MVSWAIVG=CPUWAIVG; CPUPDTVG=LCPUPDTM; CPUEDTVG=LCPUEDTM; CPUWAIVG=DURATM-(LCPUPDTM-CPUWAIVG); PCTCPBUG=100*(DURATM-CPUWAIVG)/DURATM; IF CAIVG EQ '.......1'B THEN DO; NEWWAIT=CPUWAIVG; CPUWAIT=CPUWAIT+CPUWAIVG; MVSWAIT=MVSWAIT+MVSWAIVG; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=94 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAIVH; MVSWAIVH=CPUWAIVH; CPUPDTVH=LCPUPDTM; CPUEDTVH=LCPUEDTM; CPUWAIVH=DURATM-(LCPUPDTM-CPUWAIVH); PCTCPBUH=100*(DURATM-CPUWAIVH)/DURATM; IF CAIVH EQ '.......1'B THEN DO; NEWWAIT=CPUWAIVH; CPUWAIT=CPUWAIT+CPUWAIVH; MVSWAIT=MVSWAIT+MVSWAIVH; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=95 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAIVI; MVSWAIVI=CPUWAIVI; CPUPDTVI=LCPUPDTM; CPUEDTVI=LCPUEDTM; CPUWAIVI=DURATM-(LCPUPDTM-CPUWAIVI); PCTCPBUI=100*(DURATM-CPUWAIVI)/DURATM; IF CAIVI EQ '.......1'B THEN DO; NEWWAIT=CPUWAIVI; CPUWAIT=CPUWAIT+CPUWAIVI; MVSWAIT=MVSWAIT+MVSWAIVI; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=96 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAIVJ; MVSWAIVJ=CPUWAIVJ; CPUPDTVJ=LCPUPDTM; CPUEDTVJ=LCPUEDTM; CPUWAIVJ=DURATM-(LCPUPDTM-CPUWAIVJ); PCTCPBUJ=100*(DURATM-CPUWAIVJ)/DURATM; IF CAIVJ EQ '.......1'B THEN DO; NEWWAIT=CPUWAIVJ; CPUWAIT=CPUWAIT+CPUWAIVJ; MVSWAIT=MVSWAIT+MVSWAIVJ; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=97 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAIVK; MVSWAIVK=CPUWAIVK; CPUPDTVK=LCPUPDTM; CPUEDTVK=LCPUEDTM; CPUWAIVK=DURATM-(LCPUPDTM-CPUWAIVK); PCTCPBUK=100*(DURATM-CPUWAIVK)/DURATM; IF CAIVK EQ '.......1'B THEN DO; NEWWAIT=CPUWAIVK; CPUWAIT=CPUWAIT+CPUWAIVK; MVSWAIT=MVSWAIT+MVSWAIVK; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=98 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAIVL; MVSWAIVL=CPUWAIVL; CPUPDTVL=LCPUPDTM; CPUEDTVL=LCPUEDTM; CPUWAIVL=DURATM-(LCPUPDTM-CPUWAIVL); PCTCPBUL=100*(DURATM-CPUWAIVL)/DURATM; IF CAIVL EQ '.......1'B THEN DO; NEWWAIT=CPUWAIVL; CPUWAIT=CPUWAIT+CPUWAIVL; MVSWAIT=MVSWAIT+MVSWAIVL; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=99 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAIVM; MVSWAIVM=CPUWAIVM; CPUPDTVM=LCPUPDTM; CPUEDTVM=LCPUEDTM; CPUWAIVM=DURATM-(LCPUPDTM-CPUWAIVM); PCTCPBUM=100*(DURATM-CPUWAIVM)/DURATM; IF CAIVM EQ '.......1'B THEN DO; NEWWAIT=CPUWAIVM; CPUWAIT=CPUWAIT+CPUWAIVM; MVSWAIT=MVSWAIT+MVSWAIVM; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=100 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAIVN; MVSWAIVN=CPUWAIVN; CPUPDTVN=LCPUPDTM; CPUEDTVN=LCPUEDTM; CPUWAIVN=DURATM-(LCPUPDTM-CPUWAIVN); PCTCPBUN=100*(DURATM-CPUWAIVN)/DURATM; IF CAIVN EQ '.......1'B THEN DO; NEWWAIT=CPUWAIVN; CPUWAIT=CPUWAIT+CPUWAIVN; MVSWAIT=MVSWAIT+MVSWAIVN; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=101 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAIVO; MVSWAIVO=CPUWAIVO; CPUPDTVO=LCPUPDTM; CPUEDTVO=LCPUEDTM; CPUWAIVO=DURATM-(LCPUPDTM-CPUWAIVO); PCTCPBUO=100*(DURATM-CPUWAIVO)/DURATM; IF CAIVO EQ '.......1'B THEN DO; NEWWAIT=CPUWAIVO; CPUWAIT=CPUWAIT+CPUWAIVO; MVSWAIT=MVSWAIT+MVSWAIVO; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=102 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI102; MVSWAI102=CPUWAI102; CPUPDT102=LCPUPDTM; CPUEDT102=LCPUEDTM; CPUWAI102=DURATM-(LCPUPDTM-CPUWAI102); PCTCPB102=100*(DURATM-CPUWAI102)/DURATM; IF CAI102 EQ '.......1'B THEN DO; NEWWAIT=CPUWAI102; CPUWAIT=CPUWAIT+CPUWAI102; MVSWAIT=MVSWAIT+MVSWAI102; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=103 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI103; MVSWAI103=CPUWAI103; CPUPDT103=LCPUPDTM; CPUEDT103=LCPUEDTM; CPUWAI103=DURATM-(LCPUPDTM-CPUWAI103); PCTCPB103=100*(DURATM-CPUWAI103)/DURATM; IF CAI103 EQ '.......1'B THEN DO; NEWWAIT=CPUWAI103; CPUWAIT=CPUWAIT+CPUWAI103; MVSWAIT=MVSWAIT+MVSWAI103; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=104 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI104; MVSWAI104=CPUWAI104; CPUPDT104=LCPUPDTM; CPUEDT104=LCPUEDTM; CPUWAI104=DURATM-(LCPUPDTM-CPUWAI104); PCTCPB104=100*(DURATM-CPUWAI104)/DURATM; IF CAI104 EQ '.......1'B THEN DO; NEWWAIT=CPUWAI104; CPUWAIT=CPUWAIT+CPUWAI104; MVSWAIT=MVSWAIT+MVSWAI104; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=105 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI105; MVSWAI105=CPUWAI105; CPUPDT105=LCPUPDTM; CPUEDT105=LCPUEDTM; CPUWAI105=DURATM-(LCPUPDTM-CPUWAI105); PCTCPB105=100*(DURATM-CPUWAI105)/DURATM; IF CAI105 EQ '.......1'B THEN DO; NEWWAIT=CPUWAI105; CPUWAIT=CPUWAIT+CPUWAI105; MVSWAIT=MVSWAIT+MVSWAI105; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=106 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI106; MVSWAI106=CPUWAI106; CPUPDT106=LCPUPDTM; CPUEDT106=LCPUEDTM; CPUWAI106=DURATM-(LCPUPDTM-CPUWAI106); PCTCPB106=100*(DURATM-CPUWAI106)/DURATM; IF CAI106 EQ '.......1'B THEN DO; NEWWAIT=CPUWAI106; CPUWAIT=CPUWAIT+CPUWAI106; MVSWAIT=MVSWAIT+MVSWAI106; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=107 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI107; MVSWAI107=CPUWAI107; CPUPDT107=LCPUPDTM; CPUEDT107=LCPUEDTM; CPUWAI107=DURATM-(LCPUPDTM-CPUWAI107); PCTCPB107=100*(DURATM-CPUWAI107)/DURATM; IF CAI107 EQ '.......1'B THEN DO; NEWWAIT=CPUWAI107; CPUWAIT=CPUWAIT+CPUWAI107; MVSWAIT=MVSWAIT+MVSWAI107; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=108 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI108; MVSWAI108=CPUWAI108; CPUPDT108=LCPUPDTM; CPUEDT108=LCPUEDTM; CPUWAI108=DURATM-(LCPUPDTM-CPUWAI108); PCTCPB108=100*(DURATM-CPUWAI108)/DURATM; IF CAI108 EQ '.......1'B THEN DO; NEWWAIT=CPUWAI108; CPUWAIT=CPUWAIT+CPUWAI108; MVSWAIT=MVSWAIT+MVSWAI108; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=109 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI109; MVSWAI109=CPUWAI109; CPUPDT109=LCPUPDTM; CPUEDT109=LCPUEDTM; CPUWAI109=DURATM-(LCPUPDTM-CPUWAI109); PCTCPB109=100*(DURATM-CPUWAI109)/DURATM; IF CAI109 EQ '.......1'B THEN DO; NEWWAIT=CPUWAI109; CPUWAIT=CPUWAIT+CPUWAI109; MVSWAIT=MVSWAIT+MVSWAI109; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=110 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI110; MVSWAI110=CPUWAI110; CPUPDT110=LCPUPDTM; CPUEDT110=LCPUEDTM; CPUWAI110=DURATM-(LCPUPDTM-CPUWAI110); PCTCPB110=100*(DURATM-CPUWAI110)/DURATM; IF CAI110 EQ '.......1'B THEN DO; NEWWAIT=CPUWAI110; CPUWAIT=CPUWAIT+CPUWAI110; MVSWAIT=MVSWAIT+MVSWAI110; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=111 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI111; MVSWAI111=CPUWAI111; CPUPDT111=LCPUPDTM; CPUEDT111=LCPUEDTM; CPUWAI111=DURATM-(LCPUPDTM-CPUWAI111); PCTCPB111=100*(DURATM-CPUWAI111)/DURATM; IF CAI111 EQ '.......1'B THEN DO; NEWWAIT=CPUWAI111; CPUWAIT=CPUWAIT+CPUWAI111; MVSWAIT=MVSWAIT+MVSWAI111; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=112 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI112; MVSWAI112=CPUWAI112; CPUPDT112=LCPUPDTM; CPUEDT112=LCPUEDTM; CPUWAI112=DURATM-(LCPUPDTM-CPUWAI112); PCTCPB112=100*(DURATM-CPUWAI112)/DURATM; IF CAI112 EQ '.......1'B THEN DO; NEWWAIT=CPUWAI112; CPUWAIT=CPUWAIT+CPUWAI112; MVSWAIT=MVSWAIT+MVSWAI112; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=113 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI113; MVSWAI113=CPUWAI113; CPUPDT113=LCPUPDTM; CPUEDT113=LCPUEDTM; CPUWAI113=DURATM-(LCPUPDTM-CPUWAI113); PCTCPB113=100*(DURATM-CPUWAI113)/DURATM; IF CAI113 EQ '.......1'B THEN DO; NEWWAIT=CPUWAI113; CPUWAIT=CPUWAIT+CPUWAI113; MVSWAIT=MVSWAIT+MVSWAI113; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=114 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI114; MVSWAI114=CPUWAI114; CPUPDT114=LCPUPDTM; CPUEDT114=LCPUEDTM; CPUWAI114=DURATM-(LCPUPDTM-CPUWAI114); PCTCPB114=100*(DURATM-CPUWAI114)/DURATM; IF CAI114 EQ '.......1'B THEN DO; NEWWAIT=CPUWAI114; CPUWAIT=CPUWAIT+CPUWAI114; MVSWAIT=MVSWAIT+MVSWAI114; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=115 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI115; MVSWAI115=CPUWAI115; CPUPDT115=LCPUPDTM; CPUEDT115=LCPUEDTM; CPUWAI115=DURATM-(LCPUPDTM-CPUWAI115); PCTCPB115=100*(DURATM-CPUWAI115)/DURATM; IF CAI115 EQ '.......1'B THEN DO; NEWWAIT=CPUWAI115; CPUWAIT=CPUWAIT+CPUWAI115; MVSWAIT=MVSWAIT+MVSWAI115; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=116 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI116; MVSWAI116=CPUWAI116; CPUPDT116=LCPUPDTM; CPUEDT116=LCPUEDTM; CPUWAI116=DURATM-(LCPUPDTM-CPUWAI116); PCTCPB116=100*(DURATM-CPUWAI116)/DURATM; IF CAI116 EQ '.......1'B THEN DO; NEWWAIT=CPUWAI116; CPUWAIT=CPUWAIT+CPUWAI116; MVSWAIT=MVSWAIT+MVSWAI116; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=117 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI117; MVSWAI117=CPUWAI117; CPUPDT117=LCPUPDTM; CPUEDT117=LCPUEDTM; CPUWAI117=DURATM-(LCPUPDTM-CPUWAI117); PCTCPB117=100*(DURATM-CPUWAI117)/DURATM; IF CAI117 EQ '.......1'B THEN DO; NEWWAIT=CPUWAI117; CPUWAIT=CPUWAIT+CPUWAI117; MVSWAIT=MVSWAIT+MVSWAI117; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=118 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI118; MVSWAI118=CPUWAI118; CPUPDT118=LCPUPDTM; CPUEDT118=LCPUEDTM; CPUWAI118=DURATM-(LCPUPDTM-CPUWAI118); PCTCPB118=100*(DURATM-CPUWAI118)/DURATM; IF CAI118 EQ '.......1'B THEN DO; NEWWAIT=CPUWAI118; CPUWAIT=CPUWAIT+CPUWAI118; MVSWAIT=MVSWAIT+MVSWAI118; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=119 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI119; MVSWAI119=CPUWAI119; CPUPDT119=LCPUPDTM; CPUEDT119=LCPUEDTM; CPUWAI119=DURATM-(LCPUPDTM-CPUWAI119); PCTCPB119=100*(DURATM-CPUWAI119)/DURATM; IF CAI119 EQ '.......1'B THEN DO; NEWWAIT=CPUWAI119; CPUWAIT=CPUWAIT+CPUWAI119; MVSWAIT=MVSWAIT+MVSWAI119; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=120 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI120; MVSWAI120=CPUWAI120; CPUPDT120=LCPUPDTM; CPUEDT120=LCPUEDTM; CPUWAI120=DURATM-(LCPUPDTM-CPUWAI120); PCTCPB120=100*(DURATM-CPUWAI120)/DURATM; IF CAI120 EQ '.......1'B THEN DO; NEWWAIT=CPUWAI120; CPUWAIT=CPUWAIT+CPUWAI120; MVSWAIT=MVSWAIT+MVSWAI120; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=121 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI121; MVSWAI121=CPUWAI121; CPUPDT121=LCPUPDTM; CPUEDT121=LCPUEDTM; CPUWAI121=DURATM-(LCPUPDTM-CPUWAI121); PCTCPB121=100*(DURATM-CPUWAI121)/DURATM; IF CAI121 EQ '.......1'B THEN DO; NEWWAIT=CPUWAI121; CPUWAIT=CPUWAIT+CPUWAI121; MVSWAIT=MVSWAIT+MVSWAI121; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=122 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI122; MVSWAI122=CPUWAI122; CPUPDT122=LCPUPDTM; CPUEDT122=LCPUEDTM; CPUWAI122=DURATM-(LCPUPDTM-CPUWAI122); PCTCPB122=100*(DURATM-CPUWAI122)/DURATM; IF CAI122 EQ '.......1'B THEN DO; NEWWAIT=CPUWAI122; CPUWAIT=CPUWAIT+CPUWAI122; MVSWAIT=MVSWAIT+MVSWAI122; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=123 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI123; MVSWAI123=CPUWAI123; CPUPDT123=LCPUPDTM; CPUEDT123=LCPUEDTM; CPUWAI123=DURATM-(LCPUPDTM-CPUWAI123); PCTCPB123=100*(DURATM-CPUWAI123)/DURATM; IF CAI123 EQ '.......1'B THEN DO; NEWWAIT=CPUWAI123; CPUWAIT=CPUWAIT+CPUWAI123; MVSWAIT=MVSWAIT+MVSWAI123; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=124 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI124; MVSWAI124=CPUWAI124; CPUPDT124=LCPUPDTM; CPUEDT124=LCPUEDTM; CPUWAI124=DURATM-(LCPUPDTM-CPUWAI124); PCTCPB124=100*(DURATM-CPUWAI124)/DURATM; IF CAI124 EQ '.......1'B THEN DO; NEWWAIT=CPUWAI124; CPUWAIT=CPUWAIT+CPUWAI124; MVSWAIT=MVSWAIT+MVSWAI124; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=125 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI125; MVSWAI125=CPUWAI125; CPUPDT125=LCPUPDTM; CPUEDT125=LCPUEDTM; CPUWAI125=DURATM-(LCPUPDTM-CPUWAI125); PCTCPB125=100*(DURATM-CPUWAI125)/DURATM; IF CAI125 EQ '.......1'B THEN DO; NEWWAIT=CPUWAI125; CPUWAIT=CPUWAIT+CPUWAI125; MVSWAIT=MVSWAIT+MVSWAI125; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=126 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI126; MVSWAI126=CPUWAI126; CPUPDT126=LCPUPDTM; CPUEDT126=LCPUEDTM; CPUWAI126=DURATM-(LCPUPDTM-CPUWAI126); PCTCPB126=100*(DURATM-CPUWAI126)/DURATM; IF CAI126 EQ '.......1'B THEN DO; NEWWAIT=CPUWAI126; CPUWAIT=CPUWAIT+CPUWAI126; MVSWAIT=MVSWAIT+MVSWAI126; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=127 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI127; MVSWAI127=CPUWAI127; CPUPDT127=LCPUPDTM; CPUEDT127=LCPUEDTM; CPUWAI127=DURATM-(LCPUPDTM-CPUWAI127); PCTCPB127=100*(DURATM-CPUWAI127)/DURATM; IF CAI127 EQ '.......1'B THEN DO; NEWWAIT=CPUWAI127; CPUWAIT=CPUWAIT+CPUWAI127; MVSWAIT=MVSWAIT+MVSWAI127; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=128 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI128; MVSWAI128=CPUWAI128; CPUPDT128=LCPUPDTM; CPUEDT128=LCPUEDTM; CPUWAI128=DURATM-(LCPUPDTM-CPUWAI128); PCTCPB128=100*(DURATM-CPUWAI128)/DURATM; IF CAI128 EQ '.......1'B THEN DO; NEWWAIT=CPUWAI128; CPUWAIT=CPUWAIT+CPUWAI128; MVSWAIT=MVSWAIT+MVSWAI128; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=129 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI129; MVSWAI129=CPUWAI129; CPUPDT129=LCPUPDTM; CPUEDT129=LCPUEDTM; CPUWAI129=DURATM-(LCPUPDTM-CPUWAI129); PCTCPB129=100*(DURATM-CPUWAI129)/DURATM; IF CAI129 EQ '.......1'B THEN DO; NEWWAIT=CPUWAI129; CPUWAIT=CPUWAIT+CPUWAI129; MVSWAIT=MVSWAIT+MVSWAI129; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=130 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI130; MVSWAI130=CPUWAI130; CPUPDT130=LCPUPDTM; CPUEDT130=LCPUEDTM; CPUWAI130=DURATM-(LCPUPDTM-CPUWAI130); PCTCPB130=100*(DURATM-CPUWAI130)/DURATM; IF CAI130 EQ '.......1'B THEN DO; NEWWAIT=CPUWAI130; CPUWAIT=CPUWAIT+CPUWAI130; MVSWAIT=MVSWAIT+MVSWAI130; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=131 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI131; MVSWAI131=CPUWAI131; CPUPDT131=LCPUPDTM; CPUEDT131=LCPUEDTM; CPUWAI131=DURATM-(LCPUPDTM-CPUWAI131); PCTCPB131=100*(DURATM-CPUWAI131)/DURATM; IF CAI131 EQ '.......1'B THEN DO; NEWWAIT=CPUWAI131; CPUWAIT=CPUWAIT+CPUWAI131; MVSWAIT=MVSWAIT+MVSWAI131; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=132 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI132; MVSWAI132=CPUWAI132; CPUPDT132=LCPUPDTM; CPUEDT132=LCPUEDTM; CPUWAI132=DURATM-(LCPUPDTM-CPUWAI132); PCTCPB132=100*(DURATM-CPUWAI132)/DURATM; IF CAI132 EQ '.......1'B THEN DO; NEWWAIT=CPUWAI132; CPUWAIT=CPUWAIT+CPUWAI132; MVSWAIT=MVSWAIT+MVSWAI132; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=133 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI133; MVSWAI133=CPUWAI133; CPUPDT133=LCPUPDTM; CPUEDT133=LCPUEDTM; CPUWAI133=DURATM-(LCPUPDTM-CPUWAI133); PCTCPB133=100*(DURATM-CPUWAI133)/DURATM; IF CAI133 EQ '.......1'B THEN DO; NEWWAIT=CPUWAI133; CPUWAIT=CPUWAIT+CPUWAI133; MVSWAIT=MVSWAIT+MVSWAI133; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=134 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI134; MVSWAI134=CPUWAI134; CPUPDT134=LCPUPDTM; CPUEDT134=LCPUEDTM; CPUWAI134=DURATM-(LCPUPDTM-CPUWAI134); PCTCPB134=100*(DURATM-CPUWAI134)/DURATM; IF CAI134 EQ '.......1'B THEN DO; NEWWAIT=CPUWAI134; CPUWAIT=CPUWAIT+CPUWAI134; MVSWAIT=MVSWAIT+MVSWAI134; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=135 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI135; MVSWAI135=CPUWAI135; CPUPDT135=LCPUPDTM; CPUEDT135=LCPUEDTM; CPUWAI135=DURATM-(LCPUPDTM-CPUWAI135); PCTCPB135=100*(DURATM-CPUWAI135)/DURATM; IF CAI135 EQ '.......1'B THEN DO; NEWWAIT=CPUWAI135; CPUWAIT=CPUWAIT+CPUWAI135; MVSWAIT=MVSWAIT+MVSWAI135; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=136 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI136; MVSWAI136=CPUWAI136; CPUPDT136=LCPUPDTM; CPUEDT136=LCPUEDTM; CPUWAI136=DURATM-(LCPUPDTM-CPUWAI136); PCTCPB136=100*(DURATM-CPUWAI136)/DURATM; IF CAI136 EQ '.......1'B THEN DO; NEWWAIT=CPUWAI136; CPUWAIT=CPUWAIT+CPUWAI136; MVSWAIT=MVSWAIT+MVSWAI136; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=137 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI137; MVSWAI137=CPUWAI137; CPUPDT137=LCPUPDTM; CPUEDT137=LCPUEDTM; CPUWAI137=DURATM-(LCPUPDTM-CPUWAI137); PCTCPB137=100*(DURATM-CPUWAI137)/DURATM; IF CAI137 EQ '.......1'B THEN DO; NEWWAIT=CPUWAI137; CPUWAIT=CPUWAIT+CPUWAI137; MVSWAIT=MVSWAIT+MVSWAI137; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=138 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI138; MVSWAI138=CPUWAI138; CPUPDT138=LCPUPDTM; CPUEDT138=LCPUEDTM; CPUWAI138=DURATM-(LCPUPDTM-CPUWAI138); PCTCPB138=100*(DURATM-CPUWAI138)/DURATM; IF CAI138 EQ '.......1'B THEN DO; NEWWAIT=CPUWAI138; CPUWAIT=CPUWAIT+CPUWAI138; MVSWAIT=MVSWAIT+MVSWAI138; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=139 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI139; MVSWAI139=CPUWAI139; CPUPDT139=LCPUPDTM; CPUEDT139=LCPUEDTM; CPUWAI139=DURATM-(LCPUPDTM-CPUWAI139); PCTCPB139=100*(DURATM-CPUWAI139)/DURATM; IF CAI139 EQ '.......1'B THEN DO; NEWWAIT=CPUWAI139; CPUWAIT=CPUWAIT+CPUWAI139; MVSWAIT=MVSWAIT+MVSWAI139; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=140 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI140; MVSWAI140=CPUWAI140; CPUPDT140=LCPUPDTM; CPUEDT140=LCPUEDTM; CPUWAI140=DURATM-(LCPUPDTM-CPUWAI140); PCTCPB140=100*(DURATM-CPUWAI140)/DURATM; IF CAI140 EQ '.......1'B THEN DO; NEWWAIT=CPUWAI140; CPUWAIT=CPUWAIT+CPUWAI140; MVSWAIT=MVSWAIT+MVSWAI140; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=141 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI141; MVSWAI141=CPUWAI141; CPUPDT141=LCPUPDTM; CPUEDT141=LCPUEDTM; CPUWAI141=DURATM-(LCPUPDTM-CPUWAI141); PCTCPB141=100*(DURATM-CPUWAI141)/DURATM; IF CAI141 EQ '.......1'B THEN DO; NEWWAIT=CPUWAI141; CPUWAIT=CPUWAIT+CPUWAI141; MVSWAIT=MVSWAIT+MVSWAI141; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=142 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI142; MVSWAI142=CPUWAI142; CPUPDT142=LCPUPDTM; CPUEDT142=LCPUEDTM; CPUWAI142=DURATM-(LCPUPDTM-CPUWAI142); PCTCPB142=100*(DURATM-CPUWAI142)/DURATM; IF CAI142 EQ '.......1'B THEN DO; NEWWAIT=CPUWAI142; CPUWAIT=CPUWAIT+CPUWAI142; MVSWAIT=MVSWAIT+MVSWAI142; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=143 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI143; MVSWAI143=CPUWAI143; CPUPDT143=LCPUPDTM; CPUEDT143=LCPUEDTM; CPUWAI143=DURATM-(LCPUPDTM-CPUWAI143); PCTCPB143=100*(DURATM-CPUWAI143)/DURATM; IF CAI143 EQ '.......1'B THEN DO; NEWWAIT=CPUWAI143; CPUWAIT=CPUWAIT+CPUWAI143; MVSWAIT=MVSWAIT+MVSWAI143; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=144 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI144; MVSWAI144=CPUWAI144; CPUPDT144=LCPUPDTM; CPUEDT144=LCPUEDTM; CPUWAI144=DURATM-(LCPUPDTM-CPUWAI144); PCTCPB144=100*(DURATM-CPUWAI144)/DURATM; IF CAI144 EQ '.......1'B THEN DO; NEWWAIT=CPUWAI144; CPUWAIT=CPUWAIT+CPUWAI144; MVSWAIT=MVSWAIT+MVSWAI144; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=145 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI145; MVSWAI145=CPUWAI145; CPUPDT145=LCPUPDTM; CPUEDT145=LCPUEDTM; CPUWAI145=DURATM-(LCPUPDTM-CPUWAI145); PCTCPB145=100*(DURATM-CPUWAI145)/DURATM; IF CAI145 EQ '.......1'B THEN DO; NEWWAIT=CPUWAI145; CPUWAIT=CPUWAIT+CPUWAI145; MVSWAIT=MVSWAIT+MVSWAI145; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=146 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI146; MVSWAI146=CPUWAI146; CPUPDT146=LCPUPDTM; CPUEDT146=LCPUEDTM; CPUWAI146=DURATM-(LCPUPDTM-CPUWAI146); PCTCPB146=100*(DURATM-CPUWAI146)/DURATM; IF CAI146 EQ '.......1'B THEN DO; NEWWAIT=CPUWAI146; CPUWAIT=CPUWAIT+CPUWAI146; MVSWAIT=MVSWAIT+MVSWAI146; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=147 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI147; MVSWAI147=CPUWAI147; CPUPDT147=LCPUPDTM; CPUEDT147=LCPUEDTM; CPUWAI147=DURATM-(LCPUPDTM-CPUWAI147); PCTCPB147=100*(DURATM-CPUWAI147)/DURATM; IF CAI147 EQ '.......1'B THEN DO; NEWWAIT=CPUWAI147; CPUWAIT=CPUWAIT+CPUWAI147; MVSWAIT=MVSWAIT+MVSWAI147; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=148 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI148; MVSWAI148=CPUWAI148; CPUPDT148=LCPUPDTM; CPUEDT148=LCPUEDTM; CPUWAI148=DURATM-(LCPUPDTM-CPUWAI148); PCTCPB148=100*(DURATM-CPUWAI148)/DURATM; IF CAI148 EQ '.......1'B THEN DO; NEWWAIT=CPUWAI148; CPUWAIT=CPUWAIT+CPUWAI148; MVSWAIT=MVSWAIT+MVSWAI148; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=149 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI149; MVSWAI149=CPUWAI149; CPUPDT149=LCPUPDTM; CPUEDT149=LCPUEDTM; CPUWAI149=DURATM-(LCPUPDTM-CPUWAI149); PCTCPB149=100*(DURATM-CPUWAI149)/DURATM; IF CAI149 EQ '.......1'B THEN DO; NEWWAIT=CPUWAI149; CPUWAIT=CPUWAIT+CPUWAI149; MVSWAIT=MVSWAIT+MVSWAI149; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=150 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI150; MVSWAI150=CPUWAI150; CPUPDT150=LCPUPDTM; CPUEDT150=LCPUEDTM; CPUWAI150=DURATM-(LCPUPDTM-CPUWAI150); PCTCPB150=100*(DURATM-CPUWAI150)/DURATM; IF CAI150 EQ '.......1'B THEN DO; NEWWAIT=CPUWAI150; CPUWAIT=CPUWAIT+CPUWAI150; MVSWAIT=MVSWAIT+MVSWAI150; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=151 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI151; MVSWAI151=CPUWAI151; CPUPDT151=LCPUPDTM; CPUEDT151=LCPUEDTM; CPUWAI151=DURATM-(LCPUPDTM-CPUWAI151); PCTCPB151=100*(DURATM-CPUWAI151)/DURATM; IF CAI151 EQ '.......1'B THEN DO; NEWWAIT=CPUWAI151; CPUWAIT=CPUWAIT+CPUWAI151; MVSWAIT=MVSWAIT+MVSWAI151; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=152 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI152; MVSWAI152=CPUWAI152; CPUPDT152=LCPUPDTM; CPUEDT152=LCPUEDTM; CPUWAI152=DURATM-(LCPUPDTM-CPUWAI152); PCTCPB152=100*(DURATM-CPUWAI152)/DURATM; IF CAI152 EQ '.......1'B THEN DO; NEWWAIT=CPUWAI152; CPUWAIT=CPUWAIT+CPUWAI152; MVSWAIT=MVSWAIT+MVSWAI152; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=153 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI153; MVSWAI153=CPUWAI153; CPUPDT153=LCPUPDTM; CPUEDT153=LCPUEDTM; CPUWAI153=DURATM-(LCPUPDTM-CPUWAI153); PCTCPB153=100*(DURATM-CPUWAI153)/DURATM; IF CAI153 EQ '.......1'B THEN DO; NEWWAIT=CPUWAI153; CPUWAIT=CPUWAIT+CPUWAI153; MVSWAIT=MVSWAIT+MVSWAI153; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=154 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI154; MVSWAI154=CPUWAI154; CPUPDT154=LCPUPDTM; CPUEDT154=LCPUEDTM; CPUWAI154=DURATM-(LCPUPDTM-CPUWAI154); PCTCPB154=100*(DURATM-CPUWAI154)/DURATM; IF CAI154 EQ '.......1'B THEN DO; NEWWAIT=CPUWAI154; CPUWAIT=CPUWAIT+CPUWAI154; MVSWAIT=MVSWAIT+MVSWAI154; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=155 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI155; MVSWAI155=CPUWAI155; CPUPDT155=LCPUPDTM; CPUEDT155=LCPUEDTM; CPUWAI155=DURATM-(LCPUPDTM-CPUWAI155); PCTCPB155=100*(DURATM-CPUWAI155)/DURATM; IF CAI155 EQ '.......1'B THEN DO; NEWWAIT=CPUWAI155; CPUWAIT=CPUWAIT+CPUWAI155; MVSWAIT=MVSWAIT+MVSWAI155; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=156 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI156; MVSWAI156=CPUWAI156; CPUPDT156=LCPUPDTM; CPUEDT156=LCPUEDTM; CPUWAI156=DURATM-(LCPUPDTM-CPUWAI156); PCTCPB156=100*(DURATM-CPUWAI156)/DURATM; IF CAI156 EQ '.......1'B THEN DO; NEWWAIT=CPUWAI156; CPUWAIT=CPUWAIT+CPUWAI156; MVSWAIT=MVSWAIT+MVSWAI156; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=157 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI157; MVSWAI157=CPUWAI157; CPUPDT157=LCPUPDTM; CPUEDT157=LCPUEDTM; CPUWAI157=DURATM-(LCPUPDTM-CPUWAI157); PCTCPB157=100*(DURATM-CPUWAI157)/DURATM; IF CAI157 EQ '.......1'B THEN DO; NEWWAIT=CPUWAI157; CPUWAIT=CPUWAIT+CPUWAI157; MVSWAIT=MVSWAIT+MVSWAI157; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=158 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI158; MVSWAI158=CPUWAI158; CPUPDT158=LCPUPDTM; CPUEDT158=LCPUEDTM; CPUWAI158=DURATM-(LCPUPDTM-CPUWAI158); PCTCPB158=100*(DURATM-CPUWAI158)/DURATM; IF CAI158 EQ '.......1'B THEN DO; NEWWAIT=CPUWAI158; CPUWAIT=CPUWAIT+CPUWAI158; MVSWAIT=MVSWAIT+MVSWAI158; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=159 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI159; MVSWAI159=CPUWAI159; CPUPDT159=LCPUPDTM; CPUEDT159=LCPUEDTM; CPUWAI159=DURATM-(LCPUPDTM-CPUWAI159); PCTCPB159=100*(DURATM-CPUWAI159)/DURATM; IF CAI159 EQ '.......1'B THEN DO; NEWWAIT=CPUWAI159; CPUWAIT=CPUWAIT+CPUWAI159; MVSWAIT=MVSWAIT+MVSWAI159; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=160 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI160; MVSWAI160=CPUWAI160; CPUPDT160=LCPUPDTM; CPUEDT160=LCPUEDTM; CPUWAI160=DURATM-(LCPUPDTM-CPUWAI160); PCTCPB160=100*(DURATM-CPUWAI160)/DURATM; IF CAI160 EQ '.......1'B THEN DO; NEWWAIT=CPUWAI160; CPUWAIT=CPUWAIT+CPUWAI160; MVSWAIT=MVSWAIT+MVSWAI160; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=161 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI161; MVSWAI161=CPUWAI161; CPUPDT161=LCPUPDTM; CPUEDT161=LCPUEDTM; CPUWAI161=DURATM-(LCPUPDTM-CPUWAI161); PCTCPB161=100*(DURATM-CPUWAI161)/DURATM; IF CAI161 EQ '.......1'B THEN DO; NEWWAIT=CPUWAI161; CPUWAIT=CPUWAIT+CPUWAI161; MVSWAIT=MVSWAIT+MVSWAI161; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=162 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI162; MVSWAI162=CPUWAI162; CPUPDT162=LCPUPDTM; CPUEDT162=LCPUEDTM; CPUWAI162=DURATM-(LCPUPDTM-CPUWAI162); PCTCPB162=100*(DURATM-CPUWAI162)/DURATM; IF CAI162 EQ '.......1'B THEN DO; NEWWAIT=CPUWAI162; CPUWAIT=CPUWAIT+CPUWAI162; MVSWAIT=MVSWAIT+MVSWAI162; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=163 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI163; MVSWAI163=CPUWAI163; CPUPDT163=LCPUPDTM; CPUEDT163=LCPUEDTM; CPUWAI163=DURATM-(LCPUPDTM-CPUWAI163); PCTCPB163=100*(DURATM-CPUWAI163)/DURATM; IF CAI163 EQ '.......1'B THEN DO; NEWWAIT=CPUWAI163; CPUWAIT=CPUWAIT+CPUWAI163; MVSWAIT=MVSWAIT+MVSWAI163; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=164 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI164; MVSWAI164=CPUWAI164; CPUPDT164=LCPUPDTM; CPUEDT164=LCPUEDTM; CPUWAI164=DURATM-(LCPUPDTM-CPUWAI164); PCTCPB164=100*(DURATM-CPUWAI164)/DURATM; IF CAI164 EQ '.......1'B THEN DO; NEWWAIT=CPUWAI164; CPUWAIT=CPUWAIT+CPUWAI164; MVSWAIT=MVSWAIT+MVSWAI164; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=165 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI165; MVSWAI165=CPUWAI165; CPUPDT165=LCPUPDTM; CPUEDT165=LCPUEDTM; CPUWAI165=DURATM-(LCPUPDTM-CPUWAI165); PCTCPB165=100*(DURATM-CPUWAI165)/DURATM; IF CAI165 EQ '.......1'B THEN DO; NEWWAIT=CPUWAI165; CPUWAIT=CPUWAIT+CPUWAI165; MVSWAIT=MVSWAIT+MVSWAI165; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=166 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI166; MVSWAI166=CPUWAI166; CPUPDT166=LCPUPDTM; CPUEDT166=LCPUEDTM; CPUWAI166=DURATM-(LCPUPDTM-CPUWAI166); PCTCPB166=100*(DURATM-CPUWAI166)/DURATM; IF CAI166 EQ '.......1'B THEN DO; NEWWAIT=CPUWAI166; CPUWAIT=CPUWAIT+CPUWAI166; MVSWAIT=MVSWAIT+MVSWAI166; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=167 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI167; MVSWAI167=CPUWAI167; CPUPDT167=LCPUPDTM; CPUEDT167=LCPUEDTM; CPUWAI167=DURATM-(LCPUPDTM-CPUWAI167); PCTCPB167=100*(DURATM-CPUWAI167)/DURATM; IF CAI167 EQ '.......1'B THEN DO; NEWWAIT=CPUWAI167; CPUWAIT=CPUWAIT+CPUWAI167; MVSWAIT=MVSWAIT+MVSWAI167; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=168 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI168; MVSWAI168=CPUWAI168; CPUPDT168=LCPUPDTM; CPUEDT168=LCPUEDTM; CPUWAI168=DURATM-(LCPUPDTM-CPUWAI168); PCTCPB168=100*(DURATM-CPUWAI168)/DURATM; IF CAI168 EQ '.......1'B THEN DO; NEWWAIT=CPUWAI168; CPUWAIT=CPUWAIT+CPUWAI168; MVSWAIT=MVSWAIT+MVSWAI168; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=169 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI169; MVSWAI169=CPUWAI169; CPUPDT169=LCPUPDTM; CPUEDT169=LCPUEDTM; CPUWAI169=DURATM-(LCPUPDTM-CPUWAI169); PCTCPB169=100*(DURATM-CPUWAI169)/DURATM; IF CAI169 EQ '.......1'B THEN DO; NEWWAIT=CPUWAI169; CPUWAIT=CPUWAIT+CPUWAI169; MVSWAIT=MVSWAIT+MVSWAI169; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=170 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI170; MVSWAI170=CPUWAI170; CPUPDT170=LCPUPDTM; CPUEDT170=LCPUEDTM; CPUWAI170=DURATM-(LCPUPDTM-CPUWAI170); PCTCPB170=100*(DURATM-CPUWAI170)/DURATM; IF CAI170 EQ '.......1'B THEN DO; NEWWAIT=CPUWAI170; CPUWAIT=CPUWAIT+CPUWAI170; MVSWAIT=MVSWAIT+MVSWAI170; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=171 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI171; MVSWAI171=CPUWAI171; CPUPDT171=LCPUPDTM; CPUEDT171=LCPUEDTM; CPUWAI171=DURATM-(LCPUPDTM-CPUWAI171); PCTCPB171=100*(DURATM-CPUWAI171)/DURATM; IF CAI171 EQ '.......1'B THEN DO; NEWWAIT=CPUWAI171; CPUWAIT=CPUWAIT+CPUWAI171; MVSWAIT=MVSWAIT+MVSWAI171; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=172 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI172; MVSWAI172=CPUWAI172; CPUPDT172=LCPUPDTM; CPUEDT172=LCPUEDTM; CPUWAI172=DURATM-(LCPUPDTM-CPUWAI172); PCTCPB172=100*(DURATM-CPUWAI172)/DURATM; IF CAI172 EQ '.......1'B THEN DO; NEWWAIT=CPUWAI172; CPUWAIT=CPUWAIT+CPUWAI172; MVSWAIT=MVSWAIT+MVSWAI172; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=173 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI173; MVSWAI173=CPUWAI173; CPUPDT173=LCPUPDTM; CPUEDT173=LCPUEDTM; CPUWAI173=DURATM-(LCPUPDTM-CPUWAI173); PCTCPB173=100*(DURATM-CPUWAI173)/DURATM; IF CAI173 EQ '.......1'B THEN DO; NEWWAIT=CPUWAI173; CPUWAIT=CPUWAIT+CPUWAI173; MVSWAIT=MVSWAIT+MVSWAI173; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=174 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI174; MVSWAI174=CPUWAI174; CPUPDT174=LCPUPDTM; CPUEDT174=LCPUEDTM; CPUWAI174=DURATM-(LCPUPDTM-CPUWAI174); PCTCPB174=100*(DURATM-CPUWAI174)/DURATM; IF CAI174 EQ '.......1'B THEN DO; NEWWAIT=CPUWAI174; CPUWAIT=CPUWAIT+CPUWAI174; MVSWAIT=MVSWAIT+MVSWAI174; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=175 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI175; MVSWAI175=CPUWAI175; CPUPDT175=LCPUPDTM; CPUEDT175=LCPUEDTM; CPUWAI175=DURATM-(LCPUPDTM-CPUWAI175); PCTCPB175=100*(DURATM-CPUWAI175)/DURATM; IF CAI175 EQ '.......1'B THEN DO; NEWWAIT=CPUWAI175; CPUWAIT=CPUWAIT+CPUWAI175; MVSWAIT=MVSWAIT+MVSWAI175; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=176 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI176; MVSWAI176=CPUWAI176; CPUPDT176=LCPUPDTM; CPUEDT176=LCPUEDTM; CPUWAI176=DURATM-(LCPUPDTM-CPUWAI176); PCTCPB176=100*(DURATM-CPUWAI176)/DURATM; IF CAI176 EQ '.......1'B THEN DO; NEWWAIT=CPUWAI176; CPUWAIT=CPUWAIT+CPUWAI176; MVSWAIT=MVSWAIT+MVSWAI176; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=177 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI177; MVSWAI177=CPUWAI177; CPUPDT177=LCPUPDTM; CPUEDT177=LCPUEDTM; CPUWAI177=DURATM-(LCPUPDTM-CPUWAI177); PCTCPB177=100*(DURATM-CPUWAI177)/DURATM; IF CAI177 EQ '.......1'B THEN DO; NEWWAIT=CPUWAI177; CPUWAIT=CPUWAIT+CPUWAI177; MVSWAIT=MVSWAIT+MVSWAI177; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=178 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI178; MVSWAI178=CPUWAI178; CPUPDT178=LCPUPDTM; CPUEDT178=LCPUEDTM; CPUWAI178=DURATM-(LCPUPDTM-CPUWAI178); PCTCPB178=100*(DURATM-CPUWAI178)/DURATM; IF CAI178 EQ '.......1'B THEN DO; NEWWAIT=CPUWAI178; CPUWAIT=CPUWAIT+CPUWAI178; MVSWAIT=MVSWAIT+MVSWAI178; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=179 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI179; MVSWAI179=CPUWAI179; CPUPDT179=LCPUPDTM; CPUEDT179=LCPUEDTM; CPUWAI179=DURATM-(LCPUPDTM-CPUWAI179); PCTCPB179=100*(DURATM-CPUWAI179)/DURATM; IF CAI179 EQ '.......1'B THEN DO; NEWWAIT=CPUWAI179; CPUWAIT=CPUWAIT+CPUWAI179; MVSWAIT=MVSWAIT+MVSWAI179; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=180 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI180; MVSWAI180=CPUWAI180; CPUPDT180=LCPUPDTM; CPUEDT180=LCPUEDTM; CPUWAI180=DURATM-(LCPUPDTM-CPUWAI180); PCTCPB180=100*(DURATM-CPUWAI180)/DURATM; IF CAI180 EQ '.......1'B THEN DO; NEWWAIT=CPUWAI180; CPUWAIT=CPUWAIT+CPUWAI180; MVSWAIT=MVSWAIT+MVSWAI180; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=181 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI181; MVSWAI181=CPUWAI181; CPUPDT181=LCPUPDTM; CPUEDT181=LCPUEDTM; CPUWAI181=DURATM-(LCPUPDTM-CPUWAI181); PCTCPB181=100*(DURATM-CPUWAI181)/DURATM; IF CAI181 EQ '.......1'B THEN DO; NEWWAIT=CPUWAI181; CPUWAIT=CPUWAIT+CPUWAI181; MVSWAIT=MVSWAIT+MVSWAI181; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=182 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI182; MVSWAI182=CPUWAI182; CPUPDT182=LCPUPDTM; CPUEDT182=LCPUEDTM; CPUWAI182=DURATM-(LCPUPDTM-CPUWAI182); PCTCPB182=100*(DURATM-CPUWAI182)/DURATM; IF CAI182 EQ '.......1'B THEN DO; NEWWAIT=CPUWAI182; CPUWAIT=CPUWAIT+CPUWAI182; MVSWAIT=MVSWAIT+MVSWAI182; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=183 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI183; MVSWAI183=CPUWAI183; CPUPDT183=LCPUPDTM; CPUEDT183=LCPUEDTM; CPUWAI183=DURATM-(LCPUPDTM-CPUWAI183); PCTCPB183=100*(DURATM-CPUWAI183)/DURATM; IF CAI183 EQ '.......1'B THEN DO; NEWWAIT=CPUWAI183; CPUWAIT=CPUWAIT+CPUWAI183; MVSWAIT=MVSWAIT+MVSWAI183; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=184 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI184; MVSWAI184=CPUWAI184; CPUPDT184=LCPUPDTM; CPUEDT184=LCPUEDTM; CPUWAI184=DURATM-(LCPUPDTM-CPUWAI184); PCTCPB184=100*(DURATM-CPUWAI184)/DURATM; IF CAI184 EQ '.......1'B THEN DO; NEWWAIT=CPUWAI184; CPUWAIT=CPUWAIT+CPUWAI184; MVSWAIT=MVSWAIT+MVSWAI184; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=185 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI185; MVSWAI185=CPUWAI185; CPUPDT185=LCPUPDTM; CPUEDT185=LCPUEDTM; CPUWAI185=DURATM-(LCPUPDTM-CPUWAI185); PCTCPB185=100*(DURATM-CPUWAI185)/DURATM; IF CAI185 EQ '.......1'B THEN DO; NEWWAIT=CPUWAI185; CPUWAIT=CPUWAIT+CPUWAI185; MVSWAIT=MVSWAIT+MVSWAI185; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=186 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI186; MVSWAI186=CPUWAI186; CPUPDT186=LCPUPDTM; CPUEDT186=LCPUEDTM; CPUWAI186=DURATM-(LCPUPDTM-CPUWAI186); PCTCPB186=100*(DURATM-CPUWAI186)/DURATM; IF CAI186 EQ '.......1'B THEN DO; NEWWAIT=CPUWAI186; CPUWAIT=CPUWAIT+CPUWAI186; MVSWAIT=MVSWAIT+MVSWAI186; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=187 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI187; MVSWAI187=CPUWAI187; CPUPDT187=LCPUPDTM; CPUEDT187=LCPUEDTM; CPUWAI187=DURATM-(LCPUPDTM-CPUWAI187); PCTCPB187=100*(DURATM-CPUWAI187)/DURATM; IF CAI187 EQ '.......1'B THEN DO; NEWWAIT=CPUWAI187; CPUWAIT=CPUWAIT+CPUWAI187; MVSWAIT=MVSWAIT+MVSWAI187; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=188 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI188; MVSWAI188=CPUWAI188; CPUPDT188=LCPUPDTM; CPUEDT188=LCPUEDTM; CPUWAI188=DURATM-(LCPUPDTM-CPUWAI188); PCTCPB188=100*(DURATM-CPUWAI188)/DURATM; IF CAI188 EQ '.......1'B THEN DO; NEWWAIT=CPUWAI188; CPUWAIT=CPUWAIT+CPUWAI188; MVSWAIT=MVSWAIT+MVSWAI188; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=189 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI189; MVSWAI189=CPUWAI189; CPUPDT189=LCPUPDTM; CPUEDT189=LCPUEDTM; CPUWAI189=DURATM-(LCPUPDTM-CPUWAI189); PCTCPB189=100*(DURATM-CPUWAI189)/DURATM; IF CAI189 EQ '.......1'B THEN DO; NEWWAIT=CPUWAI189; CPUWAIT=CPUWAIT+CPUWAI189; MVSWAIT=MVSWAIT+MVSWAI189; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=190 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI190; MVSWAI190=CPUWAI190; CPUPDT190=LCPUPDTM; CPUEDT190=LCPUEDTM; CPUWAI190=DURATM-(LCPUPDTM-CPUWAI190); PCTCPB190=100*(DURATM-CPUWAI190)/DURATM; IF CAI190 EQ '.......1'B THEN DO; NEWWAIT=CPUWAI190; CPUWAIT=CPUWAIT+CPUWAI190; MVSWAIT=MVSWAIT+MVSWAI190; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=191 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI191; MVSWAI191=CPUWAI191; CPUPDT191=LCPUPDTM; CPUEDT191=LCPUEDTM; CPUWAI191=DURATM-(LCPUPDTM-CPUWAI191); PCTCPB191=100*(DURATM-CPUWAI191)/DURATM; IF CAI191 EQ '.......1'B THEN DO; NEWWAIT=CPUWAI191; CPUWAIT=CPUWAIT+CPUWAI191; MVSWAIT=MVSWAIT+MVSWAI191; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=192 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI192; MVSWAI192=CPUWAI192; CPUPDT192=LCPUPDTM; CPUEDT192=LCPUEDTM; CPUWAI192=DURATM-(LCPUPDTM-CPUWAI192); PCTCPB192=100*(DURATM-CPUWAI192)/DURATM; IF CAI192 EQ '.......1'B THEN DO; NEWWAIT=CPUWAI192; CPUWAIT=CPUWAIT+CPUWAI192; MVSWAIT=MVSWAIT+MVSWAI192; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=193 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI193; MVSWAI193=CPUWAI193; CPUPDT193=LCPUPDTM; CPUEDT193=LCPUEDTM; CPUWAI193=DURATM-(LCPUPDTM-CPUWAI193); PCTCPB193=100*(DURATM-CPUWAI193)/DURATM; IF CAI193 EQ '.......1'B THEN DO; NEWWAIT=CPUWAI193; CPUWAIT=CPUWAIT+CPUWAI193; MVSWAIT=MVSWAIT+MVSWAI193; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=194 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI194; MVSWAI194=CPUWAI194; CPUPDT194=LCPUPDTM; CPUEDT194=LCPUEDTM; CPUWAI194=DURATM-(LCPUPDTM-CPUWAI194); PCTCPB194=100*(DURATM-CPUWAI194)/DURATM; IF CAI194 EQ '.......1'B THEN DO; NEWWAIT=CPUWAI194; CPUWAIT=CPUWAIT+CPUWAI194; MVSWAIT=MVSWAIT+MVSWAI194; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=195 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI195; MVSWAI195=CPUWAI195; CPUPDT195=LCPUPDTM; CPUEDT195=LCPUEDTM; CPUWAI195=DURATM-(LCPUPDTM-CPUWAI195); PCTCPB195=100*(DURATM-CPUWAI195)/DURATM; IF CAI195 EQ '.......1'B THEN DO; NEWWAIT=CPUWAI195; CPUWAIT=CPUWAIT+CPUWAI195; MVSWAIT=MVSWAIT+MVSWAI195; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=196 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI196; MVSWAI196=CPUWAI196; CPUPDT196=LCPUPDTM; CPUEDT196=LCPUEDTM; CPUWAI196=DURATM-(LCPUPDTM-CPUWAI196); PCTCPB196=100*(DURATM-CPUWAI196)/DURATM; IF CAI196 EQ '.......1'B THEN DO; NEWWAIT=CPUWAI196; CPUWAIT=CPUWAIT+CPUWAI196; MVSWAIT=MVSWAIT+MVSWAI196; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=197 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI197; MVSWAI197=CPUWAI197; CPUPDT197=LCPUPDTM; CPUEDT197=LCPUEDTM; CPUWAI197=DURATM-(LCPUPDTM-CPUWAI197); PCTCPB197=100*(DURATM-CPUWAI197)/DURATM; IF CAI197 EQ '.......1'B THEN DO; NEWWAIT=CPUWAI197; CPUWAIT=CPUWAIT+CPUWAI197; MVSWAIT=MVSWAIT+MVSWAI197; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=198 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI198; MVSWAI198=CPUWAI198; CPUPDT198=LCPUPDTM; CPUEDT198=LCPUEDTM; CPUWAI198=DURATM-(LCPUPDTM-CPUWAI198); PCTCPB198=100*(DURATM-CPUWAI198)/DURATM; IF CAI198 EQ '.......1'B THEN DO; NEWWAIT=CPUWAI198; CPUWAIT=CPUWAIT+CPUWAI198; MVSWAIT=MVSWAIT+MVSWAI198; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=199 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI199; MVSWAI199=CPUWAI199; CPUPDT199=LCPUPDTM; CPUEDT199=LCPUEDTM; CPUWAI199=DURATM-(LCPUPDTM-CPUWAI199); PCTCPB199=100*(DURATM-CPUWAI199)/DURATM; IF CAI199 EQ '.......1'B THEN DO; NEWWAIT=CPUWAI199; CPUWAIT=CPUWAIT+CPUWAI199; MVSWAIT=MVSWAIT+MVSWAI199; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=200 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI200; MVSWAI200=CPUWAI200; CPUPDT200=LCPUPDTM; CPUEDT200=LCPUEDTM; CPUWAI200=DURATM-(LCPUPDTM-CPUWAI200); PCTCPB200=100*(DURATM-CPUWAI200)/DURATM; IF CAI200 EQ '.......1'B THEN DO; NEWWAIT=CPUWAI200; CPUWAIT=CPUWAIT+CPUWAI200; MVSWAIT=MVSWAIT+MVSWAI200; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=201 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI201; MVSWAI201=CPUWAI201; CPUPDT201=LCPUPDTM; CPUEDT201=LCPUEDTM; CPUWAI201=DURATM-(LCPUPDTM-CPUWAI201); PCTCPB201=100*(DURATM-CPUWAI201)/DURATM; IF CAI201 EQ '.......1'B THEN DO; NEWWAIT=CPUWAI201; CPUWAIT=CPUWAIT+CPUWAI201; MVSWAIT=MVSWAIT+MVSWAI201; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=202 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI202; MVSWAI202=CPUWAI202; CPUPDT202=LCPUPDTM; CPUEDT202=LCPUEDTM; CPUWAI202=DURATM-(LCPUPDTM-CPUWAI202); PCTCPB202=100*(DURATM-CPUWAI202)/DURATM; IF CAI202 EQ '.......1'B THEN DO; NEWWAIT=CPUWAI202; CPUWAIT=CPUWAIT+CPUWAI202; MVSWAIT=MVSWAIT+MVSWAI202; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=203 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI203; MVSWAI203=CPUWAI203; CPUPDT203=LCPUPDTM; CPUEDT203=LCPUEDTM; CPUWAI203=DURATM-(LCPUPDTM-CPUWAI203); PCTCPB203=100*(DURATM-CPUWAI203)/DURATM; IF CAI203 EQ '.......1'B THEN DO; NEWWAIT=CPUWAI203; CPUWAIT=CPUWAIT+CPUWAI203; MVSWAIT=MVSWAIT+MVSWAI203; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=204 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI204; MVSWAI204=CPUWAI204; CPUPDT204=LCPUPDTM; CPUEDT204=LCPUEDTM; CPUWAI204=DURATM-(LCPUPDTM-CPUWAI204); PCTCPB204=100*(DURATM-CPUWAI204)/DURATM; IF CAI204 EQ '.......1'B THEN DO; NEWWAIT=CPUWAI204; CPUWAIT=CPUWAIT+CPUWAI204; MVSWAIT=MVSWAIT+MVSWAI204; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=205 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI205; MVSWAI205=CPUWAI205; CPUPDT205=LCPUPDTM; CPUEDT205=LCPUEDTM; CPUWAI205=DURATM-(LCPUPDTM-CPUWAI205); PCTCPB205=100*(DURATM-CPUWAI205)/DURATM; IF CAI205 EQ '.......1'B THEN DO; NEWWAIT=CPUWAI205; CPUWAIT=CPUWAIT+CPUWAI205; MVSWAIT=MVSWAIT+MVSWAI205; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=206 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI206; MVSWAI206=CPUWAI206; CPUPDT206=LCPUPDTM; CPUEDT206=LCPUEDTM; CPUWAI206=DURATM-(LCPUPDTM-CPUWAI206); PCTCPB206=100*(DURATM-CPUWAI206)/DURATM; IF CAI206 EQ '.......1'B THEN DO; NEWWAIT=CPUWAI206; CPUWAIT=CPUWAIT+CPUWAI206; MVSWAIT=MVSWAIT+MVSWAI206; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=207 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI207; MVSWAI207=CPUWAI207; CPUPDT207=LCPUPDTM; CPUEDT207=LCPUEDTM; CPUWAI207=DURATM-(LCPUPDTM-CPUWAI207); PCTCPB207=100*(DURATM-CPUWAI207)/DURATM; IF CAI207 EQ '.......1'B THEN DO; NEWWAIT=CPUWAI207; CPUWAIT=CPUWAIT+CPUWAI207; MVSWAIT=MVSWAIT+MVSWAI207; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=208 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI208; MVSWAI208=CPUWAI208; CPUPDT208=LCPUPDTM; CPUEDT208=LCPUEDTM; CPUWAI208=DURATM-(LCPUPDTM-CPUWAI208); PCTCPB208=100*(DURATM-CPUWAI208)/DURATM; IF CAI208 EQ '.......1'B THEN DO; NEWWAIT=CPUWAI208; CPUWAIT=CPUWAIT+CPUWAI208; MVSWAIT=MVSWAIT+MVSWAI208; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=209 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI209; MVSWAI209=CPUWAI209; CPUPDT209=LCPUPDTM; CPUEDT209=LCPUEDTM; CPUWAI209=DURATM-(LCPUPDTM-CPUWAI209); PCTCPB209=100*(DURATM-CPUWAI209)/DURATM; IF CAI209 EQ '.......1'B THEN DO; NEWWAIT=CPUWAI209; CPUWAIT=CPUWAIT+CPUWAI209; MVSWAIT=MVSWAIT+MVSWAI209; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=210 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI210; MVSWAI210=CPUWAI210; CPUPDT210=LCPUPDTM; CPUEDT210=LCPUEDTM; CPUWAI210=DURATM-(LCPUPDTM-CPUWAI210); PCTCPB210=100*(DURATM-CPUWAI210)/DURATM; IF CAI210 EQ '.......1'B THEN DO; NEWWAIT=CPUWAI210; CPUWAIT=CPUWAIT+CPUWAI210; MVSWAIT=MVSWAIT+MVSWAI210; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=211 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI211; MVSWAI211=CPUWAI211; CPUPDT211=LCPUPDTM; CPUEDT211=LCPUEDTM; CPUWAI211=DURATM-(LCPUPDTM-CPUWAI211); PCTCPB211=100*(DURATM-CPUWAI211)/DURATM; IF CAI211 EQ '.......1'B THEN DO; NEWWAIT=CPUWAI211; CPUWAIT=CPUWAIT+CPUWAI211; MVSWAIT=MVSWAIT+MVSWAI211; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=212 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI212; MVSWAI212=CPUWAI212; CPUPDT212=LCPUPDTM; CPUEDT212=LCPUEDTM; CPUWAI212=DURATM-(LCPUPDTM-CPUWAI212); PCTCPB212=100*(DURATM-CPUWAI212)/DURATM; IF CAI212 EQ '.......1'B THEN DO; NEWWAIT=CPUWAI212; CPUWAIT=CPUWAIT+CPUWAI212; MVSWAIT=MVSWAIT+MVSWAI212; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=213 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI213; MVSWAI213=CPUWAI213; CPUPDT213=LCPUPDTM; CPUEDT213=LCPUEDTM; CPUWAI213=DURATM-(LCPUPDTM-CPUWAI213); PCTCPB213=100*(DURATM-CPUWAI213)/DURATM; IF CAI213 EQ '.......1'B THEN DO; NEWWAIT=CPUWAI213; CPUWAIT=CPUWAIT+CPUWAI213; MVSWAIT=MVSWAIT+MVSWAI213; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=214 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI214; MVSWAI214=CPUWAI214; CPUPDT214=LCPUPDTM; CPUEDT214=LCPUEDTM; CPUWAI214=DURATM-(LCPUPDTM-CPUWAI214); PCTCPB214=100*(DURATM-CPUWAI214)/DURATM; IF CAI214 EQ '.......1'B THEN DO; NEWWAIT=CPUWAI214; CPUWAIT=CPUWAIT+CPUWAI214; MVSWAIT=MVSWAIT+MVSWAI214; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=215 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI215; MVSWAI215=CPUWAI215; CPUPDT215=LCPUPDTM; CPUEDT215=LCPUEDTM; CPUWAI215=DURATM-(LCPUPDTM-CPUWAI215); PCTCPB215=100*(DURATM-CPUWAI215)/DURATM; IF CAI215 EQ '.......1'B THEN DO; NEWWAIT=CPUWAI215; CPUWAIT=CPUWAIT+CPUWAI215; MVSWAIT=MVSWAIT+MVSWAI215; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=216 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI216; MVSWAI216=CPUWAI216; CPUPDT216=LCPUPDTM; CPUEDT216=LCPUEDTM; CPUWAI216=DURATM-(LCPUPDTM-CPUWAI216); PCTCPB216=100*(DURATM-CPUWAI216)/DURATM; IF CAI216 EQ '.......1'B THEN DO; NEWWAIT=CPUWAI216; CPUWAIT=CPUWAIT+CPUWAI216; MVSWAIT=MVSWAIT+MVSWAI216; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=217 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI217; MVSWAI217=CPUWAI217; CPUPDT217=LCPUPDTM; CPUEDT217=LCPUEDTM; CPUWAI217=DURATM-(LCPUPDTM-CPUWAI217); PCTCPB217=100*(DURATM-CPUWAI217)/DURATM; IF CAI217 EQ '.......1'B THEN DO; NEWWAIT=CPUWAI217; CPUWAIT=CPUWAIT+CPUWAI217; MVSWAIT=MVSWAIT+MVSWAI217; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=218 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI218; MVSWAI218=CPUWAI218; CPUPDT218=LCPUPDTM; CPUEDT218=LCPUEDTM; CPUWAI218=DURATM-(LCPUPDTM-CPUWAI218); PCTCPB218=100*(DURATM-CPUWAI218)/DURATM; IF CAI218 EQ '.......1'B THEN DO; NEWWAIT=CPUWAI218; CPUWAIT=CPUWAIT+CPUWAI218; MVSWAIT=MVSWAIT+MVSWAI218; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=219 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI219; MVSWAI219=CPUWAI219; CPUPDT219=LCPUPDTM; CPUEDT219=LCPUEDTM; CPUWAI219=DURATM-(LCPUPDTM-CPUWAI219); PCTCPB219=100*(DURATM-CPUWAI219)/DURATM; IF CAI219 EQ '.......1'B THEN DO; NEWWAIT=CPUWAI219; CPUWAIT=CPUWAIT+CPUWAI219; MVSWAIT=MVSWAIT+MVSWAI219; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=220 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI220; MVSWAI220=CPUWAI220; CPUPDT220=LCPUPDTM; CPUEDT220=LCPUEDTM; CPUWAI220=DURATM-(LCPUPDTM-CPUWAI220); PCTCPB220=100*(DURATM-CPUWAI220)/DURATM; IF CAI220 EQ '.......1'B THEN DO; NEWWAIT=CPUWAI220; CPUWAIT=CPUWAIT+CPUWAI220; MVSWAIT=MVSWAIT+MVSWAI220; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=221 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI221; MVSWAI221=CPUWAI221; CPUPDT221=LCPUPDTM; CPUEDT221=LCPUEDTM; CPUWAI221=DURATM-(LCPUPDTM-CPUWAI221); PCTCPB221=100*(DURATM-CPUWAI221)/DURATM; IF CAI221 EQ '.......1'B THEN DO; NEWWAIT=CPUWAI221; CPUWAIT=CPUWAIT+CPUWAI221; MVSWAIT=MVSWAIT+MVSWAI221; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=222 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI222; MVSWAI222=CPUWAI222; CPUPDT222=LCPUPDTM; CPUEDT222=LCPUEDTM; CPUWAI222=DURATM-(LCPUPDTM-CPUWAI222); PCTCPB222=100*(DURATM-CPUWAI222)/DURATM; IF CAI222 EQ '.......1'B THEN DO; NEWWAIT=CPUWAI222; CPUWAIT=CPUWAIT+CPUWAI222; MVSWAIT=MVSWAIT+MVSWAI222; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=223 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI223; MVSWAI223=CPUWAI223; CPUPDT223=LCPUPDTM; CPUEDT223=LCPUEDTM; CPUWAI223=DURATM-(LCPUPDTM-CPUWAI223); PCTCPB223=100*(DURATM-CPUWAI223)/DURATM; IF CAI223 EQ '.......1'B THEN DO; NEWWAIT=CPUWAI223; CPUWAIT=CPUWAIT+CPUWAI223; MVSWAIT=MVSWAIT+MVSWAI223; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=224 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI224; MVSWAI224=CPUWAI224; CPUPDT224=LCPUPDTM; CPUEDT224=LCPUEDTM; CPUWAI224=DURATM-(LCPUPDTM-CPUWAI224); PCTCPB224=100*(DURATM-CPUWAI224)/DURATM; IF CAI224 EQ '.......1'B THEN DO; NEWWAIT=CPUWAI224; CPUWAIT=CPUWAIT+CPUWAI224; MVSWAIT=MVSWAIT+MVSWAI224; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=225 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI225; MVSWAI225=CPUWAI225; CPUPDT225=LCPUPDTM; CPUEDT225=LCPUEDTM; CPUWAI225=DURATM-(LCPUPDTM-CPUWAI225); PCTCPB225=100*(DURATM-CPUWAI225)/DURATM; IF CAI225 EQ '.......1'B THEN DO; NEWWAIT=CPUWAI225; CPUWAIT=CPUWAIT+CPUWAI225; MVSWAIT=MVSWAIT+MVSWAI225; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=226 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI226; MVSWAI226=CPUWAI226; CPUPDT226=LCPUPDTM; CPUEDT226=LCPUEDTM; CPUWAI226=DURATM-(LCPUPDTM-CPUWAI226); PCTCPB226=100*(DURATM-CPUWAI226)/DURATM; IF CAI226 EQ '.......1'B THEN DO; NEWWAIT=CPUWAI226; CPUWAIT=CPUWAIT+CPUWAI226; MVSWAIT=MVSWAIT+MVSWAI226; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=227 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI227; MVSWAI227=CPUWAI227; CPUPDT227=LCPUPDTM; CPUEDT227=LCPUEDTM; CPUWAI227=DURATM-(LCPUPDTM-CPUWAI227); PCTCPB227=100*(DURATM-CPUWAI227)/DURATM; IF CAI227 EQ '.......1'B THEN DO; NEWWAIT=CPUWAI227; CPUWAIT=CPUWAIT+CPUWAI227; MVSWAIT=MVSWAIT+MVSWAI227; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=228 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI228; MVSWAI228=CPUWAI228; CPUPDT228=LCPUPDTM; CPUEDT228=LCPUEDTM; CPUWAI228=DURATM-(LCPUPDTM-CPUWAI228); PCTCPB228=100*(DURATM-CPUWAI228)/DURATM; IF CAI228 EQ '.......1'B THEN DO; NEWWAIT=CPUWAI228; CPUWAIT=CPUWAIT+CPUWAI228; MVSWAIT=MVSWAIT+MVSWAI228; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=229 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI229; MVSWAI229=CPUWAI229; CPUPDT229=LCPUPDTM; CPUEDT229=LCPUEDTM; CPUWAI229=DURATM-(LCPUPDTM-CPUWAI229); PCTCPB229=100*(DURATM-CPUWAI229)/DURATM; IF CAI229 EQ '.......1'B THEN DO; NEWWAIT=CPUWAI229; CPUWAIT=CPUWAIT+CPUWAI229; MVSWAIT=MVSWAIT+MVSWAI229; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=230 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI230; MVSWAI230=CPUWAI230; CPUPDT230=LCPUPDTM; CPUEDT230=LCPUEDTM; CPUWAI230=DURATM-(LCPUPDTM-CPUWAI230); PCTCPB230=100*(DURATM-CPUWAI230)/DURATM; IF CAI230 EQ '.......1'B THEN DO; NEWWAIT=CPUWAI230; CPUWAIT=CPUWAIT+CPUWAI230; MVSWAIT=MVSWAIT+MVSWAI230; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=231 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI231; MVSWAI231=CPUWAI231; CPUPDT231=LCPUPDTM; CPUEDT231=LCPUEDTM; CPUWAI231=DURATM-(LCPUPDTM-CPUWAI231); PCTCPB231=100*(DURATM-CPUWAI231)/DURATM; IF CAI231 EQ '.......1'B THEN DO; NEWWAIT=CPUWAI231; CPUWAIT=CPUWAIT+CPUWAI231; MVSWAIT=MVSWAIT+MVSWAI231; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=232 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI232; MVSWAI232=CPUWAI232; CPUPDT232=LCPUPDTM; CPUEDT232=LCPUEDTM; CPUWAI232=DURATM-(LCPUPDTM-CPUWAI232); PCTCPB232=100*(DURATM-CPUWAI232)/DURATM; IF CAI232 EQ '.......1'B THEN DO; NEWWAIT=CPUWAI232; CPUWAIT=CPUWAIT+CPUWAI232; MVSWAIT=MVSWAIT+MVSWAI232; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=233 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI233; MVSWAI233=CPUWAI233; CPUPDT233=LCPUPDTM; CPUEDT233=LCPUEDTM; CPUWAI233=DURATM-(LCPUPDTM-CPUWAI233); PCTCPB233=100*(DURATM-CPUWAI233)/DURATM; IF CAI233 EQ '.......1'B THEN DO; NEWWAIT=CPUWAI233; CPUWAIT=CPUWAIT+CPUWAI233; MVSWAIT=MVSWAIT+MVSWAI233; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=234 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI234; MVSWAI234=CPUWAI234; CPUPDT234=LCPUPDTM; CPUEDT234=LCPUEDTM; CPUWAI234=DURATM-(LCPUPDTM-CPUWAI234); PCTCPB234=100*(DURATM-CPUWAI234)/DURATM; IF CAI234 EQ '.......1'B THEN DO; NEWWAIT=CPUWAI234; CPUWAIT=CPUWAIT+CPUWAI234; MVSWAIT=MVSWAIT+MVSWAI234; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=235 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI235; MVSWAI235=CPUWAI235; CPUPDT235=LCPUPDTM; CPUEDT235=LCPUEDTM; CPUWAI235=DURATM-(LCPUPDTM-CPUWAI235); PCTCPB235=100*(DURATM-CPUWAI235)/DURATM; IF CAI235 EQ '.......1'B THEN DO; NEWWAIT=CPUWAI235; CPUWAIT=CPUWAIT+CPUWAI235; MVSWAIT=MVSWAIT+MVSWAI235; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=236 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI236; MVSWAI236=CPUWAI236; CPUPDT236=LCPUPDTM; CPUEDT236=LCPUEDTM; CPUWAI236=DURATM-(LCPUPDTM-CPUWAI236); PCTCPB236=100*(DURATM-CPUWAI236)/DURATM; IF CAI236 EQ '.......1'B THEN DO; NEWWAIT=CPUWAI236; CPUWAIT=CPUWAIT+CPUWAI236; MVSWAIT=MVSWAIT+MVSWAI236; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=237 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI237; MVSWAI237=CPUWAI237; CPUPDT237=LCPUPDTM; CPUEDT237=LCPUEDTM; CPUWAI237=DURATM-(LCPUPDTM-CPUWAI237); PCTCPB237=100*(DURATM-CPUWAI237)/DURATM; IF CAI237 EQ '.......1'B THEN DO; NEWWAIT=CPUWAI237; CPUWAIT=CPUWAIT+CPUWAI237; MVSWAIT=MVSWAIT+MVSWAI237; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=238 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI238; MVSWAI238=CPUWAI238; CPUPDT238=LCPUPDTM; CPUEDT238=LCPUEDTM; CPUWAI238=DURATM-(LCPUPDTM-CPUWAI238); PCTCPB238=100*(DURATM-CPUWAI238)/DURATM; IF CAI238 EQ '.......1'B THEN DO; NEWWAIT=CPUWAI238; CPUWAIT=CPUWAIT+CPUWAI238; MVSWAIT=MVSWAIT+MVSWAI238; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=239 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI239; MVSWAI239=CPUWAI239; CPUPDT239=LCPUPDTM; CPUEDT239=LCPUEDTM; CPUWAI239=DURATM-(LCPUPDTM-CPUWAI239); PCTCPB239=100*(DURATM-CPUWAI239)/DURATM; IF CAI239 EQ '.......1'B THEN DO; NEWWAIT=CPUWAI239; CPUWAIT=CPUWAIT+CPUWAI239; MVSWAIT=MVSWAIT+MVSWAI239; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=240 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI240; MVSWAI240=CPUWAI240; CPUPDT240=LCPUPDTM; CPUEDT240=LCPUEDTM; CPUWAI240=DURATM-(LCPUPDTM-CPUWAI240); PCTCPB240=100*(DURATM-CPUWAI240)/DURATM; IF CAI240 EQ '.......1'B THEN DO; NEWWAIT=CPUWAI240; CPUWAIT=CPUWAIT+CPUWAI240; MVSWAIT=MVSWAIT+MVSWAI240; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=241 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI241; MVSWAI241=CPUWAI241; CPUPDT241=LCPUPDTM; CPUEDT241=LCPUEDTM; CPUWAI241=DURATM-(LCPUPDTM-CPUWAI241); PCTCPB241=100*(DURATM-CPUWAI241)/DURATM; IF CAI241 EQ '.......1'B THEN DO; NEWWAIT=CPUWAI241; CPUWAIT=CPUWAIT+CPUWAI241; MVSWAIT=MVSWAIT+MVSWAI241; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=242 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI242; MVSWAI242=CPUWAI242; CPUPDT242=LCPUPDTM; CPUEDT242=LCPUEDTM; CPUWAI242=DURATM-(LCPUPDTM-CPUWAI242); PCTCPB242=100*(DURATM-CPUWAI242)/DURATM; IF CAI242 EQ '.......1'B THEN DO; NEWWAIT=CPUWAI242; CPUWAIT=CPUWAIT+CPUWAI242; MVSWAIT=MVSWAIT+MVSWAI242; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=243 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI243; MVSWAI243=CPUWAI243; CPUPDT243=LCPUPDTM; CPUEDT243=LCPUEDTM; CPUWAI243=DURATM-(LCPUPDTM-CPUWAI243); PCTCPB243=100*(DURATM-CPUWAI243)/DURATM; IF CAI243 EQ '.......1'B THEN DO; NEWWAIT=CPUWAI243; CPUWAIT=CPUWAIT+CPUWAI243; MVSWAIT=MVSWAIT+MVSWAI243; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=244 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI244; MVSWAI244=CPUWAI244; CPUPDT244=LCPUPDTM; CPUEDT244=LCPUEDTM; CPUWAI244=DURATM-(LCPUPDTM-CPUWAI244); PCTCPB244=100*(DURATM-CPUWAI244)/DURATM; IF CAI244 EQ '.......1'B THEN DO; NEWWAIT=CPUWAI244; CPUWAIT=CPUWAIT+CPUWAI244; MVSWAIT=MVSWAIT+MVSWAI244; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=245 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI245; MVSWAI245=CPUWAI245; CPUPDT245=LCPUPDTM; CPUEDT245=LCPUEDTM; CPUWAI245=DURATM-(LCPUPDTM-CPUWAI245); PCTCPB245=100*(DURATM-CPUWAI245)/DURATM; IF CAI245 EQ '.......1'B THEN DO; NEWWAIT=CPUWAI245; CPUWAIT=CPUWAIT+CPUWAI245; MVSWAIT=MVSWAIT+MVSWAI245; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=246 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI246; MVSWAI246=CPUWAI246; CPUPDT246=LCPUPDTM; CPUEDT246=LCPUEDTM; CPUWAI246=DURATM-(LCPUPDTM-CPUWAI246); PCTCPB246=100*(DURATM-CPUWAI246)/DURATM; IF CAI246 EQ '.......1'B THEN DO; NEWWAIT=CPUWAI246; CPUWAIT=CPUWAIT+CPUWAI246; MVSWAIT=MVSWAIT+MVSWAI246; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=247 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI247; MVSWAI247=CPUWAI247; CPUPDT247=LCPUPDTM; CPUEDT247=LCPUEDTM; CPUWAI247=DURATM-(LCPUPDTM-CPUWAI247); PCTCPB247=100*(DURATM-CPUWAI247)/DURATM; IF CAI247 EQ '.......1'B THEN DO; NEWWAIT=CPUWAI247; CPUWAIT=CPUWAIT+CPUWAI247; MVSWAIT=MVSWAIT+MVSWAI247; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=248 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI248; MVSWAI248=CPUWAI248; CPUPDT248=LCPUPDTM; CPUEDT248=LCPUEDTM; CPUWAI248=DURATM-(LCPUPDTM-CPUWAI248); PCTCPB248=100*(DURATM-CPUWAI248)/DURATM; IF CAI248 EQ '.......1'B THEN DO; NEWWAIT=CPUWAI248; CPUWAIT=CPUWAIT+CPUWAI248; MVSWAIT=MVSWAIT+MVSWAI248; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=249 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI249; MVSWAI249=CPUWAI249; CPUPDT249=LCPUPDTM; CPUEDT249=LCPUEDTM; CPUWAI249=DURATM-(LCPUPDTM-CPUWAI249); PCTCPB249=100*(DURATM-CPUWAI249)/DURATM; IF CAI249 EQ '.......1'B THEN DO; NEWWAIT=CPUWAI249; CPUWAIT=CPUWAIT+CPUWAI249; MVSWAIT=MVSWAIT+MVSWAI249; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=250 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI250; MVSWAI250=CPUWAI250; CPUPDT250=LCPUPDTM; CPUEDT250=LCPUEDTM; CPUWAI250=DURATM-(LCPUPDTM-CPUWAI250); PCTCPB250=100*(DURATM-CPUWAI250)/DURATM; IF CAI250 EQ '.......1'B THEN DO; NEWWAIT=CPUWAI250; CPUWAIT=CPUWAIT+CPUWAI250; MVSWAIT=MVSWAIT+MVSWAI250; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=251 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI251; MVSWAI251=CPUWAI251; CPUPDT251=LCPUPDTM; CPUEDT251=LCPUEDTM; CPUWAI251=DURATM-(LCPUPDTM-CPUWAI251); PCTCPB251=100*(DURATM-CPUWAI251)/DURATM; IF CAI251 EQ '.......1'B THEN DO; NEWWAIT=CPUWAI251; CPUWAIT=CPUWAIT+CPUWAI251; MVSWAIT=MVSWAIT+MVSWAI251; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=252 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI252; MVSWAI252=CPUWAI252; CPUPDT252=LCPUPDTM; CPUEDT252=LCPUEDTM; CPUWAI252=DURATM-(LCPUPDTM-CPUWAI252); PCTCPB252=100*(DURATM-CPUWAI252)/DURATM; IF CAI252 EQ '.......1'B THEN DO; NEWWAIT=CPUWAI252; CPUWAIT=CPUWAIT+CPUWAI252; MVSWAIT=MVSWAIT+MVSWAI252; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=253 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI253; MVSWAI253=CPUWAI253; CPUPDT253=LCPUPDTM; CPUEDT253=LCPUEDTM; CPUWAI253=DURATM-(LCPUPDTM-CPUWAI253); PCTCPB253=100*(DURATM-CPUWAI253)/DURATM; IF CAI253 EQ '.......1'B THEN DO; NEWWAIT=CPUWAI253; CPUWAIT=CPUWAIT+CPUWAI253; MVSWAIT=MVSWAIT+MVSWAI253; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=254 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI254; MVSWAI254=CPUWAI254; CPUPDT254=LCPUPDTM; CPUEDT254=LCPUEDTM; CPUWAI254=DURATM-(LCPUPDTM-CPUWAI254); PCTCPB254=100*(DURATM-CPUWAI254)/DURATM; IF CAI254 EQ '.......1'B THEN DO; NEWWAIT=CPUWAI254; CPUWAIT=CPUWAIT+CPUWAI254; MVSWAIT=MVSWAIT+MVSWAI254; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=255 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI255; MVSWAI255=CPUWAI255; CPUPDT255=LCPUPDTM; CPUEDT255=LCPUEDTM; CPUWAI255=DURATM-(LCPUPDTM-CPUWAI255); PCTCPB255=100*(DURATM-CPUWAI255)/DURATM; IF CAI255 EQ '.......1'B THEN DO; NEWWAIT=CPUWAI255; CPUWAIT=CPUWAIT+CPUWAI255; MVSWAIT=MVSWAIT+MVSWAI255; CPUEFF =CPUEFF +LCPUEDTM; END; END; END; ELSE DO; /*SHARED PARTITION,WAIT=NO - NORMAL PATH*ZZZZ FOUR*/ SMF70PAT=CPUPAT(LCPUADDR+1); IF SMF70PAT GT SMF70ONT AND SMF70ONT GT 0 THEN DO; DIFFPATONT=SMF70PAT-SMF70ONT; /* DONT PRINT WARNING, APRIL 2013. CHANGE 30.233: IF DIFFPATONT GT 1 THEN DO; NRPATGTONT+1; IF NRPATGTONT EQ 1 THEN DO; %%MXLOGPUT(MESSAGE=MXGWARN::VMAC7072.012); &MXPUT // '***WARNING. SMF70PAT GT ONT ' _N_= DIFFPATONT= LPARNAME= LCPUADDR= SMF70CIN= SMF70PAT= SMF70ONT= DURATM= LCPUPDTM=/; %%MXLOGEND; PUT // '***WARNING. SMF70PAT GT ONT ' _N_= DIFFPATONT= LPARNAME= LCPUADDR= SMF70CIN= SMF70PAT= SMF70ONT= DURATM= LCPUPDTM=/; END; END; END OF COMMENTED OUT. CHANGE 30.233 */ SMF70PAT=SMF70ONT; CPUPAT(LCPUADDR+1)=SMF70PAT; END; IF SMF70ONT GT 0 AND SMF70PAT GT 0 THEN DO; CPUWAITM=SMF70ONT-LCPUPDTM-SMF70PAT; IF CPUWAITM LT -1.0 THEN DO; NNEGCPUWAITM+1; IF NNEGCPUWAITM EQ 1 THEN DO; %%MXLOGPUT(MESSAGE=MXGWARN::VMAC7072.013); &MXPUT // '***WARNING> NEG WAIT GT 1 SECOND ' _N_= STARTIME= LPARNAME= LCPUADDR= CPUWAITM= @; %%MXLOGEND; PUT // '***WARNING> NEG WAIT GT 1 SECOND ' _N_= STARTIME= LPARNAME= LCPUADDR= CPUWAITM= @; END; CPUWAITM=DURATM-LCPUPDTM; IF NNEGCPUWAITM LE 5 THEN PUT CPUWAITM= SMF70ONT= SMF70PAT= LCPUPDTM= SMF70CIN= DIFFPATONT= DURATM=/; END; END; ELSE IF SMF70ONT GT 0 THEN DO; CPUWAITM=SMF70ONT-LCPUPDTM; END; ELSE IF SMF70ONT=0 THEN CPUWAITM=0; ELSE CPUWAITM=DURATM-LCPUPDTM; IF SMF70ONT LE 0 THEN PCTCPUBY=100*LCPUPDTM/DURATM; ELSE PCTCPUBY=100*LCPUPDTM/SMF70ONT; IF DURATM GT 0 THEN TEMPONLN=100*(SMF70ONT/DURATM); ELSE TEMPONLN=0; IF TEMPONLN GT 100 THEN TEMPONLN=100; NEWWAIT=CPUWAITM; IF _XANT THEN PUTLOG 'TYPE70EL DEBUG ' _N_= STARTIME= LCPUADDR= NEWWAIT= CPUWAITM= CPUUPTM= SMF70ONT= LCPUPDTM= SMF70PAT= SMT_CORE_ID= J=; IF SYSNAME=SMF70STN AND LPARNAME NE 'PHYSICAL' AND SMF70ONT GT 0 AND SMF70CIN NE 'IFL' THEN DO; IMERGE=J; _ETY70EL;/*INC SOURCLIB(EXTY70EL);_WTY70EL OUTPUTS TYPE70EL*/ END; IF LCPUADDR=0 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAIT0; MVSWAIT0=CPUWAIT0; CPUPDTM0=LCPUPDTM; CPUEDTM0=LCPUEDTM; CPUWAIT0=CPUWAITM; PCTCPBY0=PCTCPUBY; PCTONLN0=TEMPONLN; IF CAI0 EQ '.......1'B OR SMF70ONT GT 0 THEN DO; CPUWAIT=CPUWAIT+CPUWAIT0; MVSWAIT=MVSWAIT+MVSWAIT0; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=1 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAIT1; MVSWAIT1=CPUWAIT1; CPUPDTM1=LCPUPDTM; CPUEDTM1=LCPUEDTM; CPUWAIT1=CPUWAITM; PCTCPBY1=PCTCPUBY; PCTONLN1=TEMPONLN; IF CAI1 EQ '.......1'B OR SMF70ONT GT 0 THEN DO; CPUWAIT=CPUWAIT+CPUWAIT1; MVSWAIT=MVSWAIT+MVSWAIT1; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=2 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAIT2; MVSWAIT2=CPUWAIT2; CPUPDTM2=LCPUPDTM; CPUEDTM2=LCPUEDTM; CPUWAIT2=CPUWAITM; PCTCPBY2=PCTCPUBY; PCTONLN2=TEMPONLN; IF CAI2 EQ '.......1'B OR SMF70ONT GT 0 THEN DO; CPUWAIT=CPUWAIT+CPUWAIT2; MVSWAIT=MVSWAIT+MVSWAIT2; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=3 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAIT3; MVSWAIT3=CPUWAIT3; CPUPDTM3=LCPUPDTM; CPUEDTM3=LCPUEDTM; CPUWAIT3=CPUWAITM; PCTCPBY3=PCTCPUBY; PCTONLN3=TEMPONLN; IF CAI3 EQ '.......1'B OR SMF70ONT GT 0 THEN DO; CPUWAIT=CPUWAIT+CPUWAIT3; MVSWAIT=MVSWAIT+MVSWAIT3; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=4 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAIT4; MVSWAIT4=CPUWAIT4; CPUPDTM4=LCPUPDTM; CPUEDTM4=LCPUEDTM; CPUWAIT4=CPUWAITM; PCTCPBY4=PCTCPUBY; PCTONLN4=TEMPONLN; IF CAI4 EQ '.......1'B OR SMF70ONT GT 0 THEN DO; CPUWAIT=CPUWAIT+CPUWAIT4; MVSWAIT=MVSWAIT+MVSWAIT4; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=5 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAIT5; MVSWAIT5=CPUWAIT5; CPUPDTM5=LCPUPDTM; CPUEDTM5=LCPUEDTM; CPUWAIT5=CPUWAITM; PCTCPBY5=PCTCPUBY; PCTONLN5=TEMPONLN; IF CAI5 EQ '.......1'B OR SMF70ONT GT 0 THEN DO; CPUWAIT=CPUWAIT+CPUWAIT5; MVSWAIT=MVSWAIT+MVSWAIT5; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=6 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAIT6; MVSWAIT6=CPUWAIT6; CPUPDTM6=LCPUPDTM; CPUEDTM6=LCPUEDTM; CPUWAIT6=CPUWAITM; PCTCPBY6=PCTCPUBY; PCTONLN6=TEMPONLN; IF CAI6 EQ '.......1'B OR SMF70ONT GT 0 THEN DO; CPUWAIT=CPUWAIT+CPUWAIT6; MVSWAIT=MVSWAIT+MVSWAIT6; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=7 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAIT7; MVSWAIT7=CPUWAIT7; CPUPDTM7=LCPUPDTM; CPUEDTM7=LCPUEDTM; CPUWAIT7=CPUWAITM; PCTCPBY7=PCTCPUBY; PCTONLN7=TEMPONLN; IF CAI7 EQ '.......1'B OR SMF70ONT GT 0 THEN DO; CPUWAIT=CPUWAIT+CPUWAIT7; MVSWAIT=MVSWAIT+MVSWAIT7; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=8 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAIT8; MVSWAIT8=CPUWAIT8; CPUPDTM8=LCPUPDTM; CPUEDTM8=LCPUEDTM; CPUWAIT8=CPUWAITM; PCTCPBY8=PCTCPUBY; PCTONLN8=TEMPONLN; IF CAI8 EQ '.......1'B OR SMF70ONT GT 0 THEN DO; CPUWAIT=CPUWAIT+CPUWAIT8; MVSWAIT=MVSWAIT+MVSWAIT8; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=9 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAIT9; MVSWAIT9=CPUWAIT9; CPUPDTM9=LCPUPDTM; CPUEDTM9=LCPUEDTM; CPUWAIT9=CPUWAITM; PCTCPBY9=PCTCPUBY; PCTONLN9=TEMPONLN; IF CAI9 EQ '.......1'B OR SMF70ONT GT 0 THEN DO; CPUWAIT=CPUWAIT+CPUWAIT9; MVSWAIT=MVSWAIT+MVSWAIT9; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=10 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAITA; MVSWAITA=CPUWAITA; CPUPDTMA=LCPUPDTM; CPUEDTMA=LCPUEDTM; CPUWAITA=CPUWAITM; PCTCPBYA=PCTCPUBY; PCTONLNA=TEMPONLN; IF CAIA EQ '.......1'B OR SMF70ONT GT 0 THEN DO; CPUWAIT=CPUWAIT+CPUWAITA; MVSWAIT=MVSWAIT+MVSWAITA; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=11 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAITB; MVSWAITB=CPUWAITB; CPUPDTMB=LCPUPDTM; CPUEDTMB=LCPUEDTM; CPUWAITB=CPUWAITM; PCTCPBYB=PCTCPUBY; PCTONLNB=TEMPONLN; IF CAIB EQ '.......1'B OR SMF70ONT GT 0 THEN DO; CPUWAIT=CPUWAIT+CPUWAITB; MVSWAIT=MVSWAIT+MVSWAITB; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=12 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAITC; MVSWAITC=CPUWAITC; CPUPDTMC=LCPUPDTM; CPUEDTMC=LCPUEDTM; CPUWAITC=CPUWAITM; PCTCPBYC=PCTCPUBY; PCTONLNC=TEMPONLN; IF CAIC EQ '.......1'B OR SMF70ONT GT 0 THEN DO; CPUWAIT=CPUWAIT+CPUWAITC; MVSWAIT=MVSWAIT+MVSWAITC; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=13 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAITD; MVSWAITD=CPUWAITD; CPUPDTMD=LCPUPDTM; CPUEDTMD=LCPUEDTM; CPUWAITD=CPUWAITM; PCTCPBYD=PCTCPUBY; PCTONLND=TEMPONLN; IF CAID EQ '.......1'B OR SMF70ONT GT 0 THEN DO; CPUWAIT=CPUWAIT+CPUWAITD; MVSWAIT=MVSWAIT+MVSWAITD; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=14 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAITE; MVSWAITE=CPUWAITE; CPUPDTME=LCPUPDTM; CPUEDTME=LCPUEDTM; CPUWAITE=CPUWAITM; PCTCPBYE=PCTCPUBY; PCTONLNE=TEMPONLN; IF CAIE EQ '.......1'B OR SMF70ONT GT 0 THEN DO; CPUWAIT=CPUWAIT+CPUWAITE; MVSWAIT=MVSWAIT+MVSWAITE; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=15 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAITF; MVSWAITF=CPUWAITF; CPUPDTMF=LCPUPDTM; CPUEDTMF=LCPUEDTM; CPUWAITF=CPUWAITM; PCTCPBYF=PCTCPUBY; PCTONLNF=TEMPONLN; IF CAIF EQ '.......1'B OR SMF70ONT GT 0 THEN DO; CPUWAIT=CPUWAIT+CPUWAITF; MVSWAIT=MVSWAIT+MVSWAITF; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=16 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAITG; MVSWAITG=CPUWAITG; CPUPDTMG=LCPUPDTM; CPUEDTMG=LCPUEDTM; CPUWAITG=CPUWAITM; PCTCPBYG=PCTCPUBY; PCTONLNG=TEMPONLN; IF CAIG EQ '.......1'B OR SMF70ONT GT 0 THEN DO; CPUWAIT=CPUWAIT+CPUWAITG; MVSWAIT=MVSWAIT+MVSWAITG; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=17 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAITH; MVSWAITH=CPUWAITH; CPUPDTMH=LCPUPDTM; CPUEDTMH=LCPUEDTM; CPUWAITH=CPUWAITM; PCTCPBYH=PCTCPUBY; PCTONLNH=TEMPONLN; IF CAIH EQ '.......1'B OR SMF70ONT GT 0 THEN DO; CPUWAIT=CPUWAIT+CPUWAITH; MVSWAIT=MVSWAIT+MVSWAITH; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=18 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAITI; MVSWAITI=CPUWAITI; CPUPDTMI=LCPUPDTM; CPUEDTMI=LCPUEDTM; CPUWAITI=CPUWAITM; PCTCPBYI=PCTCPUBY; PCTONLNI=TEMPONLN; IF CAII EQ '.......1'B OR SMF70ONT GT 0 THEN DO; CPUWAIT=CPUWAIT+CPUWAITI; MVSWAIT=MVSWAIT+MVSWAITI; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=19 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAITJ; MVSWAITJ=CPUWAITJ; CPUPDTMJ=LCPUPDTM; CPUEDTMJ=LCPUEDTM; CPUWAITJ=CPUWAITM; PCTCPBYJ=PCTCPUBY; PCTONLNJ=TEMPONLN; IF CAIJ EQ '.......1'B OR SMF70ONT GT 0 THEN DO; CPUWAIT=CPUWAIT+CPUWAITJ; MVSWAIT=MVSWAIT+MVSWAITJ; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=20 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAITK; MVSWAITK=CPUWAITK; CPUPDTMK=LCPUPDTM; CPUEDTMK=LCPUEDTM; CPUWAITK=CPUWAITM; PCTCPBYK=PCTCPUBY; PCTONLNK=TEMPONLN; IF CAIK EQ '.......1'B OR SMF70ONT GT 0 THEN DO; CPUWAIT=CPUWAIT+CPUWAITK; MVSWAIT=MVSWAIT+MVSWAITK; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=21 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAITL; MVSWAITL=CPUWAITL; CPUPDTML=LCPUPDTM; CPUEDTML=LCPUEDTM; CPUWAITL=CPUWAITM; PCTCPBYL=PCTCPUBY; PCTONLNL=TEMPONLN; IF CAIL EQ '.......1'B OR SMF70ONT GT 0 THEN DO; CPUWAIT=CPUWAIT+CPUWAITL; MVSWAIT=MVSWAIT+MVSWAITL; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=22 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAITN; MVSWAITN=CPUWAITN; CPUPDTMN=LCPUPDTM; CPUEDTMN=LCPUEDTM; CPUWAITN=CPUWAITM; PCTCPBYN=PCTCPUBY; PCTONLNN=TEMPONLN; IF CAIN EQ '.......1'B OR SMF70ONT GT 0 THEN DO; CPUWAIT=CPUWAIT+CPUWAITN; MVSWAIT=MVSWAIT+MVSWAITN; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=23 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAITO; MVSWAITO=CPUWAITO; CPUPDTMO=LCPUPDTM; CPUEDTMO=LCPUEDTM; CPUWAITO=CPUWAITM; PCTCPBYO=PCTCPUBY; PCTONLNO=TEMPONLN; IF CAIO EQ '.......1'B OR SMF70ONT GT 0 THEN DO; CPUWAIT=CPUWAIT+CPUWAITO; MVSWAIT=MVSWAIT+MVSWAITO; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=24 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAITP; MVSWAITP=CPUWAITP; CPUPDTMP=LCPUPDTM; CPUEDTMP=LCPUEDTM; CPUWAITP=CPUWAITM; PCTCPBYP=PCTCPUBY; PCTONLNP=TEMPONLN; IF CAIP EQ '.......1'B OR SMF70ONT GT 0 THEN DO; CPUWAIT=CPUWAIT+CPUWAITP; MVSWAIT=MVSWAIT+MVSWAITP; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=25 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAITQ; MVSWAITQ=CPUWAITQ; CPUPDTMQ=LCPUPDTM; CPUEDTMQ=LCPUEDTM; CPUWAITQ=CPUWAITM; PCTCPBYQ=PCTCPUBY; PCTONLNQ=TEMPONLN; IF CAIQ EQ '.......1'B OR SMF70ONT GT 0 THEN DO; CPUWAIT=CPUWAIT+CPUWAITQ; MVSWAIT=MVSWAIT+MVSWAITQ; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=26 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAITR; MVSWAITR=CPUWAITR; CPUPDTMR=LCPUPDTM; CPUEDTMR=LCPUEDTM; CPUWAITR=CPUWAITM; PCTCPBYR=PCTCPUBY; PCTONLNR=TEMPONLN; IF CAIR EQ '.......1'B OR SMF70ONT GT 0 THEN DO; CPUWAIT=CPUWAIT+CPUWAITR; MVSWAIT=MVSWAIT+MVSWAITR; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=27 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAITS; MVSWAITS=CPUWAITS; CPUPDTMS=LCPUPDTM; CPUEDTMS=LCPUEDTM; CPUWAITS=CPUWAITM; PCTCPBYS=PCTCPUBY; PCTONLNS=TEMPONLN; IF CAIS EQ '.......1'B OR SMF70ONT GT 0 THEN DO; CPUWAIT=CPUWAIT+CPUWAITS; MVSWAIT=MVSWAIT+MVSWAITS; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=28 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAITT; MVSWAITT=CPUWAITT; CPUPDTMT=LCPUPDTM; CPUEDTMT=LCPUEDTM; CPUWAITT=CPUWAITM; PCTCPBYT=PCTCPUBY; PCTONLNT=TEMPONLN; IF CAIT EQ '.......1'B OR SMF70ONT GT 0 THEN DO; CPUWAIT=CPUWAIT+CPUWAITT; MVSWAIT=MVSWAIT+MVSWAITT; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=29 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAITU; MVSWAITU=CPUWAITU; CPUPDTMU=LCPUPDTM; CPUEDTMU=LCPUEDTM; CPUWAITU=CPUWAITM; PCTCPBYU=PCTCPUBY; PCTONLNU=TEMPONLN; IF CAIU EQ '.......1'B OR SMF70ONT GT 0 THEN DO; CPUWAIT=CPUWAIT+CPUWAITU; MVSWAIT=MVSWAIT+MVSWAITU; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=30 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAITV; MVSWAITV=CPUWAITV; CPUPDTMV=LCPUPDTM; CPUEDTMV=LCPUEDTM; CPUWAITV=CPUWAITM; PCTCPBYV=PCTCPUBY; PCTONLNV=TEMPONLN; IF CAIV EQ '.......1'B OR SMF70ONT GT 0 THEN DO; CPUWAIT=CPUWAIT+CPUWAITV; MVSWAIT=MVSWAIT+MVSWAITV; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=31 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAITW; MVSWAITW=CPUWAITW; CPUPDTMW=LCPUPDTM; CPUEDTMW=LCPUEDTM; CPUWAITW=CPUWAITM; PCTCPBYW=PCTCPUBY; PCTONLNW=TEMPONLN; IF CAIW EQ '.......1'B OR SMF70ONT GT 0 THEN DO; CPUWAIT=CPUWAIT+CPUWAITW; MVSWAIT=MVSWAIT+MVSWAITW; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=32 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAITX; MVSWAITX=CPUWAITX; CPUPDTMX=LCPUPDTM; CPUEDTMX=LCPUEDTM; CPUWAITX=CPUWAITM; PCTCPBYX=PCTCPUBY; PCTONLNX=TEMPONLN; IF CAIX EQ '.......1'B OR SMF70ONT GT 0 THEN DO; CPUWAIT=CPUWAIT+CPUWAITX; MVSWAIT=MVSWAIT+MVSWAITX; CPUEFF =CPUEFF +LCPUEDTM; END; /*END, ONLINE?*/ END; /*END LCPUADDR=32 - SHARED PARTITION - CP */ ELSE IF LCPUADDR=33 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAITY; MVSWAITY=CPUWAITY; CPUPDTMY=LCPUPDTM; CPUEDTMY=LCPUEDTM; CPUWAITY=CPUWAITM; PCTCPBYY=PCTCPUBY; PCTONLNY=TEMPONLN; IF CAIY EQ '.......1'B OR SMF70ONT GT 0 THEN DO; CPUWAIT=CPUWAIT+CPUWAITY; MVSWAIT=MVSWAIT+MVSWAITY; CPUEFF =CPUEFF +LCPUEDTM; END; /*END, ONLINE?*/ END; /*END LCPUADDR=33 - SHARED PARTITION - CP */ ELSE IF LCPUADDR=34 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAITZ; MVSWAITZ=CPUWAITZ; CPUPDTMZ=LCPUPDTM; CPUEDTMZ=LCPUEDTM; CPUWAITZ=CPUWAITM; PCTCPBYZ=PCTCPUBY; PCTONLNZ=TEMPONLN; IF CAIZ EQ '.......1'B OR SMF70ONT GT 0 THEN DO; CPUWAIT=CPUWAIT+CPUWAITZ; MVSWAIT=MVSWAIT+MVSWAITZ; CPUEFF =CPUEFF +LCPUEDTM; END; /*END, ONLINE?*/ END; /*END LCPUADDR=34 - SHARED PARTITION - CP */ ELSE IF LCPUADDR=35 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAIZA; MVSWAIZA=CPUWAIZA; CPUPDTZA=LCPUPDTM; CPUEDTZA=LCPUEDTM; CPUWAIZA=CPUWAITM; PCTCPBZA=PCTCPUBY; PCTONLZA=TEMPONLN; IF CAIZA EQ '.......1'B OR SMF70ONT GT 0 THEN DO; CPUWAIT=CPUWAIT+CPUWAIZA; MVSWAIT=MVSWAIT+MVSWAIZA; CPUEFF =CPUEFF +LCPUEDTM; END; /*END, ONLINE?*/ END; ELSE IF LCPUADDR=36 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAIZB; MVSWAIZB=CPUWAIZB; CPUPDTZB=LCPUPDTM; CPUEDTZB=LCPUEDTM; CPUWAIZB=CPUWAITM; PCTCPBZB=PCTCPUBY; PCTONLZB=TEMPONLN; IF CAIZB EQ '.......1'B OR SMF70ONT GT 0 THEN DO; CPUWAIT=CPUWAIT+CPUWAIZB; MVSWAIT=MVSWAIT+MVSWAIZB; CPUEFF =CPUEFF +LCPUEDTM; END; /*END, ONLINE?*/ END; ELSE IF LCPUADDR=37 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAIZC; MVSWAIZC=CPUWAIZC; CPUPDTZC=LCPUPDTM; CPUEDTZC=LCPUEDTM; CPUWAIZC=CPUWAITM; PCTCPBZC=PCTCPUBY; PCTONLZC=TEMPONLN; IF CAIZC EQ '.......1'B OR SMF70ONT GT 0 THEN DO; CPUWAIT=CPUWAIT+CPUWAIZC; MVSWAIT=MVSWAIT+MVSWAIZC; CPUEFF =CPUEFF +LCPUEDTM; END; /*END, ONLINE?*/ END; ELSE IF LCPUADDR=38 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAIZD; MVSWAIZD=CPUWAIZD; CPUPDTZD=LCPUPDTM; CPUEDTZD=LCPUEDTM; CPUWAIZD=CPUWAITM; PCTCPBZD=PCTCPUBY; PCTONLZD=TEMPONLN; IF CAIZD EQ '.......1'B OR SMF70ONT GT 0 THEN DO; CPUWAIT=CPUWAIT+CPUWAIZD; MVSWAIT=MVSWAIT+MVSWAIZD; CPUEFF =CPUEFF +LCPUEDTM; END; /*END, ONLINE?*/ END; ELSE IF LCPUADDR=39 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAIZE; MVSWAIZE=CPUWAIZE; CPUPDTZE=LCPUPDTM; CPUEDTZE=LCPUEDTM; CPUWAIZE=CPUWAITM; PCTCPBZE=PCTCPUBY; PCTONLZE=TEMPONLN; IF CAIZE EQ '.......1'B OR SMF70ONT GT 0 THEN DO; CPUWAIT=CPUWAIT+CPUWAIZE; MVSWAIT=MVSWAIT+MVSWAIZE; CPUEFF =CPUEFF +LCPUEDTM; END; /*END, ONLINE?*/ END; ELSE IF LCPUADDR=40 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAIZF; MVSWAIZF=CPUWAIZF; CPUPDTZF=LCPUPDTM; CPUEDTZF=LCPUEDTM; CPUWAIZF=CPUWAITM; PCTCPBZF=PCTCPUBY; PCTONLZF=TEMPONLN; IF CAIZF EQ '.......1'B OR SMF70ONT GT 0 THEN DO; CPUWAIT=CPUWAIT+CPUWAIZF; MVSWAIT=MVSWAIT+MVSWAIZF; /* here */ CPUEFF =CPUEFF +LCPUEDTM; END; /*END, ONLINE?*/ END; ELSE IF LCPUADDR=41 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAIZG; MVSWAIZG=CPUWAIZG; CPUPDTZG=LCPUPDTM; CPUEDTZG=LCPUEDTM; CPUWAIZG=CPUWAITM; PCTCPBZG=PCTCPUBY; PCTONLZG=TEMPONLN; IF CAIZG EQ '.......1'B OR SMF70ONT GT 0 THEN DO; CPUWAIT=CPUWAIT+CPUWAIZG; MVSWAIT=MVSWAIT+MVSWAIZG; CPUEFF =CPUEFF +LCPUEDTM; END; /*END, ONLINE?*/ END; ELSE IF LCPUADDR=42 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAIZH; MVSWAIZH=CPUWAIZH; CPUPDTZH=LCPUPDTM; CPUEDTZH=LCPUEDTM; CPUWAIZH=CPUWAITM; PCTCPBZH=PCTCPUBY; PCTONLZH=TEMPONLN; IF CAIZH EQ '.......1'B OR SMF70ONT GT 0 THEN DO; CPUWAIT=CPUWAIT+CPUWAIZH; MVSWAIT=MVSWAIT+MVSWAIZH; CPUEFF =CPUEFF +LCPUEDTM; END; /*END, ONLINE?*/ END; ELSE IF LCPUADDR=43 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAIZI; MVSWAIZI=CPUWAIZI; CPUPDTZI=LCPUPDTM; CPUEDTZI=LCPUEDTM; CPUWAIZI=CPUWAITM; PCTCPBZI=PCTCPUBY; PCTONLZI=TEMPONLN; IF CAIZI EQ '.......1'B OR SMF70ONT GT 0 THEN DO; CPUWAIT=CPUWAIT+CPUWAIZI; MVSWAIT=MVSWAIT+MVSWAIZI; CPUEFF =CPUEFF +LCPUEDTM; END; /*END, ONLINE?*/ END; ELSE IF LCPUADDR=44 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAIZJ; MVSWAIZJ=CPUWAIZJ; CPUPDTZJ=LCPUPDTM; CPUEDTZJ=LCPUEDTM; CPUWAIZJ=CPUWAITM; PCTCPBZJ=PCTCPUBY; PCTONLZJ=TEMPONLN; IF CAIZJ EQ '.......1'B OR SMF70ONT GT 0 THEN DO; CPUWAIT=CPUWAIT+CPUWAIZJ; MVSWAIT=MVSWAIT+MVSWAIZJ; CPUEFF =CPUEFF +LCPUEDTM; END; /*END, ONLINE?*/ END; ELSE IF LCPUADDR=45 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAIZK; MVSWAIZK=CPUWAIZK; CPUPDTZK=LCPUPDTM; CPUEDTZK=LCPUEDTM; CPUWAIZK=CPUWAITM; PCTCPBZK=PCTCPUBY; PCTONLZK=TEMPONLN; IF CAIZK EQ '.......1'B OR SMF70ONT GT 0 THEN DO; CPUWAIT=CPUWAIT+CPUWAIZK; MVSWAIT=MVSWAIT+MVSWAIZK; CPUEFF =CPUEFF +LCPUEDTM; END; /*END, ONLINE?*/ END; ELSE IF LCPUADDR=46 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAIZL; MVSWAIZL=CPUWAIZL; CPUPDTZL=LCPUPDTM; CPUEDTZL=LCPUEDTM; CPUWAIZL=CPUWAITM; PCTCPBZL=PCTCPUBY; PCTONLZL=TEMPONLN; IF CAIZL EQ '.......1'B OR SMF70ONT GT 0 THEN DO; CPUWAIT=CPUWAIT+CPUWAIZL; MVSWAIT=MVSWAIT+MVSWAIZL; CPUEFF =CPUEFF +LCPUEDTM; END; /*END, ONLINE?*/ END; ELSE IF LCPUADDR=47 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAIZM; MVSWAIZM=CPUWAIZM; CPUPDTZM=LCPUPDTM; CPUEDTZM=LCPUEDTM; CPUWAIZM=CPUWAITM; PCTCPBZM=PCTCPUBY; PCTONLZM=TEMPONLN; IF CAIZM EQ '.......1'B OR SMF70ONT GT 0 THEN DO; CPUWAIT=CPUWAIT+CPUWAIZM; MVSWAIT=MVSWAIT+MVSWAIZM; CPUEFF =CPUEFF +LCPUEDTM; END; /*END, ONLINE?*/ END; ELSE IF LCPUADDR=48 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAIZN; MVSWAIZN=CPUWAIZN; CPUPDTZN=LCPUPDTM; CPUEDTZN=LCPUEDTM; CPUWAIZN=CPUWAITM; PCTCPBZN=PCTCPUBY; PCTONLZN=TEMPONLN; IF CAIZN EQ '.......1'B OR SMF70ONT GT 0 THEN DO; CPUWAIT=CPUWAIT+CPUWAIZN; MVSWAIT=MVSWAIT+MVSWAIZN; CPUEFF =CPUEFF +LCPUEDTM; END; /*END, ONLINE?*/ END; ELSE IF LCPUADDR=49 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAIZO; MVSWAIZO=CPUWAIZO; CPUPDTZO=LCPUPDTM; CPUEDTZO=LCPUEDTM; CPUWAIZO=CPUWAITM; PCTCPBZO=PCTCPUBY; PCTONLZO=TEMPONLN; IF CAIZO EQ '.......1'B OR SMF70ONT GT 0 THEN DO; CPUWAIT=CPUWAIT+CPUWAIZO; MVSWAIT=MVSWAIT+MVSWAIZO; CPUEFF =CPUEFF +LCPUEDTM; END; /*END, ONLINE?*/ END; ELSE IF LCPUADDR=50 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAIZP; MVSWAIZD=CPUWAIZP; CPUPDTZP=LCPUPDTM; CPUEDTZP=LCPUEDTM; CPUWAIZP=CPUWAITM; PCTCPBZP=PCTCPUBY; PCTONLZP=TEMPONLN; IF CAIZP EQ '.......1'B OR SMF70ONT GT 0 THEN DO; CPUWAIT=CPUWAIT+CPUWAIZP; MVSWAIT=MVSWAIT+MVSWAIZP; CPUEFF =CPUEFF +LCPUEDTM; END; /*END, ONLINE?*/ END; ELSE IF LCPUADDR=51 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAIZQ; MVSWAIZQ=CPUWAIZQ; CPUPDTZQ=LCPUPDTM; CPUEDTZQ=LCPUEDTM; CPUWAIZQ=CPUWAITM; PCTCPBZQ=PCTCPUBY; PCTONLZQ=TEMPONLN; IF CAIZQ EQ '.......1'B OR SMF70ONT GT 0 THEN DO; CPUWAIT=CPUWAIT+CPUWAIZQ; MVSWAIT=MVSWAIT+MVSWAIZQ; CPUEFF =CPUEFF +LCPUEDTM; END; /*END, ONLINE?*/ END; ELSE IF LCPUADDR=52 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAIZR; MVSWAIZR=CPUWAIZR; CPUPDTZR=LCPUPDTM; CPUEDTZR=LCPUEDTM; CPUWAIZR=CPUWAITM; PCTCPBZR=PCTCPUBY; PCTONLZR=TEMPONLN; IF CAIZR EQ '.......1'B OR SMF70ONT GT 0 THEN DO; CPUWAIT=CPUWAIT+CPUWAIZR; MVSWAIT=MVSWAIT+MVSWAIZR; CPUEFF =CPUEFF +LCPUEDTM; END; /*END, ONLINE?*/ END; ELSE IF LCPUADDR=53 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAIZS; MVSWAIZS=CPUWAIZS; CPUPDTZS=LCPUPDTM; CPUEDTZS=LCPUEDTM; CPUWAIZS=CPUWAITM; PCTCPBZS=PCTCPUBY; PCTONLZS=TEMPONLN; IF CAIZS EQ '.......1'B OR SMF70ONT GT 0 THEN DO; CPUWAIT=CPUWAIT+CPUWAIZS; MVSWAIT=MVSWAIT+MVSWAIZS; CPUEFF =CPUEFF +LCPUEDTM; END; /*END, ONLINE?*/ END; ELSE IF LCPUADDR=54 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAIZT; MVSWAIZT=CPUWAIZT; CPUPDTZT=LCPUPDTM; CPUEDTZT=LCPUEDTM; CPUWAIZT=CPUWAITM; PCTCPBZT=PCTCPUBY; PCTONLZT=TEMPONLN; IF CAIZT EQ '.......1'B OR SMF70ONT GT 0 THEN DO; CPUWAIT=CPUWAIT+CPUWAIZT; MVSWAIT=MVSWAIT+MVSWAIZT; CPUEFF =CPUEFF +LCPUEDTM; END; /*END, ONLINE?*/ END; ELSE IF LCPUADDR=55 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAIZU; MVSWAIZU=CPUWAIZU; CPUPDTZU=LCPUPDTM; CPUEDTZU=LCPUEDTM; CPUWAIZU=CPUWAITM; PCTCPBZU=PCTCPUBY; PCTONLZU=TEMPONLN; IF CAIZU EQ '.......1'B OR SMF70ONT GT 0 THEN DO; CPUWAIT=CPUWAIT+CPUWAIZU; MVSWAIT=MVSWAIT+MVSWAIZU; CPUEFF =CPUEFF +LCPUEDTM; END; /*END, ONLINE?*/ END; ELSE IF LCPUADDR=56 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAIZV; MVSWAIZV=CPUWAIZV; CPUPDTZV=LCPUPDTM; CPUEDTZV=LCPUEDTM; CPUWAIZV=CPUWAITM; PCTCPBZV=PCTCPUBY; PCTONLZV=TEMPONLN; IF CAIZV EQ '.......1'B OR SMF70ONT GT 0 THEN DO; CPUWAIT=CPUWAIT+CPUWAIZV; MVSWAIT=MVSWAIT+MVSWAIZV; CPUEFF =CPUEFF +LCPUEDTM; END; /*END, ONLINE?*/ END; ELSE IF LCPUADDR=57 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAIZW; MVSWAIZW=CPUWAIZW; CPUPDTZW=LCPUPDTM; CPUEDTZW=LCPUEDTM; CPUWAIZW=CPUWAITM; PCTCPBZW=PCTCPUBY; PCTONLZW=TEMPONLN; IF CAIZW EQ '.......1'B OR SMF70ONT GT 0 THEN DO; CPUWAIT=CPUWAIT+CPUWAIZW; MVSWAIT=MVSWAIT+MVSWAIZW; CPUEFF =CPUEFF +LCPUEDTM; END; /*END, ONLINE?*/ END; ELSE IF LCPUADDR=58 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAIZX; MVSWAIZX=CPUWAIZX; CPUPDTZX=LCPUPDTM; CPUEDTZX=LCPUEDTM; CPUWAIZX=CPUWAITM; PCTCPBZX=PCTCPUBY; PCTONLZX=TEMPONLN; IF CAIZX EQ '.......1'B OR SMF70ONT GT 0 THEN DO; CPUWAIT=CPUWAIT+CPUWAIZX; MVSWAIT=MVSWAIT+MVSWAIZX; CPUEFF =CPUEFF +LCPUEDTM; END; /*END, ONLINE?*/ END; ELSE IF LCPUADDR=59 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAIZY; MVSWAIZY=CPUWAIZY; CPUPDTZY=LCPUPDTM; CPUEDTZY=LCPUEDTM; CPUWAIZY=CPUWAITM; PCTCPBZY=PCTCPUBY; PCTONLZY=TEMPONLN; IF CAIZY EQ '.......1'B OR SMF70ONT GT 0 THEN DO; CPUWAIT=CPUWAIT+CPUWAIZY; MVSWAIT=MVSWAIT+MVSWAIZY; CPUEFF =CPUEFF +LCPUEDTM; END; /*END, ONLINE?*/ END; ELSE IF LCPUADDR=60 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAIZZ; MVSWAIZZ=CPUWAIZZ; CPUPDTZZ=LCPUPDTM; CPUEDTZZ=LCPUEDTM; CPUWAIZZ=CPUWAITM; PCTCPBZZ=PCTCPUBY; PCTONLZZ=TEMPONLN; IF CAIZZ EQ '.......1'B OR SMF70ONT GT 0 THEN DO; CPUWAIT=CPUWAIT+CPUWAIZZ; MVSWAIT=MVSWAIT+MVSWAIZZ; CPUEFF =CPUEFF +LCPUEDTM; END; /*END, ONLINE?*/ END; ELSE IF LCPUADDR=61 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAIYA; MVSWAIYA=CPUWAIYA; CPUPDTYA=LCPUPDTM; CPUEDTYA=LCPUEDTM; CPUWAIYA=CPUWAITM; PCTCPBXA=PCTCPUBY; PCTONLYA=TEMPONLN; IF CAIYA EQ '.......1'B OR SMF70ONT GT 0 THEN DO; CPUWAIT=CPUWAIT+CPUWAIYA; MVSWAIT=MVSWAIT+MVSWAIYA; CPUEFF =CPUEFF +LCPUEDTM; END; /*END, ONLINE?*/ END; ELSE IF LCPUADDR=62 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAIYB; MVSWAIYB=CPUWAIYB; CPUPDTYB=LCPUPDTM; CPUEDTYB=LCPUEDTM; CPUWAIYB=CPUWAITM; PCTCPBXB=PCTCPUBY; PCTONLYB=TEMPONLN; IF CAIYB EQ '.......1'B OR SMF70ONT GT 0 THEN DO; CPUWAIT=CPUWAIT+CPUWAIYB; MVSWAIT=MVSWAIT+MVSWAIYB; CPUEFF =CPUEFF +LCPUEDTM; END; /*END, ONLINE?*/ END; ELSE IF LCPUADDR=63 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAIYC; MVSWAIYC=CPUWAIYC; CPUPDTYC=LCPUPDTM; CPUEDTYC=LCPUEDTM; CPUWAIYC=CPUWAITM; PCTCPBXC=PCTCPUBY; PCTONLYC=TEMPONLN; IF CAIYC EQ '.......1'B OR SMF70ONT GT 0 THEN DO; CPUWAIT=CPUWAIT+CPUWAIYC; MVSWAIT=MVSWAIT+MVSWAIYC; CPUEFF =CPUEFF +LCPUEDTM; END; /*END, ONLINE?*/ END; ELSE IF LCPUADDR=64 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAIYD; MVSWAIYD=CPUWAIYD; CPUPDTYD=LCPUPDTM; CPUEDTYD=LCPUEDTM; CPUWAIYD=CPUWAITM; PCTCPBXD=PCTCPUBY; PCTONLYD=TEMPONLN; IF CAIYD EQ '.......1'B OR SMF70ONT GT 0 THEN DO; CPUWAIT=CPUWAIT+CPUWAIYD; MVSWAIT=MVSWAIT+MVSWAIYD; CPUEFF =CPUEFF +LCPUEDTM; END; /*END, ONLINE?*/ END; ELSE IF LCPUADDR=65 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAIYE; MVSWAIYE=CPUWAIYE; CPUPDTYE=LCPUPDTM; CPUEDTYE=LCPUEDTM; CPUWAIYE=CPUWAITM; PCTCPBXE=PCTCPUBY; PCTONLYE=TEMPONLN; IF CAIYE EQ '.......1'B OR SMF70ONT GT 0 THEN DO; CPUWAIT=CPUWAIT+CPUWAIYE; MVSWAIT=MVSWAIT+MVSWAIYE; CPUEFF =CPUEFF +LCPUEDTM; END; /*END, ONLINE?*/ END; ELSE IF LCPUADDR=66 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAIYF; MVSWAIYF=CPUWAIYF; CPUPDTYF=LCPUPDTM; CPUEDTYF=LCPUEDTM; CPUWAIYF=CPUWAITM; PCTCPBXF=PCTCPUBY; PCTONLYF=TEMPONLN; IF CAIYF EQ '.......1'B OR SMF70ONT GT 0 THEN DO; CPUWAIT=CPUWAIT+CPUWAIYF; MVSWAIT=MVSWAIT+MVSWAIYF; CPUEFF =CPUEFF +LCPUEDTM; END; /*END, ONLINE?*/ END; ELSE IF LCPUADDR=67 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAIYG; MVSWAIYG=CPUWAIYG; CPUPDTYG=LCPUPDTM; CPUEDTYG=LCPUEDTM; CPUWAIYG=CPUWAITM; PCTCPBXG=PCTCPUBY; PCTONLYG=TEMPONLN; IF CAIYG EQ '.......1'B OR SMF70ONT GT 0 THEN DO; CPUWAIT=CPUWAIT+CPUWAIYG; MVSWAIT=MVSWAIT+MVSWAIYG; CPUEFF =CPUEFF +LCPUEDTM; END; /*END, ONLINE?*/ END; ELSE IF LCPUADDR=68 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAIYH; MVSWAIYH=CPUWAIYH; CPUPDTYH=LCPUPDTM; CPUEDTYH=LCPUEDTM; CPUWAIYH=CPUWAITM; PCTCPBXH=PCTCPUBY; PCTONLYH=TEMPONLN; IF CAIYH EQ '.......1'B OR SMF70ONT GT 0 THEN DO; CPUWAIT=CPUWAIT+CPUWAIYH; MVSWAIT=MVSWAIT+MVSWAIYH; CPUEFF =CPUEFF +LCPUEDTM; END; /*END, ONLINE?*/ END; ELSE IF LCPUADDR=69 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAIYI; MVSWAIYI=CPUWAIYI; CPUPDTYI=LCPUPDTM; CPUEDTYI=LCPUEDTM; CPUWAIYI=CPUWAITM; PCTCPBXI=PCTCPUBY; PCTONLYI=TEMPONLN; IF CAIYI EQ '.......1'B OR SMF70ONT GT 0 THEN DO; CPUWAIT=CPUWAIT+CPUWAIYI; MVSWAIT=MVSWAIT+MVSWAIYI; CPUEFF =CPUEFF +LCPUEDTM; END; /*END, ONLINE?*/ END; ELSE IF LCPUADDR=70 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAIYJ; MVSWAIYJ=CPUWAIYJ; CPUPDTYJ=LCPUPDTM; CPUEDTYJ=LCPUEDTM; CPUWAIYJ=CPUWAITM; PCTCPBXJ=PCTCPUBY; PCTONLYJ=TEMPONLN; IF CAIYJ EQ '.......1'B OR SMF70ONT GT 0 THEN DO; CPUWAIT=CPUWAIT+CPUWAIYJ; MVSWAIT=MVSWAIT+MVSWAIYJ; CPUEFF =CPUEFF +LCPUEDTM; END; /*END, ONLINE?*/ END; ELSE IF LCPUADDR=71 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAIYK; MVSWAIYK=CPUWAIYK; CPUPDTYK=LCPUPDTM; CPUEDTYK=LCPUEDTM; CPUWAIYK=CPUWAITM; PCTCPBXK=PCTCPUBY; PCTONLYK=TEMPONLN; IF CAIYK EQ '.......1'B OR SMF70ONT GT 0 THEN DO; CPUWAIT=CPUWAIT+CPUWAIYK; MVSWAIT=MVSWAIT+MVSWAIYK; CPUEFF =CPUEFF +LCPUEDTM; END; /*END, ONLINE?*/ END; ELSE IF LCPUADDR=72 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAIYL; MVSWAIYL=CPUWAIYL; CPUPDTYL=LCPUPDTM; CPUEDTYL=LCPUEDTM; CPUWAIYL=CPUWAITM; PCTCPBXL=PCTCPUBY; PCTONLYL=TEMPONLN; IF CAIYL EQ '.......1'B OR SMF70ONT GT 0 THEN DO; CPUWAIT=CPUWAIT+CPUWAIYL; MVSWAIT=MVSWAIT+MVSWAIYL; CPUEFF =CPUEFF +LCPUEDTM; END; /*END, ONLINE?*/ END; ELSE IF LCPUADDR=73 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAIYM; MVSWAIYM=CPUWAIYM; CPUPDTYM=LCPUPDTM; CPUEDTYM=LCPUEDTM; CPUWAIYM=CPUWAITM; PCTCPBXM=PCTCPUBY; PCTONLYM=TEMPONLN; IF CAIYM EQ '.......1'B OR SMF70ONT GT 0 THEN DO; CPUWAIT=CPUWAIT+CPUWAIYM; MVSWAIT=MVSWAIT+MVSWAIYM; CPUEFF =CPUEFF +LCPUEDTM; END; /*END, ONLINE?*/ END; ELSE IF LCPUADDR=74 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAIYN; MVSWAIYN=CPUWAIYN; CPUPDTYN=LCPUPDTM; CPUEDTYN=LCPUEDTM; CPUWAIYN=CPUWAITM; PCTCPBXN=PCTCPUBY; PCTONLYN=TEMPONLN; IF CAIYN EQ '.......1'B OR SMF70ONT GT 0 THEN DO; CPUWAIT=CPUWAIT+CPUWAIYN; MVSWAIT=MVSWAIT+MVSWAIYN; CPUEFF =CPUEFF +LCPUEDTM; END; /*END, ONLINE?*/ END; ELSE IF LCPUADDR=75 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAIYO; MVSWAIYO=CPUWAIYO; CPUPDTYO=LCPUPDTM; CPUEDTYO=LCPUEDTM; CPUWAIYO=CPUWAITM; PCTCPBXO=PCTCPUBY; PCTONLYO=TEMPONLN; IF CAIYO EQ '.......1'B OR SMF70ONT GT 0 THEN DO; CPUWAIT=CPUWAIT+CPUWAIYO; MVSWAIT=MVSWAIT+MVSWAIYO; CPUEFF =CPUEFF +LCPUEDTM; END; /*END, ONLINE?*/ END; ELSE IF LCPUADDR=76 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAIYP; MVSWAIYP=CPUWAIYP; CPUPDTYP=LCPUPDTM; CPUEDTYP=LCPUEDTM; CPUWAIYP=CPUWAITM; PCTCPBXP=PCTCPUBY; PCTONLYP=TEMPONLN; IF CAIYP EQ '.......1'B OR SMF70ONT GT 0 THEN DO; CPUWAIT=CPUWAIT+CPUWAIYP; MVSWAIT=MVSWAIT+MVSWAIYP; CPUEFF =CPUEFF +LCPUEDTM; END; /*END, ONLINE?*/ END; ELSE IF LCPUADDR=77 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAIYQ; MVSWAIYQ=CPUWAIYQ; CPUPDTYQ=LCPUPDTM; CPUEDTYQ=LCPUEDTM; CPUWAIYQ=CPUWAITM; PCTCPBXQ=PCTCPUBY; PCTONLYQ=TEMPONLN; IF CAIYQ EQ '.......1'B OR SMF70ONT GT 0 THEN DO; CPUWAIT=CPUWAIT+CPUWAIYQ; MVSWAIT=MVSWAIT+MVSWAIYQ; CPUEFF =CPUEFF +LCPUEDTM; END; /*END, ONLINE?*/ END; ELSE IF LCPUADDR=78 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAIYR; MVSWAIYR=CPUWAIYR; CPUPDTYR=LCPUPDTM; CPUEDTYR=LCPUEDTM; CPUWAIYR=CPUWAITM; PCTCPBXR=PCTCPUBY; PCTONLYR=TEMPONLN; IF CAIYR EQ '.......1'B OR SMF70ONT GT 0 THEN DO; CPUWAIT=CPUWAIT+CPUWAIYR; MVSWAIT=MVSWAIT+MVSWAIYR; CPUEFF =CPUEFF +LCPUEDTM; END; /*END, ONLINE?*/ END; ELSE IF LCPUADDR=79 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAIYS; MVSWAIYS=CPUWAIYS; CPUPDTYS=LCPUPDTM; CPUEDTYS=LCPUEDTM; CPUWAIYS=CPUWAITM; PCTCPBXS=PCTCPUBY; PCTONLYS=TEMPONLN; IF CAIYS EQ '.......1'B OR SMF70ONT GT 0 THEN DO; CPUWAIT=CPUWAIT+CPUWAIYS; MVSWAIT=MVSWAIT+MVSWAIYS; CPUEFF =CPUEFF +LCPUEDTM; END; /*END, ONLINE?*/ END; ELSE IF LCPUADDR=80 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAIYT; MVSWAIYT=CPUWAIYT; CPUPDTYT=LCPUPDTM; CPUEDTYT=LCPUEDTM; CPUWAIYT=CPUWAITM; PCTCPBXT=PCTCPUBY; PCTONLYT=TEMPONLN; IF CAIYT EQ '.......1'B OR SMF70ONT GT 0 THEN DO; CPUWAIT=CPUWAIT+CPUWAIYT; MVSWAIT=MVSWAIT+MVSWAIYT; CPUEFF =CPUEFF +LCPUEDTM; END; /*END, ONLINE?*/ END; ELSE IF LCPUADDR=81 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAIYU; MVSWAIYU=CPUWAIYU; CPUPDTYU=LCPUPDTM; CPUEDTYU=LCPUEDTM; CPUWAIYU=CPUWAITM; PCTCPBXU=PCTCPUBY; PCTONLYU=TEMPONLN; IF CAIYU EQ '.......1'B OR SMF70ONT GT 0 THEN DO; CPUWAIT=CPUWAIT+CPUWAIYU; MVSWAIT=MVSWAIT+MVSWAIYU; CPUEFF =CPUEFF +LCPUEDTM; END; /*END, ONLINE?*/ END; ELSE IF LCPUADDR=82 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAIYV; MVSWAIYV=CPUWAIYV; CPUPDTYV=LCPUPDTM; CPUEDTYV=LCPUEDTM; CPUWAIYV=CPUWAITM; PCTCPBXV=PCTCPUBY; PCTONLYV=TEMPONLN; IF CAIYV EQ '.......1'B OR SMF70ONT GT 0 THEN DO; CPUWAIT=CPUWAIT+CPUWAIYV; MVSWAIT=MVSWAIT+MVSWAIYV; CPUEFF =CPUEFF +LCPUEDTM; END; /*END, ONLINE?*/ END; ELSE IF LCPUADDR=83 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAIYW; MVSWAIYW=CPUWAIYW; CPUPDTYW=LCPUPDTM; CPUEDTYW=LCPUEDTM; CPUWAIYW=CPUWAITM; PCTCPBXW=PCTCPUBY; PCTONLYW=TEMPONLN; IF CAIYW EQ '.......1'B OR SMF70ONT GT 0 THEN DO; CPUWAIT=CPUWAIT+CPUWAIYW; MVSWAIT=MVSWAIT+MVSWAIYW; CPUEFF =CPUEFF +LCPUEDTM; END; /*END, ONLINE?*/ END; ELSE IF LCPUADDR=84 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAIYX; MVSWAIYX=CPUWAIYX; CPUPDTYX=LCPUPDTM; CPUEDTYX=LCPUEDTM; CPUWAIYX=CPUWAITM; PCTCPBXX=PCTCPUBY; PCTONLYX=TEMPONLN; IF CAIYX EQ '.......1'B OR SMF70ONT GT 0 THEN DO; CPUWAIT=CPUWAIT+CPUWAIYX; MVSWAIT=MVSWAIT+MVSWAIYX; CPUEFF =CPUEFF +LCPUEDTM; END; /*END, ONLINE?*/ END; ELSE IF LCPUADDR=85 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAIYY; MVSWAIYY=CPUWAIYY; CPUPDTYY=LCPUPDTM; CPUEDTYY=LCPUEDTM; CPUWAIYY=CPUWAITM; PCTCPBXY=PCTCPUBY; PCTONLYY=TEMPONLN; IF CAIYY EQ '.......1'B OR SMF70ONT GT 0 THEN DO; CPUWAIT=CPUWAIT+CPUWAIYY; MVSWAIT=MVSWAIT+MVSWAIYY; CPUEFF =CPUEFF +LCPUEDTM; END; /*END, ONLINE?*/ END; ELSE IF LCPUADDR=86 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAIYZ; MVSWAIYZ=CPUWAIYZ; CPUPDTYZ=LCPUPDTM; CPUEDTYZ=LCPUEDTM; CPUWAIYZ=CPUWAITM; PCTCPBXZ=PCTCPUBY; PCTONLYZ=TEMPONLN; IF CAIYZ EQ '.......1'B OR SMF70ONT GT 0 THEN DO; CPUWAIT=CPUWAIT+CPUWAIYZ; MVSWAIT=MVSWAIT+MVSWAIYZ; CPUEFF =CPUEFF +LCPUEDTM; END; /*END, ONLINE?*/ END; ELSE IF LCPUADDR=87 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAIVA; MVSWAIVA=CPUWAIVA; CPUPDTVA=LCPUPDTM; CPUEDTVA=LCPUEDTM; CPUWAIVA=CPUWAITM; PCTCPBUA=PCTCPUBY; PCTONLVA=TEMPONLN; IF CAIVA EQ '.......1'B OR SMF70ONT GT 0 THEN DO; CPUWAIT=CPUWAIT+CPUWAIVA; MVSWAIT=MVSWAIT+MVSWAIVA; CPUEFF =CPUEFF +LCPUEDTM; END; /*END, ONLINE?*/ END; ELSE IF LCPUADDR=88 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAIVB; MVSWAIVB=CPUWAIVB; CPUPDTVB=LCPUPDTM; CPUEDTVB=LCPUEDTM; CPUWAIVB=CPUWAITM; PCTCPBUB=PCTCPUBY; PCTONLVB=TEMPONLN; IF CAIVB EQ '.......1'B OR SMF70ONT GT 0 THEN DO; CPUWAIT=CPUWAIT+CPUWAIVB; MVSWAIT=MVSWAIT+MVSWAIVB; CPUEFF =CPUEFF +LCPUEDTM; END; /*END, ONLINE?*/ END; ELSE IF LCPUADDR=89 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAIVC; MVSWAIVC=CPUWAIVC; CPUPDTVC=LCPUPDTM; CPUEDTVC=LCPUEDTM; CPUWAIVC=CPUWAITM; PCTCPBUC=PCTCPUBY; PCTONLVC=TEMPONLN; IF CAIVC EQ '.......1'B OR SMF70ONT GT 0 THEN DO; CPUWAIT=CPUWAIT+CPUWAIVC; MVSWAIT=MVSWAIT+MVSWAIVC; CPUEFF =CPUEFF +LCPUEDTM; END; /*END, ONLINE?*/ END; ELSE IF LCPUADDR=90 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAIVD; MVSWAIVD=CPUWAIVD; CPUPDTVD=LCPUPDTM; CPUEDTVD=LCPUEDTM; CPUWAIVD=CPUWAITM; PCTCPBUD=PCTCPUBY; PCTONLVD=TEMPONLN; IF CAIVD EQ '.......1'B OR SMF70ONT GT 0 THEN DO; CPUWAIT=CPUWAIT+CPUWAIVD; MVSWAIT=MVSWAIT+MVSWAIVD; CPUEFF =CPUEFF +LCPUEDTM; END; /*END, ONLINE?*/ END; ELSE IF LCPUADDR=91 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAIVE; MVSWAIVE=CPUWAIVE; CPUPDTVE=LCPUPDTM; CPUEDTVE=LCPUEDTM; CPUWAIVE=CPUWAITM; PCTCPBUE=PCTCPUBY; PCTONLVE=TEMPONLN; IF CAIVE EQ '.......1'B OR SMF70ONT GT 0 THEN DO; CPUWAIT=CPUWAIT+CPUWAIVE; MVSWAIT=MVSWAIT+MVSWAIVE; CPUEFF =CPUEFF +LCPUEDTM; END; /*END, ONLINE?*/ END; ELSE IF LCPUADDR=92 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAIVF; MVSWAIVF=CPUWAIVF; CPUPDTVF=LCPUPDTM; CPUEDTVF=LCPUEDTM; CPUWAIVF=CPUWAITM; PCTCPBUF=PCTCPUBY; PCTONLVF=TEMPONLN; IF CAIVF EQ '.......1'B OR SMF70ONT GT 0 THEN DO; CPUWAIT=CPUWAIT+CPUWAIVF; MVSWAIT=MVSWAIT+MVSWAIVF; CPUEFF =CPUEFF +LCPUEDTM; END; /*END, ONLINE?*/ END; ELSE IF LCPUADDR=93 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAIVG; MVSWAIVG=CPUWAIVG; CPUPDTVG=LCPUPDTM; CPUEDTVG=LCPUEDTM; CPUWAIVG=CPUWAITM; PCTCPBUG=PCTCPUBY; PCTONLVG=TEMPONLN; IF CAIVG EQ '.......1'B OR SMF70ONT GT 0 THEN DO; CPUWAIT=CPUWAIT+CPUWAIVG; MVSWAIT=MVSWAIT+MVSWAIVG; CPUEFF =CPUEFF +LCPUEDTM; END; /*END, ONLINE?*/ END; ELSE IF LCPUADDR=94 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAIVH; MVSWAIVH=CPUWAIVH; CPUPDTVH=LCPUPDTM; CPUEDTVH=LCPUEDTM; CPUWAIVH=CPUWAITM; PCTCPBUH=PCTCPUBY; PCTONLVH=TEMPONLN; IF CAIVH EQ '.......1'B OR SMF70ONT GT 0 THEN DO; CPUWAIT=CPUWAIT+CPUWAIVH; MVSWAIT=MVSWAIT+MVSWAIVH; CPUEFF =CPUEFF +LCPUEDTM; END; /*END, ONLINE?*/ END; ELSE IF LCPUADDR=95 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAIVI; MVSWAIVI=CPUWAIVI; CPUPDTVI=LCPUPDTM; CPUEDTVI=LCPUEDTM; CPUWAIVI=CPUWAITM; PCTCPBUI=PCTCPUBY; PCTONLVI=TEMPONLN; IF CAIVI EQ '.......1'B OR SMF70ONT GT 0 THEN DO; CPUWAIT=CPUWAIT+CPUWAIVI; MVSWAIT=MVSWAIT+MVSWAIVI; CPUEFF =CPUEFF +LCPUEDTM; END; /*END, ONLINE?*/ END; ELSE IF LCPUADDR=96 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAIVJ; MVSWAIVJ=CPUWAIVJ; CPUPDTVJ=LCPUPDTM; CPUEDTVJ=LCPUEDTM; CPUWAIVJ=CPUWAITM; PCTCPBUJ=PCTCPUBY; PCTONLVJ=TEMPONLN; IF CAIVJ EQ '.......1'B OR SMF70ONT GT 0 THEN DO; CPUWAIT=CPUWAIT+CPUWAIVJ; MVSWAIT=MVSWAIT+MVSWAIVJ; CPUEFF =CPUEFF +LCPUEDTM; END; /*END, ONLINE?*/ END; ELSE IF LCPUADDR=97 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAIVK; MVSWAIVK=CPUWAIVK; CPUPDTVK=LCPUPDTM; CPUEDTVK=LCPUEDTM; CPUWAIVK=CPUWAITM; PCTCPBUK=PCTCPUBY; PCTONLVK=TEMPONLN; IF CAIVK EQ '.......1'B OR SMF70ONT GT 0 THEN DO; CPUWAIT=CPUWAIT+CPUWAIVK; MVSWAIT=MVSWAIT+MVSWAIVK; CPUEFF =CPUEFF +LCPUEDTM; END; /*END, ONLINE?*/ END; ELSE IF LCPUADDR=98 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAIVL; MVSWAIVL=CPUWAIVL; CPUPDTVL=LCPUPDTM; CPUEDTVL=LCPUEDTM; CPUWAIVL=CPUWAITM; PCTCPBUL=PCTCPUBY; PCTONLVL=TEMPONLN; IF CAIVL EQ '.......1'B OR SMF70ONT GT 0 THEN DO; CPUWAIT=CPUWAIT+CPUWAIVL; MVSWAIT=MVSWAIT+MVSWAIVL; CPUEFF =CPUEFF +LCPUEDTM; END; /*END, ONLINE?*/ END; ELSE IF LCPUADDR=99 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAIVM; MVSWAIVM=CPUWAIVM; CPUPDTVM=LCPUPDTM; CPUEDTVM=LCPUEDTM; CPUWAIVM=CPUWAITM; PCTCPBUM=PCTCPUBY; PCTONLVM=TEMPONLN; IF CAIVM EQ '.......1'B OR SMF70ONT GT 0 THEN DO; CPUWAIT=CPUWAIT+CPUWAIVM; MVSWAIT=MVSWAIT+MVSWAIVM; CPUEFF =CPUEFF +LCPUEDTM; END; /*END, ONLINE?*/ END; ELSE IF LCPUADDR=100 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAIVN; MVSWAIVN=CPUWAIVN; CPUPDTVN=LCPUPDTM; CPUEDTVN=LCPUEDTM; CPUWAIVN=CPUWAITM; PCTCPBUN=PCTCPUBY; PCTONLVN=TEMPONLN; IF CAIVN EQ '.......1'B OR SMF70ONT GT 0 THEN DO; CPUWAIT=CPUWAIT+CPUWAIVN; MVSWAIT=MVSWAIT+MVSWAIVN; CPUEFF =CPUEFF +LCPUEDTM; END; /*END, ONLINE?*/ END; ELSE IF LCPUADDR=101 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAIVO; MVSWAIVO=CPUWAIVO; CPUPDTVO=LCPUPDTM; CPUEDTVO=LCPUEDTM; CPUWAIVO=CPUWAITM; PCTCPBUO=PCTCPUBY; PCTONLVO=TEMPONLN; IF CAIVO EQ '.......1'B OR SMF70ONT GT 0 THEN DO; CPUWAIT=CPUWAIT+CPUWAIVO; MVSWAIT=MVSWAIT+MVSWAIVO; CPUEFF =CPUEFF +LCPUEDTM; END; /*END, ONLINE?*/ END; ELSE IF LCPUADDR=102 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI102; MVSWAI102=CPUWAI102; CPUPDT102=LCPUPDTM; CPUEDT102=LCPUEDTM; CPUWAI102=CPUWAITM; PCTCPB102=PCTCPUBY; PCTONL102=TEMPONLN; IF CAI102 EQ '.......1'B OR SMF70ONT GT 0 THEN DO; CPUWAIT=CPUWAIT+CPUWAI102; MVSWAIT=MVSWAIT+MVSWAI102; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=103 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI103; MVSWAI103=CPUWAI103; CPUPDT103=LCPUPDTM; CPUEDT103=LCPUEDTM; CPUWAI103=CPUWAITM; PCTCPB103=PCTCPUBY; PCTONL103=TEMPONLN; IF CAI103 EQ '.......1'B OR SMF70ONT GT 0 THEN DO; CPUWAIT=CPUWAIT+CPUWAI103; MVSWAIT=MVSWAIT+MVSWAI103; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=104 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI104; MVSWAI104=CPUWAI104; CPUPDT104=LCPUPDTM; CPUEDT104=LCPUEDTM; CPUWAI104=CPUWAITM; PCTCPB104=PCTCPUBY; PCTONL104=TEMPONLN; IF CAI104 EQ '.......1'B OR SMF70ONT GT 0 THEN DO; CPUWAIT=CPUWAIT+CPUWAI104; MVSWAIT=MVSWAIT+MVSWAI104; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=105 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI105; MVSWAI105=CPUWAI105; CPUPDT105=LCPUPDTM; CPUEDT105=LCPUEDTM; CPUWAI105=CPUWAITM; PCTCPB105=PCTCPUBY; PCTONL105=TEMPONLN; IF CAI105 EQ '.......1'B OR SMF70ONT GT 0 THEN DO; CPUWAIT=CPUWAIT+CPUWAI105; MVSWAIT=MVSWAIT+MVSWAI105; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=106 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI106; MVSWAI106=CPUWAI106; CPUPDT106=LCPUPDTM; CPUEDT106=LCPUEDTM; CPUWAI106=CPUWAITM; PCTCPB106=PCTCPUBY; PCTONL106=TEMPONLN; IF CAI106 EQ '.......1'B OR SMF70ONT GT 0 THEN DO; CPUWAIT=CPUWAIT+CPUWAI106; MVSWAIT=MVSWAIT+MVSWAI106; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=107 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI107; MVSWAI107=CPUWAI107; CPUPDT107=LCPUPDTM; CPUEDT107=LCPUEDTM; CPUWAI107=CPUWAITM; PCTCPB107=PCTCPUBY; PCTONL107=TEMPONLN; IF CAI107 EQ '.......1'B OR SMF70ONT GT 0 THEN DO; CPUWAIT=CPUWAIT+CPUWAI107; MVSWAIT=MVSWAIT+MVSWAI107; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=108 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI108; MVSWAI108=CPUWAI108; CPUPDT108=LCPUPDTM; CPUEDT108=LCPUEDTM; CPUWAI108=CPUWAITM; PCTCPB108=PCTCPUBY; PCTONL108=TEMPONLN; IF CAI108 EQ '.......1'B OR SMF70ONT GT 0 THEN DO; CPUWAIT=CPUWAIT+CPUWAI108; MVSWAIT=MVSWAIT+MVSWAI108; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=109 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI109; MVSWAI109=CPUWAI109; CPUPDT109=LCPUPDTM; CPUEDT109=LCPUEDTM; CPUWAI109=CPUWAITM; PCTCPB109=PCTCPUBY; PCTONL109=TEMPONLN; IF CAI109 EQ '.......1'B OR SMF70ONT GT 0 THEN DO; CPUWAIT=CPUWAIT+CPUWAI109; MVSWAIT=MVSWAIT+MVSWAI109; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=110 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI110; MVSWAI110=CPUWAI110; CPUPDT110=LCPUPDTM; CPUEDT110=LCPUEDTM; CPUWAI110=CPUWAITM; PCTCPB110=PCTCPUBY; PCTONL110=TEMPONLN; IF CAI110 EQ '.......1'B OR SMF70ONT GT 0 THEN DO; CPUWAIT=CPUWAIT+CPUWAI110; MVSWAIT=MVSWAIT+MVSWAI110; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=111 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI111; MVSWAI111=CPUWAI111; CPUPDT111=LCPUPDTM; CPUEDT111=LCPUEDTM; CPUWAI111=CPUWAITM; PCTCPB111=PCTCPUBY; PCTONL111=TEMPONLN; IF CAI111 EQ '.......1'B OR SMF70ONT GT 0 THEN DO; CPUWAIT=CPUWAIT+CPUWAI111; MVSWAIT=MVSWAIT+MVSWAI111; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=112 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI112; MVSWAI112=CPUWAI112; CPUPDT112=LCPUPDTM; CPUEDT112=LCPUEDTM; CPUWAI112=CPUWAITM; PCTCPB112=PCTCPUBY; PCTONL112=TEMPONLN; IF CAI112 EQ '.......1'B OR SMF70ONT GT 0 THEN DO; CPUWAIT=CPUWAIT+CPUWAI112; MVSWAIT=MVSWAIT+MVSWAI112; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=113 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI113; MVSWAI113=CPUWAI113; CPUPDT113=LCPUPDTM; CPUEDT113=LCPUEDTM; CPUWAI113=CPUWAITM; PCTCPB113=PCTCPUBY; PCTONL113=TEMPONLN; IF CAI113 EQ '.......1'B OR SMF70ONT GT 0 THEN DO; CPUWAIT=CPUWAIT+CPUWAI113; MVSWAIT=MVSWAIT+MVSWAI113; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=114 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI114; MVSWAI114=CPUWAI114; CPUPDT114=LCPUPDTM; CPUEDT114=LCPUEDTM; CPUWAI114=CPUWAITM; PCTCPB114=PCTCPUBY; PCTONL114=TEMPONLN; IF CAI114 EQ '.......1'B OR SMF70ONT GT 0 THEN DO; CPUWAIT=CPUWAIT+CPUWAI114; MVSWAIT=MVSWAIT+MVSWAI114; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=115 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI115; MVSWAI115=CPUWAI115; CPUPDT115=LCPUPDTM; CPUEDT115=LCPUEDTM; CPUWAI115=CPUWAITM; PCTCPB115=PCTCPUBY; PCTONL115=TEMPONLN; IF CAI115 EQ '.......1'B OR SMF70ONT GT 0 THEN DO; CPUWAIT=CPUWAIT+CPUWAI115; MVSWAIT=MVSWAIT+MVSWAI115; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=116 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI116; MVSWAI116=CPUWAI116; CPUPDT116=LCPUPDTM; CPUEDT116=LCPUEDTM; CPUWAI116=CPUWAITM; PCTCPB116=PCTCPUBY; PCTONL116=TEMPONLN; IF CAI116 EQ '.......1'B OR SMF70ONT GT 0 THEN DO; CPUWAIT=CPUWAIT+CPUWAI116; MVSWAIT=MVSWAIT+MVSWAI116; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=117 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI117; MVSWAI117=CPUWAI117; CPUPDT117=LCPUPDTM; CPUEDT117=LCPUEDTM; CPUWAI117=CPUWAITM; PCTCPB117=PCTCPUBY; PCTONL117=TEMPONLN; IF CAI117 EQ '.......1'B OR SMF70ONT GT 0 THEN DO; CPUWAIT=CPUWAIT+CPUWAI117; MVSWAIT=MVSWAIT+MVSWAI117; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=118 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI118; MVSWAI118=CPUWAI118; CPUPDT118=LCPUPDTM; CPUEDT118=LCPUEDTM; CPUWAI118=CPUWAITM; PCTCPB118=PCTCPUBY; PCTONL118=TEMPONLN; IF CAI118 EQ '.......1'B OR SMF70ONT GT 0 THEN DO; CPUWAIT=CPUWAIT+CPUWAI118; MVSWAIT=MVSWAIT+MVSWAI118; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=119 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI119; MVSWAI119=CPUWAI119; CPUPDT119=LCPUPDTM; CPUEDT119=LCPUEDTM; CPUWAI119=CPUWAITM; PCTCPB119=PCTCPUBY; PCTONL119=TEMPONLN; IF CAI119 EQ '.......1'B OR SMF70ONT GT 0 THEN DO; CPUWAIT=CPUWAIT+CPUWAI119; MVSWAIT=MVSWAIT+MVSWAI119; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=120 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI120; MVSWAI120=CPUWAI120; CPUPDT120=LCPUPDTM; CPUEDT120=LCPUEDTM; CPUWAI120=CPUWAITM; PCTCPB120=PCTCPUBY; PCTONL120=TEMPONLN; IF CAI120 EQ '.......1'B OR SMF70ONT GT 0 THEN DO; CPUWAIT=CPUWAIT+CPUWAI120; MVSWAIT=MVSWAIT+MVSWAI120; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=121 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI121; MVSWAI121=CPUWAI121; CPUPDT121=LCPUPDTM; CPUEDT121=LCPUEDTM; CPUWAI121=CPUWAITM; PCTCPB121=PCTCPUBY; PCTONL121=TEMPONLN; IF CAI121 EQ '.......1'B OR SMF70ONT GT 0 THEN DO; CPUWAIT=CPUWAIT+CPUWAI121; MVSWAIT=MVSWAIT+MVSWAI121; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=122 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI122; MVSWAI122=CPUWAI122; CPUPDT122=LCPUPDTM; CPUEDT122=LCPUEDTM; CPUWAI122=CPUWAITM; PCTCPB122=PCTCPUBY; PCTONL122=TEMPONLN; IF CAI122 EQ '.......1'B OR SMF70ONT GT 0 THEN DO; CPUWAIT=CPUWAIT+CPUWAI122; MVSWAIT=MVSWAIT+MVSWAI122; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=123 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI123; MVSWAI123=CPUWAI123; CPUPDT123=LCPUPDTM; CPUEDT123=LCPUEDTM; CPUWAI123=CPUWAITM; PCTCPB123=PCTCPUBY; PCTONL123=TEMPONLN; IF CAI123 EQ '.......1'B OR SMF70ONT GT 0 THEN DO; CPUWAIT=CPUWAIT+CPUWAI123; MVSWAIT=MVSWAIT+MVSWAI123; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=124 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI124; MVSWAI124=CPUWAI124; CPUPDT124=LCPUPDTM; CPUEDT124=LCPUEDTM; CPUWAI124=CPUWAITM; PCTCPB124=PCTCPUBY; PCTONL124=TEMPONLN; IF CAI124 EQ '.......1'B OR SMF70ONT GT 0 THEN DO; CPUWAIT=CPUWAIT+CPUWAI124; MVSWAIT=MVSWAIT+MVSWAI124; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=125 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI125; MVSWAI125=CPUWAI125; CPUPDT125=LCPUPDTM; CPUEDT125=LCPUEDTM; CPUWAI125=CPUWAITM; PCTCPB125=PCTCPUBY; PCTONL125=TEMPONLN; IF CAI125 EQ '.......1'B OR SMF70ONT GT 0 THEN DO; CPUWAIT=CPUWAIT+CPUWAI125; MVSWAIT=MVSWAIT+MVSWAI125; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=126 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI126; MVSWAI126=CPUWAI126; CPUPDT126=LCPUPDTM; CPUEDT126=LCPUEDTM; CPUWAI126=CPUWAITM; PCTCPB126=PCTCPUBY; PCTONL126=TEMPONLN; IF CAI126 EQ '.......1'B OR SMF70ONT GT 0 THEN DO; CPUWAIT=CPUWAIT+CPUWAI126; MVSWAIT=MVSWAIT+MVSWAI126; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=127 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI127; MVSWAI127=CPUWAI127; CPUPDT127=LCPUPDTM; CPUEDT127=LCPUEDTM; CPUWAI127=CPUWAITM; PCTCPB127=PCTCPUBY; PCTONL127=TEMPONLN; IF CAI127 EQ '.......1'B OR SMF70ONT GT 0 THEN DO; CPUWAIT=CPUWAIT+CPUWAI127; MVSWAIT=MVSWAIT+MVSWAI127; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=128 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI128; MVSWAI128=CPUWAI128; CPUPDT128=LCPUPDTM; CPUEDT128=LCPUEDTM; CPUWAI128=CPUWAITM; PCTCPB128=PCTCPUBY; PCTONL128=TEMPONLN; IF CAI128 EQ '.......1'B OR SMF70ONT GT 0 THEN DO; CPUWAIT=CPUWAIT+CPUWAI128; MVSWAIT=MVSWAIT+MVSWAI128; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=129 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI129; MVSWAI129=CPUWAI129; CPUPDT129=LCPUPDTM; CPUEDT129=LCPUEDTM; CPUWAI129=CPUWAITM; PCTCPB129=PCTCPUBY; PCTONL129=TEMPONLN; IF CAI129 EQ '.......1'B OR SMF70ONT GT 0 THEN DO; CPUWAIT=CPUWAIT+CPUWAI129; MVSWAIT=MVSWAIT+MVSWAI129; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=130 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI130; MVSWAI130=CPUWAI130; CPUPDT130=LCPUPDTM; CPUEDT130=LCPUEDTM; CPUWAI130=CPUWAITM; PCTCPB130=PCTCPUBY; PCTONL130=TEMPONLN; IF CAI130 EQ '.......1'B OR SMF70ONT GT 0 THEN DO; CPUWAIT=CPUWAIT+CPUWAI130; MVSWAIT=MVSWAIT+MVSWAI130; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=131 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI131; MVSWAI131=CPUWAI131; CPUPDT131=LCPUPDTM; CPUEDT131=LCPUEDTM; CPUWAI131=CPUWAITM; PCTCPB131=PCTCPUBY; PCTONL131=TEMPONLN; IF CAI131 EQ '.......1'B OR SMF70ONT GT 0 THEN DO; CPUWAIT=CPUWAIT+CPUWAI131; MVSWAIT=MVSWAIT+MVSWAI131; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=132 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI132; MVSWAI132=CPUWAI132; CPUPDT132=LCPUPDTM; CPUEDT132=LCPUEDTM; CPUWAI132=CPUWAITM; PCTCPB132=PCTCPUBY; PCTONL132=TEMPONLN; IF CAI132 EQ '.......1'B OR SMF70ONT GT 0 THEN DO; CPUWAIT=CPUWAIT+CPUWAI132; MVSWAIT=MVSWAIT+MVSWAI132; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=133 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI133; MVSWAI133=CPUWAI133; CPUPDT133=LCPUPDTM; CPUEDT133=LCPUEDTM; CPUWAI133=CPUWAITM; PCTCPB133=PCTCPUBY; PCTONL133=TEMPONLN; IF CAI133 EQ '.......1'B OR SMF70ONT GT 0 THEN DO; CPUWAIT=CPUWAIT+CPUWAI133; MVSWAIT=MVSWAIT+MVSWAI133; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=134 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI134; MVSWAI134=CPUWAI134; CPUPDT134=LCPUPDTM; CPUEDT134=LCPUEDTM; CPUWAI134=CPUWAITM; PCTCPB134=PCTCPUBY; PCTONL134=TEMPONLN; IF CAI134 EQ '.......1'B OR SMF70ONT GT 0 THEN DO; CPUWAIT=CPUWAIT+CPUWAI134; MVSWAIT=MVSWAIT+MVSWAI134; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=135 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI135; MVSWAI135=CPUWAI135; CPUPDT135=LCPUPDTM; CPUEDT135=LCPUEDTM; CPUWAI135=CPUWAITM; PCTCPB135=PCTCPUBY; PCTONL135=TEMPONLN; IF CAI135 EQ '.......1'B OR SMF70ONT GT 0 THEN DO; CPUWAIT=CPUWAIT+CPUWAI135; MVSWAIT=MVSWAIT+MVSWAI135; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=136 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI136; MVSWAI136=CPUWAI136; CPUPDT136=LCPUPDTM; CPUEDT136=LCPUEDTM; CPUWAI136=CPUWAITM; PCTCPB136=PCTCPUBY; PCTONL136=TEMPONLN; IF CAI136 EQ '.......1'B OR SMF70ONT GT 0 THEN DO; CPUWAIT=CPUWAIT+CPUWAI136; MVSWAIT=MVSWAIT+MVSWAI136; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=137 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI137; MVSWAI137=CPUWAI137; CPUPDT137=LCPUPDTM; CPUEDT137=LCPUEDTM; CPUWAI137=CPUWAITM; PCTCPB137=PCTCPUBY; PCTONL137=TEMPONLN; IF CAI137 EQ '.......1'B OR SMF70ONT GT 0 THEN DO; CPUWAIT=CPUWAIT+CPUWAI137; MVSWAIT=MVSWAIT+MVSWAI137; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=138 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI138; MVSWAI138=CPUWAI138; CPUPDT138=LCPUPDTM; CPUEDT138=LCPUEDTM; CPUWAI138=CPUWAITM; PCTCPB138=PCTCPUBY; PCTONL138=TEMPONLN; IF CAI138 EQ '.......1'B OR SMF70ONT GT 0 THEN DO; CPUWAIT=CPUWAIT+CPUWAI138; MVSWAIT=MVSWAIT+MVSWAI138; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=139 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI139; MVSWAI139=CPUWAI139; CPUPDT139=LCPUPDTM; CPUEDT139=LCPUEDTM; CPUWAI139=CPUWAITM; PCTCPB139=PCTCPUBY; PCTONL139=TEMPONLN; IF CAI139 EQ '.......1'B OR SMF70ONT GT 0 THEN DO; CPUWAIT=CPUWAIT+CPUWAI139; MVSWAIT=MVSWAIT+MVSWAI139; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=140 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI140; MVSWAI140=CPUWAI140; CPUPDT140=LCPUPDTM; CPUEDT140=LCPUEDTM; CPUWAI140=CPUWAITM; PCTCPB140=PCTCPUBY; PCTONL140=TEMPONLN; IF CAI140 EQ '.......1'B OR SMF70ONT GT 0 THEN DO; CPUWAIT=CPUWAIT+CPUWAI140; MVSWAIT=MVSWAIT+MVSWAI140; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=141 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI141; MVSWAI141=CPUWAI141; CPUPDT141=LCPUPDTM; CPUEDT141=LCPUEDTM; CPUWAI141=CPUWAITM; PCTCPB141=PCTCPUBY; PCTONL141=TEMPONLN; IF CAI141 EQ '.......1'B OR SMF70ONT GT 0 THEN DO; CPUWAIT=CPUWAIT+CPUWAI141; MVSWAIT=MVSWAIT+MVSWAI141; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=142 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI142; MVSWAI142=CPUWAI142; CPUPDT142=LCPUPDTM; CPUEDT142=LCPUEDTM; CPUWAI142=CPUWAITM; PCTCPB142=PCTCPUBY; PCTONL142=TEMPONLN; IF CAI142 EQ '.......1'B OR SMF70ONT GT 0 THEN DO; CPUWAIT=CPUWAIT+CPUWAI142; MVSWAIT=MVSWAIT+MVSWAI142; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=143 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI143; MVSWAI143=CPUWAI143; CPUPDT143=LCPUPDTM; CPUEDT143=LCPUEDTM; CPUWAI143=CPUWAITM; PCTCPB143=PCTCPUBY; PCTONL143=TEMPONLN; IF CAI143 EQ '.......1'B OR SMF70ONT GT 0 THEN DO; CPUWAIT=CPUWAIT+CPUWAI143; MVSWAIT=MVSWAIT+MVSWAI143; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=144 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI144; MVSWAI144=CPUWAI144; CPUPDT144=LCPUPDTM; CPUEDT144=LCPUEDTM; CPUWAI144=CPUWAITM; PCTCPB144=PCTCPUBY; PCTONL144=TEMPONLN; IF CAI144 EQ '.......1'B OR SMF70ONT GT 0 THEN DO; CPUWAIT=CPUWAIT+CPUWAI144; MVSWAIT=MVSWAIT+MVSWAI144; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=145 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI145; MVSWAI145=CPUWAI145; CPUPDT145=LCPUPDTM; CPUEDT145=LCPUEDTM; CPUWAI145=CPUWAITM; PCTCPB145=PCTCPUBY; PCTONL145=TEMPONLN; IF CAI145 EQ '.......1'B OR SMF70ONT GT 0 THEN DO; CPUWAIT=CPUWAIT+CPUWAI145; MVSWAIT=MVSWAIT+MVSWAI145; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=146 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI146; MVSWAI146=CPUWAI146; CPUPDT146=LCPUPDTM; CPUEDT146=LCPUEDTM; CPUWAI146=CPUWAITM; PCTCPB146=PCTCPUBY; PCTONL146=TEMPONLN; IF CAI146 EQ '.......1'B OR SMF70ONT GT 0 THEN DO; CPUWAIT=CPUWAIT+CPUWAI146; MVSWAIT=MVSWAIT+MVSWAI146; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=147 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI147; MVSWAI147=CPUWAI147; CPUPDT147=LCPUPDTM; CPUEDT147=LCPUEDTM; CPUWAI147=CPUWAITM; PCTCPB147=PCTCPUBY; PCTONL147=TEMPONLN; IF CAI147 EQ '.......1'B OR SMF70ONT GT 0 THEN DO; CPUWAIT=CPUWAIT+CPUWAI147; MVSWAIT=MVSWAIT+MVSWAI147; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=148 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI148; MVSWAI148=CPUWAI148; CPUPDT148=LCPUPDTM; CPUEDT148=LCPUEDTM; CPUWAI148=CPUWAITM; PCTCPB148=PCTCPUBY; PCTONL148=TEMPONLN; IF CAI148 EQ '.......1'B OR SMF70ONT GT 0 THEN DO; CPUWAIT=CPUWAIT+CPUWAI148; MVSWAIT=MVSWAIT+MVSWAI148; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=149 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI149; MVSWAI149=CPUWAI149; CPUPDT149=LCPUPDTM; CPUEDT149=LCPUEDTM; CPUWAI149=CPUWAITM; PCTCPB149=PCTCPUBY; PCTONL149=TEMPONLN; IF CAI149 EQ '.......1'B OR SMF70ONT GT 0 THEN DO; CPUWAIT=CPUWAIT+CPUWAI149; MVSWAIT=MVSWAIT+MVSWAI149; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=150 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI150; MVSWAI150=CPUWAI150; CPUPDT150=LCPUPDTM; CPUEDT150=LCPUEDTM; CPUWAI150=CPUWAITM; PCTCPB150=PCTCPUBY; PCTONL150=TEMPONLN; IF CAI150 EQ '.......1'B OR SMF70ONT GT 0 THEN DO; CPUWAIT=CPUWAIT+CPUWAI150; MVSWAIT=MVSWAIT+MVSWAI150; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=151 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI151; MVSWAI151=CPUWAI151; CPUPDT151=LCPUPDTM; CPUEDT151=LCPUEDTM; CPUWAI151=CPUWAITM; PCTCPB151=PCTCPUBY; PCTONL151=TEMPONLN; IF CAI151 EQ '.......1'B OR SMF70ONT GT 0 THEN DO; CPUWAIT=CPUWAIT+CPUWAI151; MVSWAIT=MVSWAIT+MVSWAI151; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=152 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI152; MVSWAI152=CPUWAI152; CPUPDT152=LCPUPDTM; CPUEDT152=LCPUEDTM; CPUWAI152=CPUWAITM; PCTCPB152=PCTCPUBY; PCTONL152=TEMPONLN; IF CAI152 EQ '.......1'B OR SMF70ONT GT 0 THEN DO; CPUWAIT=CPUWAIT+CPUWAI152; MVSWAIT=MVSWAIT+MVSWAI152; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=153 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI153; MVSWAI153=CPUWAI153; CPUPDT153=LCPUPDTM; CPUEDT153=LCPUEDTM; CPUWAI153=CPUWAITM; PCTCPB153=PCTCPUBY; PCTONL153=TEMPONLN; IF CAI153 EQ '.......1'B OR SMF70ONT GT 0 THEN DO; CPUWAIT=CPUWAIT+CPUWAI153; MVSWAIT=MVSWAIT+MVSWAI153; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=154 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI154; MVSWAI154=CPUWAI154; CPUPDT154=LCPUPDTM; CPUEDT154=LCPUEDTM; CPUWAI154=CPUWAITM; PCTCPB154=PCTCPUBY; PCTONL154=TEMPONLN; IF CAI154 EQ '.......1'B OR SMF70ONT GT 0 THEN DO; CPUWAIT=CPUWAIT+CPUWAI154; MVSWAIT=MVSWAIT+MVSWAI154; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=155 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI155; MVSWAI155=CPUWAI155; CPUPDT155=LCPUPDTM; CPUEDT155=LCPUEDTM; CPUWAI155=CPUWAITM; PCTCPB155=PCTCPUBY; PCTONL155=TEMPONLN; IF CAI155 EQ '.......1'B OR SMF70ONT GT 0 THEN DO; CPUWAIT=CPUWAIT+CPUWAI155; MVSWAIT=MVSWAIT+MVSWAI155; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=156 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI156; MVSWAI156=CPUWAI156; CPUPDT156=LCPUPDTM; CPUEDT156=LCPUEDTM; CPUWAI156=CPUWAITM; PCTCPB156=PCTCPUBY; PCTONL156=TEMPONLN; IF CAI156 EQ '.......1'B OR SMF70ONT GT 0 THEN DO; CPUWAIT=CPUWAIT+CPUWAI156; MVSWAIT=MVSWAIT+MVSWAI156; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=157 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI157; MVSWAI157=CPUWAI157; CPUPDT157=LCPUPDTM; CPUEDT157=LCPUEDTM; CPUWAI157=CPUWAITM; PCTCPB157=PCTCPUBY; PCTONL157=TEMPONLN; IF CAI157 EQ '.......1'B OR SMF70ONT GT 0 THEN DO; CPUWAIT=CPUWAIT+CPUWAI157; MVSWAIT=MVSWAIT+MVSWAI157; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=158 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI158; MVSWAI158=CPUWAI158; CPUPDT158=LCPUPDTM; CPUEDT158=LCPUEDTM; CPUWAI158=CPUWAITM; PCTCPB158=PCTCPUBY; PCTONL158=TEMPONLN; IF CAI158 EQ '.......1'B OR SMF70ONT GT 0 THEN DO; CPUWAIT=CPUWAIT+CPUWAI158; MVSWAIT=MVSWAIT+MVSWAI158; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=159 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI159; MVSWAI159=CPUWAI159; CPUPDT159=LCPUPDTM; CPUEDT159=LCPUEDTM; CPUWAI159=CPUWAITM; PCTCPB159=PCTCPUBY; PCTONL159=TEMPONLN; IF CAI159 EQ '.......1'B OR SMF70ONT GT 0 THEN DO; CPUWAIT=CPUWAIT+CPUWAI159; MVSWAIT=MVSWAIT+MVSWAI159; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=160 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI160; MVSWAI160=CPUWAI160; CPUPDT160=LCPUPDTM; CPUEDT160=LCPUEDTM; CPUWAI160=CPUWAITM; PCTCPB160=PCTCPUBY; PCTONL160=TEMPONLN; IF CAI160 EQ '.......1'B OR SMF70ONT GT 0 THEN DO; CPUWAIT=CPUWAIT+CPUWAI160; MVSWAIT=MVSWAIT+MVSWAI160; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=161 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI161; MVSWAI161=CPUWAI161; CPUPDT161=LCPUPDTM; CPUEDT161=LCPUEDTM; CPUWAI161=CPUWAITM; PCTCPB161=PCTCPUBY; PCTONL161=TEMPONLN; IF CAI161 EQ '.......1'B OR SMF70ONT GT 0 THEN DO; CPUWAIT=CPUWAIT+CPUWAI161; MVSWAIT=MVSWAIT+MVSWAI161; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=162 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI162; MVSWAI162=CPUWAI162; CPUPDT162=LCPUPDTM; CPUEDT162=LCPUEDTM; CPUWAI162=CPUWAITM; PCTCPB162=PCTCPUBY; PCTONL162=TEMPONLN; IF CAI162 EQ '.......1'B OR SMF70ONT GT 0 THEN DO; CPUWAIT=CPUWAIT+CPUWAI162; MVSWAIT=MVSWAIT+MVSWAI162; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=163 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI163; MVSWAI163=CPUWAI163; CPUPDT163=LCPUPDTM; CPUEDT163=LCPUEDTM; CPUWAI163=CPUWAITM; PCTCPB163=PCTCPUBY; PCTONL163=TEMPONLN; IF CAI163 EQ '.......1'B OR SMF70ONT GT 0 THEN DO; CPUWAIT=CPUWAIT+CPUWAI163; MVSWAIT=MVSWAIT+MVSWAI163; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=164 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI164; MVSWAI164=CPUWAI164; CPUPDT164=LCPUPDTM; CPUEDT164=LCPUEDTM; CPUWAI164=CPUWAITM; PCTCPB164=PCTCPUBY; PCTONL164=TEMPONLN; IF CAI164 EQ '.......1'B OR SMF70ONT GT 0 THEN DO; CPUWAIT=CPUWAIT+CPUWAI164; MVSWAIT=MVSWAIT+MVSWAI164; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=165 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI165; MVSWAI165=CPUWAI165; CPUPDT165=LCPUPDTM; CPUEDT165=LCPUEDTM; CPUWAI165=CPUWAITM; PCTCPB165=PCTCPUBY; PCTONL165=TEMPONLN; IF CAI165 EQ '.......1'B OR SMF70ONT GT 0 THEN DO; CPUWAIT=CPUWAIT+CPUWAI165; MVSWAIT=MVSWAIT+MVSWAI165; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=166 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI166; MVSWAI166=CPUWAI166; CPUPDT166=LCPUPDTM; CPUEDT166=LCPUEDTM; CPUWAI166=CPUWAITM; PCTCPB166=PCTCPUBY; PCTONL166=TEMPONLN; IF CAI166 EQ '.......1'B OR SMF70ONT GT 0 THEN DO; CPUWAIT=CPUWAIT+CPUWAI166; MVSWAIT=MVSWAIT+MVSWAI166; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=167 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI167; MVSWAI167=CPUWAI167; CPUPDT167=LCPUPDTM; CPUEDT167=LCPUEDTM; CPUWAI167=CPUWAITM; PCTCPB167=PCTCPUBY; PCTONL167=TEMPONLN; IF CAI167 EQ '.......1'B OR SMF70ONT GT 0 THEN DO; CPUWAIT=CPUWAIT+CPUWAI167; MVSWAIT=MVSWAIT+MVSWAI167; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=168 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI168; MVSWAI168=CPUWAI168; CPUPDT168=LCPUPDTM; CPUEDT168=LCPUEDTM; CPUWAI168=CPUWAITM; PCTCPB168=PCTCPUBY; PCTONL168=TEMPONLN; IF CAI168 EQ '.......1'B OR SMF70ONT GT 0 THEN DO; CPUWAIT=CPUWAIT+CPUWAI168; MVSWAIT=MVSWAIT+MVSWAI168; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=169 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI169; MVSWAI169=CPUWAI169; CPUPDT169=LCPUPDTM; CPUEDT169=LCPUEDTM; CPUWAI169=CPUWAITM; PCTCPB169=PCTCPUBY; PCTONL169=TEMPONLN; IF CAI169 EQ '.......1'B OR SMF70ONT GT 0 THEN DO; CPUWAIT=CPUWAIT+CPUWAI169; MVSWAIT=MVSWAIT+MVSWAI169; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=170 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI170; MVSWAI170=CPUWAI170; CPUPDT170=LCPUPDTM; CPUEDT170=LCPUEDTM; CPUWAI170=CPUWAITM; PCTCPB170=PCTCPUBY; PCTONL170=TEMPONLN; IF CAI170 EQ '.......1'B OR SMF70ONT GT 0 THEN DO; CPUWAIT=CPUWAIT+CPUWAI170; MVSWAIT=MVSWAIT+MVSWAI170; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=171 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI171; MVSWAI171=CPUWAI171; CPUPDT171=LCPUPDTM; CPUEDT171=LCPUEDTM; CPUWAI171=CPUWAITM; PCTCPB171=PCTCPUBY; PCTONL171=TEMPONLN; IF CAI171 EQ '.......1'B OR SMF70ONT GT 0 THEN DO; CPUWAIT=CPUWAIT+CPUWAI171; MVSWAIT=MVSWAIT+MVSWAI171; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=172 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI172; MVSWAI172=CPUWAI172; CPUPDT172=LCPUPDTM; CPUEDT172=LCPUEDTM; CPUWAI172=CPUWAITM; PCTCPB172=PCTCPUBY; PCTONL172=TEMPONLN; IF CAI172 EQ '.......1'B OR SMF70ONT GT 0 THEN DO; CPUWAIT=CPUWAIT+CPUWAI172; MVSWAIT=MVSWAIT+MVSWAI172; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=173 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI173; MVSWAI173=CPUWAI173; CPUPDT173=LCPUPDTM; CPUEDT173=LCPUEDTM; CPUWAI173=CPUWAITM; PCTCPB173=PCTCPUBY; PCTONL173=TEMPONLN; IF CAI173 EQ '.......1'B OR SMF70ONT GT 0 THEN DO; CPUWAIT=CPUWAIT+CPUWAI173; MVSWAIT=MVSWAIT+MVSWAI173; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=174 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI174; MVSWAI174=CPUWAI174; CPUPDT174=LCPUPDTM; CPUEDT174=LCPUEDTM; CPUWAI174=CPUWAITM; PCTCPB174=PCTCPUBY; PCTONL174=TEMPONLN; IF CAI174 EQ '.......1'B OR SMF70ONT GT 0 THEN DO; CPUWAIT=CPUWAIT+CPUWAI174; MVSWAIT=MVSWAIT+MVSWAI174; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=175 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI175; MVSWAI175=CPUWAI175; CPUPDT175=LCPUPDTM; CPUEDT175=LCPUEDTM; CPUWAI175=CPUWAITM; PCTCPB175=PCTCPUBY; PCTONL175=TEMPONLN; IF CAI175 EQ '.......1'B OR SMF70ONT GT 0 THEN DO; CPUWAIT=CPUWAIT+CPUWAI175; MVSWAIT=MVSWAIT+MVSWAI175; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=176 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI176; MVSWAI176=CPUWAI176; CPUPDT176=LCPUPDTM; CPUEDT176=LCPUEDTM; CPUWAI176=CPUWAITM; PCTCPB176=PCTCPUBY; PCTONL176=TEMPONLN; IF CAI176 EQ '.......1'B OR SMF70ONT GT 0 THEN DO; CPUWAIT=CPUWAIT+CPUWAI176; MVSWAIT=MVSWAIT+MVSWAI176; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=177 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI177; MVSWAI177=CPUWAI177; CPUPDT177=LCPUPDTM; CPUEDT177=LCPUEDTM; CPUWAI177=CPUWAITM; PCTCPB177=PCTCPUBY; PCTONL177=TEMPONLN; IF CAI177 EQ '.......1'B OR SMF70ONT GT 0 THEN DO; CPUWAIT=CPUWAIT+CPUWAI177; MVSWAIT=MVSWAIT+MVSWAI177; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=178 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI178; MVSWAI178=CPUWAI178; CPUPDT178=LCPUPDTM; CPUEDT178=LCPUEDTM; CPUWAI178=CPUWAITM; PCTCPB178=PCTCPUBY; PCTONL178=TEMPONLN; IF CAI178 EQ '.......1'B OR SMF70ONT GT 0 THEN DO; CPUWAIT=CPUWAIT+CPUWAI178; MVSWAIT=MVSWAIT+MVSWAI178; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=179 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI179; MVSWAI179=CPUWAI179; CPUPDT179=LCPUPDTM; CPUEDT179=LCPUEDTM; CPUWAI179=CPUWAITM; PCTCPB179=PCTCPUBY; PCTONL179=TEMPONLN; IF CAI179 EQ '.......1'B OR SMF70ONT GT 0 THEN DO; CPUWAIT=CPUWAIT+CPUWAI179; MVSWAIT=MVSWAIT+MVSWAI179; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=180 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI180; MVSWAI180=CPUWAI180; CPUPDT180=LCPUPDTM; CPUEDT180=LCPUEDTM; CPUWAI180=CPUWAITM; PCTCPB180=PCTCPUBY; PCTONL180=TEMPONLN; IF CAI180 EQ '.......1'B OR SMF70ONT GT 0 THEN DO; CPUWAIT=CPUWAIT+CPUWAI180; MVSWAIT=MVSWAIT+MVSWAI180; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=181 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI181; MVSWAI181=CPUWAI181; CPUPDT181=LCPUPDTM; CPUEDT181=LCPUEDTM; CPUWAI181=CPUWAITM; PCTCPB181=PCTCPUBY; PCTONL181=TEMPONLN; IF CAI181 EQ '.......1'B OR SMF70ONT GT 0 THEN DO; CPUWAIT=CPUWAIT+CPUWAI181; MVSWAIT=MVSWAIT+MVSWAI181; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=182 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI182; MVSWAI182=CPUWAI182; CPUPDT182=LCPUPDTM; CPUEDT182=LCPUEDTM; CPUWAI182=CPUWAITM; PCTCPB182=PCTCPUBY; PCTONL182=TEMPONLN; IF CAI182 EQ '.......1'B OR SMF70ONT GT 0 THEN DO; CPUWAIT=CPUWAIT+CPUWAI182; MVSWAIT=MVSWAIT+MVSWAI182; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=183 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI183; MVSWAI183=CPUWAI183; CPUPDT183=LCPUPDTM; CPUEDT183=LCPUEDTM; CPUWAI183=CPUWAITM; PCTCPB183=PCTCPUBY; PCTONL183=TEMPONLN; IF CAI183 EQ '.......1'B OR SMF70ONT GT 0 THEN DO; CPUWAIT=CPUWAIT+CPUWAI183; MVSWAIT=MVSWAIT+MVSWAI183; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=184 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI184; MVSWAI184=CPUWAI184; CPUPDT184=LCPUPDTM; CPUEDT184=LCPUEDTM; CPUWAI184=CPUWAITM; PCTCPB184=PCTCPUBY; PCTONL184=TEMPONLN; IF CAI184 EQ '.......1'B OR SMF70ONT GT 0 THEN DO; CPUWAIT=CPUWAIT+CPUWAI184; MVSWAIT=MVSWAIT+MVSWAI184; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=185 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI185; MVSWAI185=CPUWAI185; CPUPDT185=LCPUPDTM; CPUEDT185=LCPUEDTM; CPUWAI185=CPUWAITM; PCTCPB185=PCTCPUBY; PCTONL185=TEMPONLN; IF CAI185 EQ '.......1'B OR SMF70ONT GT 0 THEN DO; CPUWAIT=CPUWAIT+CPUWAI185; MVSWAIT=MVSWAIT+MVSWAI185; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=186 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI186; MVSWAI186=CPUWAI186; CPUPDT186=LCPUPDTM; CPUEDT186=LCPUEDTM; CPUWAI186=CPUWAITM; PCTCPB186=PCTCPUBY; PCTONL186=TEMPONLN; IF CAI186 EQ '.......1'B OR SMF70ONT GT 0 THEN DO; CPUWAIT=CPUWAIT+CPUWAI186; MVSWAIT=MVSWAIT+MVSWAI186; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=187 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI187; MVSWAI187=CPUWAI187; CPUPDT187=LCPUPDTM; CPUEDT187=LCPUEDTM; CPUWAI187=CPUWAITM; PCTCPB187=PCTCPUBY; PCTONL187=TEMPONLN; IF CAI187 EQ '.......1'B OR SMF70ONT GT 0 THEN DO; CPUWAIT=CPUWAIT+CPUWAI187; MVSWAIT=MVSWAIT+MVSWAI187; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=188 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI188; MVSWAI188=CPUWAI188; CPUPDT188=LCPUPDTM; CPUEDT188=LCPUEDTM; CPUWAI188=CPUWAITM; PCTCPB188=PCTCPUBY; PCTONL188=TEMPONLN; IF CAI188 EQ '.......1'B OR SMF70ONT GT 0 THEN DO; CPUWAIT=CPUWAIT+CPUWAI188; MVSWAIT=MVSWAIT+MVSWAI188; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=189 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI189; MVSWAI189=CPUWAI189; CPUPDT189=LCPUPDTM; CPUEDT189=LCPUEDTM; CPUWAI189=CPUWAITM; PCTCPB189=PCTCPUBY; PCTONL189=TEMPONLN; IF CAI189 EQ '.......1'B OR SMF70ONT GT 0 THEN DO; CPUWAIT=CPUWAIT+CPUWAI189; MVSWAIT=MVSWAIT+MVSWAI189; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=190 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI190; MVSWAI190=CPUWAI190; CPUPDT190=LCPUPDTM; CPUEDT190=LCPUEDTM; CPUWAI190=CPUWAITM; PCTCPB190=PCTCPUBY; PCTONL190=TEMPONLN; IF CAI190 EQ '.......1'B OR SMF70ONT GT 0 THEN DO; CPUWAIT=CPUWAIT+CPUWAI190; MVSWAIT=MVSWAIT+MVSWAI190; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=191 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI191; MVSWAI191=CPUWAI191; CPUPDT191=LCPUPDTM; CPUEDT191=LCPUEDTM; CPUWAI191=CPUWAITM; PCTCPB191=PCTCPUBY; PCTONL191=TEMPONLN; IF CAI191 EQ '.......1'B OR SMF70ONT GT 0 THEN DO; CPUWAIT=CPUWAIT+CPUWAI191; MVSWAIT=MVSWAIT+MVSWAI191; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=192 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI192; MVSWAI192=CPUWAI192; CPUPDT192=LCPUPDTM; CPUEDT192=LCPUEDTM; CPUWAI192=CPUWAITM; PCTCPB192=PCTCPUBY; PCTONL192=TEMPONLN; IF CAI192 EQ '.......1'B OR SMF70ONT GT 0 THEN DO; CPUWAIT=CPUWAIT+CPUWAI192; MVSWAIT=MVSWAIT+MVSWAI192; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=193 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI193; MVSWAI193=CPUWAI193; CPUPDT193=LCPUPDTM; CPUEDT193=LCPUEDTM; CPUWAI193=CPUWAITM; PCTCPB193=PCTCPUBY; PCTONL193=TEMPONLN; IF CAI193 EQ '.......1'B OR SMF70ONT GT 0 THEN DO; CPUWAIT=CPUWAIT+CPUWAI193; MVSWAIT=MVSWAIT+MVSWAI193; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=194 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI194; MVSWAI194=CPUWAI194; CPUPDT194=LCPUPDTM; CPUEDT194=LCPUEDTM; CPUWAI194=CPUWAITM; PCTCPB194=PCTCPUBY; PCTONL194=TEMPONLN; IF CAI194 EQ '.......1'B OR SMF70ONT GT 0 THEN DO; CPUWAIT=CPUWAIT+CPUWAI194; MVSWAIT=MVSWAIT+MVSWAI194; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=195 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI195; MVSWAI195=CPUWAI195; CPUPDT195=LCPUPDTM; CPUEDT195=LCPUEDTM; CPUWAI195=CPUWAITM; PCTCPB195=PCTCPUBY; PCTONL195=TEMPONLN; IF CAI195 EQ '.......1'B OR SMF70ONT GT 0 THEN DO; CPUWAIT=CPUWAIT+CPUWAI195; MVSWAIT=MVSWAIT+MVSWAI195; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=196 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI196; MVSWAI196=CPUWAI196; CPUPDT196=LCPUPDTM; CPUEDT196=LCPUEDTM; CPUWAI196=CPUWAITM; PCTCPB196=PCTCPUBY; PCTONL196=TEMPONLN; IF CAI196 EQ '.......1'B OR SMF70ONT GT 0 THEN DO; CPUWAIT=CPUWAIT+CPUWAI196; MVSWAIT=MVSWAIT+MVSWAI196; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=197 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI197; MVSWAI197=CPUWAI197; CPUPDT197=LCPUPDTM; CPUEDT197=LCPUEDTM; CPUWAI197=CPUWAITM; PCTCPB197=PCTCPUBY; PCTONL197=TEMPONLN; IF CAI197 EQ '.......1'B OR SMF70ONT GT 0 THEN DO; CPUWAIT=CPUWAIT+CPUWAI197; MVSWAIT=MVSWAIT+MVSWAI197; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=198 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI198; MVSWAI198=CPUWAI198; CPUPDT198=LCPUPDTM; CPUEDT198=LCPUEDTM; CPUWAI198=CPUWAITM; PCTCPB198=PCTCPUBY; PCTONL198=TEMPONLN; IF CAI198 EQ '.......1'B OR SMF70ONT GT 0 THEN DO; CPUWAIT=CPUWAIT+CPUWAI198; MVSWAIT=MVSWAIT+MVSWAI198; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=199 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI199; MVSWAI199=CPUWAI199; CPUPDT199=LCPUPDTM; CPUEDT199=LCPUEDTM; CPUWAI199=CPUWAITM; PCTCPB199=PCTCPUBY; PCTONL199=TEMPONLN; IF CAI199 EQ '.......1'B OR SMF70ONT GT 0 THEN DO; CPUWAIT=CPUWAIT+CPUWAI199; MVSWAIT=MVSWAIT+MVSWAI199; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=200 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI200; MVSWAI200=CPUWAI200; CPUPDT200=LCPUPDTM; CPUEDT200=LCPUEDTM; CPUWAI200=CPUWAITM; PCTCPB200=PCTCPUBY; PCTONL200=TEMPONLN; IF CAI200 EQ '.......1'B OR SMF70ONT GT 0 THEN DO; CPUWAIT=CPUWAIT+CPUWAI200; MVSWAIT=MVSWAIT+MVSWAI200; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=201 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI201; MVSWAI201=CPUWAI201; CPUPDT201=LCPUPDTM; CPUEDT201=LCPUEDTM; CPUWAI201=CPUWAITM; PCTCPB201=PCTCPUBY; PCTONL201=TEMPONLN; IF CAI201 EQ '.......1'B OR SMF70ONT GT 0 THEN DO; CPUWAIT=CPUWAIT+CPUWAI201; MVSWAIT=MVSWAIT+MVSWAI201; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=202 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI202; MVSWAI202=CPUWAI202; CPUPDT202=LCPUPDTM; CPUEDT202=LCPUEDTM; CPUWAI202=CPUWAITM; PCTCPB202=PCTCPUBY; PCTONL202=TEMPONLN; IF CAI202 EQ '.......1'B OR SMF70ONT GT 0 THEN DO; CPUWAIT=CPUWAIT+CPUWAI202; MVSWAIT=MVSWAIT+MVSWAI202; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=203 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI203; MVSWAI203=CPUWAI203; CPUPDT203=LCPUPDTM; CPUEDT203=LCPUEDTM; CPUWAI203=CPUWAITM; PCTCPB203=PCTCPUBY; PCTONL203=TEMPONLN; IF CAI203 EQ '.......1'B OR SMF70ONT GT 0 THEN DO; CPUWAIT=CPUWAIT+CPUWAI203; MVSWAIT=MVSWAIT+MVSWAI203; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=204 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI204; MVSWAI204=CPUWAI204; CPUPDT204=LCPUPDTM; CPUEDT204=LCPUEDTM; CPUWAI204=CPUWAITM; PCTCPB204=PCTCPUBY; PCTONL204=TEMPONLN; IF CAI204 EQ '.......1'B OR SMF70ONT GT 0 THEN DO; CPUWAIT=CPUWAIT+CPUWAI204; MVSWAIT=MVSWAIT+MVSWAI204; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=205 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI205; MVSWAI205=CPUWAI205; CPUPDT205=LCPUPDTM; CPUEDT205=LCPUEDTM; CPUWAI205=CPUWAITM; PCTCPB205=PCTCPUBY; PCTONL205=TEMPONLN; IF CAI205 EQ '.......1'B OR SMF70ONT GT 0 THEN DO; CPUWAIT=CPUWAIT+CPUWAI205; MVSWAIT=MVSWAIT+MVSWAI205; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=206 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI206; MVSWAI206=CPUWAI206; CPUPDT206=LCPUPDTM; CPUEDT206=LCPUEDTM; CPUWAI206=CPUWAITM; PCTCPB206=PCTCPUBY; PCTONL206=TEMPONLN; IF CAI206 EQ '.......1'B OR SMF70ONT GT 0 THEN DO; CPUWAIT=CPUWAIT+CPUWAI206; MVSWAIT=MVSWAIT+MVSWAI206; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=207 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI207; MVSWAI207=CPUWAI207; CPUPDT207=LCPUPDTM; CPUEDT207=LCPUEDTM; CPUWAI207=CPUWAITM; PCTCPB207=PCTCPUBY; PCTONL207=TEMPONLN; IF CAI207 EQ '.......1'B OR SMF70ONT GT 0 THEN DO; CPUWAIT=CPUWAIT+CPUWAI207; MVSWAIT=MVSWAIT+MVSWAI207; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=208 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI208; MVSWAI208=CPUWAI208; CPUPDT208=LCPUPDTM; CPUEDT208=LCPUEDTM; CPUWAI208=CPUWAITM; PCTCPB208=PCTCPUBY; PCTONL208=TEMPONLN; IF CAI208 EQ '.......1'B OR SMF70ONT GT 0 THEN DO; CPUWAIT=CPUWAIT+CPUWAI208; MVSWAIT=MVSWAIT+MVSWAI208; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=209 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI209; MVSWAI209=CPUWAI209; CPUPDT209=LCPUPDTM; CPUEDT209=LCPUEDTM; CPUWAI209=CPUWAITM; PCTCPB209=PCTCPUBY; PCTONL209=TEMPONLN; IF CAI209 EQ '.......1'B OR SMF70ONT GT 0 THEN DO; CPUWAIT=CPUWAIT+CPUWAI209; MVSWAIT=MVSWAIT+MVSWAI209; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=210 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI210; MVSWAI210=CPUWAI210; CPUPDT210=LCPUPDTM; CPUEDT210=LCPUEDTM; CPUWAI210=CPUWAITM; PCTCPB210=PCTCPUBY; PCTONL210=TEMPONLN; IF CAI210 EQ '.......1'B OR SMF70ONT GT 0 THEN DO; CPUWAIT=CPUWAIT+CPUWAI210; MVSWAIT=MVSWAIT+MVSWAI210; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=211 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI211; MVSWAI211=CPUWAI211; CPUPDT211=LCPUPDTM; CPUEDT211=LCPUEDTM; CPUWAI211=CPUWAITM; PCTCPB211=PCTCPUBY; PCTONL211=TEMPONLN; IF CAI211 EQ '.......1'B OR SMF70ONT GT 0 THEN DO; CPUWAIT=CPUWAIT+CPUWAI211; MVSWAIT=MVSWAIT+MVSWAI211; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=212 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI212; MVSWAI212=CPUWAI212; CPUPDT212=LCPUPDTM; CPUEDT212=LCPUEDTM; CPUWAI212=CPUWAITM; PCTCPB212=PCTCPUBY; PCTONL212=TEMPONLN; IF CAI212 EQ '.......1'B OR SMF70ONT GT 0 THEN DO; CPUWAIT=CPUWAIT+CPUWAI212; MVSWAIT=MVSWAIT+MVSWAI212; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=213 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI213; MVSWAI213=CPUWAI213; CPUPDT213=LCPUPDTM; CPUEDT213=LCPUEDTM; CPUWAI213=CPUWAITM; PCTCPB213=PCTCPUBY; PCTONL213=TEMPONLN; IF CAI213 EQ '.......1'B OR SMF70ONT GT 0 THEN DO; CPUWAIT=CPUWAIT+CPUWAI213; MVSWAIT=MVSWAIT+MVSWAI213; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=214 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI214; MVSWAI214=CPUWAI214; CPUPDT214=LCPUPDTM; CPUEDT214=LCPUEDTM; CPUWAI214=CPUWAITM; PCTCPB214=PCTCPUBY; PCTONL214=TEMPONLN; IF CAI214 EQ '.......1'B OR SMF70ONT GT 0 THEN DO; CPUWAIT=CPUWAIT+CPUWAI214; MVSWAIT=MVSWAIT+MVSWAI214; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=215 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI215; MVSWAI215=CPUWAI215; CPUPDT215=LCPUPDTM; CPUEDT215=LCPUEDTM; CPUWAI215=CPUWAITM; PCTCPB215=PCTCPUBY; PCTONL215=TEMPONLN; IF CAI215 EQ '.......1'B OR SMF70ONT GT 0 THEN DO; CPUWAIT=CPUWAIT+CPUWAI215; MVSWAIT=MVSWAIT+MVSWAI215; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=216 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI216; MVSWAI216=CPUWAI216; CPUPDT216=LCPUPDTM; CPUEDT216=LCPUEDTM; CPUWAI216=CPUWAITM; PCTCPB216=PCTCPUBY; PCTONL216=TEMPONLN; IF CAI216 EQ '.......1'B OR SMF70ONT GT 0 THEN DO; CPUWAIT=CPUWAIT+CPUWAI216; MVSWAIT=MVSWAIT+MVSWAI216; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=217 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI217; MVSWAI217=CPUWAI217; CPUPDT217=LCPUPDTM; CPUEDT217=LCPUEDTM; CPUWAI217=CPUWAITM; PCTCPB217=PCTCPUBY; PCTONL217=TEMPONLN; IF CAI217 EQ '.......1'B OR SMF70ONT GT 0 THEN DO; CPUWAIT=CPUWAIT+CPUWAI217; MVSWAIT=MVSWAIT+MVSWAI217; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=218 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI218; MVSWAI218=CPUWAI218; CPUPDT218=LCPUPDTM; CPUEDT218=LCPUEDTM; CPUWAI218=CPUWAITM; PCTCPB218=PCTCPUBY; PCTONL218=TEMPONLN; IF CAI218 EQ '.......1'B OR SMF70ONT GT 0 THEN DO; CPUWAIT=CPUWAIT+CPUWAI218; MVSWAIT=MVSWAIT+MVSWAI218; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=219 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI219; MVSWAI219=CPUWAI219; CPUPDT219=LCPUPDTM; CPUEDT219=LCPUEDTM; CPUWAI219=CPUWAITM; PCTCPB219=PCTCPUBY; PCTONL219=TEMPONLN; IF CAI219 EQ '.......1'B OR SMF70ONT GT 0 THEN DO; CPUWAIT=CPUWAIT+CPUWAI219; MVSWAIT=MVSWAIT+MVSWAI219; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=220 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI220; MVSWAI220=CPUWAI220; CPUPDT220=LCPUPDTM; CPUEDT220=LCPUEDTM; CPUWAI220=CPUWAITM; PCTCPB220=PCTCPUBY; PCTONL220=TEMPONLN; IF CAI220 EQ '.......1'B OR SMF70ONT GT 0 THEN DO; CPUWAIT=CPUWAIT+CPUWAI220; MVSWAIT=MVSWAIT+MVSWAI220; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=221 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI221; MVSWAI221=CPUWAI221; CPUPDT221=LCPUPDTM; CPUEDT221=LCPUEDTM; CPUWAI221=CPUWAITM; PCTCPB221=PCTCPUBY; PCTONL221=TEMPONLN; IF CAI221 EQ '.......1'B OR SMF70ONT GT 0 THEN DO; CPUWAIT=CPUWAIT+CPUWAI221; MVSWAIT=MVSWAIT+MVSWAI221; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=222 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI222; MVSWAI222=CPUWAI222; CPUPDT222=LCPUPDTM; CPUEDT222=LCPUEDTM; CPUWAI222=CPUWAITM; PCTCPB222=PCTCPUBY; PCTONL222=TEMPONLN; IF CAI222 EQ '.......1'B OR SMF70ONT GT 0 THEN DO; CPUWAIT=CPUWAIT+CPUWAI222; MVSWAIT=MVSWAIT+MVSWAI222; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=223 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI223; MVSWAI223=CPUWAI223; CPUPDT223=LCPUPDTM; CPUEDT223=LCPUEDTM; CPUWAI223=CPUWAITM; PCTCPB223=PCTCPUBY; PCTONL223=TEMPONLN; IF CAI223 EQ '.......1'B OR SMF70ONT GT 0 THEN DO; CPUWAIT=CPUWAIT+CPUWAI223; MVSWAIT=MVSWAIT+MVSWAI223; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=224 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI224; MVSWAI224=CPUWAI224; CPUPDT224=LCPUPDTM; CPUEDT224=LCPUEDTM; CPUWAI224=CPUWAITM; PCTCPB224=PCTCPUBY; PCTONL224=TEMPONLN; IF CAI224 EQ '.......1'B OR SMF70ONT GT 0 THEN DO; CPUWAIT=CPUWAIT+CPUWAI224; MVSWAIT=MVSWAIT+MVSWAI224; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=225 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI225; MVSWAI225=CPUWAI225; CPUPDT225=LCPUPDTM; CPUEDT225=LCPUEDTM; CPUWAI225=CPUWAITM; PCTCPB225=PCTCPUBY; PCTONL225=TEMPONLN; IF CAI225 EQ '.......1'B OR SMF70ONT GT 0 THEN DO; CPUWAIT=CPUWAIT+CPUWAI225; MVSWAIT=MVSWAIT+MVSWAI225; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=226 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI226; MVSWAI226=CPUWAI226; CPUPDT226=LCPUPDTM; CPUEDT226=LCPUEDTM; CPUWAI226=CPUWAITM; PCTCPB226=PCTCPUBY; PCTONL226=TEMPONLN; IF CAI226 EQ '.......1'B OR SMF70ONT GT 0 THEN DO; CPUWAIT=CPUWAIT+CPUWAI226; MVSWAIT=MVSWAIT+MVSWAI226; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=227 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI227; MVSWAI227=CPUWAI227; CPUPDT227=LCPUPDTM; CPUEDT227=LCPUEDTM; CPUWAI227=CPUWAITM; PCTCPB227=PCTCPUBY; PCTONL227=TEMPONLN; IF CAI227 EQ '.......1'B OR SMF70ONT GT 0 THEN DO; CPUWAIT=CPUWAIT+CPUWAI227; MVSWAIT=MVSWAIT+MVSWAI227; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=228 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI228; MVSWAI228=CPUWAI228; CPUPDT228=LCPUPDTM; CPUEDT228=LCPUEDTM; CPUWAI228=CPUWAITM; PCTCPB228=PCTCPUBY; PCTONL228=TEMPONLN; IF CAI228 EQ '.......1'B OR SMF70ONT GT 0 THEN DO; CPUWAIT=CPUWAIT+CPUWAI228; MVSWAIT=MVSWAIT+MVSWAI228; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=229 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI229; MVSWAI229=CPUWAI229; CPUPDT229=LCPUPDTM; CPUEDT229=LCPUEDTM; CPUWAI229=CPUWAITM; PCTCPB229=PCTCPUBY; PCTONL229=TEMPONLN; IF CAI229 EQ '.......1'B OR SMF70ONT GT 0 THEN DO; CPUWAIT=CPUWAIT+CPUWAI229; MVSWAIT=MVSWAIT+MVSWAI229; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=230 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI230; MVSWAI230=CPUWAI230; CPUPDT230=LCPUPDTM; CPUEDT230=LCPUEDTM; CPUWAI230=CPUWAITM; PCTCPB230=PCTCPUBY; PCTONL230=TEMPONLN; IF CAI230 EQ '.......1'B OR SMF70ONT GT 0 THEN DO; CPUWAIT=CPUWAIT+CPUWAI230; MVSWAIT=MVSWAIT+MVSWAI230; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=231 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI231; MVSWAI231=CPUWAI231; CPUPDT231=LCPUPDTM; CPUEDT231=LCPUEDTM; CPUWAI231=CPUWAITM; PCTCPB231=PCTCPUBY; PCTONL231=TEMPONLN; IF CAI231 EQ '.......1'B OR SMF70ONT GT 0 THEN DO; CPUWAIT=CPUWAIT+CPUWAI231; MVSWAIT=MVSWAIT+MVSWAI231; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=232 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI232; MVSWAI232=CPUWAI232; CPUPDT232=LCPUPDTM; CPUEDT232=LCPUEDTM; CPUWAI232=CPUWAITM; PCTCPB232=PCTCPUBY; PCTONL232=TEMPONLN; IF CAI232 EQ '.......1'B OR SMF70ONT GT 0 THEN DO; CPUWAIT=CPUWAIT+CPUWAI232; MVSWAIT=MVSWAIT+MVSWAI232; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=233 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI233; MVSWAI233=CPUWAI233; CPUPDT233=LCPUPDTM; CPUEDT233=LCPUEDTM; CPUWAI233=CPUWAITM; PCTCPB233=PCTCPUBY; PCTONL233=TEMPONLN; IF CAI233 EQ '.......1'B OR SMF70ONT GT 0 THEN DO; CPUWAIT=CPUWAIT+CPUWAI233; MVSWAIT=MVSWAIT+MVSWAI233; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=234 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI234; MVSWAI234=CPUWAI234; CPUPDT234=LCPUPDTM; CPUEDT234=LCPUEDTM; CPUWAI234=CPUWAITM; PCTCPB234=PCTCPUBY; PCTONL234=TEMPONLN; IF CAI234 EQ '.......1'B OR SMF70ONT GT 0 THEN DO; CPUWAIT=CPUWAIT+CPUWAI234; MVSWAIT=MVSWAIT+MVSWAI234; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=235 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI235; MVSWAI235=CPUWAI235; CPUPDT235=LCPUPDTM; CPUEDT235=LCPUEDTM; CPUWAI235=CPUWAITM; PCTCPB235=PCTCPUBY; PCTONL235=TEMPONLN; IF CAI235 EQ '.......1'B OR SMF70ONT GT 0 THEN DO; CPUWAIT=CPUWAIT+CPUWAI235; MVSWAIT=MVSWAIT+MVSWAI235; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=236 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI236; MVSWAI236=CPUWAI236; CPUPDT236=LCPUPDTM; CPUEDT236=LCPUEDTM; CPUWAI236=CPUWAITM; PCTCPB236=PCTCPUBY; PCTONL236=TEMPONLN; IF CAI236 EQ '.......1'B OR SMF70ONT GT 0 THEN DO; CPUWAIT=CPUWAIT+CPUWAI236; MVSWAIT=MVSWAIT+MVSWAI236; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=237 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI237; MVSWAI237=CPUWAI237; CPUPDT237=LCPUPDTM; CPUEDT237=LCPUEDTM; CPUWAI237=CPUWAITM; PCTCPB237=PCTCPUBY; PCTONL237=TEMPONLN; IF CAI237 EQ '.......1'B OR SMF70ONT GT 0 THEN DO; CPUWAIT=CPUWAIT+CPUWAI237; MVSWAIT=MVSWAIT+MVSWAI237; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=238 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI238; MVSWAI238=CPUWAI238; CPUPDT238=LCPUPDTM; CPUEDT238=LCPUEDTM; CPUWAI238=CPUWAITM; PCTCPB238=PCTCPUBY; PCTONL238=TEMPONLN; IF CAI238 EQ '.......1'B OR SMF70ONT GT 0 THEN DO; CPUWAIT=CPUWAIT+CPUWAI238; MVSWAIT=MVSWAIT+MVSWAI238; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=239 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI239; MVSWAI239=CPUWAI239; CPUPDT239=LCPUPDTM; CPUEDT239=LCPUEDTM; CPUWAI239=CPUWAITM; PCTCPB239=PCTCPUBY; PCTONL239=TEMPONLN; IF CAI239 EQ '.......1'B OR SMF70ONT GT 0 THEN DO; CPUWAIT=CPUWAIT+CPUWAI239; MVSWAIT=MVSWAIT+MVSWAI239; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=240 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI240; MVSWAI240=CPUWAI240; CPUPDT240=LCPUPDTM; CPUEDT240=LCPUEDTM; CPUWAI240=CPUWAITM; PCTCPB240=PCTCPUBY; PCTONL240=TEMPONLN; IF CAI240 EQ '.......1'B OR SMF70ONT GT 0 THEN DO; CPUWAIT=CPUWAIT+CPUWAI240; MVSWAIT=MVSWAIT+MVSWAI240; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=241 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI241; MVSWAI241=CPUWAI241; CPUPDT241=LCPUPDTM; CPUEDT241=LCPUEDTM; CPUWAI241=CPUWAITM; PCTCPB241=PCTCPUBY; PCTONL241=TEMPONLN; IF CAI241 EQ '.......1'B OR SMF70ONT GT 0 THEN DO; CPUWAIT=CPUWAIT+CPUWAI241; MVSWAIT=MVSWAIT+MVSWAI241; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=242 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI242; MVSWAI242=CPUWAI242; CPUPDT242=LCPUPDTM; CPUEDT242=LCPUEDTM; CPUWAI242=CPUWAITM; PCTCPB242=PCTCPUBY; PCTONL242=TEMPONLN; IF CAI242 EQ '.......1'B OR SMF70ONT GT 0 THEN DO; CPUWAIT=CPUWAIT+CPUWAI242; MVSWAIT=MVSWAIT+MVSWAI242; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=243 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI243; MVSWAI243=CPUWAI243; CPUPDT243=LCPUPDTM; CPUEDT243=LCPUEDTM; CPUWAI243=CPUWAITM; PCTCPB243=PCTCPUBY; PCTONL243=TEMPONLN; IF CAI243 EQ '.......1'B OR SMF70ONT GT 0 THEN DO; CPUWAIT=CPUWAIT+CPUWAI243; MVSWAIT=MVSWAIT+MVSWAI243; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=244 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI244; MVSWAI244=CPUWAI244; CPUPDT244=LCPUPDTM; CPUEDT244=LCPUEDTM; CPUWAI244=CPUWAITM; PCTCPB244=PCTCPUBY; PCTONL244=TEMPONLN; IF CAI244 EQ '.......1'B OR SMF70ONT GT 0 THEN DO; CPUWAIT=CPUWAIT+CPUWAI244; MVSWAIT=MVSWAIT+MVSWAI244; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=245 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI245; MVSWAI245=CPUWAI245; CPUPDT245=LCPUPDTM; CPUEDT245=LCPUEDTM; CPUWAI245=CPUWAITM; PCTCPB245=PCTCPUBY; PCTONL245=TEMPONLN; IF CAI245 EQ '.......1'B OR SMF70ONT GT 0 THEN DO; CPUWAIT=CPUWAIT+CPUWAI245; MVSWAIT=MVSWAIT+MVSWAI245; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=246 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI246; MVSWAI246=CPUWAI246; CPUPDT246=LCPUPDTM; CPUEDT246=LCPUEDTM; CPUWAI246=CPUWAITM; PCTCPB246=PCTCPUBY; PCTONL246=TEMPONLN; IF CAI246 EQ '.......1'B OR SMF70ONT GT 0 THEN DO; CPUWAIT=CPUWAIT+CPUWAI246; MVSWAIT=MVSWAIT+MVSWAI246; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=247 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI247; MVSWAI247=CPUWAI247; CPUPDT247=LCPUPDTM; CPUEDT247=LCPUEDTM; CPUWAI247=CPUWAITM; PCTCPB247=PCTCPUBY; PCTONL247=TEMPONLN; IF CAI247 EQ '.......1'B OR SMF70ONT GT 0 THEN DO; CPUWAIT=CPUWAIT+CPUWAI247; MVSWAIT=MVSWAIT+MVSWAI247; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=248 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI248; MVSWAI248=CPUWAI248; CPUPDT248=LCPUPDTM; CPUEDT248=LCPUEDTM; CPUWAI248=CPUWAITM; PCTCPB248=PCTCPUBY; PCTONL248=TEMPONLN; IF CAI248 EQ '.......1'B OR SMF70ONT GT 0 THEN DO; CPUWAIT=CPUWAIT+CPUWAI248; MVSWAIT=MVSWAIT+MVSWAI248; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=249 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI249; MVSWAI249=CPUWAI249; CPUPDT249=LCPUPDTM; CPUEDT249=LCPUEDTM; CPUWAI249=CPUWAITM; PCTCPB249=PCTCPUBY; PCTONL249=TEMPONLN; IF CAI249 EQ '.......1'B OR SMF70ONT GT 0 THEN DO; CPUWAIT=CPUWAIT+CPUWAI249; MVSWAIT=MVSWAIT+MVSWAI249; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=250 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI250; MVSWAI250=CPUWAI250; CPUPDT250=LCPUPDTM; CPUEDT250=LCPUEDTM; CPUWAI250=CPUWAITM; PCTCPB250=PCTCPUBY; PCTONL250=TEMPONLN; IF CAI250 EQ '.......1'B OR SMF70ONT GT 0 THEN DO; CPUWAIT=CPUWAIT+CPUWAI250; MVSWAIT=MVSWAIT+MVSWAI250; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=251 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI251; MVSWAI251=CPUWAI251; CPUPDT251=LCPUPDTM; CPUEDT251=LCPUEDTM; CPUWAI251=CPUWAITM; PCTCPB251=PCTCPUBY; PCTONL251=TEMPONLN; IF CAI251 EQ '.......1'B OR SMF70ONT GT 0 THEN DO; CPUWAIT=CPUWAIT+CPUWAI251; MVSWAIT=MVSWAIT+MVSWAI251; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=252 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI252; MVSWAI252=CPUWAI252; CPUPDT252=LCPUPDTM; CPUEDT252=LCPUEDTM; CPUWAI252=CPUWAITM; PCTCPB252=PCTCPUBY; PCTONL252=TEMPONLN; IF CAI252 EQ '.......1'B OR SMF70ONT GT 0 THEN DO; CPUWAIT=CPUWAIT+CPUWAI252; MVSWAIT=MVSWAIT+MVSWAI252; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=253 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI253; MVSWAI253=CPUWAI253; CPUPDT253=LCPUPDTM; CPUEDT253=LCPUEDTM; CPUWAI253=CPUWAITM; PCTCPB253=PCTCPUBY; PCTONL253=TEMPONLN; IF CAI253 EQ '.......1'B OR SMF70ONT GT 0 THEN DO; CPUWAIT=CPUWAIT+CPUWAI253; MVSWAIT=MVSWAIT+MVSWAI253; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=254 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI254; MVSWAI254=CPUWAI254; CPUPDT254=LCPUPDTM; CPUEDT254=LCPUEDTM; CPUWAI254=CPUWAITM; PCTCPB254=PCTCPUBY; PCTONL254=TEMPONLN; IF CAI254 EQ '.......1'B OR SMF70ONT GT 0 THEN DO; CPUWAIT=CPUWAIT+CPUWAI254; MVSWAIT=MVSWAIT+MVSWAI254; CPUEFF =CPUEFF +LCPUEDTM; END; END; ELSE IF LCPUADDR=255 AND IFARRAY(LCPUADDR+1)=0 THEN DO; ORIGWAIT=CPUWAI255; MVSWAI255=CPUWAI255; CPUPDT255=LCPUPDTM; CPUEDT255=LCPUEDTM; CPUWAI255=CPUWAITM; PCTCPB255=PCTCPUBY; PCTONL255=TEMPONLN; IF CAI255 EQ '.......1'B OR SMF70ONT GT 0 THEN DO; CPUWAIT=CPUWAIT+CPUWAI255; MVSWAIT=MVSWAIT+MVSWAI255; CPUEFF =CPUEFF +LCPUEDTM; END; END; END; /* SHARED PARTITION, WAIT=NO */ /* CALCULATE PCTCPUBY & PCTMVSBY FOR EACH LCPU IN TYPE70PR*/ /* BUT THEY ARE MVS-PERSPECTIVE NUMBERS FOR TYPE70 AND */ /* ARE NOT LPAR-PERSPECTIVE. THEY WILL EXIST ONLY IN THE*/ /* TYPE70PR SEGMENT FROM THIS MVS SYSTEM, BECAUSE THEY */ /* DEPEND ON OMVSWAIT, WHICH IS A "THIS-SYSTEM" ONLY. */ IF 0 LT LCPUADDR+1 LE 96 THEN DO; IF IFAWAIZ(LCPUADDR+1) GT . OR ZIPWAIZ(LCPUADDR+1) GT . OR ORIGWAIT GT . THEN OMVSWAIT=MAX(IFAWAIZ(LCPUADDR+1),ZIPWAIZ(LCPUADDR+1), ORIGWAIT); END; SMF70PAT=CPUPAT(LCPUADDR+1); IF LCPUDED='Y' THEN DO; /*PCTCPU/PCTMVS CALCS*/ IF SMF70ONT GT 0 THEN DO; PCTCPUBY=100*(SMF70ONT-OMVSWAIT)/DURATM;/*DED*/ IF MVSNOTOK EQ 0 THEN PCTMVSBY=PCTCPUBY;/*DED*/ END; ELSE IF DURATM GT 0 THEN DO; PCTCPUBY=100*(DURATM-OMVSWAIT)/DURATM;/*DED*/ IF MVSNOTOK EQ 0 THEN PCTMVSBY=PCTCPUBY;/*DED*/ END; ELSE DO; PCTCPUBY=.;/*DED*/ PCTMVSBY=.;/*DED*/ END; END; ELSE IF LCPUWAIT='Y' THEN DO; /*PCTCPU/PCTMVS CALCS*/ IF DURATM GT 0 AND OMVSWAIT GT . AND SMF70ONT GT 0 THEN DO; PCTCPUBY=100*(LCPUPDTM-OMVSWAIT)/DURATM;/*WAI*/ IF MVSNOTOK EQ 0 THEN PCTMVSBY=100*(SMF70ONT-OMVSWAIT)/DURATM;/*WAI*/ END; IF DURATM GT 0 AND OMVSWAIT GT . THEN DO; PCTCPUBY=100*(LCPUPDTM-OMVSWAIT)/DURATM;/*WAI*/ IF MVSNOTOK EQ 0 THEN PCTMVSBY=100*(DURATM-OMVSWAIT)/DURATM;/*WAI*/ END; ELSE DO; PCTCPUBY=.;/*WAI*/ PCTMVSBY=.;/*WAI*/ END; END; ELSE DO; /*NORMAL, NON-DED, NON-WAIT PCTCPU/PCTMVS CALCS */ IF DURATM GT 0 THEN DO; IF SMF70ONT LE 0 THEN PCTCPUBY=100*LCPUPDTM/DURATM;/*CPU*/ ELSE PCTCPUBY=100*LCPUPDTM/SMF70ONT;/*CPU*/ IF LPARNAME NE 'PHYSICAL' AND OMVSWAIT GT . AND SMF70ONT GT 0 AND MVSNOTOK EQ 0 THEN DO; IF SMF70PAT GT 0 AND SMF70ONT GT 0 AND (SMF70ONT-SMF70PAT) GE 0.10 THEN DO; PCTMVSBY=100*(SMF70ONT-OMVSWAIT-SMF70PAT)/ (SMF70ONT-SMF70PAT); /*MVS*/; END; ELSE IF SMF70PAT GT 0 AND (SMF70ONT-SMF70PAT) LT 0.10 THEN DO; PCTMVSBY=0; END; ELSE IF SMF70ONT GT 0 AND SMF70ONT-OMVSWAIT GT 0 THEN DO; PCTMVSBY=100*(SMF70ONT-OMVSWAIT)/SMF70ONT;/*MVS*/ END; ELSE IF LPARNAME NE 'PHYSICAL' AND OMVSWAIT GT . AND MVSNOTOK EQ 0 THEN DO; /*CH 27.074*/ PCTMVSBY=100*(DURATM-OMVSWAIT)/DURATM;/*MVSOLD*/ IF PCTMVSBY LT 0 THEN PCTMVSBY=0; END; END; ELSE IF LPARNAME NE 'PHYSICAL' AND OMVSWAIT GT . AND MVSNOTOK EQ 0 THEN DO; PCTMVSBY=100*(DURATM-OMVSWAIT)/DURATM;/*MVSOLD*/ END; ELSE PCTMVSBY=.; END; ELSE DO; PCTCPUBY=.; PCTMVSBY=.; END; END; /*END NORMAL, NON-DED,NON-WAIT*/ *IF LCPUADDR IN (6,7) THEN PUTLOG ' DEBUG 4. THIS PART ' _N_= LPARNAME LPARNUM LCPUADDR SMF70CIN= SMF70PAT= 8.6 SMF70POW= 8.6 SMF70ONT= 8.6 OMVSWAIT= 8.6 DURATM= 8.6 NEWWAIT= 8.3 LCPUPDTM= 8.6 LCPUEDTM= 8.6 PCTCPUBY= 8.6 PCTMVSBY= 8.6 SYSTEM= SMF70HHF=; END;/* END PARTISHN=LPARNUM, THIS MVS PARTITIONS DATA*/ IF _XANT THEN PUTLOG ' END PART ' _N_= COL= J= PARTISHN= LPARNUM= LPARNAME= LCPUADDR= SMF70STN= SMF70ONT=; IF (CPUTYPE NOT IN ('2064'X,'2066'X,'2084'X,'2086'X,'2094'X, '2096'X) AND ZARCHMDE NE 'Y') OR ((CPUTYPE IN ('2064'X,'2066'X,'2084'X,'2086'X,'2094'X, '2096'X) OR ZARCHMDE EQ 'Y') AND (LPARNAME EQ 'PHYSICAL' OR SMF70ONT NE 0 ) ) THEN DO; /*DONT OUTPUT 2064+,ONT=0 ===>SPARE ENGINES*/ IF _XANT THEN PUTLOG ' IN ENG CK ' _N_= COL= J= PARTISHN= LPARNUM= LPARNAME= LCPUADDR= SMF70CIN= ; IF SMF70CIN LE ' ' THEN MXGCIN=' '; /*SPARE*/ ELSE IF SMF70CIN='CP ' THEN DO; MXGCIN='CP '; END; ELSE IF SMF70CIN='IFL' THEN DO; MXGCIN='IFL'; END; ELSE IF SMF70CIN='IFA' THEN DO; MXGCIN='IFA'; END; ELSE IF SMF70CIN='IIP' THEN DO; MXGCIN='IIP'; END; ELSE IF SMF70CIN='ICF' THEN DO; MXGCIN='ICF'; END; ELSE MXGCIN='CP '; IF PCTMVSBY GT 0 AND PCTCPUBY GT 0 THEN DO; SHORTCPS=PCTMVSBY/PCTCPUBY; PLCPRDYQ=100*(PCTMVSBY-PCTCPUBY)/PCTMVSBY; IF . LT PLCPRDYQ LT 0 THEN DO; SHORTCPS=1; PLCPRDYQ=0; END; END; ELSE DO; SHORTCPS=.; PLCPRDYQ=.; END; IF _XANT THEN PUTLOG ' DEBUG AT PR OUT ' _N_= J= COL= LPARNUM= LPARNAME= LCPUADDR= /+5 SYSTEM= SYSNAME= SMF70STN= PARTISHN= /+5 SMT_CORE_ID= SMT_NUM= SMT_PROD= SMT_LPAR_BUSY= SMT_CORE_FLAG= NRPRCSS= LPARCPUX= /+5 SMF70CIN= SMF70CTN= LCPUPDTM= SMF70ONT= SMF70WST= /+5 LPARCPUS= SMF70BDA= CPUTYPE= MXGCIN= PCTCPUBY= PCTMVSBY=; HOLICFTM=ICFACTTM; HOLIFATM=IFAACTTM; HOLIFLTM=IFLACTTM; HOLZIPTM=ZIPACTTM; IF SMF70CIN='ICF' THEN DO; ICFACTTM=LCPUPDTM; END; ELSE ICFACTTM=.; IF LCPUDED='Y' AND SMF70CIN='IFA' THEN DO; IFAACTTM=LCPUPDTM-OMVSWAIT; END; ELSE IF LCPUDED NE 'Y' AND SMF70CIN='IFA' THEN DO; IFAACTTM=LCPUPDTM; END; ELSE IFAACTTM=.; IF SMF70CIN='IFL' THEN DO; IFLACTTM=LCPUPDTM; END; ELSE IFLACTTM=.; IF LCPUDED='Y' AND SMF70CIN='IIP' THEN DO; ZIPACTTM=LCPUPDTM-OMVSWAIT; END; ELSE IF LCPUDED NE 'Y' AND SMF70CIN='IIP' THEN DO; ZIPACTTM=LCPUPDTM; END; ELSE ZIPACTTM=.; IF PARTISHN=LPARNUM THEN SMF70PAT=CPUPAT(LCPUADDR+1); ELSE SMF70PAT=.; /* PUTLOG ' 5. OUT PR' _N_= SMF70PAT= OMVSWAIT= NEWWAIT= PARTISHN= LPARNUM= SMF70CIN= PCTCPUBY= PCTMVSBY= 10.6 STARTIME=; */ TMPMSU=SMF70MSU; TMPLAC=SMF70LAC; IF SMF70CIN NE 'CP ' THEN DO; SMF70MSU=.; SMF70LAC=.; END; DO _I_=1 TO NRCPUID; IF S70CIN(_I_)='CP' THEN DO; NRCPSCPU=S70CTN(_I_); AVCPSCPU=S70CAN(_I_); END; ELSE IF S70CIN(_I_)='ICF' THEN DO; NRICFCPU=S70CTN(_I_); AVICFCPU=S70CAN(_I_); END; ELSE IF S70CIN(_I_)='IFA' THEN DO; NRIFACPU=S70CTN(_I_); AVIFACPU=S70CAN(_I_); END; ELSE IF S70CIN(_I_)='IFL' THEN DO; NRIFLCPU=S70CTN(_I_); AVIFLCPU=S70CAN(_I_); END; ELSE IF S70CIN(_I_)='IIP' THEN DO; NRZIPCPU=S70CTN(_I_); AVZIPCPU=S70CAN(_I_); END; END; NRPHYCPS=SUM(NRCPSCPU,NRIFACPU,NRICFCPU,NRIFLCPU,NRZIPCPU); IF SMT_PROD GT . AND PCTCPUBY GT . THEN SMT_UTIL=SMT_PROD*PCTCPUBY/100; ELSE SMT_UTIL=.; IF SMF70CIN='CP' THEN DO; SMF70CTN=NRCPSCPU; SMF70CAN=AVCPSCPU; END; IF SMF70CIN='ICF' THEN DO; SMF70CTN=NRICFCPU; SMF70CAN=AVICFCPU; END; IF SMF70CIN='IFA' THEN DO; SMF70CTN=NRIFACPU; SMF70CAN=AVIFACPU; END; IF SMF70CIN='IFL' THEN DO; SMF70CTN=NRIFLCPU; SMF70CAN=AVIFLCPU; END; IF SMF70CIN='IIP' THEN DO; SMF70CTN=NRZIPCPU; SMF70CAN=AVZIPCPU; END; IF _XANT THEN PUTLOG ' OUTPUT: ' J= LPARNAME= LCPUADDR= SMT_CORE_ID= SMF70ONT= LCPUPDTM= SYSTEM= SYSNAME= /+2 SMF70STN= SMT_CORE_FLAG= SMT_PROD= SMT_UTIL= PCTCPUBY= PCTZIPBY= SMF70CIN=/; _ETY70PR;/*INC SOURCLIB(EXTY70PR);_WTY70PR OUTPUTS TYPE70PR*/ SMF70MSU=TMPMSU; SMF70LAC=TMPLAC; ICFACTTM=HOLICFTM; IFAACTTM=HOLIFATM; IFLACTTM=HOLIFLTM; ZIPACTTM=HOLZIPTM; END; SMF70LAC=ORG70LAC; /*RESET FOR TYPE70*/ END; /*LCPUADDR NOT MISSING */ END; /* END J=1 TO LPARXCPU PR/SM LOGICAL PROCESSOR SECTION*/ INPUT @LOCPRCS @; /* RESET TO HEAD OF NEXT PRCS SEGMENT */ END; /* END OF PR/SM CONTROL SECTION INPUT */ LPARWLMG=THISWLMG; SMF70BDA=THISBDA; SMF70ONT=SUM70ONT; IF SMF70BDA GT 0 AND SMF70ONT GT 0 AND DURATM GT 0 THEN DO; NRCPUS=FLOOR(10000*(SMF70ONT/DURATM)/10000); END; ELSE IF SMF70ONT GT 0 AND NRCPUS GT 0 THEN DO; NRCPUS=ROUND(SMF70ONT/DURATM,.001); /*IRD INACTIVE*/ END; IF _XANT THEN PUTLOG _N_= NRCPUS= ' E '; CPUWAITM=CPUWAIT; IF MVSNOTOK EQ 0 THEN MVSWAITM=MVSWAIT; CPUEFFTM=CPUEFF; CPUPDTTM=SUM(OF CPUPDTM0-CPUPDTM9 CPUPDTMA CPUPDTMB CPUPDTMC CPUPDTMD CPUPDTME CPUPDTMF CPUPDTMG CPUPDTMH CPUPDTMI CPUPDTMJ CPUPDTMK CPUPDTML CPUPDTMN CPUPDTMO CPUPDTMP CPUPDTMQ CPUPDTMR CPUPDTMS CPUPDTMT CPUPDTMU CPUPDTMV CPUPDTMW CPUPDTMX CPUPDTMY CPUPDTMZ CPUPDTZA CPUPDTZB CPUPDTZC CPUPDTZD CPUPDTZE CPUPDTZF CPUPDTZG CPUPDTZH CPUPDTZI CPUPDTZJ CPUPDTZK CPUPDTZL CPUPDTZM CPUPDTZN CPUPDTZO CPUPDTZP CPUPDTZQ CPUPDTZR CPUPDTZS CPUPDTZT CPUPDTZU CPUPDTZV CPUPDTZW CPUPDTZX CPUPDTZY CPUPDTZZ CPUPDTYA CPUPDTYB CPUPDTYC CPUPDTYD CPUPDTYE CPUPDTYF CPUPDTYG CPUPDTYH CPUPDTYI CPUPDTYJ CPUPDTYK CPUPDTYL CPUPDTYM CPUPDTYN CPUPDTYO CPUPDTYP CPUPDTYQ CPUPDTYR CPUPDTYS CPUPDTYT CPUPDTYU CPUPDTYV CPUPDTYW CPUPDTYX CPUPDTYY CPUPDTYZ CPUPDTVA CPUPDTVB CPUPDTVC CPUPDTVD CPUPDTVE CPUPDTVF CPUPDTVG CPUPDTVH CPUPDTVI CPUPDTVJ CPUPDTVK CPUPDTVL CPUPDTVM CPUPDTVN CPUPDTVO CPUPDT102-CPUPDT255); CPUPATTM=SUM(OF CPUPATM0-CPUPATM9 CPUPATMA CPUPATMB CPUPATMC CPUPATMD CPUPATME CPUPATMF CPUPATMG CPUPATMH CPUPATMI CPUPATMJ CPUPATMK CPUPATML CPUPATMN CPUPATMO CPUPATMP CPUPATMQ CPUPATMR CPUPATMS CPUPATMT CPUPATMU CPUPATMV CPUPATMW CPUPATMX CPUPATMY CPUPATMZ CPUPATZA CPUPATZB CPUPATZC CPUPATZD CPUPATZE CPUPATZF CPUPATZG CPUPATZH CPUPATZI CPUPATZJ CPUPATZK CPUPATZL CPUPATZM CPUPATZN CPUPATZO CPUPATZP CPUPATZQ CPUPATZR CPUPATZS CPUPATZT CPUPATZU CPUPATZV CPUPATZW CPUPATZX CPUPATZY CPUPATZZ CPUPATYA CPUPATYB CPUPATYC CPUPATYD CPUPATYE CPUPATYF CPUPATYG CPUPATYH CPUPATYI CPUPATYJ CPUPATYK CPUPATYL CPUPATYM CPUPATYN CPUPATYO CPUPATYP CPUPATYQ CPUPATYR CPUPATYS CPUPATYT CPUPATYU CPUPATYV CPUPATYW CPUPATYX CPUPATYY CPUPATYZ CPUPATVA CPUPATVB CPUPATVC CPUPATVD CPUPATVE CPUPATVF CPUPATVG CPUPATVH CPUPATVI CPUPATVJ CPUPATVK CPUPATVL CPUPATVM CPUPATVN CPUPATVO CPUPAT102-CPUPAT255); CPUUPTM=NRCPUS*DURATM; CPUACTTM=CPUUPTM-CPUWAITM; CPUMVSTM=CPUUPTM-MVSWAITM; IF CPUUPTM GT 0 THEN DO; PCTCPUBY=100*CPUACTTM/CPUUPTM; PCTCPUEF=100*CPUEFFTM/CPUUPTM; IF MVSNOTOK EQ 0 THEN DO; PCTMVSBY=100*CPUMVSTM/CPUUPTM; END; END; END; /* END PR/SM CONTROL SECTION LOGIC*/ ELSE DO; /* NATIVE SYSTEM WITHOUT PR/SM */ CPUACTTM=CPUBSYTM; CPUUPTM=NRCPUS*DURATM; PCTMVSBY=PCTCPUBY; END; IF IFA70ONT GT 0 AND IFA70PAT GT . THEN IFAUPTM=IFA70ONT-IFA70PAT; ELSE IFAUPTM=IFA70ONT; IFAACTTM=IFAPDTTM; IF IFAUPTM GT 0 THEN PCTIFABY=100*IFAACTTM/IFAUPTM; ELSE PCTIFABY=.; IF IFA70ONT GT 0 THEN NRIFAONL=ROUND(IFA70ONT/DURATM,.001); IF ZIP70ONT GT 0 AND ZIP70PAT GT . THEN ZIPUPTM=ZIP70ONT-ZIP70PAT; ELSE ZIPUPTM=ZIP70ONT; ZIPACTTM=ZIPPDTTM; IF ZIPUPTM GT 0 THEN PCTZIPBY=100*ZIPACTTM/ZIPUPTM; ELSE PCTZIPBY=.; IF ZIP70ONT GT 0 THEN NRZIPONL=ROUND(ZIP70ONT/DURATM,.001); IF SMF70TNN GT 0 THEN DO _J_=1 TO SMF70TNN; INPUT @SMF70TNS TRG_NAME $EBCDIC8. /*TENANT*RESOURCE*GROUP*NAME*/ TRG_DESC $EBCDIC32. /*TENANT*RESOURCE*GROUP*DESCRIPTION*/ TRG_TNTID $EBCDIC8. /*TENANT*IDENTIFIER*/ TRG_TNTNAME $EBCDIC32. /*TENANT*NAME*/ TRG_SBID $EBCDIC64. /*TENANT*SOLUTION*ID*/ TRG_SUCP &PIB.8. /*TENANT*CP*HDW MSU*UNITS*/ /*TENANT*ZCBP*HDW MSU*UNITS*/ TRG_SUIFA &PIB.8. /*TENANT*ZCBP*HDW MSU*UNITS*/ TRG_SUSUP &PIB.8. /*TENANT*ZIIP*HDW MSU**UNITS*/ TRG_LAC &PIB.4. /*TENANT*CP 4HR*AVERAGE*MSU*/ @; SKIP=SMF70TNL-172; IF SKIP GE 8 THEN DO; INPUT TRG_LAC_CBP &PIB.4. /**TENANT*ZCBP 4HR*AVERAGE*MSU*/ TRG_FLAGS $CHAR2. /**TENANT*RESOURCE*GROUP*FLAGS*/ +2 /*reserved*/ @; SKIP=SKIP-8; END; IF SKIP GE 8 THEN DO; INPUT TRG_MEM &PIB.8. /**TENANT*MEMORY*CONSUMPTION*MGBYTES*/ @; TRG_MEM=4096*TRG_MEM; /*FORMAT MGBYTES, VALUE IS IN BYTES*/ SKIP=SKIP-8; END; IF SKIP GT 0 THEN DO; INPUT +SKIP @; SKIP=0; END; TRG_SUCP =TRG_SUCP/1000000; TRG_SUIFA=TRG_SUIFA/1000000; TRG_SUSUP=TRG_SUSUP/1000000; LPARNAME=THISLPAR; _ETY70TR;/*INC SOURCLIB(EXTY70TR);_WTY70TR OUTPUTS TYPE70TR*/ SMF70TNS=SMF70TNS+SMF70TNL; END; *PUTLOG '+++++++++++++++++ AT END 70 READ' _N_= PCTMVSBY=; /* CHANGE 23.231: NO LONGER CREATE TYPE70 DATASET HERE */ /* WHERE _ETY70; CALL WAS LOCATED */ RETURN; END; /* END TYPE 70 SUBTYPE 1 RECORD */ ELSE IF ID=70 AND SUBTYPE=2 THEN DO; INPUT @15+OFFSMF SUBSYS $EBCDIC4. /*SMF70SSI*/ @19+OFFSMF SUBTYPE &PIB.2. /*SMF70STY*/ @21+OFFSMF NRTRIPLT &PIB.2. /*SMF70TRN*/ @23+OFFSMF SMF70RV5 &PIB.2. /*RESERVED*/ @25+OFFSMF OFFRMFP &PIB.4. /*SMF70PRS*/ @29+OFFSMF LENRMFP &PIB.2. /*SMF70PRL*/ @31+OFFSMF NRRMFP &PIB.2. /*SMF70PRN*/ @33+OFFSMF OFFCRCO &PIB.4. /*SMF7023S*/ @37+OFFSMF LENCRCO &PIB.2. /*SMF7023L*/ @39+OFFSMF NRCRCO &PIB.2. /*SMF7023N*/ @41+OFFSMF SMF7024S &PIB.4. /*SMF7024S*/ @45+OFFSMF SMF7024L &PIB.2. /*SMF7024L*/ @47+OFFSMF SMF7024N &PIB.2. /*SMF7024N*/ @49+OFFSMF SMF702CS &PIB.4. /*SMF702CS*/ @53+OFFSMF SMF702CL &PIB.2. /*SMF702CL*/ @55+OFFSMF SMF702CN &PIB.2. /*SMF702CN*/ @; IF NRTRIPLT GE 5 THEN INPUT @57+OFFSMF SMF7025O &PIB.4. /*SMF7025S*/ @61+OFFSMF SMF7025L &PIB.2. /*SMF7025L*/ @63+OFFSMF SMF7025N &PIB.2. /*SMF7025N*/ @; /* DEBUG PUTLOG _N_= SUBTYPE= SUBSYS = SUBTYPE = NRTRIPLT = SMF70RV5 = OFFRMFP = LENRMFP = NRRMFP = OFFCRCO = LENCRCO = NRCRCO = SMF7024S = SMF7024L = SMF7024N = SMF702CS = SMF702CL = SMF702CN = ; */ IF OFFRMFP GT 0 AND NRRMFP GT 0 THEN DO; OFFRMFP=OFFRMFP-3+OFFSMF; IF OFFRMFP+LENRMFP*NRRMFP GT LENGTH+1 THEN DO; N70RMFP+1; IF N70RMFP EQ 1 THEN DO; %%MXLOGPUT(MESSAGE=MXGERROR::VMAC7072.014); &MXPUT ' TYPE70 RMFP SECTION ERROR.'// ' INVALID RECORD DETECTED AND DELETED.' OFFRMFP= LENRMFP= NRRMFP= LENGTH= _N_= SYSTEM= SMFTIME=; %%MXLOGEND; PUT ' TYPE70 RMFP SECTION ERROR.'// ' INVALID RECORD DETECTED AND DELETED.' OFFRMFP= LENRMFP= NRRMFP= LENGTH= _N_= SYSTEM= SMFTIME=; END; DELETE; END; INPUT @OFFRMFP VERSNRMF ?? &PD.2. @; /*SMF70MFV*/ IF VERSNRMF = . THEN INPUT @OFFRMFP VERSNRMF &NUM.2. @; INPUT @OFFRMFP+2 PRODUCT $EBCDIC8. /*SMF70PRD*/ @OFFRMFP+10 STARTIME RMFSTAMP8. /*SMF70IST-DAT*/ @OFFRMFP+18 DURATM RMFDUR4. /*SMF70INT*/ @OFFRMFP+22 MAINTIND &PIB.2. /*SMF70MFL*/ @OFFRMFP+24 NRSAMPLE &PIB.4. /*SMF70SAM*/ @OFFRMFP+28 SMF70RV6 &PIB.2. @OFFRMFP+30 CONVFLAG &PIB.1. /*NOT USED*/ @OFFRMFP+32 RELEASE $EBCDIC4. /*SMF70RLS*/ @OFFRMFP+36 CYCLE &PD.4. /*SMF70CYC*/ @; /* %%INCLUDE SOURCLIB(VSETZERO); RESET SECONDS 58,59, 01 TO 00*/ IF CONVFLAG='.1......'B THEN SAMPSKPD='Y'; /*SAMPLES*WERE*SKIPPE?*/ IF CONVFLAG='..1.....'B THEN RMFIIIRC='Y'; /*RMF III*WROTE*RECOR?*/ IF CONVFLAG='...1....'B THEN INTRVSYN='Y'; /*INTERVAL*WAS*SYNC-E?*/ IF SMF70RV6='........1.......'B THEN PRODUCT='CMF-CPM'; ELSE IF SMF70RV6='.........1......'B THEN PRODUCT='CMF-IPM'; IF VERSNRMF GE 321 THEN INPUT @OFFRMFP+40 MVSLEVEL $EBCDIC8. /*SMF70MVS*/ @OFFRMFP+48 TEMPIOML $CHAR1. /*SMF70IML*/ @OFFRMFP+49 SMF70PRF $CHAR1. /*SMF70PRF*/ @OFFRMFP+50 PARTISHN &PIB.1. /*SMF70PTN*/ @OFFRMFP+51 RMFSRCL &PIB.1. /*SMF70SRL '3C'X=ZOS1.2*/ @; IF PRODUCT IN ('CMF-CPM','CMF-IPM') AND RMFSRCL GE 81 AND VERSNRMF=792 THEN VERSNRMF=794; IF LENRMFP GE 60 THEN INPUT @OFFRMFP+52 SYNCTIME TODSTAMP8. /*SMF70IET*/ @; IF LENRMFP GE 104 THEN DO; INPUT GMTOFF70 &IB.8.6 /*OFFSET*GMT TO LOCAL TIME*/ SMF70RAO &PIB.4. /*REASSEMBLY*AREA*OFFSET*/ SMF70RAL &PIB.2. /*REASSEMBLY*AREA*LENGTH*/ SMF70RAN &PIB.2. /*REASSEMBLY*AREA*NUMBER*/ SMF70OIL &PIB.2. /*ORIGINAL*INTERVAL*LENGTH TIME8.*/ SMF70SYN &PIB.2. /*SYNC*VALUE TIME8.*/ SMF70GIE TODSTAMP8. /*PROJECTED*INTERVAL*END TIME GMT*/ SYSPLEX $EBCDIC8. /*SMF70XNM*SYSPLEX*NAME*/ SYSNAME $EBCDIC8. /*SMF70SNM*SYSTEM*NAME FROM*IEASYSXX*/ @; GMTOFF70=GMTOFF70/4096; GMTOFFTM=GMTOFF70; SYNCTIME=SYNCTIME+GMTOFF70; SMF70GIE=SMF70GIE+GMTOFF70; %%VMXGTIME(STARTIME SYNCTIME SMF70GIE,SYSTEM,SYSPLEX); DATETIME=STARTIME; %%INCLUDE SOURCLIB(IMACSHFT); END; IF LENRMFP GE 120 THEN DO; INPUT SMF70RBR &PIB.2. /*TOT NR BKN RECS BUILD FROM ORIG */ SMF70RSQ &PIB.2. /*SEQ NR OF THIS BROKEN RECORD*/ SMF70RIO &PIB.4. /*OFFSET TO 1ST REASSM INFO BLOCK*/ SMF70RIL &PIB.2. /*LENGTH OF REASSEMBLY INFO BLOCK*/ SMF70RIN &PIB.2. /*NUMBER OF REASSEMBLY INFO BLOCK*/ +4 /*RESERVED*/ @; END; IF LENRMFP GE 124 THEN DO; INPUT SMF70RNN &PIB.2. /*TOT SECTS IN ORIG LARGE RECORD */ SMF70RPP &PIB.2. /*POS OF 1ST CONSEC SECTION*/ @; END; IF TEMPIOML='......10'B THEN TYPEIOML='4381'; ELSE IF TEMPIOML='......01'B THEN TYPEIOML='308X'; ELSE IF TEMPIOML='......11'B THEN TYPEIOML='309X'; IF SMF70PRF='1.......'B THEN EXTNDSTO='Y'; IF SMF70PRF='.1......'B THEN ESCAENAB='Y'; IF SMF70PRF='..1.....'B THEN ESCACONF='Y'; IF SMF70PRF='...1....'B THEN ZARCHMDE='Y'; IF SMF70PRF='....1...'B THEN IFAAVAIL='Y'; IF SMF70PRF='.....1..'B THEN ZIPAVAIL='Y'; &MAC7002H; END; /* END RMF PRODUCT SECTION */ OFFCRCO=OFFCRCO-3; IF OFFCRCO GT 0 THEN INPUT @OFFCRCO @; IF OFFCRCO GT 0 AND NRCRCO GT 0 THEN DO _I_=1 TO NRCRCO; INPUT /*PCI CRYPTOGRAPHIC COPROCESSOR ONE PER PCI */ R7023AX &PIB.1. /*CRYPTO PROCESSOR*INDEX*/ R7023CT $CHAR1. /*CRYPTO PROCESSOR*TYPE*/ R7023MSK $CHAR1. /*VALIDITY*BIT*MASK*/ R7023MT $CHAR1. /*RESERVED, NOT KEPT, DIAG ONLY*/ +4 /*RESERVED*/ R7023SF &RB.8. /*SCALING*FACTOR*FOR THIS*PCICC*/ R7023T0 &RB.8. /*EXECUTION*TIME*ALL OPERATIONS*/ R7023C0 &RB.8. /*NUMBER*OF*ALL OPERATIONS*/ +8 /*RESERVED*/ R7023C1 &RB.8. /*NUMBER*OF*ALL RSA-KEY-GENS*/ @; SKIP=LENCRCO-48; IF SKIP GE 4 THEN DO; INPUT R7023SCOPEN &PIB.1. /*80X=CPC SCOPE*40X=SYSTEM SCOPE*/ R7023DID &PIB.1. /*DOMAIN*ID*/ +2 /*RESERVED*/ @; IF R7023SCOPEN=0 THEN R7023SCOPE='0'; ELSE IF R7023SCOPEN=1 THEN R7023SCOPE='1'; SKIP=SKIP-4; END; IF SKIP GT 0 THEN INPUT +SKIP @; R7023T0=R7023SF*R7023T0; IF R7023C0 GT 0 THEN CRYCTE =R7023T0/R7023C0; ELSE CRYCTE =.; IF DURATM GT 0 THEN DO; CRYCTU=100*R7023T0/DURATM; CRYCKR=R7023C1/DURATM; CRYCTR=R7023C0/DURATM; END; ELSE DO; CRYCTU=.; CRYCKR=.; CRYCTR=.; END; _ETY7002; /*INC SOURCLIB(EXTY7002); _WTY7002 OUTPUTS TYPE7002*/ END; SMF7024S=SMF7024S-3; IF SMF7024S GT 0 THEN INPUT @SMF7024S @; IF SMF7024S GT 0 AND SMF7024N GT 0 THEN DO _I_=1 TO SMF7024N; INPUT /*PCI CRYPTOGRAPHIC ACCELERATOR ONE PER PCI */ R7024AX &PIB.1. /*CRYPTO PROCESSOR*INDEX*/ R7024CT $CHAR1. /*CRYPTO PROCESSOR*TYPE*/ R7024MSK $CHAR1. /*VALIDITY*BIT*MASK*/ R7024MT $CHAR1. /*RESERVED, NOT KEPT, DIAG ONLY*/ R7024EN &PIB.4. /*NUMBER*OF*ENGINES*/ R7024SF &RB.8. /*SCALING*FACTOR*FOR THIS*PCICC*/ R7021M1T &RB.8. /*EXEC TIME*1024-BIT*ME 1ST ENG*/ R7021M1C &RB.8. /*1024-BIT*ME OPS*1ST ENGINE*/ R7022M1T &RB.8. /*EXEC TIME*2048-BIT*ME 1ST ENG*/ R7022M1C &RB.8. /*2048-BIT*ME OPS*1ST ENGINE*/ R7021C1T &RB.8. /*EXEC TIME*1024-BIT*CRT 1ST ENG*/ R7021C1C &RB.8. /*1024-BIT*CRT OPS*1ST ENGINE*/ R7022C1T &RB.8. /*EXEC TIME*2048-BIT*CRT 1ST ENG*/ R7022C1C &RB.8. /*2048-BIT*CRT OPS*1ST ENGINE*/ R7021M2T &RB.8. /*EXEC TIME*1024-BIT*ME 2ND ENG*/ R7021M2C &RB.8. /*1024-BIT*ME OPS*2ND ENGINE*/ R7022M2T &RB.8. /*EXEC TIME*2048-BIT*ME 2ND ENG*/ R7022M2C &RB.8. /*2048-BIT*ME OPS*2ND ENGINE*/ R7021C2T &RB.8. /*EXEC TIME*1024-BIT*CRT 2ND ENG*/ R7021C2C &RB.8. /*1024-BIT*CRT OPS*2ND ENGINE*/ R7022C2T &RB.8. /*EXEC TIME*2048-BIT*CRT 2ND ENG*/ R7022C2C &RB.8. /*2048-BIT*CRT OPS*2ND ENGINE*/ R7021M3T &RB.8. /*EXEC TIME*1024-BIT*ME 3RD ENG*/ R7021M3C &RB.8. /*1024-BIT*ME OPS*3RD ENGINE*/ R7022M3T &RB.8. /*EXEC TIME*2048-BIT*ME 3RD ENG*/ R7022M3C &RB.8. /*2048-BIT*ME OPS*3RD ENGINE*/ R7021C3T &RB.8. /*EXEC TIME*1024-BIT*CRT 3RD ENG*/ R7021C3C &RB.8. /*1024-BIT*CRT OPS*3RD ENGINE*/ R7022C3T &RB.8. /*EXEC TIME*2048-BIT*CRT 3RD ENG*/ R7022C3C &RB.8. /*2048-BIT*CRT OPS*3RD ENGINE*/ R7021M4T &RB.8. /*EXEC TIME*1024-BIT*ME 4TH ENG*/ R7021M4C &RB.8. /*1024-BIT*ME OPS*4TH ENGINE*/ R7022M4T &RB.8. /*EXEC TIME*2048-BIT*ME 4TH ENG*/ R7022M4C &RB.8. /*2048-BIT*ME OPS*4TH ENGINE*/ R7021C4T &RB.8. /*EXEC TIME*1024-BIT*CRT 4TH ENG*/ R7021C4C &RB.8. /*1024-BIT*CRT OPS*4TH ENGINE*/ R7022C4T &RB.8. /*EXEC TIME*2048-BIT*CRT 4TH ENG*/ R7022C4C &RB.8. /*2048-BIT*CRT OPS*4TH ENGINE*/ R7021M5T &RB.8. /*EXEC TIME*1024-BIT*ME 5TH ENG*/ R7021M5C &RB.8. /*1024-BIT*ME OPS*5TH ENGINE*/ R7022M5T &RB.8. /*EXEC TIME*2048-BIT*ME 5TH ENG*/ R7022M5C &RB.8. /*2048-BIT*ME OPS*5TH ENGINE*/ R7021C5T &RB.8. /*EXEC TIME*1024-BIT*CRT 5TH ENG*/ R7021C5C &RB.8. /*1024-BIT*CRT OPS*5TH ENGINE*/ R7022C5T &RB.8. /*EXEC TIME*2048-BIT*CRT 5TH ENG*/ R7022C5C &RB.8. /*2048-BIT*CRT OPS*5TH ENGINE*/ @; SKIP=SMF7024L-336; IF SKIP GE 16 THEN DO; INPUT R7023MET &RB.8. /*EXEC TIME*ALL OPS*4096-BIT*ME-FMT*/ R7023MEC &RB.8. /*NUMBER OF*ALL OPS*4096-BIT*ME-FMT*/ @; R7023MET=R7024SF*R7023MET; SKIP=SKIP-16; END; IF SKIP GE 16 THEN DO; INPUT R7023CRT &RB.8. /*EXEC TIME*ALL OPS*4096-BIT*CRT-FMT*/ R7023CRC &RB.8. /*NUMBER OF*ALL OPS*4096-BIT*CRT-FMT*/ @; R7023CRT=R7024SF*R7023CRT; SKIP=SKIP-16; END; IF SKIP GE 4 THEN DO; INPUT R7024SCOPEN &PIB.1. /*80x=CPC SCOPE*40x=SYSTEM SCOPE*/ R7024DID &PIB.1. /*DOMAIN*ID*/ +2 /*RESERVED*/ @; IF R7024SCOPEN=0 THEN R7024SCOPE='0'; ELSE IF R7024SCOPEN=1 THEN R7024SCOPE='1'; SKIP=SKIP-4; END; IF SKIP GT 0 THEN INPUT +SKIP @; R7021M1T=R7024SF*R7021M1T; R7022M1T=R7024SF*R7022M1T; R7021C1T=R7024SF*R7021C1T; R7022C1T=R7024SF*R7022C1T; R7021M2T=R7024SF*R7021M2T; R7022M2T=R7024SF*R7022M2T; R7021C2T=R7024SF*R7021C2T; R7022C2T=R7024SF*R7022C2T; R7021M3T=R7024SF*R7021M3T; R7022M3T=R7024SF*R7022M3T; R7021C3T=R7024SF*R7021C3T; R7022C3T=R7024SF*R7022C3T; R7021M4T=R7024SF*R7021M4T; R7022M4T=R7024SF*R7022M4T; R7021C4T=R7024SF*R7021C4T; R7022C4T=R7024SF*R7022C4T; R7021M5T=R7024SF*R7021M5T; R7022M5T=R7024SF*R7022M5T; R7021C5T=R7024SF*R7021C5T; R7022C5T=R7024SF*R7022C5T; R7021MEC=SUM(R7021M1C,R7021M2C,R7021M3C,R7021M4C,R7021M5C); R7021MET=SUM(R7021M1T,R7021M2T,R7021M3T,R7021M4T,R7021M5T); R7022MEC=SUM(R7022M1C,R7022M2C,R7022M3C,R7022M4C,R7022M5C); R7022MET=SUM(R7022M1T,R7022M2T,R7022M3T,R7022M4T,R7022M5T); R7021CRC=SUM(R7021C1C,R7021C2C,R7021C3C,R7021C4C,R7021C5C); R7021CRT=SUM(R7021C1T,R7021C2T,R7021C3T,R7021C4T,R7021C5T); R7022CRC=SUM(R7022C1C,R7022C2C,R7022C3C,R7022C4C,R7022C5C); R7022CRT=SUM(R7022C1T,R7022C2T,R7022C3T,R7022C4T,R7022C5T); IF R7021CRC GT 0 THEN CRYAC1E =R7021CRT/R7021CRC; ELSE CRYAC1E =.; IF R7021MEC GT 0 THEN CRYAM1E =R7021MET/R7021MEC; ELSE CRYAM1E =.; IF R7022CRC GT 0 THEN CRYAC2E =R7022CRT/R7022CRC; ELSE CRYAC2E =.; IF R7022MEC GT 0 THEN CRYAM2E =R7022MET/R7022MEC; ELSE CRYAM2E =.; IF R7023CRC GT 0 THEN CRYAC3E =R7023CRT/R7023CRC; ELSE CRYAC3E =.; IF R7023MEC GT 0 THEN CRYAM3E =R7023MET/R7023MEC; ELSE CRYAM3E =.; IF DURATM GT 0 THEN DO; IF R7024EN GT 0 THEN DO; CRYAC3U=100*R7023CRT/(DURATM*R7024EN); CRYAC1U=100*R7021CRT/(DURATM*R7024EN); CRYAC2U=100*R7022CRT/(DURATM*R7024EN); CRYAM2U=100*R7022MET/(DURATM*R7024EN); CRYAM1U=100*R7021MET/(R7024EN*DURATM); CRYAM3U=100*R7023MET/(DURATM*R7024EN); END; ELSE DO; CRYAC3U=.; CRYAC1U=.; CRYAC2U=.; CRYAM2U=.; CRYAM1U=.; CRYAM3U=.; END; CRYAC1R=R7021CRC/DURATM; CRYAC2R=R7022CRC/DURATM; CRYAC3R=R7023CRC/DURATM; CRYAM1R=R7021MEC/DURATM; CRYAM2R=R7022MEC/DURATM; CRYAM3R=R7023MEC/DURATM; END; ELSE DO; CRYAC3U=.; CRYAC1U=.; CRYAC2U=.; CRYAM2U=.; CRYAM1U=.; CRYAM3U=.; CRYAC1R=.; CRYAC2R=.; CRYAC3R=.; CRYAM1R=.; CRYAM2R=.; CRYAM3R=.; END; _ETY70X2; /*INC SOURCLIB(EXTY70X2); _WTY70X2 OUTPUTS TYPE70X2*/ END; SMF702CS=SMF702CS-3; IF SMF702CS GT 0 THEN INPUT @SMF702CS @; IF SMF702CS GT 0 AND SMF702CN GT 0 THEN DO; INPUT /*CRYPTOGRAPHIC COPROCESSOR FACILITY CCF */ R702SNEC &RB.8. /*SDES*CALLS*TO*ENCIPHER*/ R702SNEB &RB.8. /*SDES*DATA*BYTES*ENCIPHERED*/ R702SNEI &RB.8. /*SDES*CMD*INSTR USED*TO ENCIPHER*/ R702TNEC &RB.8. /*TDES*CALLS*TO*ENCIPHER*/ R702TNEB &RB.8. /*TDES*DATA*BYTES*ENCIPHERED*/ R702TNEI &RB.8. /*TDES*CMD*INSTR USED*TO ENCIPHER*/ R702SNDC &RB.8. /*SDES*CALLS*TO*DECIPHER*/ R702SNDB &RB.8. /*SDES*DATA*BYTES*DECIPHERED*/ R702SNDI &RB.8. /*SDES*CMD*INSTR USED*TO DECIPHER*/ R702TNDC &RB.8. /*TDES*CALLS*TO*DECIPHER*/ R702TNDB &RB.8. /*TDES*DATA*BYTES*DECIPHERED*/ R702TNDI &RB.8. /*TDES*CMD*INSTR USED*TO DECIPHER*/ R702NMGC &RB.8. /*CALLS*TO*MAC*GENERATE*/ R702NMGB &RB.8. /*DATA*BYTES*MAC*GENERATED*/ R702NMGI &RB.8. /*PCMF INSTR*USED TO*MAC GENERATE*/ R702NMVC &RB.8. /*CALLS*TO*MAC*VERIFY*/ R702NMVB &RB.8. /*DATA*BYTES*MAC*VERIFY*/ R702NMVI &RB.8. /*PCMF INSTR*USED TO*MAC VERIFY*/ R702NHAC &RB.8. /*SHA-1:CALLS*TO*HASH*/ R702NHAB &RB.8. /*SHA-1:DATA*BYTES*HASH*/ R702NHAI &RB.8. /*SHA-1:PCMF INSTR*USED TO*HASH*/ R702NPTC &RB.8. /*CALLS TO*PIN*TRANSLATE*/ R702NPVC &RB.8. /*CALLS TO*PIN*VERIFY*/ @; SKIP=SMF702CL-184; IF SKIP GE 24 THEN DO; INPUT R702NH2C &RB.8. /*SHA-256:CALLS*TO*HASH*/ R702NH2B &RB.8. /*SHA-256:DATA*BYTES*HASH*/ R702NH2I &RB.8. /*SHA-256:PCMF INSTR*USED TO*HASH*/ @; CRYIH2R=R702NH2C/DURATM; IF R702NH2C GT 0 THEN CRYIH2S=R702NH2B/R702NH2C; ELSE CRYIH2S=.; SKIP=SKIP-24; END; IF SKIP GE 24 THEN DO; INPUT R702NH5C &RB.8. /*SHA-384/512:CALLS*TO*HASH*/ R702NH5B &RB.8. /*SHA-384/512:DATA*BYTES*HASH*/ R702NH5I &RB.8. /*SHA-384/512:PCMF INSTR*USED TO*/ @; CRYIH5R=R702NH5C/DURATM; IF R702NH5C GT 0 THEN CRYIH5S=R702NH5B/R702NH5C; ELSE CRYIH5S=.; SKIP=SKIP-24; END; IF SKIP GE 52 THEN DO; INPUT R702CDLV &PIB.4. /*ICSF*DATA*LEVEL*/ R702AESC &RB.8. /*AES*ENCIPHER*CALLS*SENT*/ R702AESB &RB.8. /*AES*ENCIPHER*BYTES PROCESSED*/ R702AESI &RB.8. /*AES*ENCIPHER*OPERATIONS*/ R702ASDC &RB.8. /*AES*DECIPHER*CALLS*SENT*/ R702ASDB &RB.8. /*AES*DECIPHER*BYTES PROCESSED*/ R702ASDI &RB.8. /*AES*DECIPHER*OPERATIONS*/ @; IF R702AESC GT 0 THEN CRYIAEO =R702AESI/R702AESC; ELSE CRYIAEO =.; IF R702AESC GT 0 THEN CRYIAES =R702AESB/R702AESC; ELSE CRYIAES =.; IF R702ASDC GT 0 THEN CRYIADO =R702ASDI/R702ASDC; ELSE CRYIADO =.; IF R702ASDC GT 0 THEN CRYIADS =R702ASDB/R702ASDC; ELSE CRYIADS =.; SKIP=SKIP-52; END; IF SKIP GE 216 THEN DO; INPUT R702DRGC &RB.8. /*CALLS*TO*GENERATE*RSA*SIGNATURES*/ +16 R702DRVC &RB.8. /*CALLS TO VERIFY*RSA*SIGNATURES*/ +16 R702DEGC &RB.8. /*CALLS*TO GENERATE*ECC*SIGNATURES*/ +16 R702DEVC &RB.8. /*CALLS*TO VERIFY*ECC*SIGNATURES*/ +16 R702AMGC &RB.8. /*CALLS TO*GENERATE*AES MACS*/ R702AMGB &RB.8. /*DATA BYTES*FOR*GENERATE*AES MACS*/ R702AMGI &RB.8. /*INSTRUCTIONS*TO GENERATE*AES MACS*/ R702AMVC &RB.8. /*CALLS TO*VERIFY*AES MACS*/ R702AMVB &RB.8. /*DATA BYTES*FOR*VERIFIED*AES MACS*/ R702AMVI &RB.8. /*INSTRUCTIONS*TO VERIFY*AES MACS*/ R702FPEC &RB.8. /*CALLS TO*ENCIPHER*USING*FPE*/ R702FPEB &RB.8. /*DATA BYTES*ENCIPHERED*USING FPE*/ R702FPEI &RB.8. /*INSTRUCTIONS*TO ENCIPHER*USING FPE*/ R702FPDC &RB.8. /*CALLS TO*DECIPHER*USING FPE*/ R702FPDB &RB.8. /*DATA BYTES*DECIPHERED*USING FPE*/ R702FPDI &RB.8. /*INSTRUCTIONS*TO DECIPHER*USING FPE*/ R702FPTC &RB.8. /*CALLS TO*TRANSLATE*DATA*USING FPE*/ R702FPTB &RB.8. /*DATA BYTES*TRANSLATED*USING FPE*/ R702FPTI &RB.8. /*INSTRUCTIONS*TO TRANSLATE*USING FPE*/ @; SKIP=SKIP-216; END; IF SKIP GE 120 THEN DO; INPUT R702FXEC &RB.8. /*CALLS TO*ENCIPHER*USING*FFX*/ R702FXEB &RB.8. /*BYTES*ENCIPHERED*USING*FFX*/ R702FXEI &RB.8. /*INSTRUCTIONS*TO ENCIPHER*USING*FFX*/ R702FXDC &RB.8. /*CALLS TO*DECIPHER*USING*FFX*/ R702FXDB &RB.8. /*BYTES*DECIPHERED*USING*FFX*/ R702FXDI &RB.8. /*INSTRUCTIONS*TO DECIPHER*USING*FFX*/ R702FXTC &RB.8. /*CALLS TO*TRANSLATE*USING*FFX*/ R702FXTB &RB.8. /*BYTES*TRANSLATEED*USING*FFX*/ R702FXTI &RB.8. /*INSTRUCTIONS*TO TRANSLATE*USING*FFX*/ R702DQGC &RB.8. /*CALLS TO*GENERATE*QSA DIGITAL*SIGNAT*/ +16 R702DQVC &RB.8. /*CALLS TO*VERIFY*QSA DIGITAL*SIGNATUR*/ +16 @; SKIP=SKIP-120; END; IF SKIP GT 0 THEN INPUT +SKIP @; CRYISDDI=R702SNDI; CRYISDEI=R702SNEI; CRYITDDI=R702TNDI; CRYITDEI=R702TNEI; CRYIH2I =R702NH2I; CRYIHAI =R702NHAI; CRYIMGI =R702NMGI; CRYIMVI =R702NMVI; IF R702NH2C GT 0 THEN CRYIH2S =R702NH2B/R702NH2C; ELSE CRYIH2S =.; IF R702NH5C GT 0 THEN CRYIH5S =R702NH5B/R702NH5C; ELSE CRYIH5S =.; IF R702NHAC GT 0 THEN CRYIHAS =R702NHAB/R702NHAC; ELSE CRYIHAS =.; IF R702NMGC GT 0 THEN CRYIMGS =R702NMGB/R702NMGC; ELSE CRYIMGS =.; IF R702NMVC GT 0 THEN CRYIMVS =R702NMVB/R702NMVC; ELSE CRYIMVS =.; IF R702SNDC GT 0 THEN CRYISDDS=R702SNDB/R702SNDC; ELSE CRYISDDS=.; IF R702SNEC GT 0 THEN CRYISDES=R702SNEB/R702SNEC; ELSE CRYISDES=.; IF R702TNDC GT 0 THEN CRYITDDS=R702TNDB/R702TNDC; ELSE CRYITDDS=.; IF R702TNEC GT 0 THEN CRYITDES=R702TNEB/R702TNEC; ELSE CRYITDES=.; IF DURATM GT 0 THEN DO; CRYIADR=R702ASDC/DURATM; CRYIAER=R702AESC/DURATM; CRYIH2R=R702NH2C/DURATM; CRYIH5R=R702NH5C/DURATM; CRYIHAR=R702NHAC/DURATM; CRYIMGR=R702NMGC/DURATM; CRYIMVR=R702NMVC/DURATM; CRYIPTR=R702NPTC/DURATM; CRYIPVR=R702NPVC/DURATM; CRYISDDR=R702SNDC/DURATM; CRYISDER=R702SNEC/DURATM; CRYITDDR=R702TNDC/DURATM; CRYITDER=R702TNEC/DURATM; END; ELSE DO; CRYIADR=.; CRYIAER=.; CRYIH2R=.; CRYIH5R=.; CRYIHAR=.; CRYIMGR=.; CRYIMVR=.; CRYIPTR=.; CRYIPVR=.; CRYISDDR=.; CRYISDER=.; CRYITDDR=.; CRYITDER=.; END; _ETY70Y2; /*INC SOURCLIB(EXTY70Y2); _WTY70Y2 OUTPUTS TYPE70Y2*/ END; IF SMF7025O GT 0 THEN DO; SMF7025O=SMF7025O-3; INPUT @SMF7025O @; END; IF SMF7025O GT 0 AND SMF7025N GT 0 THEN DO _I_=1 TO SMF7025N; INPUT /*PKCS11 COPROCESSOR*/ R7025AX &PIB.1. /*CRYPTO PROCESSOR INDEX*/ R7025CT &PIB.1. /*CRYPTO PROCESSOR TYPE: VALUE MEANING '10'X CEX4P */ R7025MSK $CHAR1. /*VALIDITY BIT MASK*/ R7025MT &PIB.1. /*RESERVED FOR DIAGNOSTIC PURPOSE*/ +4 /*RESERVED*/ R7025SF &RB.8. /*SCALING FACTOR FOR THIS PKCS11*/ R7025SAT &RB.8. /*SLOW*ASYMMETRIC-KEY*EXECUTION*TIME*/ R7025SAC &RB.8. /*SLOW*ASYMMETRIC-KEY*OPERATIONS*/ R7025FAT &RB.8. /*FAST*ASYMMETRIC-KEY*EXECUTION*TIME*/ R7025FAC &RB.8. /*FAST*ASYMMETRIC-KEY*OPERATIONS*/ R7025SPT &RB.8. /*SYMMETRIC-KEY*PARTIAL*RETURN*TIME*/ R7025SPC &RB.8. /*SYMMETRIC-KEY*PARTIAL*RETURN*OPERATIONS*/ R7025SCT &RB.8. /*SYMMETRIC-KEY*COMPLETE*RETURN*TIME*/ R7025SCC &RB.8. /*SYMMETRIC-KEY*COMPLETE*RETURN*OPERATIONS*/ R7025AGT &RB.8. /*ASYMMETRIC-KEY*GENERATION*TIME*/ R7025AGC &RB.8. /*ASYMMETRIC-KEY*GENERATION*OPERATIONS*/ @; SKIP=SMF7025L-96; IF SKIP GE 4 THEN DO; INPUT R7025SCOPE &PIB.1. /*SCOPE*OF*PKCSI1*COPROCESSOR*/ R7025DID &PIB.1. /*DOMAIN*ID*/ +2 @; SKIP=SKIP-4; IF SKIP GT 4 THEN DO; INPUT +SKIP @; SKIP=0; END; END; R7025SAT=R7025SAT*R7025SF; R7025FAT=R7025FAT*R7025SF; R7025SPT=R7025SPT*R7025SF; R7025SCT=R7025SCT*R7025SF; R7025AGT=R7025AGT*R7025SF; CRYPTR=SUM(R7025SAC,R7025FAC,R7025SPC,R7025SCC,R7025AGC)/DURATM; CRYPTU=100*SUM(R7025SAT,R7025FAT,R7025SPT,R7025SCT,R7025AGT)/ DURATM; IF SUM(R7025SAC,R7025FAC,R7025SPC,R7025SCC,R7025AGC) GT 0 THEN CRYPTE=SUM(R7025SAT,R7025FAT,R7025SPT,R7025SCT,R7025AGT)/ SUM(R7025SAC,R7025FAC,R7025SPC,R7025SCC,R7025AGC); CRYPSAR=R7025SAC/DURATM; CRYPSAU=R7025SAT/DURATM; IF R7025SAC GT 0 THEN CRYPSAE=R7025SAT/R7025SAC; ELSE CRYPSAE=.; CRYPFAR=R7025FAC/DURATM; CRYPFAU=R7025FAT/DURATM; IF R7025FAC GT 0 THEN CRYPFAE=R7025FAT/R7025FAC; ELSE CRYPFAE=.; CRYPSPR=R7025SPC/DURATM; CRYPSPU=R7025SPT/DURATM; IF R7025SPC GT 0 THEN CRYPSPE=R7025SPT/R7025SPC; ELSE CRYPSPE=.; CRYPSCR=R7025SCC/DURATM; CRYPSCU=R7025SCT/DURATM; IF R7025SCC GT 0 THEN CRYPSCE=R7025SCT/R7025SCC; ELSE CRYPSCE=.; CRYPAGR=R7025AGC/DURATM; CRYPAGU=R7025AGT/DURATM; IF R7025AGC GT 0 THEN CRYPAGE=R7025AGT/R7025AGC; ELSE CRYPAGE=.; _ETY70Y3; /*INC SOURCLIB(EXTY70Y3); _WTY70Y3 OUTPUTS TYPE70Y3*/ SMF7025O=SMF7025O+SMF7025L; END; RETURN; END; /* END TYPE 70 SUBTYPE 2 RECORD */ ELSE IF ID=72 THEN DO; INPUT @15+OFFSMF SUBSYS $EBCDIC4. /*SMF72SSI*/ @19+OFFSMF SUBTYPE &PIB.2. /*SMF72STY*/ @21+OFFSMF NRTRIPLT &PIB.2. /*SMF72TRN*/ @23+OFFSMF SMF72RV2 &PIB.2. /*RESERVED*/ @25+OFFSMF OFFRMFP &PIB.4. /*SMF72PRS*/ @29+OFFSMF LENRMFP &PIB.2. /*SMF72PRL*/ @31+OFFSMF NRRMFP &PIB.2. /*SMF72PRN*/ @; IF SUBTYPE=1 OR SUBTYPE=2 THEN INPUT @33+OFFSMF OFFWRKC &PIB.4. /*SMF72WLS*/ @37+OFFSMF LENWRKC &PIB.2. /*SMF72WLL*/ @39+OFFSMF NRWRKC &PIB.2. /*SMF72WLN*/ @41+OFFSMF OFFPGPS &PIB.4. /*SMF72PGS*/ @45+OFFSMF LENPGPS &PIB.2. /*SMF72PGL*/ @47+OFFSMF NRPERIOD &PIB.2. /*SMF72PGN*/ @; IF (SUBTYPE=1 OR SUBTYPE=2) AND NRTRIPLT GE 4 THEN INPUT @49+OFFSMF OFFSWP &PIB.4. /*SMF72SWS*/ @53+OFFSMF LENSWP &PIB.2. /*SMF72SWL*/ @55+OFFSMF NRSWP &PIB.2. /*SMF72SWN*/ @; IF SUBTYPE=3 THEN DO; IF LENGTH LT 80+OFFSMF THEN DO; NSHRT72+1; IF NSHRT72 EQ 1 THEN DO; %%MXLOGPUT(MESSAGE=MXGERROR::VMAC7072.015); &MXPUT // '*** MXG ERROR VMAC72: TRUNCATED 72-3 RECORD, DELETED.' /+5 _N_= LENGTH= SYSTEM= SMFTIME= NRTRIPLT= SUBTYPE=//; %%MXLOGEND; PUT // '*** MXG ERROR VMAC72: TRUNCATED 72-3 RECORD, DELETED.' /+5 _N_= LENGTH= SYSTEM= SMFTIME= NRTRIPLT= SUBTYPE=//; LIST; END; DELETE; END; INPUT @33+OFFSMF OFFWMS &PIB.4. /*SMF72WMS*/ @37+OFFSMF LENWMS &PIB.2. /*SMF72WML*/ @39+OFFSMF NRWMS &PIB.2. /*SMF72WMN*/ @41+OFFSMF OFFSSS &PIB.4. /*SMF72SSS*/ @45+OFFSMF LENSSS &PIB.2. /*SMF72SSL*/ @47+OFFSMF NRSSS &PIB.2. /*SMF72SSN*/ @49+OFFSMF OFFRGS &PIB.4. /*SMF72RGS*/ @53+OFFSMF LENRGS &PIB.2. /*SMF72RGL*/ @55+OFFSMF NRRGS &PIB.2. /*SMF72RGN*/ @57+OFFSMF OFFSCS &PIB.4. /*SMF72SCS*/ @61+OFFSMF LENSCS &PIB.2. /*SMF72SCL*/ @63+OFFSMF NRSCS &PIB.2. /*SMF72SCN*/ @65+OFFSMF OFFRTS &PIB.4. /*SMF72RTS*/ @69+OFFSMF LENRTS &PIB.2. /*SMF72RTL*/ @71+OFFSMF NRRTS &PIB.2. /*SMF72RTN*/ @73+OFFSMF OFFWRS &PIB.4. /*SMF72WRS*/ @77+OFFSMF LENWRS &PIB.2. /*SMF72WRL*/ @79+OFFSMF NRWRS &PIB.2. /*SMF72WRN*/ @; IF NRTRIPLT GE 8 THEN DO; /*CH26071*/ INPUT @81+OFFSMF OFFDNS &PIB.4. /*SMF72DNS*/ @85+OFFSMF LENDNS &PIB.2. /*SMF72DNL*/ @87+OFFSMF NRDNS &PIB.2. /*SMF72DNN*/ @; OFFDNS=OFFDNS-3; END; END; IF SUBTYPE=4 AND NRTRIPLT GE 3 THEN INPUT @33+OFFSMF OFFCPS &PIB.4. /*SMF72CPS*/ @37+OFFSMF LENCPS &PIB.2. /*SMF72CPL*/ @39+OFFSMF NRCPS &PIB.2. /*SMF72CPN*/ @41+OFFSMF OFFSPS &PIB.4. /*SMF72SPS*/ @45+OFFSMF LENSPS &PIB.2. /*SMF72SPL*/ @47+OFFSMF NRSPS &PIB.2. /*SMF72SPN*/ @; IF SUBTYPE=5 AND NRTRIPLT GE 14 THEN INPUT @33+OFFSMF SMF72SES &PIB.4. /*SMF72SES*/ SMF72SEL &PIB.2. /*LEN OF SERIALIZATION CONTROL*/ SMF72SEN &PIB.2. /*NR OF SERIALIZATION CONTROL*/ SMF72CMS &PIB.4. /*OFF TO CMS LOCK DATA*/ SMF72CML &PIB.2. /*LEN OF CMS LOCK DATA*/ SMF72CMN &PIB.2. /*NR OF CMS LOCK DATA*/ SMF72EDS &PIB.4. /*OFF TO CMS ENQUEUEDEQUEUE LOCK DATA*/ SMF72EDL &PIB.2. /*LEN OF CMS ENQUEUEDEQUEUE LOCK DATA*/ SMF72EDN &PIB.2. /*NR OF CMS ENQUEUEDEQUEUE LOCK DATA*/ SMF72LAS &PIB.4. /*OFF TO CMS LATCH LOCK DATA*/ SMF72LAL &PIB.2. /*LEN OF CMS LATCH LOCK DATA*/ SMF72LAN &PIB.2. /*NR OF CMS LATCH LOCK DATA*/ SMF72SMS &PIB.4. /*OFF TO CMS SMF LOCK DATA*/ SMF72SML &PIB.2. /*LEN OF CMS SMF LOCK DATA*/ SMF72SMN &PIB.2. /*NR OF CMS SMF LOCK DATA*/ SMF72LOS &PIB.4. /*OFF TO LOCAL LOCK DATA*/ SMF72LOL &PIB.2. /*LEN OF LOCAL LOCK DATA*/ SMF72LON &PIB.2. /*NR OF LOCAL LOCK DATA*/ SMF72COS &PIB.4. /*OFF TO CML LOCK OWNER DATA*/ SMF72COL &PIB.2. /*LEN OF CML LOCK OWNER DATA*/ SMF72CON &PIB.2. /*NR OF CMS LATCH LOCK DATA*/ SMF72CRS &PIB.4. /*OFF TO CML LOCK REQUESTOR DATA*/ SMF72CRL &PIB.2. /*LEN OF CML LOCK REQUESTOR DATA*/ SMF72CRN &PIB.2. /*NR OF CML LOCK REQUESTOR DATA*/ SMF72LCS &PIB.4. /*OFF TO GRS LATCH SET CREATOR DATA*/ SMF72LCL &PIB.2. /*LEN OF GRS LATCH SET CREATOR DATA*/ SMF72LCN &PIB.2. /*NR OF GRS LATCH SET CREATOR DATA*/ SMF72LRS &PIB.4. /*OFF TO GRS LATCH SET REQUESTOR DATA*/ SMF72LRL &PIB.2. /*LEN OF GRS LATCH SET REQUESTOR DATA*/ SMF72LRN &PIB.2. /*NR OF GRS LATCH SET REQUESTOR DATA*/ SMF72TDS &PIB.4. /*OFF TO GRS ENQ SCOPE=STEP DATA*/ SMF72TDL &PIB.2. /*LEN OF GRS ENQ SCOPE=STEP DATA*/ SMF72TDN &PIB.2. /*NR OF GRS ENQ SCOPE=STEP DATA*/ SMF72YDS &PIB.4. /*OFF TO GRS ENQ SCOPE=SYSTEM DATA*/ SMF72YDL &PIB.2. /*LEN OF GRS ENQ SCOPE=SYSTEM DATA*/ SMF72YDN &PIB.2. /*NR OF GRS ENQ SCOPE=SYSTEM DATA*/ SMF72SDS &PIB.4. /*OFF TO GRS ENQ SCOPE=SYSTEMS DATA*/ SMF72SDL &PIB.2. /*LEN OF GRS ENQ SCOPE=SYSTEMS DATA*/ SMF72SDN &PIB.2. /*NR OF GRS ENQ SCOPE=SYSTEMS DATA*/ @; IF SUBTYPE=5 AND NRTRIPLT GE 15 THEN INPUT SMF72QSS &PIB.4. /*OFF TO GRS QSCAN STATISTICS DATA*/ SMF72QSL &PIB.2. /*LEN OF GRS QSCAN STATISTICS DATA*/ SMF72QSN &PIB.2. /*NR OF GRS QSCAN STATISTICS DATA*/ @; *PUT ' DEBUG ' _N_= LENGTH= NRTRIPLT= / SMF72SES =/ SMF72SEL =/ SMF72SEN =/ SMF72CMS =/ SMF72CML =/ SMF72CMN =/ SMF72EDS =/ SMF72EDL =/ SMF72EDN =/ SMF72LAS =/ SMF72LAL =/ SMF72LAN =/ SMF72SMS =/ SMF72SML =/ SMF72SMN =/ SMF72LOS =/ SMF72LOL =/ SMF72LON =/ SMF72COS =/ SMF72COL =/ SMF72CON =/ SMF72CRS =/ SMF72CRL =/ SMF72CRN =/ SMF72LCS =/ SMF72LCL =/ SMF72LCN =/ SMF72LRS =/ SMF72LRL =/ SMF72LRN =/ SMF72TDS =/ SMF72TDL =/ SMF72TDN =/ SMF72YDS =/ SMF72YDL =/ SMF72YDN =/ SMF72SDS =/ SMF72SDL =/ SMF72SDN =/ SMF72QSS =/ SMF72QSL =/ SMF72QSN =/ ; IF OFFRMFP GT 0 AND NRRMFP GT 0 THEN DO; OFFRMFP=OFFRMFP-3+OFFSMF; IF OFFRMFP+LENRMFP*NRRMFP GT LENGTH+1 THEN DO; N72RMFP+1; IF N72RMFP EQ 1 THEN DO; %%MXLOGPUT(MESSAGE=MXGERROR::VMAC7072.016); &MXPUT ' TYPE72 RMFP SECTION ERROR.' // ' INVALID RECORD DETECTED AND DELETED.' OFFRMFP= LENRMFP= NRRMFP= LENGTH= _N_= SYSTEM= SMFTIME=; %%MXLOGEND; PUT ' TYPE72 RMFP SECTION ERROR.' // ' INVALID RECORD DETECTED AND DELETED.' OFFRMFP= LENRMFP= NRRMFP= LENGTH= _N_= SYSTEM= SMFTIME=; END; DELETE; END; INPUT @OFFRMFP VERSNRMF ?? &PD.2. @; /*SMF72MFV*/ IF VERSNRMF = . THEN INPUT @OFFRMFP VERSNRMF &NUM.2. @; INPUT @OFFRMFP+2 PRODUCT $EBCDIC8. /*SMF72PRD*/ @OFFRMFP+10 STARTIME RMFSTAMP8. /*SMF72IST-DAT*/ @OFFRMFP+18 DURATM RMFDUR4. /*SMF72INT*/ @OFFRMFP+22 MAINTIND &PIB.2. /*RESERVED*/ @OFFRMFP+24 NRSAMPLE &PIB.4. /*SMF72SAM*/ @OFFRMFP+28 SMF72RV3 &PIB.2. /*RESERVED*/ @OFFRMFP+30 CONVFLAG &PIB.1. /*RESERVED*/ @OFFRMFP+30 SMF72FLA $CHAR2. /*SMF72FLA*/ @OFFRMFP+32 RELEASE $EBCDIC4. /*RESERVED*/ @OFFRMFP+36 CYCLE &PD.4. /*SMF72CYC*/ @; IF CONVFLAG='.1......'B THEN SAMPSKPD='Y'; /*SAMPLES*WERE*SKIPPE?*/ IF CONVFLAG='..1.....'B THEN RMFIIIRC='Y'; /*RMF III*WROTE*RECOR?*/ IF CONVFLAG='...1....'B THEN INTRVSYN='Y'; /*INTERVAL*WAS*SYNC-E?*/ IF SUBTYPE=3 THEN DO; IF SMF72FLA='.........1......'B THEN BOOSTACTIVE=0;/*ZIP*/ ELSE IF SMF72FLA='..........1.....'B THEN BOOSTACTIVE=1;/*SPEED*/ ELSE IF SMF72FLA='.........11.....'B THEN BOOSTACTIVE=2;/*BOTH*/ IF BOOSTACTIVE GT . THEN DO; IF SMF72FLA='.............001'B THEN BOOSTCLASS='IPL '; IF SMF72FLA='.............010'B THEN BOOSTCLASS='SHUT'; IF SMF72FLA='.............011'B THEN BOOSTCLASS='RECO'; END; END; IF SMF72RV3='........1.......'B THEN PRODUCT='CMF-CPM'; ELSE IF SMF72RV3='.........1......'B THEN PRODUCT='CMF-IPM'; IF VERSNRMF GE 321 THEN INPUT @OFFRMFP+40 MVSLEVEL $EBCDIC8. /*ZV010900 IS Z/OS 1.9 */ @OFFRMFP+48 TEMPIOML $CHAR1. /*ZV011000 IS Z/OS 1.10*/ @OFFRMFP+49 SMF72PRF $CHAR1. @OFFRMFP+50 PARTISHN &PIB.1. @OFFRMFP+51 RMFSRCL &PIB.1. /*SMF72SRL*/ @; IF PRODUCT IN ('CMF-CPM','CMF-IPM') AND RMFSRCL GE 81 AND VERSNRMF=792 THEN VERSNRMF=794; IF LENRMFP GE 60 THEN INPUT @OFFRMFP+52 SYNCTIME TODSTAMP8. /*SMF72IET*/ @; IF LENRMFP GE 104 THEN DO; INPUT GMTOFF72 &IB.8.6 /*OFFSET*GMT TO LOCAL TIME*/ SMF72RAO &PIB.4. /*REASSEMBLY*AREA*OFFSET*/ SMF72RAL &PIB.2. /*REASSEMBLY*AREA*LENGTH*/ SMF72RAN &PIB.2. /*REASSEMBLY*AREA*NUMBER*/ SMF72OIL &PIB.2. /*ORIGINAL*INTERVAL*LENGTH TIME8.*/ SMF72SYN &PIB.2. /*SYNC*VALUE TIME8.*/ SMF72GIE TODSTAMP8. /*PROJECTED*INTERVAL*END TIME GMT*/ SYSPLEX $EBCDIC8. /*SYSPLEX*NAME SMF72XNM*/ SYSNAME $EBCDIC8. /*SYSTEM*NAME FROM*IEASYSXX*/ @; GMTOFF72=GMTOFF72/4096; GMTOFFTM=GMTOFF72; SYNCTIME=SYNCTIME+GMTOFF72; SMF72GIE=SMF72GIE+GMTOFF72; %%VMXGTIME(STARTIME SYNCTIME SMF72GIE,SYSTEM,SYSPLEX); DATETIME=STARTIME; %%INCLUDE SOURCLIB(IMACSHFT); END; IF LENRMFP GE 120 THEN DO; INPUT SMF72RBR &PIB.2. /*TOT NR BKN RECS BUILD FROM ORIG */ SMF72RSQ &PIB.2. /*SEQ NR OF THIS BROKEN RECORD*/ SMF72RIO &PIB.4. /*OFFSET TO 1ST REASSM INFO BLOCK*/ SMF72RIL &PIB.2. /*LENGTH OF REASSEMBLY INFO BLOCK*/ SMF72RIN &PIB.2. /*NUMBER OF REASSEMBLY INFO BLOCK*/ +4 /*RESERVED*/ @; END; IF LENRMFP GE 124 THEN DO; INPUT SMF72RNN &PIB.2. /*TOT SECTS IN ORIG LARGE RECORD */ SMF72RPP &PIB.2. /*POS OF 1ST CONSEC SECTION*/ @; END; IF TEMPIOML='......10'B THEN TYPEIOML='4381'; ELSE IF TEMPIOML='......01'B THEN TYPEIOML='308X'; ELSE IF TEMPIOML='......11'B THEN TYPEIOML='309X'; IF SMF72PRF='1.......'B THEN EXTNDSTO='Y'; IF SMF72PRF='.1......'B THEN ESCAENAB='Y'; IF SMF72PRF='..1.....'B THEN ESCACONF='Y'; IF SMF72PRF='...1....'B THEN ZARCHMDE='Y'; IF SMF72PRF='....1...'B THEN IFAAVAIL='Y'; IF SMF72PRF='.....1..'B THEN ZIPAVAIL='Y'; &MAC72H; END; /* END RMF PRODUCT SECTION */ IF SUBTYPE=1 THEN DO; /* ORIGINAL WORKLOAD ACTIVITY (COMPATIBILITY)*/ IF OFFWRKC GT 0 AND NRWRKC GT 0 THEN DO; OFFWRKC=OFFWRKC-3+OFFSMF; IF OFFWRKC+LENWRKC*NRWRKC GT LENGTH+1 THEN DO; N72WRKC+1; IF N72WRKC EQ 1 THEN DO; %%MXLOGPUT(MESSAGE=MXGERROR::VMAC7072.017); &MXPUT ' TYPE72 WRKC SECTION ERROR.' // ' INVALID RECORD DETECTED AND DELETED.' OFFWRKC= LENWRKC= NRWRKC= LENGTH= _N_= SYSTEM= SMFTIME=; %%MXLOGEND; PUT ' TYPE72 WRKC SECTION ERROR.' // ' INVALID RECORD DETECTED AND DELETED.' OFFWRKC= LENWRKC= NRWRKC= LENGTH= _N_= SYSTEM= SMFTIME=; END; DELETE; END; INPUT @OFFWRKC FLAGS72 $CHAR1. @OFFWRKC+01 SMF72RV5 $CHAR1. @OFFWRKC+02 PERFGRP &PIB.2. @OFFWRKC+04 HIGHPG &PIB.2. @OFFWRKC+06 IPSNAME $EBCDIC8. @OFFWRKC+14 IOCRFC ?? &NUM.3. @OFFWRKC+17 CPURFC ?? &NUM.3. @OFFWRKC+20 ERV &NUM.6. @OFFWRKC+26 IOCCOEFF &NUM.4. @OFFWRKC+30 CPUCOEFF &NUM.4. @OFFWRKC+34 MSOCOEFF ?? &NUM.4. @OFFWRKC+38 SRBCOEFF &NUM.4. @OFFWRKC+42 OPTNAME $EBCDIC8. @OFFWRKC+50 ICSNAME $EBCDIC8. @OFFWRKC+58 SUBSYS $EBCDIC4. @OFFWRKC+62 PGNCLASS $EBCDIC10. @OFFWRKC+72 PGNUSER $EBCDIC10. @OFFWRKC+82 PGNTRANS $EBCDIC10. @; IF VERSNRMF GE 330 THEN DO; INPUT NNNNNN &PIB.4. @; IF NNNNNN GT 0 THEN SU_SEC=16000000/NNNNNN; END; IOCSYSTM=SYSTEM; IF FLAGS72='......1.'B THEN PERFRPGN=PERFGRP; IF LENWRKC GE 103 THEN DO; INPUT MSOCOEFF &NUM.8. @; /*INCREASED FROM 4 TO 8 BYTES 3.1.3*/ END; IF LENWRKC GE 115 THEN DO; INPUT SRVCLASS $EBCDIC8. /*CAN BE 10, BUT IF USED AT ALL, */ +4 /*I EXPECT YOU WILL USE ONLY 8. */ @; END; END; IF OFFPGPS GT 0 AND NRPERIOD GT 0 THEN DO; OFFPGPS=OFFPGPS-3+OFFSMF; IF OFFPGPS+LENPGPS*NRPERIOD GT LENGTH+1 THEN DO; N72PGPS+1; IF N72PGPS EQ 1 THEN DO; %%MXLOGPUT(MESSAGE=MXGERROR::VMAC7072.018); &MXPUT ' TYPE72 PGPS SECTION ERROR.' // ' INVALID RECORD DETECTED AND DELETED.' OFFPGPS= LENPGPS= NRPERIOD= LENGTH= _N_= SYSTEM= SMFTIME=; %%MXLOGEND; PUT ' TYPE72 PGPS SECTION ERROR.' // ' INVALID RECORD DETECTED AND DELETED.' OFFPGPS= LENPGPS= NRPERIOD= LENGTH= _N_= SYSTEM= SMFTIME=; END; DELETE; END; INPUT @OFFPGPS @; DO PERIOD=1 TO NRPERIOD; INPUT TRANS &PIB.4. /*SMF72TTX*/ ACTIVETM &PIB.4. /*SMF72ACT*/ SERVICE &PIB.4. /*SMF72SER*/ ELAPSTM &PIB.4. /*SMF72TTM*/ WKLOAD &PIB.4. /* RESERVED STARTING IN MVS 4.2*/ MSOUNITS &PIB.4. /*SMF72MTS*/ IOUNITS &PIB.4. /*SMF72ITS*/ CPUUNITS &PIB.4. /*SMF72CTS*/ RESIDTM &PIB.4. /*SMF72TAT*/ SWAPSEQ &PIB.4. /*SMF72SPP*/ DOMAIN &PIB.2. /*SMF72CDN*/ OBJCTIVE &PIB.1. TSLGROUP &PIB.1. /*SMF72TSG*/ SRBUNITS &PIB.4. /*SMF72STS*/ SSQELAP &PIB.8. /*SMF72ET1,SMF72ET2*/ @; SKIP=LENPGPS-56; IF LENPGPS GE 68 THEN DO; INPUT PGPAGEIN &PIB.4. /* PERF GROUP PERIOD PAGE INS*/ ACTFRMTM &PIB.8.6 /*ACTIVE FRAME TIME */ @; ACTFRMTM=ACTFRMTM*1024; IF DURATM GT 0 THEN TSTORE72=4096*ACTFRMTM/DURATM; ELSE TSTORE72=.; SKIP=SKIP-12; END; IF LENPGPS GE 76 THEN DO; INPUT HIPPGINS &PIB.4. /* HIPERSPACE PAGE-INS */ HIPRDMIS &PIB.4. /* HIPERSPACE READ MISSES */ @; SKIP=SKIP-8; END; IF LENPGPS GE 120 THEN DO; INPUT PGBKAUIN &PIB.4. /*BPI BLOCKED PAGES PAGED IN*/ PAGEESIN &PIB.4. /*PIE PAGES PAGED IN FROM ESTORE*/ PGBKESIN &PIB.4. /*BPE BLKD PAGES PAGED IN FROM ES*/ BLKSAUIN &PIB.4. /*BKA BLOCKS PAGED IN FROM AUX*/ BLKSESIN &PIB.4. /*BKE BLOCKS PAGED IN FROM ESTORE*/ ACTESFTM &PIB.8.6 /*EXPANDED STORAGE RESIDENCY*/ CPURCTTM &PIB.4.6 /*REGION*CONTROL*TASK CPU TIME*/ /*R723CRCT*/ CPUIIPTM &PIB.4.6 /*I/O*INTERRUPT PROCESSING*/ /*R723CIIT*/ CPUHPTTM &PIB.4.6 /*HIPERSPACE*CPU*TIME*/ /*R723CHST*/ SYSTRNTM &PIB.4.6 /*SMF72TST SYSTEM*TRANSACTION*TIME*/ @; ACTESFTM=ACTESFTM*1024; SYSTRNTM=SYSTRNTM*1024; IF DURATM GT 0 THEN DO; CSTORE72=4096*(ACTFRMTM-ACTESFTM)/DURATM; ESTORE72=4096*ACTESFTM/DURATM; END; ELSE DO; CSTORE72=.; ESTORE72=.; END; SKIP=SKIP-44; END; IF LENPGPS GE 128 THEN DO; INPUT CPUUSESM &PIB.4. /*SMF72CUS CPU*USING*SAMPLES */ TOTDLYSM &PIB.4. /*SMF72TOT TOTAL*DELAY*SAMPLES*/ @; IF SUM(CPUUSESM,TOTDLYSM) GT 0 THEN VELOCITY=100*CPUUSESM/SUM(CPUUSESM,TOTDLYSM); ELSE VELOCITY=.; VELOCCPU=VELOCITY; SKIP=SKIP-8; END; IF LENPGPS GE 152 THEN DO; INPUT SMF72SRS &RB.8.6 /*SMF72SRS SHARED PAGE RESIDENCY*/ SMF72SPA &RB.8. /*SMF72SPA SHARED PAGEINS FR AUX*/ SMF72SPE &RB.8. /*SMF72SPE SHARED PAGEINS FR EST*/ @; SKIP=SKIP-24; SMF72SRS=1024*SMF72SRS; /* CONVERT TO PAGE SECONDS*/ END; IF LENPGPS GE 192 THEN DO; INPUT SMF72ICT &RB.8.6 /*NON-PAGING*DASD I/O/CONNECT*TIME*/ SMF72IWT &RB.8.6 /*NON-PAGING*DASD I/O*WAIT*TIME*/ SMF72IDT &RB.8.6 /*NON-PAGING*DASD*DISCONNECT*TIME*/ SMF72IRC &PIB.4. /*NON-PAGING*DASD I/O*SSCH COUNT*/ TOTUSTOU &PIB.4. /*SMF72TOU*TOTAL*USING*SAMPLES*/ SMF72IOU &PIB.4. /*TOTAL*USING I/O*SAMPLES*/ SMF72NDI &PIB.4. /*NON-DASD*I/O USIN/DELAY*SAMPLES*/ @; SMF72ICT=128*SMF72ICT; SMF72IWT=128*SMF72IWT; SMF72IDT=128*SMF72IDT; IF TOTUSTOU+TOTDLYSM THEN DO; VELOCITY=100*TOTUSTOU/(TOTUSTOU+TOTDLYSM); /* 100*SMF72TOU/(SMF72TOU+SMF72TOT); */ VELOCIOD=VELOCITY; /*TRUE IF IOU INCLUDED IN TOU*/ END; ELSE DO; VELOCITY=.; VELOCIOD=.; END; SKIP=SKIP-40; END; IF LENPGPS GE 228 THEN DO; INPUT SMF72IOD &PIB.4. /*TOTAL*I/O*DELAYS*SAMPLES*/ SMF72TSA &RB.8. /*TOTAL*EXECUTION*SAMPLES*/ SMF72IOT &RB.8.6 /*DASD*IOS QUEUE*TIME*/ SMF72QDT &PIB.4.6 /*TOTAL*QUEUE*DELAY*TIME*/ SMF72ADT &PIB.4.6 /*INELIGIBLE*AFFINITY*TIME*/ SMF72CVT &PIB.4.6 /*JCL CONVERSION*TIME*/ SMF72IQT &PIB.4.6 /*INELIGIBLE*OTHER*RESOURCE*TIME*/ @; SMF72IOT=128*SMF72IOT; SMF72QDT=1024*SMF72QDT; SMF72ADT=1024*SMF72ADT; SMF72CVT=1024*SMF72CVT; SMF72IQT=1024*SMF72IQT; SKIP=SKIP-36; END; IF LENPGPS GE 240 THEN DO; /* OS/390 R2.9 */ INPUT SMF72IEA &PIB.4.6 /*INDEP ENCL*ORIGINATED*ACTIVETM*/ SMF72XEA &PIB.4.6 /*EXPORTED ENCL*TOTAL*ACTIVETM*/ SMF72FEA &PIB.4.6 /*FOREIGN*ENCLAVE*TOTAL*ACTIVETM*/ @; SMF72IEA=1024*SMF72IEA; SMF72XEA=1024*SMF72XEA; SMF72FEA=1024*SMF72FEA; SKIP=SKIP-12; END; IF FLAGS72='.....1..'B THEN PERFACCT='Y'; ELSE PERFACCT=' '; IF SKIP GT 0 THEN INPUT +SKIP @; WKLOAD=WKLOAD/256; ACTIVETM=ACTIVETM*1024/(1E6); ELAPSTM=ELAPSTM*1024/(1E6); RESIDTM=RESIDTM*1024/(1E6); IF DURATM GT 0 THEN MPL72=RESIDTM/DURATM; ELSE MPL72=.; CPUTCBTM=CPUUNITS/(CPUCOEFF*SU_SEC); IF SRBCOEFF GT 0 THEN CPUSRBTM=SRBUNITS/(SRBCOEFF*SU_SEC); CPUTM=SUM(CPUTCBTM,CPUSRBTM,CPUHPTTM,CPUIIPTM,CPURCTTM); MSU72=CPUTM*SU_SEC/1000000; /*NEVER USED, SUBTYPE 1*/ IF TRANS GT 0 THEN RESPAVG=ELAPSTM/TRANS; ELSE RESPAVG=.; SSQELAP=SSQELAP*1.024E-06; /* 1024/(1E6**2)*/ IF TRANS GT 1 THEN DO; RESPSTD=(SSQELAP-(ELAPSTM**2)/TRANS); IF RESPSTD GE 0 THEN RESPSTD=SQRT(RESPSTD/(TRANS-1)); ELSE RESPSTD=.; END; ELSE RESPSTD=.; /* NOTE: PRIOR TO MVS/ESA 5.2, IO SERVICE UNITS COULD BE BASED ON */ /* EITHER EXCP COUNT OR IO CONNECT TIME, AND MXG CALCULATED TWO */ /* VARIABLES, PGPEXCP AND PGPIOTM TO GIVE THE RAW IO UNITS. AS */ /* THERE WAS NO FLAG IN TYPE72 TO IDENTIFY WHICH UNITS WERE USED, */ /* BOTH VARIABLES WERE CALCULATED KNOWING ONLY ONE WAS VALID. */ /* WHEN DEVICE CONNECT TIME WAS USED FOR SERVICE UNITS, A SERVICE */ /* UNIT WAS DEFINED AS 65 CONNECT TIME UNITS, AND A CONNECT TIME */ /* UNIT IS 128 MICROSECONDS, HENCE THE 8320E-6 FACTOR IN PGPIOTM. */ /* BUT BEGINNING WITH MVS/ESA 5.2, IO SERVICE UNITS CAN ONLY BE */ /* BASED ON EXCP COUNT, SO PGPIOTM IS FORCED MISSING FOR 5.2+. */ IF IOCCOEFF GT 0 THEN DO; PGPEXCP=IOUNITS/IOCCOEFF; IF VERSNRMF LT 520 THEN PGPIOTM=8320E-6*IOUNITS/IOCCOEFF; ELSE PGPIOTM=.; END; ELSE DO; PGPEXCP=.; PGPIOTM=.; END; IF CPUUNITS GT 0 AND MSOCOEFF GT 0 THEN AVGMEMSZ=200*MSOUNITS*CPUCOEFF/(MSOCOEFF*CPUUNITS); ELSE AVGMEMSZ=.; /* NOTE THAT THERE IS SELECTION CRITERIA IN EXTY72 AS TO */ /* WHETHER AN OBSERVATION IS ACTUALLY OUTPUT (TO SAVE DASD)*/ _ETY72;/* INC SOURCLIB(EXTY72); _WTY72 OUTPUTS TYPE72*/ END; /* LOOP ON EACH PERIOD IN THE PGP SECTION*/ END; /* DO ON PGP SECTION */ END; /* END SUBTYPE=1 (ORIGINAL) TYPE 72 */ ELSE IF SUBTYPE=2 THEN DO; /* RMF MONITOR II DATA */ IF OFFWRKC GT 0 AND NRWRKC GT 0 THEN DO; OFFWRKC=OFFWRKC-3+OFFSMF; IF OFFWRKC+LENWRKC*NRWRKC GT LENGTH+1 THEN DO; N72WRKC+1; IF N72WRKC EQ 1 THEN DO; %%MXLOGPUT(MESSAGE=MXGERROR::VMAC7072.019); &MXPUT ' TYPE72 WRKC SECTION ERROR.' // ' INVALID RECORD DETECTED AND DELETED.' OFFWRKC= LENWRKC= NRWRKC= LENGTH= _N_= SYSTEM= SMFTIME=; %%MXLOGEND; PUT ' TYPE72 WRKC SECTION ERROR.' // ' INVALID RECORD DETECTED AND DELETED.' OFFWRKC= LENWRKC= NRWRKC= LENGTH= _N_= SYSTEM= SMFTIME=; END; DELETE; END; INPUT @OFFWRKC NRSMALRC &PIB.2. /*R722TSR*/ +2 @OFFWRKC+04 NRDSTOT &PIB.4. /*R722TOT*/ @OFFWRKC+08 NRDSNEXT &PIB.4. /*R722NXT*/ @OFFWRKC+12 IPSNAME $EBCDIC8. /*R722IPS*/ @; END; IF OFFPGPS GT 0 AND NRPERIOD GT 0 THEN DO; OFFPGPS=OFFPGPS-3+OFFSMF; IF OFFPGPS+LENPGPS*NRPERIOD GT LENGTH+1 THEN DO; N72PGPS+1; IF N72PGPS EQ 1 THEN DO; %%MXLOGPUT(MESSAGE=MXGERROR::VMAC7072.020); &MXPUT ' TYPE72 PGPS SECTION ERROR.' // ' INVALID RECORD DETECTED AND DELETED.' OFFPGPS= LENPGPS= NRPERIOD= LENGTH= _N_= SYSTEM= SMFTIME=; %%MXLOGEND; PUT ' TYPE72 PGPS SECTION ERROR.' // ' INVALID RECORD DETECTED AND DELETED.' OFFPGPS= LENPGPS= NRPERIOD= LENGTH= _N_= SYSTEM= SMFTIME=; END; DELETE; END; END; /* DO ON PGP SECTION */ IF OFFSWP GT 0 AND NRSWP GT 0 THEN DO; OFFSWP=OFFSWP-3+OFFSMF; IF OFFSWP+LENSWP*NRSWP GT LENGTH+1 THEN DO; N72SWP+1; IF N72SWP EQ 1 THEN DO; %%MXLOGPUT(MESSAGE=MXGERROR::VMAC7072.021); &MXPUT ' TYPE72 SWAP SECTION ERROR.' // ' INVALID RECORD DETECTED AND DELETED.' OFFSWP= LENSWP= NRSWP= LENGTH= _N_= SYSTEM= SMFTIME=; %%MXLOGEND; PUT ' TYPE72 SWAP SECTION ERROR.' // ' INVALID RECORD DETECTED AND DELETED.' OFFSWP= LENSWP= NRSWP= LENGTH= _N_= SYSTEM= SMFTIME=; END; DELETE; END; END; DO _I_=1 TO NRPERIOD; /* NRPERIOD IS ACTUALLY NR PERFGRPS */ INPUT @OFFPGPS PERFGRP &PIB.2. /*R722PG*/ DOMAIN &PIB.2. /*R722DMN*/ AVGUSER &PIB.4. /*SUM OF ALL USERS FOUND R722USER*/ AVGACTV &PIB.4. /*SUM OF ALL ACTIVE USERS FOUND R722ACTV*/ MONPAGE &PIB.4. /*SUM OF ALL USRS DLYED PAGING R722PAGE*/ MONSWAP &PIB.4. /*SUM OF ALL USRS DLYED SWAP R722SWAP*/ MONOUTR &PIB.4. /*SUM OF ALL OUT AND RDY USRS R722OUTR*/ MONACTF &PIB.4. /*SUM OF ALL ACTIVE FRAMES R722ACTF*/ MONACTS &PIB.4. /*SUM ALL ACT SAMPS EXCEPT OUTR R722ACTS*/ MONIDLE &PIB.4. /*SUM OF ALL IDLE FRAMES R722IDLE */ MONIDLS &PIB.4. /*SUM OF ALL IDLE SAMPLES R722IDLS*/ MONPGIN &PIB.4. /*SUM OF ALL PAGE-INS R722PGIN*/ MONSLOT &PIB.4. /*SUM OF ALL SLOTS USED R722SLOT*/ MONDIV &PIB.4. /*SUM OF ALL DIV FRAMES R722DIV*/ MONDIVS &PIB.4. /*SUM OF ALL DIV SAMPLES R722DIVS*/ MONFIX &PIB.4. /*SUM OF ALL FIXED FRAMES R722FIX*/ @; IF LENPGPS GE 188 THEN DO; INPUT AVGELPTM &PIB.8.6 /*R722ET*AVG ELAPS ENDED TRANS*/ AVGQUETM &PIB.8.6 /*R722QT*AVG JES-APPC QUE*OF ENDED*/ TRANS &PIB.4. /*R722END*ENDED*TRANSACTION*COUNT*/ R722UPRO &PIB.4. /*R722UPRO PROCESSOR*USING*SAMPLES*/ R722UDEV &PIB.4. /*R722UDEV*DEVICE*USING*SAMPLES*/ R722DPRO &PIB.4. /*R722DPRO PROCESSOR*DELAY*SAMPLES*/ R722DDEV &PIB.4. /*R722DDEV*DEVICE*DELAY*SAMPLES*/ R722DSTO &PIB.4. /*R722DSTO*STORAGE*DELAY*SAMPLES*/ R722DJES &PIB.4. /*R722DJES*JES*DELAY*SAMPLES*/ R722DHSM &PIB.4. /*R722DHSM*HSM*DELAY*SAMPLES*/ R722DXCF &PIB.4. /*R722DXCF*XCF*DELAY*SAMPLES*/ R722DENQ &PIB.4. /*R722DENQ*ENQ*DELAY*SAMPLES*/ R722DMNT &PIB.4. /*R722DMNT*MOUNT*DELAY*SAMPLES*/ R722DMST &PIB.4. /*R722DMST*MESSAGE*DELAY*SAMPLES*/ R722UNKN &PIB.4. /*R722UNKN*UNKNOWN*STATE*SAMPLES*/ VALDSAMP &PIB.4. /*R724VALD*TOTAL*VALID*SAMPLES*/ LONGLGSW &PIB.4. /*R722LSCT*LONG*LOGICAL*SWAPS*/ LONGESTO &PIB.4. /*R722ESCT*LONG SWAPS*TO ESTORE*/ LONGPHYS &PIB.4. /*R722PSCT*LONG SWAPS*TO AUXSTORE*/ LOGCSTOR &RB.4. /*R722LSCF*CSTORE*LOG*SWAPPED USRS*/ LOGESTOR &RB.4. /*R722LSEF*ESTORE*LOG*SWAPPED USRS*/ LSWSAMPS &PIB.4. /*R722LSSA*TOT*LOG*SWAPPED SAMPLES*/ PHYESTOR &RB.4. /*R722PSEF*ESTORE*NON-LOG*SWAPPED*/ PSWSAMPS &PIB.4. /*R722PSSSA*TOT*NON-LOG*SWPD*SAMPS*/ CPUVECTM &PIB.4.3 /*R722VECT*VECTOR*CPU*UTILIZATION*/ MONACTF &RB.4. /*R722ACFF SUM OF*ALL ACTIVE*FRAMS*/ MONIDLE &RB.4. /*R722IDLF SUM OF*ALL IDLE*FRAMES*/ MONSLOT &RB.4. /*R722SLTF SUM OF*ALL SLOTS*USED*/ MONDIV &RB.4. /*R722DIVF SUM OF*DIV*FRAMES*/ MONFIX &RB.4. /*R722FIXF SUM OF*ALL*FIXED FRAMES*/ @; IF TRANS GT 0 THEN DO; AVGELPTM=1024*AVGELPTM/TRANS; AVGQUETM=1024*AVGQUETM/TRANS; END; ELSE DO; AVGELPTM=.; AVGQUETM=.; END; IF VALDSAMP GT 0 THEN DO; PCTUSPRO=100*R722UPRO/VALDSAMP; PCTUSDEV=100*R722UDEV/VALDSAMP; PCTDLPRO=100*R722DPRO/VALDSAMP; PCTDLDEV=100*R722DDEV/VALDSAMP; PCTDLSTO=100*R722DSTO/VALDSAMP; PCTDLJES=100*R722DJES/VALDSAMP; PCTDLHSM=100*R722DHSM/VALDSAMP; PCTDLXCF=100*R722DXCF/VALDSAMP; PCTDLENQ=100*R722DENQ/VALDSAMP; PCTDLMNT=100*R722DMNT/VALDSAMP; PCTDLMSG=100*R722DMST/VALDSAMP; PCTUNKN =100*R722UNKN/VALDSAMP; END; ELSE DO; PCTUSPRO=.; PCTUSDEV=.; PCTDLPRO=.; PCTDLDEV=.; PCTDLSTO=.; PCTDLJES=.; PCTDLHSM=.; PCTDLXCF=.; PCTDLENQ=.; PCTDLMNT=.; PCTDLMSG=.; PCTUNKN =.; END; IF LSWSAMPS GT 0 THEN DO; LOGCSTOR=4096*LOGCSTOR/LSWSAMPS; LOGESTOR=4096*LOGESTOR/LSWSAMPS; END; ELSE DO; LOGCSTOR=.; LOGESTOR=.; END; IF PSWSAMPS GT 0 THEN PHYESTOR=4096*PHYESTOR/PSWSAMPS; ELSE PHYESTOR=.; END; /* END MVS/ESA 4.3 ADDITIONS TO LENPGPS */ IF LENPGPS GE 220 THEN DO; INPUT R722TSV &RB.8. /*R722TSV*SUM OF SHARED PAGE VIEWS*/ R722VIN &RB.8. /*R722VIN*SUM OF SHARED PAGES CSTO*/ R722VLC &RB.8. /*R722VLC*SUM OF SHARED PAGE VALID*/ R722GPI &RB.8. /*R722GPI*SUM OF SHARED PGIN AUX*/ @; R722TSV=R722TSV/NRSAMPLE; R722VIN=R722VIN/NRSAMPLE; R722VLC=R722VLC/NRSAMPLE; R722GPI=R722GPI/NRSAMPLE; END; /* END MVS/ESA 5.2 ADDITIONS TO LENPGPS */ AVGPAGDL=MONPAGE/NRSAMPLE; AVGSWPDL=MONSWAP/NRSAMPLE; AVGOUTR =MONOUTR/NRSAMPLE; AVGACTS =MONACTS/NRSAMPLE; AVGIDLS =MONIDLS/NRSAMPLE; AVGDIVS =MONDIVS/NRSAMPLE; IF DURATM GT 0 THEN PGINRATE=MONPGIN/DURATM; ELSE PGINRATE=.; FRAMEACT=4096*MONACTF/NRSAMPLE; FRAMEIDL=4096*MONIDLE/NRSAMPLE; FRAMEDIV=4096*MONDIV /NRSAMPLE; FRAMEFIX=4096*MONFIX /NRSAMPLE; FRAMEASM=4096*MONSLOT/NRSAMPLE; IF MONACTS GT 0 THEN WSETACT=4096*MONACTF/MONACTS; ELSE WSETACT=.; IF MONIDLS GT 0 THEN WSETIDL=4096*MONIDLE/MONIDLS; ELSE WSETIDL=.; IF MONDIVS GT 0 THEN WSETDIV=4096*MONDIV /MONDIVS; ELSE WSETDIV=.; IF AVGUSER GT 0 THEN DO; WSETFIX=FRAMEFIX/AVGUSER; WSETASM=FRAMEASM/AVGUSER; END; ELSE DO; WSETFIX=.; WSETASM=.; END; OFFPGPS=OFFPGPS+LENPGPS; IF OFFSWP GT 0 AND OFFSWP+60 LE LENGTH+1 THEN DO; INPUT @OFFSWP SWAPDLTO &PIB.4. /*TERMINAL*OUTPUT*SWAP DLYS R722OR2*/ SWAPDLTI &PIB.4. /*TERMINAL*INPUT*SWAP DLYS R722OR1*/ SWAPDLWT &PIB.4. /*LONG*WAIT*SWAP DELAYS R722OR3*/ SWAPDLAS &PIB.4. /*AUXSTORE*SHRTAGE*SWAP DLYS R772OR4*/ SWAPDLRS &PIB.4. /*CSTORE*SHORTAGE*SWAP DLYS R772OR5*/ SWAPDLDW &PIB.4. /*DETECTED*WAIT*SWAP DLYS R772OR6*/ SWAPDLVR &PIB.4. /*V=R*REQUEST*SWAP DLYS R772OR7*/ SWAPDLNQ &PIB.4. /*ENQUEUE*EXCHANGE*SWAP DLYS R772OR8*/ SWAPDLEX &PIB.4. /*EXCHANGE*SWAP DLYS R772OR9*/ SWAPDLUS &PIB.4. /*UNILATERAL*SWAP DLYS R772OR10*/ SWAPDLNS &PIB.4. /*NON-SWAPPABLE*SWAP DLYS R772OR11*/ SWAPDLIC &PIB.4. /*IMPROVE*CSTORE*SWAP DLYS R772OR12*/ SWAPDLIP &PIB.4. /*IMPROVE*PAGING*SWAP DLYS R772OR13*/ SWAPDLMR &PIB.4. /*MAKE ROOM*SWAP DLYS R772OR14*/ SWAPDLAW &PIB.4. /*APPC WAIT*SWAP DLYS R772OR15*/ @; OFFSWP=OFFSWP+LENSWP; END; IF VALDSAMP GT 0 OR VALDSAMP=. THEN DO; /* GT 0 4.3+, =. 4.2- */ _ETY72MN;/*INC SOURCLIB(EXTY72MN);_WTY72MN OUTPUTS TYPE72MN*/ END; END; /* END LOOP ON NRPERIOD=PERFGRPS */ END; /* END SUBTYPE=2 TYPE 72 */ ELSE IF SUBTYPE=3 THEN DO; /* RMF MONITOR I WORKLOAD MANAGER DATA */ IF OFFWMS GT 0 AND NRWMS GT 0 THEN DO; OFFWMS=OFFWMS-3+OFFSMF; IF OFFWMS+LENWMS*NRWMS GT LENGTH+1 THEN DO; N72WMS+1; IF N72WMS EQ 1 THEN DO; %%MXLOGPUT(MESSAGE=MXGERROR::VMAC7072.022); &MXPUT ' TYPE72 WMS SECTION ERROR.' // ' INVALID RECORD DETECTED AND DELETED.' OFFWMS= LENWMS= NRWMS= LENGTH= _N_= SYSTEM= SMFTIME=; %%MXLOGEND; PUT ' TYPE72 WMS SECTION ERROR.' // ' INVALID RECORD DETECTED AND DELETED.' OFFWMS= LENWMS= NRWMS= LENGTH= _N_= SYSTEM= SMFTIME=; END; DELETE; END; NOACTVTY=0; INPUT @OFFWMS R723MSCF $CHAR1. /**SERVICE*CLASS*FLAGS*/ R723MFLG $CHAR1. /**R723MFLG*/ /*BIT 0=ZAAP CROSSOVER*/ /* 1=ZAAP HONOR PRIORITY*/ /* 2=ZIIP HONOR PRIORITY*/ /* 3=MULTTHRD*CAPACITY*INVALID*/ /* 4=SRVCLS NOT ELIG FOR PRTY*/ /* 5=TENANT REPORT CLASS*/ /* 6=SC/TRC EXCLUDED FROM WLM*/ R723MFL2 $CHAR1. /**R723MFL2*/ +1 /*RESERVED*/ SERVPLCY $EBCDIC8. /*SERVICE*POLICY*NAME*/ R723MDSP $EBCDIC32. /*SERVICE*POLICY*DESCRIPTION*/ R723MTPA TODSTAMP8. /*TIME WHEN*POLICY WAS*ACTIVATED*/ CPUCOEFF &PIB.4.4 /*CPU*SERVICE*COEFFICIENT R723MCPU*/ IOCCOEFF &PIB.4.4 /*I/O*SERVICE*COEFFICIENT R723MIOC*/ MSOCOEFF &PIB.4.4 /*STORAGE*SERVICE*COEFFICIENT MMSO*/ SRBCOEFF &PIB.4.4 /*SRB*SERVICE*COEFFICIENT R723MSRB*/ R723MTVL &PIB.4.3 /*CURRENT*SAMPLE*INTERVAL*/ R723MTVN &PIB.4. /*TIMES*WLM SAMPLING*CODE RAN*/ OPTNAME $EBCDIC2. /*OPT*MEMBER*SUFFIX*/ +2 /*R723MRS3*/ WKLDNAME $EBCDIC8. /*WORKLOAD*GROUP*NAME*/ R723MWDE $EBCDIC32. /*WORKLOAD*GROUP*DESCRIPTION*/ SRVCLASS $EBCDIC8. /*SERVICE/REPORT*CLASS*NAME*/ R723MCDE $EBCDIC32. /*SERVICE/REPORT*CLASS*DESCRIPTION*/ R723MCPG &PIB.2. /*SERVICE*OR REPORT*CLASS*PERIOD*/ R723MSUB &PIB.1. /*ENTRIES*BELONGING*TO SUBSYSTEM=2*/ +3 /*R723MRS4*/ ERV &NUM.6. /*ERV RES*COEFF R723MERF*/ NNNNNN &PIB.4. /*RMCTADJC*CPU ADJ FACTOR*R723MADJ*/ SERVDEFN $EBCDIC8. /*SERVICE*DEFINITION*NAME*/ R723MIDD $EBCDIC32. /*SERVICE*DEFINITION*DESCRIPTION*/ R723MTDI TODSTAMP8. /*TIME WHEN*SERV DEFN*WAS INSTALLED*/ R723MIDU $EBCDIC8. /*USERID THAT*INSTALLED*SERV DEFN*/ @; IF NNNNNN GT 0 THEN SU_SEC=16000000/NNNNNN; IF LENWMS GE 240 THEN INPUT R723CLSC $EBCDIC8. /*SERVICE*CLASS*LAST CONTRIB*RPRT*/ @; IF LENWMS GE 244 THEN INPUT /*NORMALIZE*FACTOR*FOR CBP*TIMES*/ R723NFFI &PIB.4. /*NORMALIZE*FACTOR*FOR IFA*TIMES*/ @; IF LENWMS GE 248 THEN INPUT R723NFFS &PIB.4. /*NORMALIZE*FACTOR*FOR ZIP*TIMES*/ @; IF LENWMS GE 256 THEN INPUT R723NADJ &PIB.4. /*NOMINAL*ADJUSTMNT*FACTOR*CPU RATE*/ R723CECA &PIB.4. /*CEC*ADJUSTMENT*FACTOR*/ @; IF LENWMS GE 268 THEN DO; INPUT R723MCF &PIB.4. /*NOMINAL*ADJUSTMNT*FACTOR*CPU RATE*/ R723MCFS &PIB.4. /*MAX*SMT*CAPACITY*FACTOR*ZIIP*/ R723MCFI &PIB.4. /*MAX*SMT*CAPACITY*FACTOR*ZCBP*/ @; R723MCF =R723MCF /1024; R723MCFS=R723MCFS/1024; R723MCFI=R723MCFI/1024; END; IF LENWMS GE 276 THEN DO; /*APAR OA52694*/ INPUT R723CPA_ACTUAL &PIB.4. /*PHYSICAL*CPU*ADJUSTMENT*FACTOR*/ R723CPA_SCALING &PIB.4. /*SCALING*FACTOR*FOR*R723_ACTUAL*/ @; IF R723CPA_ACTUAL GT 0 THEN DO; /*ZOS 2.3 WITH APAR OA52694*/ R723CPA_RATIO=R723CPA_SCALING/R723CPA_ACTUAL; R723CPA=16000000*R723CPA_RATIO; END; END; IF LENWMS GE 280 THEN DO; INPUT R723CPA_ACTUAL_ZCBP &PIB.4. /**PHY*ZCBP*ADJUST*FACTOR*/ @; IF R723CPA_ACTUAL_ZCBP GT 0 THEN DO; R723CPA_RATIO_ZCBP=R723CPA_SCALING/R723CPA_ACTUAL_ZCBP; R723CPA_ZCBP=16000000*R723CPA_RATIO_ZCBP; END; END; IF R723MSCF='1.......'B THEN DO; RPRTCLAS='Y'; /*THIS IS A*REPORT*CLASS?*/ END; ELSE DO; RPRTCLAS=' '; SERVMSCF=R723MSCF; /* STORE FROM LAST SERVICE CLASS RECORD*/ END; IF R723MFLG='1.......'B THEN IFACROSS='Y'; /*IFA*CROSSOVER?*/ ELSE IFACROSS=' '; IF R723MFLG='.1......'B THEN IFAHONPR='Y'; /*IFA*HONOR*PRIORITY?*/ ELSE IFAHONPR=' '; IF R723MFLG='..1.....'B THEN /*APAR OA18244*/ ZIPHONPR='Y'; /*ZIP*HONOR*PRIORITY?*/ ELSE ZIPHONPR=' '; IF R723MSCF='.1......'B THEN R723MCAA='Y'; ELSE R723MCAA=' '; /*RCAA DATA*NOT*AVAILABLE?*/ IF R723MSCF='..1.....'B THEN R723MPOL='Y'; ELSE R723MPOL=' '; /*SVPOL DATA*NOT*AVAILABLE?*/ IF SERVMSCF='...1....'B THEN R723VELI='Y'; ELSE R723VELI=' '; /*EXECUTION*VELOCITY*INCLUDES*I/O DELAY?*/ IF SERVMSCF='....1...'B THEN R723PRCP='Y'; ELSE R723PRCP=' '; /*CPU*PROTECTION*INDICATOR?*/ IF SERVMSCF='.....1..'B THEN R723PRST='Y'; ELSE R723PRST=' '; /*STORAGE*PROTECTION*INDICATOR?*/ IF SERVMSCF='......1.'B THEN R723PRDA='Y'; ELSE R723PRDA=' '; /*DYNAMIC*ALIAS*TUNING*INDICATOR?*/ IF SERVMSCF='.......1'B THEN R723HIIO='Y'; ELSE R723HIIO=' '; /*I/O*PRIORITY*GROUP*HIGH?*/ END; IF OFFSSS GT 0 AND NRSSS GT 0 THEN DO; OFFSSS=OFFSSS-3+OFFSMF; SERVER='Y'; /* SERVICE CLASS IS A SERVER */ IF OFFSSS+LENSSS*NRSSS GT LENGTH+1 THEN DO; N72SSS+1; IF N72SSS EQ 1 THEN DO; %%MXLOGPUT(MESSAGE=MXGERROR::VMAC7072.023); &MXPUT ' TYPE72 SSS SECTION ERROR.' // ' INVALID RECORD DETECTED AND DELETED.' OFFSSS= LENSSS= NRSSS= LENGTH= _N_= SYSTEM= SMFTIME=; %%MXLOGEND; PUT ' TYPE72 SSS SECTION ERROR.' // ' INVALID RECORD DETECTED AND DELETED.' OFFSSS= LENSSS= NRSSS= LENGTH= _N_= SYSTEM= SMFTIME=; END; DELETE; END; INPUT @OFFSSS @; DO _I_=1 TO NRSSS; INPUT R723SCSN $EBCDIC8. /*SERVICE CLASS*BEING*SERVED*/ R723SCSR &PIB.4. /*TIMES*SRVCLASS*SERVICED*R723SCSN*/ @; NOACTVTY=NOACTVTY+R723SCSR; SKIP=LENSSS-12; IF SKIP GT 0 THEN INPUT +SKIP @; _ETY72SC;/*INC SOURCLIB(EXTY72SC); _WTY72SC OUTPUTS TYPE72SC*/ END; END; ELSE SERVER='N'; /*NO SSS SECTION ==> SERVICE CL IS NOT A SERVER*/ IF OFFRGS GT 0 AND NRRGS GT 0 THEN DO; OFFRGS=OFFRGS-3+OFFSMF; IF OFFRGS+LENRGS*NRRGS GT LENGTH+1 THEN DO; N72RGS+1; IF N72RGS EQ 1 THEN DO; %%MXLOGPUT(MESSAGE=MXGERROR::VMAC7072.024); &MXPUT ' TYPE72 RGS SECTION ERROR.' // ' INVALID RECORD DETECTED AND DELETED.' OFFRGS= LENRGS= NRRGS= LENGTH= _N_= SYSTEM= SMFTIME=; %%MXLOGEND; PUT ' TYPE72 RGS SECTION ERROR.' // ' INVALID RECORD DETECTED AND DELETED.' OFFRGS= LENRGS= NRRGS= LENGTH= _N_= SYSTEM= SMFTIME=; END; DELETE; END; INPUT @OFFRGS RESGROUP $EBCDIC8. /*RESOURCE*GROUP*NAME*/ R723GGDE $EBCDIC32. /*RESOURCE*GROUP*DESCRIPTION*/ R723GGLT $CHAR1. /*RESOURCE*GROUP*FLAG BITS*/ /* 0 - MAX CAPACITY SPECIFIED*/ /* 1 - MIN CAPACITY SPECIFIED*/ /* 2 - PERCENT LPAR SHARED*/ /* 3 - PERCENT ONE CPU CAPACITY*/ /* 4 - MEMORY LIMIT WAS SPECIFIED*/ /* 5 - GGMN/GGMX IN MSU/HR NOT SU*/ /* 6 - ZIP INCLUDED IN GGMN/GGMXD*/ R723GGTF $CHAR1. /* 0 - TENANT RESOURCE GROUP*/ +2 /*R723GRS2*/ R723GGMN &PIB.4. /*MIN CAP*UNWEIGHT*CPU SU PER SEC*/ R723GGMX &PIB.4. /*MAX CAP*UNWEIGHT*CPU SU PER SEC*/ @; IF R723GGTF='1.......'B THEN DO; R723GGTF='Y'; RPRTCLAS='Y'; END; IF LENRGS GE 56 THEN INPUT R723GGML &PIB.4. /*MEMORY*LIMIT*GB*OF RESGROUP*/ @; IF R723GGLT='1.......'B THEN R723GMXS='Y'; ELSE R723GMXS=' '; /*MAXIMUM*CAPACITY*SPECIFIED?*/ IF R723GGLT='.1......'B THEN R723GMNS='Y'; ELSE R723GMNS=' '; /*MINIMUM*CAPACITY*SPECIFIED?*/ IF R723GGLT='..1.....'B THEN R723GMLP='Y'; ELSE R723GMLP=' '; /*PERCENT*CAPACITY*OF LPAR?*/ IF R723GGLT='...1....'B THEN R723GMSS='Y'; ELSE R723GMSS=' '; /*PERCENT*CAPACITY*OF SINGLE?*/ IF R723GGLT='....1...'B THEN R723GMLM='Y'; ELSE R723GMLM=' '; /*MEMORY*LIMIT*SPECIFIED*/ IF R723GGLT='.....1..'B THEN R723GMLT='Y'; ELSE R723GMLT=' '; /*GGMN/GGMX*ARE IN*MSU/HR*/ IF R723GGLT='......1.'B THEN R723GMLZ='Y'; ELSE R723GMLZ=' '; /*ZIP*INCLUDED*GGMN*GGMX*/ IF LENRGS GE 56 THEN INPUT R723GGTI $EBCDIC8. /*TENANT*IDENTIFIER*/ R723GGTN $EBCDIC32. /*TENANT*NAME*/ R723GGKY $EBCDIC64. /*TENANT*SOLUTION*ID*/ @; END; IF OFFRTS GT 0 AND NRRTS GT 0 THEN DO; /*GET RESPONSE BUCKETS MAP*/ OFFRTS=OFFRTS-3+OFFSMF; IF OFFRTS+LENRTS*NRRTS GT LENGTH+1 THEN DO; N72RTS+1; IF N72RTS EQ 1 THEN DO; %%MXLOGPUT(MESSAGE=MXGERROR::VMAC7072.025); &MXPUT ' TYPE72 RTS SECTION ERROR.' // ' INVALID RECORD DETECTED AND DELETED.' OFFRTS= LENRTS= NRRTS= LENGTH= _N_= SYSTEM= SMFTIME=; %%MXLOGEND; PUT ' TYPE72 RTS SECTION ERROR.' // ' INVALID RECORD DETECTED AND DELETED.' OFFRTS= LENRTS= NRRTS= LENGTH= _N_= SYSTEM= SMFTIME=; END; DELETE; END; NRRTSCT=NRRTS; INPUT @OFFRTS (RTSMAP01-RTSMAP14) (&PIB.4.2) @; /*GET MAP ENTRY*/ COLRTS=COL; NRRTSCT=NRRTSCT-1; END; IF OFFSCS GT 0 AND NRSCS GT 0 THEN DO; OFFSCS=OFFSCS-3+OFFSMF; IF OFFSCS+LENSCS*NRSCS GT LENGTH+1 THEN DO; N72SCS+1; IF N72SCS EQ 1 THEN DO; %%MXLOGPUT(MESSAGE=MXGERROR::VMAC7072.026); &MXPUT ' TYPE72 SCS SECTION ERROR.' // ' INVALID RECORD DETECTED AND DELETED.' OFFSCS= LENSCS= NRSCS= LENGTH= _N_= SYSTEM= SMFTIME=; %%MXLOGEND; PUT ' TYPE72 SCS SECTION ERROR.' // ' INVALID RECORD DETECTED AND DELETED.' OFFSCS= LENSCS= NRSCS= LENGTH= _N_= SYSTEM= SMFTIME=; END; DELETE; END; INPUT @OFFSCS @; COLSCS=COL; DO _I_=1 TO NRSCS; /* NUMBER OF PERIODS */ INPUT @COLSCS R723CRTX &PIB.2. /*INDEX TO RESPONSE TIME DISTRIB BUCKET*/ R723CWMX &PIB.2. /*INDEX TO WORK/RES MANAGER STATES AREA*/ R723CWMN &PIB.2. /*ENTRIES IN*WORK/RES MGR*STATES AREA*/ R723CRS1 $CHAR1. /*REPORT CLASS PERIOD FLAGS*/ R723CADF $CHAR1. /*ACTUALS*DATA SECTION*FLAG*/ PERIOD &PIB.1. /*R723CPER-SERVICE*CLASS*PERIOD*NUMBER*/ R723CRTF $CHAR1. /*RESPONSE*TIME*UNIT FLAG*/ R723CRGF $CHAR1. /*RESPONSE*TIME*GOAL FLAG*/ +1 /*R723CRS4*/ R723CVAL &PIB.4. /*RESPONSE*TIME*GOAL*/ R723CPCT &PIB.2. /*GOAL*PERCENTILE*VALUE*/ R723CIMP &PIB.2. /*RELATIVE*IMPORTANCE*OF THE GOAL*/ DUR &PIB.4. /*R723CDUR SRVCLASS*PERIOD DUR*IN SU*/ SERVICE &RB.8. /*TOTAL*SERVICE*UNITS R723CSRV*/ CPUUNITS &RB.8. /*CPU*SERVICE*UNITS R723CCPU*/ IOUNITS &RB.8. /*I/O SERVICE UNITS R723CIOC*/ MSOUNITS &RB.8. /*STORAGE SERVICE UNITS R723CMSO*/ SRBUNITS &RB.8. /*SRB SERVICE UNITS R723CSRB*/ PGPAGEIN &RB.8. /*PAGE-IN COUNT R723CPIR*/ HIPPGINS &RB.8. /*HIPERSPACE PAGE-IN COUNT R723CHPI*/ PGBKAUIN &RB.8. /*BLOCK PAGE-IN FROM AUX COUNT R723CBPI*/ PAGEESIN &RB.8. /*PAGE-IN FROM EXPANDED COUNT R723CPIE*/ PGBKESIN &RB.8. /*BLOCK PAGE-IN FROM EXPAND COUNT CBPE*/ BLKSAUIN &RB.8. /*AUX BLOCKS PAGED IN - R723CBKA*/ BLKSESIN &RB.8. /*EXPANDED BLOCKS PAGED IN - R723CBKE*/ ACTFRMTM &RB.8.6/*PAGE RESIDENCY TIME R723CPRS*/ ACTESFTM &RB.8.6/*EXPANDED PAGE RES TIME- R723CERS*/ RESIDTM &RB.8.6/*IN STORAGE RESIDENCY TIME R723CTRR*/ ACTIVETM &RB.8.6/*TRANSACTION ACTIVE TIME R723CTAT*/ CPURCTTM &RB.8.6/*RCT TIME R723CRCT*/ CPUIIPTM &RB.8.6/*I/O INTERRUPT TIME R723CIIT*/ CPUHPTTM &RB.8.6/*HIPERSPACE SERVICE TIME R723CHST*/ SWAPSEQ &PIB.4. /*SWAP COUNT R723CSWC*/ HIPRDMIS &PIB.4. /*HIPERSPACE ESO READ MISS COUNT - CCRM*/ TRANS &PIB.4. /*TRANSACTION COMPLETIONS R723CRCP*/ TRANSABN &PIB.4. /*TRANS*ABNORMAL*COMPLETIONS R723CARC*/ TRANSEXC &PIB.4. /*TRANS*COMPLETING*EXEC PHASE-R723CNCP*/ TRANSABE &PIB.4. /*TRANS*ABNORMAL IN*EXEC PHASE-R723CANC*/ ELAPSTM &RB.8.6/*TRANS*ELAPSED*TIME R723CTET*/ EXETTM &RB.8.6/*TRANS*EXECUTION*TIME R723CXET*/ SSQELAP &RB.8. /*SUM OF TRANS*ELAPS TIMES*SQUARED CETS*/ R723CCUS &PIB.4. /*CPU*USING*SAMPLES R723CCUS*/ R723CTOT &PIB.4. /*TOTAL*DELAY*SAMPLES R723CTOT*/ R723CCDE &PIB.4. /*CPU*DELAY*SAMPLES R723CCDE*/ R723CCCA &PIB.4. /*CPU CAPPING*DELAY*SAMPLES R723CCCA*/ R723CSWI &PIB.4. /*SWAP-IN*DELAY*SAMPLES R723CSWI*/ R723CMPL &PIB.4. /*MPL*DELAY*SAMPLES R723CMPL*/ R723CAPR &PIB.4. /*AUX PAGE*FM PRIVATE*DELAY SAMP- CAPR*/ R723CACO &PIB.4. /*AUX PAGE*FM COMMON*DELAY SAMP- CACO*/ R723CAXM &PIB.4. /*AUX PAGE*FM CROSS MEM*DELAY SAMP-CAXM*/ R723CVIO &PIB.4. /*AUX PAGE*FM VIO*DELAY SAMP-CVIO*/ R723CHSP &PIB.4. /*AUX PAGE*FM STD HIPER*DLY SAMP-CHSP*/ R723CCHS &PIB.4. /*AUX PAGE*FM ESO HIPER*DELAY SAMP-CCHS*/ R723CUNK &PIB.4. /*UNKNOWN*DELAY*SAMPLES R723CUNK*/ R723CIDL &PIB.4. /*IDLE*DELAY*SAMPLES R723CIDL*/ R723CPDE &PIB.4. /*RESOURCE GROUP*CAPPING*SAMP CNT-CPDE*/ R723CPQU &PIB.4. /*QUIESCE*SAMPLE*COUNT R723CPQU*/ R723CSAC &PIB.4. /*SAMPLED*ADDRESS SPACE*COUNT R723CSAC*/ @; IF R723CTOT GE 4294900000 THEN PCTDLTOT=.; /*FFFFFFFF*/ IF RPRTCLAS='Y' THEN DO; IF R723CRS1='1.......'B THEN R723HETR='Y'; ELSE R723HETR='N'; END; ELSE R723HETR=' '; /* DON DEESE'S CORRECTION ALGORIGHM UNTIL IBM DOES IT RIGHT*/ FLGDLTOT=0; IF R723CCHS GT R723CTOT AND R723CTOT GT . THEN DO; /* COMPUTE BY SUBTRACTING ALL OTHER DELAYS */ PCTDLCHS=R723CTOT- (R723CCDE+R723CCCA+R723CSWI+R723CMPL+ R723CAPR+R723CACO+R723CAXM+R723CVIO+ R723CHSP); FLGDLTOT=1; END; IF SUM(R723CCUS,R723CTOT) GT 0 AND R723CTOT GT . THEN VELOCITY=100*R723CCUS/SUM(R723CCUS,R723CTOT); ELSE VELOCITY=.; VELOCCPU=VELOCITY; NOACTVTY=SUM(NOACTVTY, SERVICE,ACTIVETM,TRANS,TRANSEXC,VELOCITY); SKIP=LENSCS-292; IF LENSCS GE 316 THEN DO; INPUT R723CSRS &RB.8.6 /*SHARED*PAGE*RESIDENCY*TIME*/ R723CSPA &RB.8. /*SHARED*PAGEINS*FROM*AUXSTORE*/ R723CSPE &RB.8. /*SHARED*PAGEINS*FROM*ESTORE*/ @; R723CSRS=1024*R723CSRS; SKIP=SKIP-24; END; IF LENSCS GE 384 THEN DO; INPUT R723CICT &RB.8.6 /*NON-PAGING*DASD I/O/CONNECT*TIME*/ R723CIWT &RB.8.6 /*NON-PAGING*DASD I/O*WAIT*TIME*/ R723CIDT &RB.8.6 /*NON-PAGING*DASD*DISCONNECT*TIME*/ R723CIRC &PIB.4. /*NON-PAGING*DASD I/O*SSCH COUNT*/ R723CTOU &PIB.4. /*R723CTOU*TOTAL*USING*SAMPLES*/ R723CIOU &PIB.4. /*R723CIOU*TOTAL*USING I/O*SAMPLES*/ R723CIOD &PIB.4. /*R723CIOD*DASD*DELAY*SAMPLES*/ R723CQ &PIB.4. /*R723CQ*QUEUE*DELAY*SAMP*WAIT FOR*SRVR*/ R723CSPV &PIB.4. /*R723CSPV*SERVER*PRIVTE AREA*PAGING DLY*/ R723CSVI &PIB.4. /*R723CSVI*SERVER*SPACE VIO*PAGING*DELAY*/ R723CSHS &PIB.4. /*R723CSHS*SERVER*HIPERSPACE*PAGING*DLY*/ R723CSMP &PIB.4. /*R723CSMP*SERVER*MPL*DELAY*SAMPLES*/ R723CSSW &PIB.4. /*R723CSSW*SERVER*SWAP-IN*DELAY*SAMPLES*/ R723CNDI &PIB.4. /*R723CNDI*NON-DASD*I/O USING/DELAY*SAMP*/ @; IF R723CQ GT 4294900000 THEN PCTDLTDQ=.; IF FLGDLTOT=1 THEN DO; PCTDLCHS=PCTDLCHS-(R723CQ +R723CSPV+R723CSVI+ R723CSHS+R723CSMP+R723CSSW); IF R723VELI='Y' THEN PCTDLCHS=PCTDLCHS-R723CIOD; END; PCTDLNDI=.; PCTLDNDI=.; /* PROTECT, SEE CHANGE 16.190. */ IF SUM(R723CTOU,R723CTOT) GT 0 AND R723CTOT GT . THEN DO; VELOCITY=100*R723CTOU/SUM(R723CTOU,R723CTOT); IF R723VELI='Y' THEN DO; VELOCIOD=VELOCITY; IF (R723CTOU-R723CIOU+R723CTOT-R723CIOD) GT 0 THEN VELOCCPU=100*(R723CTOU-R723CIOU)/ (R723CTOU-R723CIOU+R723CTOT-R723CIOD); ELSE VELOCCPU=.; END; ELSE VELOCIOD=100* (R723CTOU+R723CIOU)/ (R723CTOU+R723CIOU+R723CTOT+R723CIOD); END; ELSE DO; VELOCITY=.; VELOCIOD=.; VELOCCPU=.; END; R723CICT=128*R723CICT; R723CIWT=128*R723CIWT; R723CIDT=128*R723CIDT; SKIP=SKIP-68; END; IF LENSCS GE 436 THEN DO; INPUT R723CTDQ &PIB.4. /*R723CTDQ*TOTAL*I/O*DELAY*SAMPLES*/ R723CTSA &RB.8. /*R723CTSA*TOTAL*EXECUTION*SAMPLES*/ /*SUM OF TOTU,TOTD,UNKN,IDLE, AND */ /* ALWAYS I/O DELAY SAMPLES, EVEN */ /* IF THEY'RE NOT IN TOTU/TOTD */ R723CIOT &RB.8.6 /*R723CIOT*DASD*IOS*QUEUE TIME*/ R723CQDT &RB.8.6 /*R723CQDT*TOTAL*QUEUE*DELAY*TIME*/ R723CADT &RB.8.6 /*R723CADT*INELIGIBLE*AFFINITY*TIME*/ R723CCVT &RB.8.6 /*R723CCVT*JCL*CONVERSION*TIME*/ R723CIQT &RB.8.6 /*R723CIQT*INELIGIBLE*OTHER RESOURCE*/ @; IF R723CTDQ GT 4294900000 THEN PCTDLTDQ=.; IF R723VELI NE 'Y' AND SUM(R723CTOU,R723CTOT) GT 0 THEN VELOCIOD=100* (R723CTOU+R723CIOU)/ (R723CTOU+R723CIOU+R723CTOT+R723CIOD); /*PCTDLTDQ REMOVED FROM DENOM TO MATCH IBM*/ R723CIOT=128*R723CIOT; R723CQDT=1024*R723CQDT; R723CDQT=R723CQDT; /*PROTECT MISSPELLED VARIABLE*/ R723CADT=1024*R723CADT; R723CCVT=1024*R723CCVT; R723CIQT=1024*R723CIQT; SKIP=SKIP-52; END; IF LENSCS GE 460 THEN DO; /* APAR OW41317, IN R2.9 */ INPUT R723CIEA &RB.8.6 /*INDEP ENCL*ORIGINATED*ACTIVETM*/ R723CXEA &RB.8.6 /*EXPORTED ENCL*TOTAL*ACTIVETM*/ R723CFEA &RB.8.6 /*FOREIGN*ENCLAVE*TOTAL*ACTIVETM*/ @; R723CIEA=1024*R723CIEA; R723CXEA=1024*R723CXEA; R723CFEA=1024*R723CFEA; SKIP=SKIP-24; END; IF LENSCS GE 480 THEN DO; /* ZOS 1.2 */ INPUT R723CAMU &PIB.4. /*CAM CRYPTO*USING*SAMPLES*/ R723CAMD &PIB.4. /*CAM CRYPTO*DELAY*SAMPLES*/ R723APU &PIB.4. /*AP CRYPTO*USING*SAMPLES*/ R723APD &PIB.4. /*AP CRYPTO*WAITING*SAMPLES*/ R723FQD &PIB.4. /*1DCX-FEATURE*QUEUE*DELAY*SAMPS*/ @; SKIP=SKIP-20; END; IF LENSCS GE 488 THEN DO; /* OW56739 */ INPUT R723PLSC $EBCDIC8. /*SERVICE*CLASS*FOR*HETEROGENE*/ @; SKIP=SKIP-8; END; IF LENSCS GE 504 THEN DO; /* OW56739? OR 1.5 */ INPUT R723RCOD &PIB.4. /*CONTENTION*DELAY*SAMPLE*COUNT*/ R723RCOU &PIB.4. /*CONTENTION*USING*SAMPLE*COUNT*/ R723ECTC &RB.8.6 /*1F0-CPU TIME*WHILE DP*RAISED*/ @; R723ECTC=1024*R723ECTC; SKIP=SKIP-16; END; IF LENSCS GE 532 THEN DO; /* OW56739? OR 1.5 */ INPUT R723IFAU &PIB.4. /*IFA*USING*SAMPLES*/ R723IFCU &PIB.4. /*IFA-ELIGIBLE*ON CP*USING SAMP*/ R723IFAD &PIB.4. /*IFA*DELAY*SAMPLES*/ R723IFAT &RB.8.6 /*IFA*SERVICE*TIME*ON IFA*/ R723IFCT &RB.8.6 /*IFA-ELIGIBLE*ON CP*CPU TIME*/ @; CPUIFATM=R723IFAT*R723NFFI/256; CPUIFETM=R723IFCT; IF CPUIFATM GT . THEN DO; /* Z/OS 1.6 */ IFAUNITS=CPUIFATM*CPUCOEFF*SU_SEC; END; SKIP=SKIP-28; END; IF LENSCS GE 576 THEN DO; /* ZIPS */ INPUT R723SUPU &PIB.4. /*ZIP*USING*SAMPLES*/ R723SUCU &PIB.4. /*ZIP*ON CP*USING SAMP*/ R723SUPD &PIB.4. /*ZIP*DELAY*SAMPLES*/ R723CSUP &RB.8. /*ZIP*SERVICE*UNITS*/ R723CSUC &RB.8. /*ZIP-ELIGIBLE*SERVICE*UNITS*CP*/ R723CIFA &RB.8. /*IFA*SERVICE*UNIT*/ R723CIFC &RB.8. /*IFA-ELIGIBLE*SERVICE*UNITS*CP*/ @; IFAUNITS=R723CIFA*R723NFFI/256; IFEUNITS=R723CIFC; CPUIFATM=IFAUNITS/(CPUCOEFF*SU_SEC); CPUIFETM=IFEUNITS/(CPUCOEFF*SU_SEC); ZIPUNITS=R723CSUP*R723NFFS/256; ZIEUNITS=R723CSUC; CPUZIPTM=ZIPUNITS/(CPUCOEFF*SU_SEC); CPUZIETM=ZIEUNITS/(CPUCOEFF*SU_SEC); SKIP=SKIP-44; IF SKIP GE 8 THEN DO; INPUT CPUPRMTM &RB.8.6/*R723TPDP CPU TIME*AT PROMOTD*DISPRTY*/ @; CPUPRMTM=1024*CPUPRMTM; /*1024 MICROSEC TO SECONDS*/ SKIP=SKIP-8; END; IF SKIP GE 8 THEN DO; /*CH26071*/ INPUT CPUCRPTM &RB.8.6 /*R723CPDP CPU TM*AT CHRONIC*CONTEND*/ @; CPUCRPTM=1024*CPUCRPTM; /*1024 MICROSEC TO SECONDS*/ SKIP=SKIP-8; END; IF SKIP GE 8 THEN DO; /*Z/OS 1.11*/ INPUT CPULKHTM &RB.8.6 /*R723LPDP CPU TM*LOCK*HOLD*/ @; CPULKHTM=1024*CPULKHTM; /*1024 MICROSEC TO SECONDS*/ SKIP=SKIP-8; END; IF SKIP GE 24 THEN DO; /*Z/OS 1.13*/ INPUT CPUPDPTM &RB.8.6 /*R723SPDP SPVR CPU TM*HIGH*DPRTY*/ R723RTDM &PIB.4.3 /*MIDPOINT*RESPONSE*TIME*/ R723RTDC &PIB.4. /*MIDPOINT*CHANGES*/ R723RTDT TODSTAMP8. /*LAST TIME*WHEN MIDPOINT*CHANGED*/ @; CPUPDPTM=1024*CPUPDPTM; /*1024 MICROSEC TO SECONDS*/ SKIP=SKIP-24; END; END; IF LENSCS GE 720 THEN DO; /*MOBILE PRICING RESOURCES*/ INPUT R723TSUCP &RB.8.6 /*TOTAL*GP*SERVICE*MSU/HR*/ R723TSUSP &RB.8.6 /*TOTAL*ZIIP*SERVICE*MSU/HR*/ R723TSUOCP &RB.8.6 /*TOTAL*ELIGIBLE*SERVICE*MSU/HR*/ R723MSUCP &RB.8.6 /*MOBILE*GP*SERVICE*MSU/HR*/ R723MSUSP &RB.8.6 /*TOTAL*ZIIP*SERVICE*MSU/HR*/ R723MSUOCP &RB.8.6 /*TOTAL*ELIGIBLE*SERVICE*MSU/HR*/ R723ASUCP &RB.8.6 /*CAT A*GP*SERVICE*MSU/HR*/ R723ASUSP &RB.8.6 /*CAT A*ZIIP*SERVICE*MSU/HR*/ R723ASUOCP &RB.8.6 /*CAT A*ELIGIBLE*SERVICE*MSU/HR*/ R723BSUCP &RB.8.6 /*CAT B*GP*SERVICE*MSU/HR*/ R723BSUSP &RB.8.6 /*CAT B*ZIIP*SERVICE*MSU/HR*/ R723BSUOCP &RB.8.6 /*CAT B*ELIGIBLE*SERVICE*MSU/HR*/ @; CPUMOBILECP=1000000*R723MSUCP/SU_SEC; CPUMOBILESP=1000000*R723MSUSP/SU_SEC; SKIP=SKIP-96 ; END; /* END LENSCS GE 720 */ IF LENSCS GE 776 THEN DO; INPUT R723CTETX &RB.8.6 /*TOTAL*TRANSACTION*ELAPSED*TIME*/ R723CXETX &RB.8.6 /*TOTAL*TRANSACTION*EXECUTION*TIME*/ R723CETSX &RB.8.6 /*SUM*ELAPSED*TIME*SQUARED*/ R723CQDTX &RB.8.6 /*TOTAL*QUEUE*DELAY*TIME*/ R723CADTX &RB.8.6 /*TIME*BATCH JOBS*INELIGIBLE*TO RUN*/ R723CCVTX &RB.8.6 /*TIME*BATCH JOBS*SPENT*IN JCL CVTR*/ R723CIQTX &RB.8.6 /*TIME*BATCH JOBS*INELIG*IN JOBQ*/ @; R723CETSX=R723CETSX/1048576; /*CONVERT SQ MICRO TO SQ MILLI*/ SKIP=SKIP-96 ; END; /* END LENSCS GE 776 */ IF LENSCS GE 792 THEN DO; INPUT R723TSUCBP &RB.8. /*NOW RESERVED*/ R723TSUCBPCP &RB.8. /*NOW RESERVED*/ @; END; IF LENSCS GE 816 THEN DO; INPUT RCDENCTRXNUM &PIB.4. RCDENCTRXCALLS &PIB.4. RCDENCTRXET &PIB.8.6 RCDENCTRXETS &PIB.8.6 @; END; IF LENSCS GT 816 THEN DO; LENTOSKIP=LENSCS-816; INPUT +LENTOSKIP @; LENTOSKIP=0; END; CPUUNITS=SUM(CPUUNITS,-IFAUNITS,-ZIPUNITS); IF -3 LE CPUUNITS LE 0 THEN CPUUNITS=0; CPUTCBTM=CPUUNITS/(CPUCOEFF*SU_SEC); COLSCS=COL; IF R723CADF='1.......'B OR SERVICE+ACTIVETM GT 0 THEN R723CRCA='Y'; /* HEURISTIC ADDED BECAUSE CRCA NOT ALWAYS TRUE */ ELSE R723CRCA=' '; /*RESOURCE CONSUMPTION ACTUALS AVAILABLE?*/ IF R723CADF='.1......'B THEN R723CRTA='Y'; ELSE R723CRTA=' '; /*RESPONSE TIME ACTUALS AVAILABLE?*/ IF R723CADF='..1.....'B THEN R723CEDA='Y'; ELSE R723CEDA=' '; /*EXECUTION DELAY ACTUALS AVAILABLE?*/ IF R723CRTF='1.......'B THEN DO; R723CRTF='I'; /*RESP*MILISEC*/ R723CVAL=R723CVAL/1000; END; ELSE IF R723CRTF='.1......'B THEN DO; R723CRTF='S'; /*RESP*SECONDS*/ END; ELSE IF R723CRTF='..1.....'B THEN DO; R723CRTF='M'; /*RESP*MINUTES?*/ R723CVAL=60*R723CVAL; END; ELSE IF R723CRTF='...1....'B THEN DO; R723CRTF='H'; /*RESP*HOURS?*/ R723CVAL=3600*R723CVAL; END; IF R723CRGF='1.......'B THEN R723CRGF='P';/*PCT*GOAL?*/ ELSE IF R723CRGF='.1......'B THEN R723CRGF='A';/*AVG*GOAL?*/ ELSE IF R723CRGF='..1.....'B THEN R723CRGF='E';/*EXEC*GOL?*/ ELSE IF R723CRGF='...1....'B THEN R723CRGF='D';/*DISC*GOL?*/ ELSE IF R723CRGF='....1...'B THEN R723CRGF='S';/*SYSSPEC*GOL?*/ ELAPSTM=ELAPSTM*1024; EXETTM =EXETTM *1024; IF TRANS GT 0 THEN AVGELPTM=ELAPSTM/TRANS; ELSE AVGELPTM=.; RESPAVG=AVGELPTM; IF TRANSEXC GT 0 THEN AVGXETTM=EXETTM/TRANSEXC; ELSE IF TRANS GT 0 THEN AVGXETTM=EXETTM/TRANS; ELSE AVGXETTM=.; ACTFRMTM=ACTFRMTM*1024; ACTESFTM=ACTESFTM*1024; RESIDTM =RESIDTM *1024; IF DURATM GT 0 THEN DO; TSTORE72=4096*ACTFRMTM/DURATM; CSTORE72=4096*(ACTFRMTM-ACTESFTM)/DURATM; ESTORE72=4096*ACTESFTM/DURATM; SSTORE72=4096*R723CSRS/DURATM; MPL72=RESIDTM/DURATM; END; ELSE DO; TSTORE72=.; CSTORE72=.; ESTORE72=.; SSTORE72=.; MPL72=.; END; ACTIVETM=ACTIVETM*1024; SSQELAP =SSQELAP *1.024E-06; IF TRANS GT 1 THEN DO; RESPSTD=(SSQELAP-(ELAPSTM**2)/TRANS); IF RESPSTD GE 0 THEN RESPSTD=SQRT(RESPSTD/(TRANS-1)); ELSE RESPSTD=.; END; ELSE RESPSTD=.; IF SRBCOEFF GT 0 THEN CPUSRBTM=SRBUNITS/(SRBCOEFF*SU_SEC); CPUTM=SUM(CPUTCBTM,CPUSRBTM,CPUHPTTM,CPUIIPTM,CPURCTTM); IF NRCECSUMAP GE 1 THEN DO; DO _IV_=1 TO 255; IF CECSUSYSTEM(_IV_)=SYSTEM THEN DO; CECSUSEC=CECSUVALUE(_IV_); _IV_=255; END; END; END; MSU72=CPUTM*SU_SEC/1000000; IF CECSUSEC GT . THEN MSUSOFT=CPUTM*CECSUSEC/1000000; ELSE IF R723CPA GT . THEN MSUSOFT=CPUTM*R723CPA/1000000; IF IOCCOEFF GT 0 THEN PGPEXCP=IOUNITS/IOCCOEFF; ELSE PGPEXCP=.; IF CPUUNITS GT 0 AND MSOCOEFF GT 0 THEN AVGMEMSZ=200*MSOUNITS*CPUCOEFF/(MSOCOEFF*CPUUNITS); ELSE AVGMEMSZ=.; VALDSAMP=R723CCUS+R723CTOT+R723CUNK+R723CIDL+R723CPQU; IF R723CTOU GT 0 THEN VALDSAMP=VALDSAMP+R723CTOU-R723CCUS; IF R723CTDQ GT 0 THEN VALDSAMP=VALDSAMP+R723CTDQ-R723CTOT; IF VALDSAMP GT 0 THEN PCTDLZIP=100*R723SUPD/VALDSAMP; IF R723CTSA EQ 0 AND VALDSAMP GT 0 THEN DO; PCTUSCUS=100*R723CCUS/VALDSAMP; PCTDLTOT=100*R723CTOT/VALDSAMP; PCTDLCDE=100*R723CCDE/VALDSAMP; PCTDLCCA=100*R723CCCA/VALDSAMP; PCTDLSWI=100*R723CSWI/VALDSAMP; PCTDLMPL=100*R723CMPL/VALDSAMP; PCTDLAPR=100*R723CAPR/VALDSAMP; PCTDLACO=100*R723CACO/VALDSAMP; PCTDLAXM=100*R723CAXM/VALDSAMP; PCTDLVIO=100*R723CVIO/VALDSAMP; PCTDLHSP=100*R723CHSP/VALDSAMP; PCTDLCHS=100*R723CCHS/VALDSAMP; PCTDLUNK=100*R723CUNK/VALDSAMP; PCTDLIDL=100*R723CIDL/VALDSAMP; PCTDLPDE=100*R723CPDE/VALDSAMP; PCTDLPQU=100*R723CPQU/VALDSAMP; PCTUSTOU=100*R723CTOU/VALDSAMP; PCTUSIOU=100*R723CIOU/VALDSAMP; PCTDLIOD=100*R723CIOD/VALDSAMP; PCTDLQ =100*R723CQ /VALDSAMP; PCTDLSPV=100*R723CSPV/VALDSAMP; PCTDLSVI=100*R723CSVI/VALDSAMP; PCTDLSHS=100*R723CSHS/VALDSAMP; PCTDLSMP=100*R723CSMP/VALDSAMP; PCTDLSSW=100*R723CSSW/VALDSAMP; PCTDLTDQ=100*R723CTDQ/VALDSAMP; PCTEXTSA=.; END; ELSE IF R723CTSA GT 0 THEN DO; PCTUSCUS=100*R723CCUS/R723CTSA; PCTDLTOT=100*R723CTOT/R723CTSA; PCTDLCDE=100*R723CCDE/R723CTSA; PCTDLCCA=100*R723CCCA/R723CTSA; PCTDLSWI=100*R723CSWI/R723CTSA; PCTDLMPL=100*R723CMPL/R723CTSA; PCTDLAPR=100*R723CAPR/R723CTSA; PCTDLACO=100*R723CACO/R723CTSA; PCTDLAXM=100*R723CAXM/R723CTSA; PCTDLVIO=100*R723CVIO/R723CTSA; PCTDLHSP=100*R723CHSP/R723CTSA; PCTDLCHS=100*R723CCHS/R723CTSA; PCTDLUNK=100*R723CUNK/R723CTSA; PCTDLIDL=100*R723CIDL/R723CTSA; PCTDLPDE=100*R723CPDE/R723CTSA; PCTDLPQU=100*R723CPQU/R723CTSA; PCTUSTOU=100*R723CTOU/R723CTSA; PCTUSIOU=100*R723CIOU/R723CTSA; PCTDLIOD=100*R723CIOD/R723CTSA; PCTDLQ =100*R723CQ /R723CTSA; PCTDLSPV=100*R723CSPV/R723CTSA; PCTDLSVI=100*R723CSVI/R723CTSA; PCTDLSHS=100*R723CSHS/R723CTSA; PCTDLSMP=100*R723CSMP/R723CTSA; PCTDLSSW=100*R723CSSW/R723CTSA; /* PCTDLTDQ=100*R723CTDQ/R723CTSA; SEE CHANGE 22.063 */ IF VALDSAMP GT 0 THEN PCTDLTDQ=100*R723CTDQ/VALDSAMP; PCTEXTSA=.; END; ELSE DO; /*VALDSAMP=0 AND R723CTDQ=0*/ PCTUSCUS=.; PCTDLTOT=.; PCTDLCDE=.; PCTDLCCA=.; PCTDLSWI=.; PCTDLMPL=.; PCTDLAPR=.; PCTDLACO=.; PCTDLAXM=.; PCTDLVIO=.; PCTDLHSP=.; PCTDLCHS=.; PCTDLUNK=.; PCTDLIDL=.; PCTDLPDE=.; PCTDLPQU=.; PCTUSTOU=.; PCTUSIOU=.; PCTDLIOD=.; PCTDLQ =.; PCTDLSPV=.; PCTDLSVI=.; PCTDLSHS=.; PCTDLSMP=.; PCTDLSSW=.; PCTDLTDQ=.; PCTEXTSA=.; END; RECNUM=_N_; IF R723CRTX GT 0 AND NRRTSCT GT 0 THEN DO;/*RTS FOR THIS SCS*/ INPUT @COLRTS (RTSTRN01-RTSTRN14) (&PIB.4.) @; NOACTVTY=SUM(NOACTVTY,OF RTSTRN01-RTSTRN14); COLRTS=COL; NRRTSCT=NRRTSCT-1; END; ELSE DO; RTSTRN01=.; RTSTRN02=.; RTSTRN03=.; RTSTRN04=.; RTSTRN05=.; RTSTRN06=.; RTSTRN07=.; RTSTRN08=.; RTSTRN09=.; RTSTRN10=.; RTSTRN11=.; RTSTRN12=.; RTSTRN13=.; RTSTRN14=.; END; LOCSCS=COL; /* STORE CURRENT LOCATION (END OF SCS SECTION) */ /* DEBUG SCS PERIOD DETAIL DATA IF SRVCLASS='NEWWORK' THEN +5 COLSCS= OFFWRS= LENWRS= NRWRS= / +5 R723CRTX=/ +5 R723CWMX=/ +5 R723CWMN=/ +5 R723CADF=/ +5 PERIOD=/ +5 R723CRTF=/ +5 R723CRGF=/ +5 R723CVAL=/ +5 R723CPCT=/ +5 R723CIMP=/ +5 DUR=/ +5 SERVICE=/ +5 CPUUNITS=/ +5 IOUNITS=/ +5 MSOUNITS=/ +5 SRBUNITS=/ +5 PGPAGEIN=/ +5 HIPPGINS=/ +5 PGBKAUIN=/ +5 PAGEESIN=/ +5 PGBKESIN=/ +5 BLKSAUIN=/ +5 BLKSESIN=/ +5 ACTFRMTM=/ +5 ACTESFTM=/ +5 RESIDTM=/ +5 ACTIVETM=/ +5 CPURCTTM=/ +5 CPUIIPTM=/ +5 CPUHPTTM=/ +5 SWAPSEQ=/ +5 HIPRDMIS=/ +5 TRANS=/ +5 TRANSABN=/ +5 TRANSEXC=/ +5 TRANSABE=/ +5 ELAPSTM=/ +5 EXETTM=/ +5 SSQELAP=/ +5 PCTUSCUS=/ +5 PCTDLTOT=/ +5 PCTDLCDE=/ +5 PCTDLCCA=/ +5 PCTDLSWI=/ +5 PCTDLMPL=/ +5 PCTDLAPR=/ +5 PCTDLACO=/ +5 PCTDLAXM=/ +5 PCTDLVIO=/ +5 PCTDLHSP=/ +5 PCTDLCHS=/ +5 PCTDLUNK=/ +5 PCTDLIDL=/ +5 PCTDLPDE=/ +5 PCTDLPQU=/ +5 R723CSAC=/ +5 FLGDLTOT=/ +5 PCTDLCHS=/ +5 PCTDLTOT=/ +5 PCTUSCUS=/ +5 VELOCITY=/ +5 VELOCCPU=/ +5 R723CSRS=/ +5 R723CSPA=/ +5 R723CSPE=/ +5 R723CICT=/ +5 R723CIWT=/ +5 R723CIDT=/ +5 R723CIRC=/ +5 PCTUSTOU=/ +5 PCTUSIOU=/ +5 PCTDLIOD=/ +5 PCTDLQ=/ +5 PCTDLSPV=/ +5 PCTDLSVI=/ +5 PCTDLSHS=/ +5 PCTDLSMP=/ +5 PCTDLSSW=/ +5 R723CNDI=/ +5 PCTDLNDI=/ +5 VELOCIOD=/ +5 R723CICT=/ +5 R723CIWT=/ +5 R723CIDT=/ +5 PCTDLTDQ=/ +5 R723CTSA=/ +5 R723CIOT=/ +5 R723CDQT=/ +5 R723CADT=/ +5 R723CCVT=/ +5 R723CIQT=/ +5 R723CIOT=/ +5 R723CQDT=/ +5 R723CADT=/ +5 R723CCVT=/ +5 R723CIQT=/ +5 R723CIEA=/ +5 R723CXEA=/ +5 R723CFEA=/ +5 R723CRCA=/ +5 R723CRTA=/ +5 R723CEDA=/ +5 R723CRTF=/ +5 R723CVAL=/ +5 ELAPSTM=/ +5 EXETTM=/ +5 AVGELPTM=/ +5 RESPAVG=/ +5 AVGXETTM=/ +5 DURATM=/ +5 TSTORE72=/ +5 CSTORE72=/ +5 ESTORE72=/ +5 SSTORE72=/ +5 MPL72=/ +5 RESPSTD=/ +5 CPUTCBTM=/ +5 CPUSRBTM=/ +5 CPUTM=/ +5 PGPEXCP=/ +5 AVGMEMSZ=/ +5 VALDSAMP=/ +5 RECNUM=/ ; */ IF OFFWRS GT 0 AND NRWRS GT 0 THEN LOCWRS=OFFWRS+OFFSMF+(R723CWMX-1)*LENWRS-3; ELSE LOCWRS=.; IF R723CWMN GT 0 AND LOCWRS GT 0 THEN DO _II_=1 TO R723CWMN; INPUT @LOCWRS /*BEGIN-TO-END PHASE*/ /* ENTRY IN THE SUBSYSTEM WORK MANAGER DELAY ARRAY. IN ESA 5.1+ THERE ARE ALWAYS TWO ENTRIES FOR A SUBSYSTEM, ONE FOR THE BEGIN_TO_END PHASE AND ONE FOR THE EXECUTION PHASE, WHERE THE BTE ENTRY IS ALWAYS BE THE FIRST */ R723RTYP $EBCDIC4. /*SUBSYSTEM*TYPE*/ R723RFLG $CHAR1. /*WORK/RESOURCE*MANAGER*FLAGS*/ +3 /*R723RRS2*/ R723RESS &PIB.4. /*TRANSACTION*STATES*SAMPLED*/ R723RACT &PIB.4. /*ACTIVE*STATE*/ R723RRDY &PIB.4. /*READY*STATE*/ R723RIDL &PIB.4. /*IDLE*STATE*/ R723RWLO &PIB.4. /*WAITING FOR LOCK*/ R723RWIO &PIB.4. /*WAITING FOR I/O*/ R723RWCO &PIB.4. /*WAITING FOR CONVERSATION*/ R723RWDS &PIB.4. /*WAITING FOR*DISTRIBUTED REQUEST*/ R723RWSL &PIB.4. /*WAIT FOR*LOCAL SESSION*/ R723RWSN &PIB.4. /*WAIT FOR*NETWORK SESSION*/ R723RWSS &PIB.4. /*WAIT FOR*SYSPLEX SESSION*/ R723RWTM &PIB.4. /*WAIT FOR*A TIMER*/ R723RWO &PIB.4. /*WAIT FOR*ANOTHER PRODUCT*/ R723RWMS &PIB.4. /*WAIT FOR*UNIDENTIFIED*RESOURCE*/ R723RSSL &PIB.4. /*STATE WITH*LOG CONT*THIS MVS*/ R723RSSS &PIB.4. /*STATE WITH*LOG CONT*SYSPLEX*/ R723RSSN &PIB.4. /*STATE WITH*LOG CONT*NETWORK*/ @; /* PERCENTAGES CAN BE CALCULATED AS 100*R723AAA/R723RESS */ IF LENWRS GE 96 THEN INPUT R723RWST &PIB.4. /*STATE WITH*WAIT FOR*SSL THREAD*/ R723RWRT &PIB.4. /*STATE WITH*WAIT FOR*REG THREAD*/ R723RWRR &PIB.4. /*STATE WITH*WAIT FOR*REG TO WORK*/ R723RAPP &PIB.4. /*ACTIVE*APPLICATION*STATE*SAMPS*/ R723RWNL &PIB.4. /*STATE WITH*WAIT FOR*NEW LATCH*/ @; IF LENWRS GE 156 THEN INPUT R723RW01 &PIB.4. /*RESOURCE*TYPE 1*STATE*SAMPLES*/ R723RW02 &PIB.4. /*RESOURCE*TYPE 2*STATE*SAMPLES*/ R723RW03 &PIB.4. /*RESOURCE*TYPE 3*STATE*SAMPLES*/ R723RW04 &PIB.4. /*RESOURCE*TYPE 4*STATE*SAMPLES*/ R723RW05 &PIB.4. /*RESOURCE*TYPE 5*STATE*SAMPLES*/ R723RW06 &PIB.4. /*RESOURCE*TYPE 6*STATE*SAMPLES*/ R723RW07 &PIB.4. /*RESOURCE*TYPE 7*STATE*SAMPLES*/ R723RW08 &PIB.4. /*RESOURCE*TYPE 8*STATE*SAMPLES*/ R723RW09 &PIB.4. /*RESOURCE*TYPE 9*STATE*SAMPLES*/ R723RW10 &PIB.4. /*RESOURCE*TYPE10*STATE*SAMPLES*/ R723RW11 &PIB.4. /*RESOURCE*TYPE11*STATE*SAMPLES*/ R723RW12 &PIB.4. /*RESOURCE*TYPE12*STATE*SAMPLES*/ R723RW13 &PIB.4. /*RESOURCE*TYPE13*STATE*SAMPLES*/ R723RW14 &PIB.4. /*RESOURCE*TYPE14*STATE*SAMPLES*/ R723RW15 &PIB.4. /*RESOURCE*TYPE15*STATE*SAMPLES*/ @; R723RWSAMPLES=SUM( R723RW01,R723RW02,R723RW03,R723RW04, R723RW05,R723RW06,R723RW07,R723RW08,R723RW09, R723RW10,R723RW11,R723RW12,R723RW13,R723RW14, R723RW15); IF LENWRS GE 172 THEN INPUT R723RBPM &PIB.4. /*BUFFER*POOL*IO*MISSES*SAMPLES*/ R723RDNX &PIB.2. /*INDEX INTO*RESOURCE*DELAY TBL*/ R723RDNN &PIB.2. /*NUMBER*ENTRYS IN*RES DELY TBL*/ +8 @; ARRAY R723RWNA (15) $16 R723RN01-R723RN15 ; DO _III_=1 TO 15; R723RWNA(_III_)=' '; END; IF OFFDNS GT 0 AND NRDNS GT 0 AND R723RWSAMPLES GT 0 THEN DO; LOCDNS=OFFDNS+(R723RDNX-1)*24; DO _III_=1 TO R723RDNN; INPUT @LOCDNS R723DNST $EBCDIC4. R723DNNU &PIB.2. R723DNDE $EBCDIC16. +2 @; R723RWNA(R723DNNU)=R723DNDE; IF R723DNST NE R723RTYP THEN DO; %%MXLOGPUT(MESSAGE=MXGERROR::VMAC7072.027); &MXPUT '***ERROR.' R723DNST= ' NOT EQUAL TO ' R723RTYP= ' DATASET TYPE72DL IS WRONG.'/ _N_= SYSTEM= STARTIME= ; %%MXLOGEND; PUT '***ERROR.' R723DNST= ' NOT EQUAL TO ' R723RTYP= ' DATASET TYPE72DL IS WRONG.'/ _N_= SYSTEM= STARTIME= ; END; LOCDNS=LOCDNS+24; END; END; IF R723RFLG='1.......'B THEN R723RFLG='B'; ELSE R723RFLG='E'; /*BEGIN-TO-END*PHASE*SAMPLE?*/ _ETY72DL;/*INC SOURCLIB(EXTY72DL);_WTY72DL OUTPUTS TYPE72DL*/ LOCWRS=LOCWRS+LENWRS; END; /* END WRS SECTION */ INPUT @LOCSCS @; /*RESET COLUMN TO END OF SCS SECTION */ IF RPRTCLAS EQ 'Y' THEN DO; IF R723CRCA EQ 'Y' THEN R723TYPE='4'; /*REPORT, ASID*/ ELSE R723TYPE='5'; /*REPORT, TRANSACT*/ END; ELSE IF R723CWMN GT 0 THEN R723TYPE='3'; /*TRANSACTION S.C.*/ ELSE DO; IF R723CRTX GT 0 THEN R723TYPE='1'; /*ASID SC WITH RESP*/ ELSE R723TYPE='2'; /*ASID SC NO RESP*/ END; PCTMETGO=.; PERFINDX=.; /*CRGF P=PCT,A=AVG,E=EXECUTE,D=DISCRET,S=SYSTEM,00X=NOGOAL*/ IF (TRANS EQ 0 AND TRANSEXC GT 0) OR R723CRGF='A' THEN DO; /* NO TRANS COMPLETED THIS SYSTEM, SOME EXEC PHASE HERE */ /* (TYPICALLY FUNCTION SHIPPED TRANSACTIONS). TREAT AS */ /* AVERAGE RESPONSE GOAL. */ IF R723CVAL LE 0 THEN PERFINDX=0; ELSE IF AVGELPTM GT . THEN PERFINDX=AVGELPTM/R723CVAL; END; ELSE IF R723CRGF='P' AND TRANS GT 0 THEN DO; NRPTRANS=TRANS*R723CPCT/100; SUMPTRAN=0; METGOAL=0; DO M=1 TO 13; SUMPTRAN=SUM(SUMPTRAN,RTSTRN(M)); IF SUMPTRAN GE NRPTRANS THEN DO; PERFINDX=RTSMAP(M); M=999; /*BAIL OUT OF LOOP*/ END; IF M=13 THEN PERFINDX=RTSMAP(M); END; IF TRANS GT 0 THEN DO M=1 TO 6; METGOAL=SUM(METGOAL,RTSTRN(M)); PCTMETGO=100*METGOAL/TRANS; END; ELSE PCTMETGO=.; END; ELSE IF R723CRGF='E' THEN DO; IF R723CVAL LE 0 OR VELOCITY LE 0 THEN PERFINDX=0; ELSE PERFINDX=R723CVAL/VELOCITY; END; ELSE IF R723CRGF='S' OR R723CRGF='D' THEN DO; PERFINDX=.; END; IF R723MCF GT 0 THEN APPLCP= 100*CPUTM/(DURATM*R723MCF); IF R723MCFI GT 0 THEN DO; APPLAAPCP=100*CPUIFETM/(DURATM*R723MCFI); APPLAAP= 100*(256*CPUIFATM/R723NFFI)/(DURATM*R723MCFI); END; IF R723MCFS GT 0 THEN DO; APPLIIPCP=100*CPUZIETM/(DURATM*R723MCFS); APPLIIP= 100*(256*CPUZIPTM/R723NFFS)/(DURATM*R723MCFS); END; CPUTM_ALL=CPUTM; IF PREVVSYS NE SYSTEM THEN DO; CECSER=' '; CPCMODEL=' '; END; IF R723GGTF='Y' THEN DO; /*Tenant resource group */ _ETY72TR;/*INC SOURCLIB(EXTY72TR);_WTY72TR OUTPUTS TYPE72TR*/ END; *ELSE DO; /*SERVICE CLASS OR REPORTING CLASS */ /*IN EXTY72GO, OBSERVATIONS ARE ONLY OUTPUT TO TYPE72GO IF */ /*VARIABLE NOACTVTY IS NON-ZERO, INDICATING ACTIVITY. */ IF R723CADF='00'X THEN NOACTVTY=0; /* SUPPRESS IF NO DATA */ _ETY72GO;/*INC SOURCLIB(EXTY72GO);_WTY72GO OUTPUTS TYPE72GO*/ _ETY72PD;/*INC SOURCLIB(EXTY72PD);_WTY72PD OUTPUTS TYPE72PD*/ *END; /*Comments added Change 37.171*/ END; /* END DO OVER PERIODS IN SCS SECTION */ END; /* END SCS SECTION DO GROUP */ END; /* END SUBTYPE=3 TYPE 72 */ ELSE IF SUBTYPE=4 THEN DO; /*RMF MONITOR III WORKLOAD MANAGER */ IF OFFCPS GT 0 AND NRCPS GT 0 THEN DO; OFFCPS=OFFCPS-3+OFFSMF; IF OFFCPS+LENCPS*NRCPS GT LENGTH+1 THEN DO; N72CPS+1; IF N72CPS EQ 1 THEN DO; %%MXLOGPUT(MESSAGE=MXGERROR::VMAC7072.028); &MXPUT ' TYPE72 CPS SECTION ERROR.' // ' INVALID RECORD DETECTED AND DELETED.' OFFCPS= LENCPS= NRCPS= LENGTH= _N_= SYSTEM= SMFTIME=; %%MXLOGEND; PUT ' TYPE72 CPS SECTION ERROR.' // ' INVALID RECORD DETECTED AND DELETED.' OFFCPS= LENCPS= NRCPS= LENGTH= _N_= SYSTEM= SMFTIME=; END; DELETE; END; END; IF OFFSPS GT 0 AND NRSPS GT 0 THEN DO; OFFSPS=OFFSPS-3+OFFSMF; IF OFFSPS+LENSPS*NRSPS GT LENGTH+1 THEN DO; N72SPS+1; IF N72SPS EQ 1 THEN DO; %%MXLOGPUT(MESSAGE=MXGERROR::VMAC7072.029); &MXPUT ' TYPE72 SPS SECTION ERROR.' // ' INVALID RECORD DETECTED AND DELETED.' OFFSPS= LENSPS= NRSPS= LENGTH= _N_= SYSTEM= SMFTIME=; %%MXLOGEND; PUT ' TYPE72 SPS SECTION ERROR.' // ' INVALID RECORD DETECTED AND DELETED.' OFFSPS= LENSPS= NRSPS= LENGTH= _N_= SYSTEM= SMFTIME=; END; DELETE; END; END; INPUT @OFFSPS @; COLSPS=COL; INPUT @OFFCPS @; COLCPS=COL; IF NRCPS NE NRSPS THEN DO; NRCPSSPS+1; IF NRCPSSPS LE 5 THEN DO; %%MXLOGPUT(MESSAGE=MXGERROR::VMAC7072.030); &MXPUT '***ERROR.TYPE72.SUBTYPE4.' '***SERVICE CLASS ' NRCPS= ' IS NOT SAME AS SWAP REASONS ' NRSPS= / '***RECORD IS DELETED ' _N_= COL= ; %%MXLOGEND; PUT '***ERROR.TYPE72.SUBTYPE4.' '***SERVICE CLASS ' NRCPS= ' IS NOT SAME AS SWAP REASONS ' NRSPS= / '***RECORD IS DELETED ' _N_= COL= ; END; DELETE; END; DO _I_=1 TO NRCPS; INPUT @COLCPS SERVPLCY $EBCDIC8. /*ACTIVE*SERVICE*POLICY*/ R724PTM TODSTAMP8. /*TIME WHEN*SERV POLICY*WAS ACTIVATD*/ SRVCLASS $EBCDIC8. /*SERVICE*CLASS*NAME*/ PERIOD &PIB.1. /*SERVICE*CLASS*PERIOD NUMBER*/ +3 /*FREE FOR FUTURE USE*/ R724USER &PIB.4. /*USERS*FOUND*/ R724ACTV &PIB.4. /*ACTIVE USERS*FOUND*/ R724ACTS &PIB.4. /*SUM OF*ACTIVE SAMPLES*EXCEPT OUTR*/ R724IDLS &PIB.4. /*SUM OF*IDLE SAMPLES*/ R724PAGE &PIB.4. /*SUM OF*USERS DELAYED*FOR PAGING*/ R724SWAP &PIB.4. /*SUM OF*USERS DELAYED*FOR SWAPPING*/ R724OUTR &PIB.4. /*SUM OF*OUT AND*READY USERS*/ R724PGIN &PIB.4. /*SUM OF*PAGE-INS*/ R724DIVS &PIB.4. /*SUM OF*DIV SAMPLES*/ R724LSSA &PIB.4. /*LOGICALLY*SWAPPED*SAMPLES*/ R724PSSA &PIB.4. /*SWAPPED*SAMPLES*(EXCEPT LOGICAL)*/ R724UPRO &PIB.4. /*PROCESSOR*USING*SAMPLES*/ R724UDEV &PIB.4. /*DEVICE*USING*SAMPLES*/ R724DPRO &PIB.4. /*PROCESSOR*DELAY*SAMPLES*/ R724DDEV &PIB.4. /*DEVICE*DELAY*SAMPLES*/ R724DSTO &PIB.4. /*STORAGE*DELAY*SAMPLES*/ R724DJES &PIB.4. /*JES*DELAY*SAMPLES*/ R724DHSM &PIB.4. /*HSM*DELAY*SAMPLES*/ R724DXCF &PIB.4. /*XCF*DELAY*SAMPLES*/ R724DENQ &PIB.4. /*ENQ*DELAY*SAMPLES*/ R724DMNT &PIB.4. /*MOUNT*DELAY*SAMPLES*/ R724DMSG &PIB.4. /*MESSAGE*DELAY*SAMPLES*/ R724UNKN &PIB.4. /*UNKNOWN*STATE*SAMPLES*/ R724VALD &PIB.4. /*USING,*DELAY, IDLE,*AND UNKNOWN*/ R724LSCT &PIB.4. /*LONG*LOGICAL*SWAPS*/ R724ESCT &PIB.4. /*LONG SWAPS TO*EXPANDED*STORAGE*/ R724PSCT &PIB.4. /*LONG*PHYSICAL*SWAPS*/ R724ACTF &RB.8. /*SUM OF ACTIVE FRAMES*/ R724IDLE &RB.8. /*SUM OF IDLE FRAMES*/ R724SLOT &RB.8. /*SUM OF SLOTS USED*/ R724DIV &RB.8. /*SUM OF DIV FRAMES*/ R724FIX &RB.8. /*SUM OF FIXED FRAMES*/ R724LSCF &RB.8. /*CSTORE FRAMES*LOG SWAPPED USERS*/ R724LSEF &RB.8. /*ESTORE FRAMES*LOG SWAPPED USERS*/ R724PSEF &RB.8. /*ESTORE FRAMES*NON-LOG SWAPPED USRS*/ R724VECT &RB.8.6 /*VECTOR*UTILIZATION*TIME*/ ELAPSTM &RB.8.6 /*R724ET*ELAPS TIME*FOR ENDED*TRANS*/ R724QT &RB.8.6 /*TIME ON*JES/APPC QUEUES*BY END TRN*/ TRANS &RB.8. /*RT24END*ENDED*TRANSACTION*COUNT*/ @; ELAPSTM=1.024*ELAPSTM; R724QT=1.024*R724QT; SKIP=LENCPS-232; IF NRSAMPLE GT 0 THEN DO; R724ACTF=R724ACTF/NRSAMPLE; R724IDLE=R724IDLE/NRSAMPLE; R724SLOT=R724SLOT/NRSAMPLE; R724DIV =R724DIV /NRSAMPLE; R724FIX =R724FIX /NRSAMPLE; END; IF SKIP GE 32 THEN DO; INPUT R724TSV &RB.8. /*SUM OF SHARED PAGE VIEWS*/ R724VIN &RB.8. /*SUM OF VALID SHARED PAGES IN CSTOR*/ R724VLC &RB.8. /*SUM OF SHARED PAGE VALIDATIONS*/ R724GPI &RB.8. /*SUM OF SHARED PAGEINS FROM AUX*/ @; R724TSV=R724TSV/NRSAMPLE; R724VIN=R724VIN/NRSAMPLE; R724VLC=R724VLC/NRSAMPLE; R724GPI=R724GPI/NRSAMPLE; SKIP=SKIP-32; END; IF SKIP GE 16 THEN DO; INPUT R724ETX &RB.8.6 /*TOTAL*EXECUTION*TIME*GROUP*/ R724QTX &RB.8.6 /*TOTAL*QUEUE*TIME*GROUP*/ @; R724TSV=R724TSV/NRSAMPLE; R724VIN=R724VIN/NRSAMPLE; R724VLC=R724VLC/NRSAMPLE; R724GPI=R724GPI/NRSAMPLE; SKIP=SKIP-32; END; IF SKIP GT 0 THEN INPUT +SKIP @; COLCPS=COL; INPUT @OFFSPS R724OR1 &PIB.4. /*TERMINAL*OUTPUT*WAIT*DELAY*/ R724OR2 &PIB.4. /*TERMINAL*INPUT*WAIT*DELAY*/ R724OR3 &PIB.4. /*LONG*WAIT*DELAY*/ R724OR4 &PIB.4. /*AUXILIARY*STORAGE*SHORTAGE*DELAY*/ R724OR5 &PIB.4. /*REAL*STORAGE*SHORTAGE*/ R724OR6 &PIB.4. /*DETECTED*LONG*WAIT*DELAY*/ R724OR7 &PIB.4. /*REQUESTED*SWAP*DELAY*/ R724OR8 &PIB.4. /*ENQUEUE*EXCHANGE*SWAP*DELAY*/ R724OR9 &PIB.4. /*EXCHANGE*SWAP*DELAY*/ R724OR10 &PIB.4. /*UNILATERAL*SWAP*DELAY*/ R724OR11 &PIB.4. /*TRANSITION*SWAP*DELAY*/ R724OR12 &PIB.4. /*IMPROVE*CENTRAL STORAGE*USGE DELAY*/ R724OR13 &PIB.4. /*IMPROVE*SYSTEM PAGING*RATE DELAY*/ R724OR14 &PIB.4. /*MAKE ROOM*SWAP OUT*DELAY*/ R724OR15 &PIB.4. /*APPC*WAIT*DELAY*/ R724OR16 &PIB.4. /*OMVS*INPUT WAIT*DELAY*/ R724OR17 &PIB.4. /*OMVS*OUTPUT WAIT*DELAY*/ @; SKIP=LENSPS-68; IF SKIP GE 4 THEN DO; INPUT R724OR18 &PIB.4. @; /*IN-REAL*DELAY*/ SKIP=SKIP-4; END; IF SKIP GE 4 THEN DO; INPUT R724OR7A &PIB.4. @; /*MEMORY*POOL*SHORTAGE*/ SKIP=SKIP-4; END; IF SKIP GT 0 THEN INPUT +SKIP @; COLSPS=COL; ELAPSTM=ELAPSTM*1024/(1E6); IF TRANS GT 0 THEN AVGELPTM=ELAPSTM/TRANS; ELSE AVGELPTM=.; _ETY7204;/*INC SOURCLIB(EXTY7204);_WTY7204 OUTPUTS TYPE7204*/ END; /* END OVER SERVICE CLASS PERIODS */ END; /* END SUBTYPE=4 TYPE 72 */ ELSE IF SUBTYPE=5 THEN DO; /*RMF MONITOR III SERIALIZATION DELAY*/ IF SMF72SES GT 0 AND SMF72SEN GT 0 THEN DO; SMF72SES=SMF72SES-3+OFFSMF; IF SMF72SES+SMF72SEL*SMF72SEN GT LENGTH+1 THEN DO; N72SES+1; IF N72SES EQ 1 THEN DO; %%MXLOGPUT(MESSAGE=MXGERROR::VMAC7072.031); &MXPUT ' TYPE72-5 SES SECTION ERROR.' // ' INVALID RECORD DETECTED AND DELETED.' SMF72SES= SMF72SEL= SMF72SEN= LENGTH= _N_= SYSTEM= SMFTIME=; %%MXLOGEND; PUT ' TYPE72-5 SES SECTION ERROR.' // ' INVALID RECORD DETECTED AND DELETED.' SMF72SES= SMF72SEL= SMF72SEN= LENGTH= _N_= SYSTEM= SMFTIME=; END; DELETE; END; END; INPUT @SMF72SES @; LOC=COL; DO _I_=1 TO SMF72SEN; INPUT @SMF72SES R725SGMO &PIB.1. /*GRS*MODE*/ +15 /*RESERVED*/ R725SCMS &PIB.8. /*TIMES*UOW WAS*SUSPENDED*CMS LOCK*/ R725SCMA &PIB.8. /*TIMES*UOW WAS*SUSPENDED*CMS LOCK*PLUS ONE*/ R725SCMT &PIB.8.3 /*TIME WHEN*UOW WAS*SUSPENDED*ON CMS LOCK*/ +8 R725SEDS &PIB.8. /*TIMES*UOW WAS*SUSPENDED*CMS ENQ-DEQ*LOCK*/ R725SEDA &PIB.8. /*TIMES*SUSPENDED*CMS ENQ-DEQ*LOCK*PLUS ONE*/ R725SEDT &PIB.8.3 /*TIME WHEN*SUSPENDED*ON CMS ENQ-DEQ*LOCK*/ +8 R725SLAS &PIB.8. /*TIMES*UOW WAS*SUSPENDED*CMS LATCH*LOCK*/ R725SLAA &PIB.8. /*TIMES*SUSPENDED*CMS LATCH*LOCK*PLUS ONE*/ R725SLAT &PIB.8.3 /*TIME WHEN*SUSPENDED*ON CMS LATCH*LOCK*/ +8 R725SSMS &PIB.8. /*TIMES*UOW WAS*SUSPENDED*CMS SMF*LOCK*/ R725SSMA &PIB.8. /*TIMES*SUSPENDED*CMS SMF*LOCK*PLUS ONE*/ R725SSMT &PIB.8.3 /*TIME WHEN*SUSPENDED*ON CMS SMF*LOCK*/ +8 R725SLOS &PIB.8. /*TIMES*UOW WAS*SUSPENDED*CMS LOCAL*LOCK*/ R725SLOA &PIB.8. /*TIMES*SUSPENDED*CMS LOCAL*LOCK*PLUS ONE*/ R725SLOT &PIB.8.3 /*TIME WHEN*SUSPENDED*ON CMS LOCAL*LOCK*/ +8 R725SCLS &PIB.8. /*TIMES*OTHER ASID*SUSPENDED*LOCAL LOCK*/ R725SCLA &PIB.8. /*TIMES*OTHER ASID*LOCAL LOCK*PLUS ONE*/ R725SCLT &PIB.8.3 /*TIME WHEN*OTHER ASID*SUSPENDED*LOCAL LOCK*/ +8 R725SLRS &PIB.8. /*SUSPENDED*LATCH*OBTAIN*REQUESTS*/ R725SLRT &PIB.8.3 /*TIME WHEN*LATCH*OBTAIN WAS*SUSPENDED*/ R725SLR1 &PIB.8. /*SSQ TIME*LATCH OBTAIN*SUSPENDED*/ R725SLR2 &PIB.8. /*SSQ TIME*LATCH OBTAIN*SUSPENDED*/ R725SSTR &PIB.8. /*ENQ*SCOPE=STEP*REQUESTS*/ R725SSTS &PIB.8. /*SUSPENDED*ENQ*SCOPE=STEP*REQUESTS*/ R725SSTT &PIB.8.3 /*CONTENTION*ENQ SCOPE=STEP*REQUESTS*/ +8 R725SST1 &PIB.8. /*SSQ*CONTENTION*TIME*ENQ SCOPE=STEP*/ R725SST2 &PIB.8. /*SSQ*CONTENTION*TIME*ENQ SCOPE=STEP*/ R725SSYR &PIB.8. /*ENQ*SCOPE=SYSTEM*REQUESTS*/ R725SSYS &PIB.8. /*SUSPENDED*ENQ*SCOPE=SYSTEM*REQUESTS*/ R725SSYT &PIB.8.3 /*CONTENTION*ENQ SCOPE=SYSTEM*REQUESTS*/ +8 R725SSY1 &PIB.8. /*SSQ*CONTENTION*TIME ENQ*SCOPE=SYSTEM*/ R725SSY2 &PIB.8. /*SSQ*CONTENTION*TIME ENQ*SCOPE=SYSTEM*/ R725SSSR &PIB.8. /*ENQ*SCOPE=SYSTEMS*REQUESTS*/ R725SSSS &PIB.8. /*SUSPENDED*ENQ*SCOPE=SYSTEMS*REQUESTS*/ R725SSST &PIB.8.3 /*CONTENTION*ENQ SCOPE=SYSTEMS*REQUESTS*/ +8 R725SSS1 &PIB.8. /*SSQ*CONTENTION*TIME ENQ*SCOPE=SYSTEMS*/ R725SSS2 &PIB.8. /*SSQ*CONTENTION*TIME ENQ*SCOPE=SYSTEMS*/ @; R725SLRQ=((16**16)*R725SLR1+R725SLR2)/1000; R725SSTQ=((16**16)*R725SST1+R725SST2)/1000; R725SSYQ=((16**16)*R725SSY1+R725SSY2)/1000; R725SSSQ=((16**16)*R725SSS1+R725SSS2)/1000; _ETY725A;/*INC SOURCLIB(EXTY725A);_WTY725A OUTPUTS TYPE725A*/ SMF72SES=SMF72SES+SMF72SEL; END; /* END OVER SERIALIZATION CONTROL */ IF SMF72CMS GT 0 AND SMF72CMN GT 0 THEN DO; SMF72CMS=SMF72CMS-3+OFFSMF; IF SMF72CMS+SMF72CML*SMF72CMN GT LENGTH+1 THEN DO; N72CMS+1; IF N72CMS EQ 1 THEN DO; %%MXLOGPUT(MESSAGE=MXGERROR::VMAC7072.032); &MXPUT ' TYPE72-5 CMS SECTION ERROR.' // ' INVALID RECORD DETECTED AND DELETED.' SMF72CMS= SMF72CML= SMF72CMN= LENGTH= _N_= SYSTEM= SMFTIME=; %%MXLOGEND; PUT ' TYPE72-5 CMS SECTION ERROR.' // ' INVALID RECORD DETECTED AND DELETED.' SMF72CMS= SMF72CML= SMF72CMN= LENGTH= _N_= SYSTEM= SMFTIME=; END; DELETE; END; END; INPUT @SMF72CMS @; LOC=COL; DO _I_=1 TO SMF72CMN; INPUT @SMF72CMS R725CMJN $EBCDIC8. /*NAME*OF THE*JOB*/ +3 /*RESERVED*/ R725CMSP &PIB.1. /*SERVICE*CLASS*PERIOD*/ R725CMAS &PIB.2. /*ADDRESS*SPACE*ID*/ +2 /*RESERVED*/ R725CMST $CHAR8. /*ADDRESS*SPACE*STOKEN*/ R725CMSN $EBCDIC8. /*SERVICE*CLASS*NAME*/ R725CMTY &PIB.1. /*LOCK*TYPE*/ +7 /*RESERVED*/ R725CMSU &PIB.8. /*TIMES UOW*SUSPENDED*THIS*LOCKTYPE*/ R725CMAL &PIB.8. /*TIMES UOW*SUSPENDED*WITH ONE*/ R725CMTI &PIB.8.3 /*TIME WHEN*UOW SUSPENDED*THIS*LOCKTYPE*/ @; _ETY725B;/*INC SOURCLIB(EXTY725B);_WTY725B OUTPUTS TYPE725B*/ SMF72CMS=SMF72CMS+SMF72CML; END; /* END OVER CMS LOCK DELAY */ IF SMF72EDS GT 0 AND SMF72EDN GT 0 THEN DO; SMF72EDS=SMF72EDS-3+OFFSMF; IF SMF72EDS+SMF72EDL*SMF72EDN GT LENGTH+1 THEN DO; N72EDS+1; IF N72EDS EQ 1 THEN DO; %%MXLOGPUT(MESSAGE=MXGERROR::VMAC7072.033); &MXPUT ' TYPE72-5 EDS SECTION ERROR.' // ' INVALID RECORD DETECTED AND DELETED.' SMF72EDS= SMF72EDL= SMF72EDN= LENGTH= _N_= SYSTEM= SMFTIME=; %%MXLOGEND; PUT ' TYPE72-5 EDS SECTION ERROR.' // ' INVALID RECORD DETECTED AND DELETED.' SMF72EDS= SMF72EDL= SMF72EDN= LENGTH= _N_= SYSTEM= SMFTIME=; END; DELETE; END; END; INPUT @SMF72EDS @; LOC=COL; DO _I_=1 TO SMF72EDN; INPUT @SMF72EDS R725CMJN $EBCDIC8. /*NAME*OF THE*JOB*/ +3 /*RESERVED*/ R725CMSP &PIB.1. /*SERVICE*CLASS*PERIOD*/ R725CMAS &PIB.2. /*ADDRESS*SPACE*ID*/ +2 /*RESERVED*/ R725CMST $CHAR8. /*ADDRESS*SPACE*STOKEN*/ R725CMSN $EBCDIC8. /*SERVICE*CLASS*NAME*/ R725CMTY &PIB.1. /*LOCK*TYPE*/ +7 /*RESERVED*/ R725CMSU &PIB.8. /*TIMES UOW*SUSPENDED*THIS*LOCKTYPE*/ R725CMAL &PIB.8. /*TIMES UOW*SUSPENDED*WITH ONE*/ R725CMTI &PIB.8.3 /*TIME WHEN*UOW SUSPENDED*THIS*LOCKTYPE*/ @; _ETY725C;/*INC SOURCLIB(EXTY725C);_WTY725C OUTPUTS TYPE725C*/ SMF72EDS=SMF72EDS+SMF72EDL; END; /* END OVER CMS ENQUEUE DEQUEUE LOCK DELAY */ IF SMF72LAS GT 0 AND SMF72LAN GT 0 THEN DO; SMF72LAS=SMF72LAS-3+OFFSMF; IF SMF72LAS+SMF72LAL*SMF72LAN GT LENGTH+1 THEN DO; N72LAS+1; IF N72LAS EQ 1 THEN DO; %%MXLOGPUT(MESSAGE=MXGERROR::VMAC7072.034); &MXPUT ' TYPE72-5 LAS SECTION ERROR.' // ' INVALID RECORD DETECTED AND DELETED.' SMF72LAS= SMF72LAL= SMF72LAN= LENGTH= _N_= SYSTEM= SMFTIME=; %%MXLOGEND; PUT ' TYPE72-5 LAS SECTION ERROR.' // ' INVALID RECORD DETECTED AND DELETED.' SMF72LAS= SMF72LAL= SMF72LAN= LENGTH= _N_= SYSTEM= SMFTIME=; END; DELETE; END; END; INPUT @SMF72LAS @; LOC=COL; DO _I_=1 TO SMF72LAN; INPUT @SMF72LAS R725CMJN $EBCDIC8. /*NAME*OF THE*JOB*/ +3 /*RESERVED*/ R725CMSP &PIB.1. /*SERVICE*CLASS*PERIOD*/ R725CMAS &PIB.2. /*ADDRESS*SPACE*ID*/ +2 /*RESERVED*/ R725CMST $CHAR8. /*ADDRESS*SPACE*STOKEN*/ R725CMSN $EBCDIC8. /*SERVICE*CLASS*NAME*/ R725CMTY &PIB.1. /*LOCK*TYPE*/ +7 /*RESERVED*/ R725CMSU &PIB.8. /*TIMES UOW*SUSPENDED*THIS*LOCKTYPE*/ R725CMAL &PIB.8. /*TIMES UOW*SUSPENDED*THIS*WITH ONE*/ R725CMTI &PIB.8.3 /*TIME WHEN*UOW SUSPENDED*THIS*LOCKTYPE*/ @; _ETY725D;/*INC SOURCLIB(EXTY725D);_WTY725D OUTPUTS TYPE725D*/ SMF72LAS=SMF72LAS+SMF72LAL; END; /* END OVER CMS LATCH LOCK DELAY */ IF SMF72SMS GT 0 AND SMF72SMN GT 0 THEN DO; SMF72SMS=SMF72SMS-3+OFFSMF; IF SMF72SMS+SMF72SML*SMF72SMN GT LENGTH+1 THEN DO; N72SMS+1; IF N72SMS EQ 1 THEN DO; %%MXLOGPUT(MESSAGE=MXGERROR::VMAC7072.035); &MXPUT ' TYPE72-5 SMS SECTION ERROR.' // ' INVALID RECORD DETECTED AND DELETED.' SMF72SMS= SMF72SML= SMF72SMN= LENGTH= _N_= SYSTEM= SMFTIME=; %%MXLOGEND; PUT ' TYPE72-5 SMS SECTION ERROR.' // ' INVALID RECORD DETECTED AND DELETED.' SMF72SMS= SMF72SML= SMF72SMN= LENGTH= _N_= SYSTEM= SMFTIME=; END; DELETE; END; END; INPUT @SMF72SMS @; LOC=COL; DO _I_=1 TO SMF72SMN; INPUT @SMF72SMS R725CMJN $EBCDIC8. /*NAME*OF THE*JOB*/ +3 /*RESERVED*/ R725CMSP &PIB.1. /*SERVICE*CLASS*PERIOD*/ R725CMAS &PIB.2. /*ADDRESS*SPACE*ID*/ +2 /*RESERVED*/ R725CMST $CHAR8. /*ADDRESS*SPACE*STOKEN*/ R725CMSN $EBCDIC8. /*SERVICE*CLASS*NAME*/ R725CMTY &PIB.1. /*LOCK*TYPE*/ +7 /*RESERVED*/ R725CMSU &PIB.8. /*TIMES UOW*SUSPENDED*THIS*LOCKTYPE*/ R725CMAL &PIB.8. /*TIMES UOW*SUSPENDED*THIS*WITH ONE*/ R725CMTI &PIB.8.3 /*TIME WHEN*UOW SUSPENDED*THIS*LOCKTYPE*/ @; _ETY725E;/*INC SOURCLIB(EXTY725E);_WTY725E OUTPUTS TYPE725E*/ SMF72SMS=SMF72SMS+SMF72SML; END; /* END OVER CMS SMF LOCK DELAY */ IF SMF72LOS GT 0 AND SMF72LON GT 0 THEN DO; SMF72LOS=SMF72LOS-3+OFFSMF; IF SMF72LOS+SMF72LOL*SMF72LON GT LENGTH+1 THEN DO; N72LOS+1; IF N72LOS EQ 1 THEN DO; %%MXLOGPUT(MESSAGE=MXGERROR::VMAC7072.036); &MXPUT ' TYPE72-5 LOS SECTION ERROR.' // ' INVALID RECORD DETECTED AND DELETED.' SMF72LOS= SMF72LOL= SMF72LON= LENGTH= _N_= SYSTEM= SMFTIME=; %%MXLOGEND; PUT ' TYPE72-5 LOS SECTION ERROR.' // ' INVALID RECORD DETECTED AND DELETED.' SMF72LOS= SMF72LOL= SMF72LON= LENGTH= _N_= SYSTEM= SMFTIME=; END; DELETE; END; END; INPUT @SMF72LOS @; LOC=COL; DO _I_=1 TO SMF72LON; INPUT @SMF72LOS R725LOJN $EBCDIC8. /*NAME OF THE JOB*/ +3 /*RESERVED*/ R725LOSP &PIB.1. /*SERVICE CLASS PERIOD*/ R725LOAS &PIB.2. /*ADDRESS SPACE ID*/ +2 /*RESERVED*/ R725LOST $CHAR8. /*ADDRESS SPACE STOKEN*/ R725LOSN $EBCDIC8. /*SERVICE CLASS NAME*/ +8 /*RESERVED*/ R725LOSU &PIB.8. /*TIMES UOW*SUSPENDED*LOCAL LOCK*/ R725LOAL &PIB.8. /*TIMES UOW*SUSPEND*LOCAL LOCK*WITH ONE*/ R725LOTI &PIB.8.3 /*TIME WHEN*SUSPENDED*LOCAL LOCK*/ R725LCSU &PIB.8. /*TIMES*OTHER ASID*SUSPENDED*LOCAL LOCK*/ R725LCAL &PIB.8. /*TIMES*OTHER ASID*SUSPENDED*WITH ONE*/ R725LCTI &PIB.8.3 /*TIME WHEN*OTHER ASID*SUSPENDED*/ @; _ETY725F;/*INC SOURCLIB(EXTY725F);_WTY725F OUTPUTS TYPE725F*/ SMF72LOS=SMF72LOS+SMF72LOL; END; /* END OVER LOCAL LOCK DELAY */ IF SMF72COS GT 0 AND SMF72CON GT 0 THEN DO; SMF72COS=SMF72COS-3+OFFSMF; IF SMF72COS+SMF72COL*SMF72CON GT LENGTH+1 THEN DO; N72COS+1; IF N72COS EQ 1 THEN DO; %%MXLOGPUT(MESSAGE=MXGERROR::VMAC7072.037); &MXPUT ' TYPE72-5 COS SECTION ERROR.' // ' INVALID RECORD DETECTED AND DELETED.' SMF72COS= SMF72COL= SMF72CON= LENGTH= _N_= SYSTEM= SMFTIME=; %%MXLOGEND; PUT ' TYPE72-5 COS SECTION ERROR.' // ' INVALID RECORD DETECTED AND DELETED.' SMF72COS= SMF72COL= SMF72CON= LENGTH= _N_= SYSTEM= SMFTIME=; END; DELETE; END; END; INPUT @SMF72COS @; LOC=COL; DO _I_=1 TO SMF72CON; INPUT @SMF72COS R725COJN $EBCDIC8. /*NAME OF THE JOB*/ +3 /*RESERVED*/ R725COSP &PIB.1. /*SERVICE CLASS PERIOD*/ R725COAS &PIB.2. /*ADDRESS SPACE ID*/ +2 /*RESERVED*/ R725COST $CHAR8. /*ADDRESS SPACE STOKEN*/ R725COSN $EBCDIC8. /*SERVICE CLASS NAME*/ +8 /*RESERVED*/ R725COSU &PIB.8. /*TIMES*OTHER ASID*SUSPENDED*LOCAL LOCK*/ R725COAL &PIB.8. /*TIMES*OTHER ASID*SUSPENDED*WITH ONE*/ R725COTI &PIB.8.3 /*TIME WHEN*OTHER ASID*SUSPENDED*/ R725CLSU &PIB.8. /*TIMES UOW*SUSPENDED*LOCAL LOCK*/ R725CLAL &PIB.8. /*TIMES UOW*SUSPEND*LOCAL LOCK*WITH ONE*/ R725CLTI &PIB.8.3 /*TIME WHEN*SUSPENDED*LOCAL LOCK*/ @; _ETY725G;/*INC SOURCLIB(EXTY725G);_WTY725G OUTPUTS TYPE725G*/ SMF72COS=SMF72COS+SMF72COL; END; /* END OVER CML LOCK OWNER DELAY */ IF SMF72CRS GT 0 AND SMF72CRN GT 0 THEN DO; SMF72CRS=SMF72CRS-3+OFFSMF; IF SMF72CRS+SMF72CRL*SMF72CRN GT LENGTH+1 THEN DO; N72CRS+1; IF N72CRS EQ 1 THEN DO; %%MXLOGPUT(MESSAGE=MXGERROR::VMAC7072.038); &MXPUT ' TYPE72-5 CRS SECTION ERROR.' // ' INVALID RECORD DETECTED AND DELETED.' SMF72CRS= SMF72CRL= SMF72CRN= LENGTH= _N_= SYSTEM= SMFTIME=; %%MXLOGEND; PUT ' TYPE72-5 CRS SECTION ERROR.' // ' INVALID RECORD DETECTED AND DELETED.' SMF72CRS= SMF72CRL= SMF72CRN= LENGTH= _N_= SYSTEM= SMFTIME=; END; DELETE; END; END; INPUT @SMF72CRS @; LOC=COL; DO _I_=1 TO SMF72CRN; INPUT @SMF72CRS R725CRJN $EBCDIC8. /*NAME OF THE JOB*/ +3 /*RESERVED*/ R725CRSP &PIB.1. /*SERVICE CLASS PERIOD*/ R725CRAS &PIB.2. /*ADDRESS SPACE ID*/ +2 /*RESERVED*/ R725CRST $CHAR8. /*ADDRESS SPACE STOKEN*/ R725CRSN $EBCDIC8. /*SERVICE CLASS NAME*/ +8 /*RESERVED*/ R725CRSU &PIB.8. /*TIMES*OTHER ASID*SUSPENDED*LOCAL LOCK*/ R725CRAL &PIB.8. /*TIMES*OTHER ASID*SUSPENDED*WITH ONE*/ R725CRTI &PIB.8.3 /*TIME WHEN*OTHER ASID*SUSPENDED*/ @; _ETY725H;/*INC SOURCLIB(EXTY725H);_WTY725H OUTPUTS TYPE725H*/ SMF72CRS=SMF72CRS+SMF72CRL; END; /* END OVER CML LOCK REQUESTOR DELAY */ IF SMF72LCS GT 0 AND SMF72LCN GT 0 THEN DO; SMF72LCS=SMF72LCS-3+OFFSMF; IF SMF72LCS+SMF72LCL*SMF72LCN GT LENGTH+1 THEN DO; N72LCS+1; IF N72LCS EQ 1 THEN DO; %%MXLOGPUT(MESSAGE=MXGERROR::VMAC7072.039); &MXPUT ' TYPE72-5 LCS SECTION ERROR.' // ' INVALID RECORD DETECTED AND DELETED.' SMF72LCS= SMF72LCL= SMF72LCN= LENGTH= _N_= SYSTEM= SMFTIME=; %%MXLOGEND; PUT ' TYPE72-5 LCS SECTION ERROR.' // ' INVALID RECORD DETECTED AND DELETED.' SMF72LCS= SMF72LCL= SMF72LCN= LENGTH= _N_= SYSTEM= SMFTIME=; END; DELETE; END; END; INPUT @SMF72LCS @; LOC=COL; DO _I_=1 TO SMF72LCN; INPUT @SMF72LCS R725LAJN $EBCDIC8. /*NAME OF THE JOB*/ +3 /*RESERVED*/ R725LASP &PIB.1. /*SERVICE CLASS PERIOD*/ R725LAAS &PIB.2. /*ADDRESS SPACE ID*/ +2 /*RESERVED*/ R725LAST $CHAR8. /*ADDRESS SPACE STOKEN*/ R725LASN $EBCDIC8. /*SERVICE CLASS NAME*/ R725LATY &PIB.1. /*REQUEST*TYPE*/ +7 /*RESERVED*/ R725LASU &PIB.8. /*TIMES*SUSPENDED*R725LATY*/ R725LATI &PIB.8.3 /*TIME WHEN*SUSPENDED*R725LATY*/ R725LAS1 &PIB.8. /*SSQ*SUSPEND*TIME*R725LATY*/ R725LAS2 &PIB.8. /*SSQ*SUSPEND*TIME*R725LATY*/ @; R725LASQ=((16**16)*R725LAS1+R725LAS2)/1000; _ETY725I;/*INC SOURCLIB(EXTY725I);_WTY725I OUTPUTS TYPE725I*/ SMF72LCS=SMF72LCS+SMF72LCL; END; /* END OVER GRS LATCH SET CREATOR DELAY */ IF SMF72LRS GT 0 AND SMF72LRN GT 0 THEN DO; SMF72LRS=SMF72LRS-3+OFFSMF; IF SMF72LRS+SMF72LRL*SMF72LRN GT LENGTH+1 THEN DO; N72LRS+1; IF N72LRS EQ 1 THEN DO; %%MXLOGPUT(MESSAGE=MXGERROR::VMAC7072.040); &MXPUT ' TYPE72-5 LRS SECTION ERROR.' // ' INVALID RECORD DETECTED AND DELETED.' SMF72LRS= SMF72LRL= SMF72LRN= LENGTH= _N_= SYSTEM= SMFTIME=; %%MXLOGEND; PUT ' TYPE72-5 LRS SECTION ERROR.' // ' INVALID RECORD DETECTED AND DELETED.' SMF72LRS= SMF72LRL= SMF72LRN= LENGTH= _N_= SYSTEM= SMFTIME=; END; DELETE; END; END; INPUT @SMF72LRS @; LOC=COL; DO _I_=1 TO SMF72LRN; INPUT @SMF72LRS R725LAJN $EBCDIC8. /*NAME OF THE JOB*/ +3 /*RESERVED*/ R725LASP &PIB.1. /*SERVICE CLASS PERIOD*/ R725LAAS &PIB.2. /*ADDRESS SPACE ID*/ +2 /*RESERVED*/ R725LAST $CHAR8. /*ADDRESS SPACE STOKEN*/ R725LASN $EBCDIC8. /*SERVICE CLASS NAME*/ R725LATY &PIB.1. /*REQUEST*TYPE*/ +7 /*RESERVED*/ R725LASU &PIB.8. /*TIMES*SUSPENDED*R725LATY*/ R725LATI &PIB.8.3 /*TIME WHEN*SUSPENDED*R725LATY*/ R725LAS1 &PIB.8. /*SSQ*SUSPEND*TIME*R725LATY*/ R725LAS2 &PIB.8. /*SSQ*SUSPEND*TIME*R725LATY*/ @; R725LASQ=((16**16)*R725LAS1+R725LAS2)/1000; _ETY725J;/*INC SOURCLIB(EXTY725J);_WTY725J OUTPUTS TYPE725J*/ SMF72LRS=SMF72LRS+SMF72LRL; END; /* END OVER GRS LATCH REQUESTOR DELAY */ IF SMF72TDS GT 0 AND SMF72TDN GT 0 THEN DO; SMF72TDS=SMF72TDS-3+OFFSMF; IF SMF72TDS+SMF72TDL*SMF72TDN GT LENGTH+1 THEN DO; N72TDS+1; IF N72TDS EQ 1 THEN DO; %%MXLOGPUT(MESSAGE=MXGERROR::VMAC7072.041); &MXPUT ' TYPE72-5 TDS SECTION ERROR.' // ' INVALID RECORD DETECTED AND DELETED.' SMF72TDS= SMF72TDL= SMF72TDN= LENGTH= _N_= SYSTEM= SMFTIME=; %%MXLOGEND; PUT ' TYPE72-5 TDS SECTION ERROR.' // ' INVALID RECORD DETECTED AND DELETED.' SMF72TDS= SMF72TDL= SMF72TDN= LENGTH= _N_= SYSTEM= SMFTIME=; END; DELETE; END; END; INPUT @SMF72TDS @; LOC=COL; DO _I_=1 TO SMF72TDN; INPUT @SMF72TDS R725ENJN $EBCDIC8. /*NAME OF THE JOB*/ +3 /*RESERVED*/ R725ENSP &PIB.1. /*SERVICE CLASS PERIOD*/ R725ENAS &PIB.2. /*ADDRESS SPACE ID*/ +2 /*RESERVED*/ R725ENST $CHAR8. /*ADDRESS SPACE STOKEN*/ R725ENSN $EBCDIC8. /*SERVICE CLASS NAME*/ R725ENSC &PIB.1. /*ENQUEUE*SCOPE*TYPE*/ +7 /*RESERVED*/ R725ENSU &PIB.8. /*TIMES*SUSPENDED*R725ENSC*/ R725ENTI &PIB.8.3 /*TIME WHEN*SUSPENDED*R725ENSC*/ R725ENS1 &PIB.8. /*SSQ*SUSPEND*TIME*R725LATY*/ R725ENS2 &PIB.8. /*SSQ*SUSPEND*TIME*R725LATY*/ @; R725ENSQ=((16**16)*R725ENS1+R725ENS2)/1000; _ETY725K;/*INC SOURCLIB(EXTY725K);_WTY725K OUTPUTS TYPE725K*/ SMF72TDS=SMF72TDS+SMF72TDL; END; /* END OVER GRS ENQUEUE SETP DELAY */ IF SMF72YDS GT 0 AND SMF72YDN GT 0 THEN DO; SMF72YDS=SMF72YDS-3+OFFSMF; IF SMF72YDS+SMF72YDL*SMF72YDN GT LENGTH+1 THEN DO; N72YDS+1; IF N72YDS EQ 1 THEN DO; %%MXLOGPUT(MESSAGE=MXGERROR::VMAC7072.042); &MXPUT ' TYPE72-5 YDS SECTION ERROR.' // ' INVALID RECORD DETECTED AND DELETED.' SMF72YDS= SMF72YDL= SMF72YDN= LENGTH= _N_= SYSTEM= SMFTIME=; %%MXLOGEND; PUT ' TYPE72-5 YDS SECTION ERROR.' // ' INVALID RECORD DETECTED AND DELETED.' SMF72YDS= SMF72YDL= SMF72YDN= LENGTH= _N_= SYSTEM= SMFTIME=; END; DELETE; END; END; INPUT @SMF72YDS @; LOC=COL; DO _I_=1 TO SMF72YDN; INPUT @SMF72YDS R725ENJN $EBCDIC8. /*NAME OF THE JOB*/ +3 /*RESERVED*/ R725ENSP &PIB.1. /*SERVICE CLASS PERIOD*/ R725ENAS &PIB.2. /*ADDRESS SPACE ID*/ +2 /*RESERVED*/ R725ENST $CHAR8. /*ADDRESS SPACE STOKEN*/ R725ENSN $EBCDIC8. /*SERVICE CLASS NAME*/ R725ENSC &PIB.1. /*ENQUEUE*SCOPE*TYPE*/ +7 /*RESERVED*/ R725ENSU &PIB.8. /*TIMES*SUSPENDED*R725ENSC*/ R725ENTI &PIB.8.3 /*TIME WHEN*SUSPENDED*R725ENSC*/ R725ENS1 &PIB.8. /*SSQ*SUSPEND*TIME*R725LATY*/ R725ENS2 &PIB.8. /*SSQ*SUSPEND*TIME*R725LATY*/ @; R725ENSQ=((16**16)*R725ENS1+R725ENS2)/1000; _ETY725L;/*INC SOURCLIB(EXTY725L);_WTY725L OUTPUTS TYPE725L*/ SMF72YDS=SMF72YDS+SMF72YDL; END; /* END OVER GRS ENQUEUE SYSTEM DELAY */ IF SMF72SDS GT 0 AND SMF72SDN GT 0 THEN DO; SMF72SDS=SMF72SDS-3+OFFSMF; IF SMF72SDS+SMF72SDL*SMF72SDN GT LENGTH+1 THEN DO; N72SDS+1; IF N72SDS EQ 1 THEN DO; %%MXLOGPUT(MESSAGE=MXGERROR::VMAC7072.043); &MXPUT ' TYPE72-5 SDS SECTION ERROR.' // ' INVALID RECORD DETECTED AND DELETED.' SMF72SDS= SMF72SDL= SMF72SDN= LENGTH= _N_= SYSTEM= SMFTIME=; %%MXLOGEND; PUT ' TYPE72-5 SDS SECTION ERROR.' // ' INVALID RECORD DETECTED AND DELETED.' SMF72SDS= SMF72SDL= SMF72SDN= LENGTH= _N_= SYSTEM= SMFTIME=; END; DELETE; END; END; INPUT @SMF72SDS @; LOC=COL; DO _I_=1 TO SMF72SDN; INPUT @SMF72SDS R725ENJN $EBCDIC8. /*NAME OF THE JOB*/ +3 /*RESERVED*/ R725ENSP &PIB.1. /*SERVICE CLASS PERIOD*/ R725ENAS &PIB.2. /*ADDRESS SPACE ID*/ +2 /*RESERVED*/ R725ENST $CHAR8. /*ADDRESS SPACE STOKEN*/ R725ENSN $EBCDIC8. /*SERVICE CLASS NAME*/ R725ENSC &PIB.1. /*ENQUEUE*SCOPE*TYPE*/ +7 /*RESERVED*/ R725ENSU &PIB.8. /*TIMES*SUSPENDED*R725ENSC*/ R725ENTI &PIB.8.3 /*TIME WHEN*SUSPENDED*R725ENSC*/ R725ENS1 &PIB.8. /*SSQ*SUSPEND*TIME*R725LATY*/ R725ENS2 &PIB.8. /*SSQ*SUSPEND*TIME*R725LATY*/ @; R725ENSQ=((16**16)*R725ENS1+R725ENS2)/1000; _ETY725M;/*INC SOURCLIB(EXTY725M);_WTY725M OUTPUTS TYPE725M*/ SMF72SDS=SMF72SDS+SMF72SDL; END; /* END OVER GRS ENQUEUE SYSTEMS DELAY */ IF SMF72QSS GT 0 AND SMF72QSN GT 0 THEN DO; SMF72QSS=SMF72QSS-3+OFFSMF; IF SMF72QSS+SMF72QSL*SMF72QSN GT LENGTH+1 THEN DO; N72SDS+1; IF N72SDS EQ 1 THEN DO; %%MXLOGPUT(MESSAGE=MXGERROR::VMAC7072.044); &MXPUT ' TYPE72-5 SDS SECTION ERROR.' // ' INVALID RECORD DETECTED AND DELETED.' SMF72QSS= SMF72QSL= SMF72QSN= LENGTH= _N_= SYSTEM= SMFTIME=; %%MXLOGEND; PUT ' TYPE72-5 SDS SECTION ERROR.' // ' INVALID RECORD DETECTED AND DELETED.' SMF72QSS= SMF72QSL= SMF72QSN= LENGTH= _N_= SYSTEM= SMFTIME=; END; DELETE; END; END; IF SMF72QSN GT 0 THEN INPUT @SMF72QSS @; LOC=COL; IF SMF72QSN GT 0 THEN DO _I_=1 TO SMF72QSN; INPUT @SMF72QSS R725QSJN $EBCDIC8. /*NAME OF THE JOB*/ +3 /*RESERVED*/ R725QSSP &PIB.1. /*SERVICE CLASS PERIOD*/ R725QSAS &PIB.2. /*ADDRESS SPACE ID*/ +2 /*RESERVED*/ R725QSST $CHAR8. /*ADDRESS SPACE STOKEN*/ R725QSSN $EBCDIC8. /*SERVICE CLASS NAME*/ +8 /*RESERVED*/ R725QSRC &PIB.8. /*START*RESUME*REQUESTS*/ R725QSSC &PIB.8. /*GQSCAN*ISGQUERY*SPECIFIC*REQUESTS*/ R725QSRR &PIB.8. /*RESOURCES*RETURNED*FOR THESE*REQUESTS*/ R725QSR1 &PIB.8. /*SUM OF*SQ*RESOURCES*RETURNED*/ R725QSR2 &PIB.8. /*GQSCAN*ISGQUERY*SPECIFIC*REQUESTS*/ R725QSTI &PIB.8.6 /*EXECUTION*TIME IN*GRS*THESE*REQUESTS*/ R725QST1 &PIB.8. /*SUM OF*SQ*REQUEST*EXECUTION*TIMES*/ R725QST2 &PIB.8. /*SUM OF*SQ*REQUEST*EXECUTION*TIMES*/ @; R725QSRQ=((16**16)*R725QSR1+R725QSR2)/1000; R725QSTQ=((16**16)*R725QST1+R725QST2)/1000; _ETY725N;/*INC SOURCLIB(EXTY725N);_WTY725N OUTPUTS TYPE725N*/ SMF72QSS=SMF72QSS+SMF72QSL; END; /* END OVER GRS ENQUEUE SYSTEMS DELAY */ END; /* END SUBTYPE=5 TYPE 72 */ END; /* TYPE 72 RECORD */ RETURN; END; /* TYPE 70, 72 RECORD FOR MVSXA */ % MACRO _DROP70 CAI0 -CAI9 CAIA CAIB CAIC CAID CAIE CAIF CAIG CAIH CAII CAIJ CAIK CAIL CAIN CAIO CAIP CAIQ CAIR CAIS CAIT CAIU CAIV CAIW CAIX CAIY CAIZ CAIZA CAIZB CAIZC CAIZD CAIZE CAIZF CAIZG CAIZH CAIZI CAIZJ CAIZK CAIZL CAIZM CAIZN CAIZO CAIZP CAIZQ CAIZR CAIZS CAIZT CAIZU CAIZV CAIZW CAIZX CAIZY CAIZZ CAIYA CAIYB CAIYC CPUSER0 -CPUSER9 CPUSERA CPUSERB CPUSERC CPUSERD CPUSERE CPUSERF CPUSERG CPUSERH CPUSERI CPUSERJ CPUSERK CPUSERL CPUSERN CPUSERO CPUSERP CPUSERQ CPUSERR CPUSERS CPUSERT CPUSERU CPUSERV CPUSERW CPUSERX CPUSERY CPUSERZ CPUSERZA CPUSERZB CPUSERZC CPUSERZD CPUSERZE CPUSERZF CPUSERZG CPUSERZH CPUSERZI CPUSERZJ CPUSERZK CPUSERZL CPUSERZM CPUSERZN CPUSERZO CPUSERZP CPUSERZQ CPUSERZR CPUSERZS CPUSERZT CPUSERZU CPUSERZV CPUSERZW CPUSERZX CPUSERZY CPUSERZZ CPUSERYA CPUSERYB CPUSERYC IFATYP0 -IFATYP9 IFATYPA IFATYPB IFATYPC IFATYPD IFATYPE IFATYPF IFATYPG IFATYPH IFATYPI IFATYPJ IFATYPK IFATYPL IFATYPN IFATYPO IFATYPP IFATYPQ IFATYPR IFATYPS IFATYPT IFATYPU IFATYPV IFATYPW IFATYPX IFATYPY IFATYPZ IFATYPZA IFATYPZB IFATYPZC IFATYPZD IFATYPZE IFATYPZF IFATYPZG IFATYPZH IFATYPZI IFATYPZJ IFATYPZK IFATYPZL IFATYPZM IFATYPZN IFATYPZO IFATYPZP IFATYPZQ IFATYPZR IFATYPZS IFATYPZT IFATYPZU IFATYPZV IFATYPZW IFATYPZX IFATYPZY IFATYPZZ IFATYPYA IFATYPYB IFATYPYC CPUWAIT0-CPUWAIT9 CPUWAITA CPUWAITB CPUWAITC CPUWAITD CPUWAITE CPUWAITF CPUWAITG CPUWAITH CPUWAITI CPUWAITJ CPUWAITK CPUWAITL CPUWAITN CPUWAITO CPUWAITP CPUWAITQ CPUWAITR CPUWAITS CPUWAITT CPUWAITU CPUWAITV CPUWAITW CPUWAITX CPUWAITY CPUWAITZ CPUWAIZA CPUWAIZB CPUWAIZC CPUWAIZD CPUWAIZE CPUWAIZF CPUWAIZG CPUWAIZH CPUWAIZI CPUWAIZJ CPUWAIZK CPUWAIZL CPUWAIZM CPUWAIZN CPUWAIZO CPUWAIZP CPUWAIZQ CPUWAIZR CPUWAIZS CPUWAIZT CPUWAIZU CPUWAIZV CPUWAIZW CPUWAIZX CPUWAIZY CPUWAIZZ CPUWAIYA CPUWAIYB CPUWAIYC IFAWAIT0-IFAWAIT9 IFAWAITA IFAWAITB IFAWAITC IFAWAITD IFAWAITE IFAWAITF IFAWAITG IFAWAITH IFAWAITI IFAWAITJ IFAWAITK IFAWAITL IFAWAITN IFAWAITO IFAWAITP IFAWAITQ IFAWAITR IFAWAITS IFAWAITT IFAWAITU IFAWAITV IFAWAITW IFAWAITX IFAWAITY IFAWAITZ IFAWAIZA IFAWAIZB IFAWAIZC IFAWAIZD IFAWAIZE IFAWAIZF IFAWAIZG IFAWAIZH IFAWAIZI IFAWAIZJ IFAWAIZK IFAWAIZL IFAWAIZM IFAWAIZN IFAWAIZO IFAWAIZP IFAWAIZQ IFAWAIZR IFAWAIZS IFAWAIZT IFAWAIZU IFAWAIZV IFAWAIZW IFAWAIZX IFAWAIZY IFAWAIZZ IFAWAIYA IFAWAIYB IFAWAIYC ZIPWAIT0-ZIPWAIT9 ZIPWAITA ZIPWAITB ZIPWAITC ZIPWAITD ZIPWAITE ZIPWAITF ZIPWAITG ZIPWAITH ZIPWAITI ZIPWAITJ ZIPWAITK ZIPWAITL ZIPWAITN ZIPWAITO ZIPWAITP ZIPWAITQ ZIPWAITR ZIPWAITS ZIPWAITT ZIPWAITU ZIPWAITV ZIPWAITW ZIPWAITX ZIPWAITY ZIPWAITZ ZIPWAIZA ZIPWAIZB ZIPWAIZC ZIPWAIZD ZIPWAIZE ZIPWAIZF ZIPWAIZG ZIPWAIZH ZIPWAIZI ZIPWAIZJ ZIPWAIZK ZIPWAIZL ZIPWAIZM ZIPWAIZN ZIPWAIZO ZIPWAIZP ZIPWAIZQ ZIPWAIZR ZIPWAIZS ZIPWAIZT ZIPWAIZU ZIPWAIZV ZIPWAIZW ZIPWAIZX ZIPWAIZY ZIPWAIZZ ZIPWAIYA ZIPWAIYB ZIPWAIYC CPUEDTM0-CPUEDTM9 CPUEDTMA CPUEDTMB CPUEDTMC CPUEDTMD CPUEDTME CPUEDTMF CPUEDTMG CPUEDTMH CPUEDTMI CPUEDTMJ CPUEDTMK CPUEDTML CPUEDTMN CPUEDTMO CPUEDTMP CPUEDTMQ CPUEDTMR CPUEDTMS CPUEDTMT CPUEDTMU CPUEDTMV CPUEDTMW CPUEDTMX CPUEDTMY CPUEDTMZ CPUEDTZA CPUEDTZB CPUEDTZC CPUEDTZD CPUEDTZE CPUEDTZF CPUEDTZG CPUEDTZH CPUEDTZI CPUEDTZJ CPUEDTZK CPUEDTZL CPUEDTZM CPUEDTZN CPUEDTZO CPUEDTZP CPUEDTZQ CPUEDTZR CPUEDTZS CPUEDTZT CPUEDTZU CPUEDTZV CPUEDTZW CPUEDTZX CPUEDTZY CPUEDTZZ CPUEDTYA CPUEDTYB CPUEDTYC CPUPDTM0-CPUPDTM9 CPUPDTMA CPUPDTMB CPUPDTMC CPUPDTMD CPUPDTME CPUPDTMF CPUPDTMG CPUPDTMH CPUPDTMI CPUPDTMJ CPUPDTMK CPUPDTML CPUPDTMN CPUPDTMO CPUPDTMP CPUPDTMQ CPUPDTMR CPUPDTMS CPUPDTMT CPUPDTMU CPUPDTMV CPUPDTMW CPUPDTMX CPUPDTMY CPUPDTMZ CPUPDTZA CPUPDTZB CPUPDTZC CPUPDTZD CPUPDTZE CPUPDTZF CPUPDTZG CPUPDTZH CPUPDTZI CPUPDTZJ CPUPDTZK CPUPDTZL CPUPDTZM CPUPDTZN CPUPDTZO CPUPDTZP CPUPDTZQ CPUPDTZR CPUPDTZS CPUPDTZT CPUPDTZU CPUPDTZV CPUPDTZW CPUPDTZX CPUPDTZY CPUPDTZZ CPUPDTYA CPUPDTYB CPUPDTYC IORATE0- IORATE9 IORATEA IORATEB IORATEC IORATED IORATEE IORATEF IORATEG IORATEH IORATEI IORATEJ IORATEK IORATEL IORATEN IORATEO IORATEP IORATEQ IORATER IORATES IORATET IORATEU IORATEV IORATEW IORATEX IORATEY IORATEZ IORATEZA IORATEZB IORATEZC IORATEZD IORATEZE IORATEZF IORATEZG IORATEZH IORATEZI IORATEZJ IORATEZK IORATEZL IORATEZM IORATEZN IORATEZO IORATEZP IORATEZQ IORATEZR IORATEZS IORATEZT IORATEZU IORATEZV IORATEZW IORATEZX IORATEZY IORATEZZ IORATEYA IORATEYB IORATEYC PCTCPBY0-PCTCPBY9 PCTCPBYA PCTCPBYB PCTCPBYC PCTCPBYD PCTCPBYE PCTCPBYF PCTCPBYG PCTCPBYH PCTCPBYI PCTCPBYJ PCTCPBYK PCTCPBYL PCTCPBYN PCTCPBYO PCTCPBYP PCTCPBYQ PCTCPBYR PCTCPBYS PCTCPBYT PCTCPBYU PCTCPBYV PCTCPBYW PCTCPBYX PCTCPBYY PCTCPBYZ PCTCPBZA PCTCPBZB PCTCPBZC PCTCPBZD PCTCPBZE PCTCPBZF PCTCPBZG PCTCPBZH PCTCPBZI PCTCPBZJ PCTCPBZK PCTCPBZL PCTCPBZM PCTCPBZN PCTCPBZO PCTCPBZP PCTCPBZQ PCTCPBZR PCTCPBZS PCTCPBZT PCTCPBZU PCTCPBZV PCTCPBZW PCTCPBZX PCTCPBZY PCTCPBZZ PCTCPBXA PCTCPBXB PCTCPBXC PCTTPI0 -PCTTPI9 PCTTPIA PCTTPIB PCTTPIC PCTTPID PCTTPIE PCTTPIF PCTTPIG PCTTPIH PCTTPII PCTTPIJ PCTTPIK PCTTPIL PCTTPIN PCTTPIO PCTTPIP PCTTPIQ PCTTPIR PCTTPIS PCTTPIT PCTTPIU PCTTPIV PCTTPIW PCTTPIX PCTTPIY PCTTPIZ PCTTPIZA PCTTPIZB PCTTPIZC PCTTPIZD PCTTPIZE PCTTPIZF PCTTPIZG PCTTPIZH PCTTPIZI PCTTPIZJ PCTTPIZK PCTTPIZL PCTTPIZM PCTTPIZN PCTTPIZO PCTTPIZP PCTTPIZQ PCTTPIZR PCTTPIZS PCTTPIZT PCTTPIZU PCTTPIZV PCTTPIZW PCTTPIZX PCTTPIZY PCTTPIZZ PCTTPIYA PCTTPIYB PCTTPIYC VFAFFTM0-VFAFFTM9 VFAFFTMA VFAFFTMB VFAFFTMC VFAFFTMD VFAFFTME VFAFFTMF VFAFFTMG VFAFFTMH VFAFFTMI VFAFFTMJ VFAFFTMK VFAFFTML VFAFFTMN VFAFFTMO VFAFFTMP VFAFFTMQ VFAFFTMR VFAFFTMS VFAFFTMT VFAFFTMU VFAFFTMV VFAFFTMW VFAFFTMX VFAFFTMY VFAFFTMZ VFAFFTZA VFAFFTZB VFAFFTZC VFAFFTZD VFAFFTZE VFAFFTZF VFAFFTZG VFAFFTZH VFAFFTZI VFAFFTZJ VFAFFTZK VFAFFTZL VFAFFTZM VFAFFTZN VFAFFTZO VFAFFTZP VFAFFTZQ VFAFFTZR VFAFFTZS VFAFFTZT VFAFFTZU VFAFFTZV VFAFFTZW VFAFFTZX VFAFFTZY VFAFFTZZ VFAFFTYA VFAFFTYB VFAFFTYC VFON0 -VFON9 VFONA VFONB VFONC VFOND VFONE VFONF VFONG VFONH VFONI VFONJ VFONK VFONL VFONN VFONO VFONP VFONQ VFONR VFONS VFONT VFONU VFONV VFONW VFONX VFONY VFONZ VFONZA VFONZB VFONZC VFONZD VFONZE VFONZF VFONZG VFONZH VFONZI VFONZJ VFONZK VFONZL VFONZM VFONZN VFONZO VFONZP VFONZQ VFONZR VFONZS VFONZT VFONZU VFONZV VFONZW VFONZX VFONZY VFONZZ VFONYA VFONYB VFONYC MVSWAIT0-MVSWAIT9 MVSWAITA MVSWAITB MVSWAITC MVSWAITD MVSWAITE MVSWAITF MVSWAITG MVSWAITH MVSWAITI MVSWAITJ MVSWAITK MVSWAITL MVSWAITN MVSWAITO MVSWAITP MVSWAITQ MVSWAITR MVSWAITS MVSWAITT MVSWAITU MVSWAITV MVSWAITW MVSWAITX MVSWAITY MVSWAITZ MVSWAIZA MVSWAIZB MVSWAIZC MVSWAIZD MVSWAIZE MVSWAIZF MVSWAIZG MVSWAIZH MVSWAIZI MVSWAIZJ MVSWAIZK MVSWAIZL MVSWAIZM MVSWAIZN MVSWAIZO MVSWAIZP MVSWAIZQ MVSWAIZR MVSWAIZS MVSWAIZT MVSWAIZU MVSWAIZV MVSWAIZW MVSWAIZX MVSWAIZY MVSWAIZZ MVSWAIYA MVSWAIYB MVSWAIYC PCTIFBY0-PCTIFBY9 PCTIFBYA PCTIFBYB PCTIFBYC PCTIFBYD PCTIFBYE PCTIFBYF PCTIFBYG PCTIFBYH PCTIFBYI PCTIFBYJ PCTIFBYK PCTIFBYL PCTIFBYN PCTIFBYO PCTIFBYP PCTIFBYQ PCTIFBYR PCTIFBYS PCTIFBYT PCTIFBYU PCTIFBYV PCTIFBYW PCTIFBYX PCTIFBYY PCTIFBYZ PCTIFBZA PCTIFBZB PCTIFBZC PCTIFBZD PCTIFBZE PCTIFBZF PCTIFBZG PCTIFBZH PCTIFBZI PCTIFBZJ PCTIFBZK PCTIFBZL PCTIFBZM PCTIFBZN PCTIFBZO PCTIFBZP PCTIFBZQ PCTIFBZR PCTIFBZS PCTIFBZT PCTIFBZU PCTIFBZV PCTIFBZW PCTIFBZX PCTIFBZY PCTIFBZZ PCTIFBXA PCTIFBXB PCTIFBXC PCTZIBY0-PCTZIBY9 PCTZIBYA PCTZIBYB PCTZIBYC PCTZIBYD PCTZIBYE PCTZIBYF PCTZIBYG PCTZIBYH PCTZIBYI PCTZIBYJ PCTZIBYK PCTZIBYL PCTZIBYN PCTZIBYO PCTZIBYP PCTZIBYQ PCTZIBYR PCTZIBYS PCTZIBYT PCTZIBYU PCTZIBYV PCTZIBYW PCTZIBYX PCTZIBYY PCTZIBYZ PCTZIBZA PCTZIBZB PCTZIBZC PCTZIBZD PCTZIBZE PCTZIBZF PCTZIBZG PCTZIBZH PCTZIBZI PCTZIBZJ PCTZIBZK PCTZIBZL PCTZIBZM PCTZIBZN PCTZIBZO PCTZIBZP PCTZIBZQ PCTZIBZR PCTZIBZS PCTZIBZT PCTZIBZU PCTZIBZV PCTZIBZW PCTZIBZX PCTZIBZY PCTZIBZZ PCTZIBXA PCTZIBXB PCTZIBXC PCTONLN0-PCTONLN9 PCTONLNA PCTONLNB PCTONLNC PCTONLND PCTONLNE PCTONLNF PCTONLNG PCTONLNH PCTONLNI PCTONLNJ PCTONLNK PCTONLNL PCTONLNN PCTONLNO PCTONLNP PCTONLNQ PCTONLNR PCTONLNS PCTONLNT PCTONLNU PCTONLNV PCTONLNW PCTONLNX PCTONLNY PCTONLNZ PCTONLZA PCTONLZB PCTONLZC PCTONLZD PCTONLZE PCTONLZF PCTONLZG PCTONLZH PCTONLZI PCTONLZJ PCTONLZK PCTONLZL PCTONLZM PCTONLZN PCTONLZO PCTONLZP PCTONLZQ PCTONLZR PCTONLZS PCTONLZT PCTONLZU PCTONLZV PCTONLZW PCTONLZX PCTONLZY PCTONLZZ PCTONLYA PCTONLYB PCTONLYC PCTCIBY0-PCTCIBY9 PCTCIBYA PCTCIBYB PCTCIBYC PCTCIBYD PCTCIBYE PCTCIBYF PCTCIBYG PCTCIBYH PCTCIBYI PCTCIBYJ PCTCIBYK PCTCIBYL PCTCIBYN PCTCIBYO PCTCIBYP PCTCIBYQ PCTCIBYR PCTCIBYS PCTCIBYT PCTCIBYU PCTCIBYV PCTCIBYW PCTCIBYX PCTCIBYY PCTCIBYZ PCTCIBZA PCTCIBZB PCTCIBZC PCTCIBZD PCTCIBZE PCTCIBZF PCTCIBZG PCTCIBZH PCTCIBZI PCTCIBZJ PCTCIBZK PCTCIBZL PCTCIBZM PCTCIBZN PCTCIBZO PCTCIBZP PCTCIBZQ PCTCIBZR PCTCIBZS PCTCIBZT PCTCIBZU PCTCIBZV PCTCIBZW PCTCIBZX PCTCIBZY PCTCIBZZ PCTCIBXA PCTCIBXB PCTCIBXC CPUPATM0-CPUPATM9 CPUPATMA CPUPATMB CPUPATMC CPUPATMD CPUPATME CPUPATMF CPUPATMG CPUPATMH CPUPATMI CPUPATMJ CPUPATMK CPUPATML CPUPATMN CPUPATMO CPUPATMP CPUPATMQ CPUPATMR CPUPATMS CPUPATMT CPUPATMU CPUPATMV CPUPATMW CPUPATMX CPUPATMY CPUPATMZ CPUPATZA CPUPATZB CPUPATZC CPUPATZD CPUPATZE CPUPATZF CPUPATZG CPUPATZH CPUPATZI CPUPATZJ CPUPATZK CPUPATZL CPUPATZM CPUPATZN CPUPATZO CPUPATZP CPUPATZQ CPUPATZR CPUPATZS CPUPATZT CPUPATZU CPUPATZV CPUPATZW CPUPATZX CPUPATZY CPUPATZZ CPUPATYA CPUPATYB CPUPATYC LCPUDED0-LCPUDED8 LCPUDED9 LCPUDEDA LCPUDEDB LCPUDEDC LCPUDEDD LCPUDEDE LCPUDEDF LCPUDEDG LCPUDEDH LCPUDEDI LCPUDEDJ LCPUDEDK LCPUDEDL LCPUDEDN LCPUDEDO LCPUDEDP LCPUDEDQ LCPUDEDR LCPUDEDS LCPUDEDT LCPUDEDU LCPUDEDV LCPUDEDW LCPUDEDX LCPUDEDY LCPUDEDZ LCPUDEZA LCPUDEZB LCPUDEZC LCPUDEZD LCPUDEZE LCPUDEZF LCPUDEZG LCPUDEZH LCPUDEZI LCPUDEZJ LCPUDEZK LCPUDEZL LCPUDEZM LCPUDEZN LCPUDEZO LCPUDEZP LCPUDEZQ LCPUDEZR LCPUDEZS LCPUDEZT LCPUDEZU LCPUDEZV LCPUDEZW LCPUDEZX LCPUDEZY LCPUDEZZ LCPUDEYA LCPUDEYB LCPUDEYC LCPUWAI0-LCPUWAI8 LCPUWAI9 LCPUWAIA LCPUWAIB LCPUWAIC LCPUWAID LCPUWAIE LCPUWAIF LCPUWAIG LCPUWAIH LCPUWAII LCPUWAIJ LCPUWAIK LCPUWAIL LCPUWAIN LCPUWAIO LCPUWAIP LCPUWAIQ LCPUWAIR LCPUWAIS LCPUWAIT LCPUWAIU LCPUWAIV LCPUWAIW LCPUWAIX LCPUWAIY LCPUWAIZ LCPUWAZA LCPUWAZB LCPUWAZC LCPUWAZD LCPUWAZE LCPUWAZF LCPUWAZG LCPUWAZH LCPUWAZI LCPUWAZJ LCPUWAZK LCPUWAZL LCPUWAZM LCPUWAZN LCPUWAZO LCPUWAZP LCPUWAZQ LCPUWAZR LCPUWAZS LCPUWAZT LCPUWAZU LCPUWAZV LCPUWAZW LCPUWAZX LCPUWAZY LCPUWAZZ LCPUWAYA LCPUWAYB LCPUWAYC /*CHANGE 36.166 ADDED FOR BUILD THEN DROP*/ CPUSERVA CPUSERVB CPUSERVC CPUSERVD CPUSERVE CPUSERVF CPUSERVG CPUSERVH CPUSERVI CPUSERYD CPUSERYE CPUSERYF CPUSERYG CPUSERYH CPUSERYI CPUSERYJ CPUSERYK CPUSERYL CPUSERYM CPUSERYN CPUSERYO CPUSERYP CPUSERYQ CPUSERYR CPUSERYS CPUSERYT CPUSERYU CPUSERYV CPUSERYW CPUSERYX CPUSERYY CPUSERYZ PCTIFBUA PCTIFBUB PCTIFBUC PCTIFBUD PCTIFBUE PCTIFBUF PCTIFBUG PCTIFBUH PCTIFBUI PCTIFBXD PCTIFBXE PCTIFBXF PCTIFBXG PCTIFBXH PCTIFBXI PCTIFBXJ PCTIFBXK PCTIFBXL PCTIFBXM PCTIFBXN PCTIFBXO PCTIFBXP PCTIFBXQ PCTIFBXR PCTIFBXS PCTIFBXT PCTIFBXU PCTIFBXV PCTIFBXW PCTIFBXX PCTIFBXY PCTIFBXZ PCTTPIVA PCTTPIVB PCTTPIVC PCTTPIVD PCTTPIVE PCTTPIVF PCTTPIVG PCTTPIVH PCTTPIVI PCTTPIYD PCTTPIYE PCTTPIYF PCTTPIYG PCTTPIYH PCTTPIYI PCTTPIYJ PCTTPIYK PCTTPIYL PCTTPIYM PCTTPIYN PCTTPIYO PCTTPIYP PCTTPIYQ PCTTPIYR PCTTPIYS PCTTPIYT PCTTPIYU PCTTPIYV PCTTPIYW PCTTPIYX PCTTPIYY PCTTPIYZ PCTZIBUA PCTZIBUB PCTZIBUC PCTZIBUD PCTZIBUE PCTZIBUF PCTZIBUG PCTZIBUH PCTZIBUI PCTZIBXD PCTZIBXE PCTZIBXF PCTZIBXG PCTZIBXH PCTZIBXI PCTZIBXJ PCTZIBXK PCTZIBXL PCTZIBXM PCTZIBXN PCTZIBXO PCTZIBXP PCTZIBXQ PCTZIBXR PCTZIBXS PCTZIBXT PCTZIBXU PCTZIBXV PCTZIBXW PCTZIBXX PCTZIBXY PCTZIBXZ VFAFFTVA VFAFFTVB VFAFFTVC VFAFFTVD VFAFFTVE VFAFFTVF VFAFFTVG VFAFFTVH VFAFFTVI VFAFFTYD VFAFFTYE VFAFFTYF VFAFFTYG VFAFFTYH VFAFFTYI VFAFFTYJ VFAFFTYK VFAFFTYL VFAFFTYM VFAFFTYN VFAFFTYO VFAFFTYP VFAFFTYQ VFAFFTYR VFAFFTYS VFAFFTYT VFAFFTYU VFAFFTYV VFAFFTYW VFAFFTYX VFAFFTYY VFAFFTYZ VFONVA VFONVB VFONVC VFONVD VFONVE VFONVF VFONVG VFONVH VFONVI VFONYD VFONYE VFONYF VFONYG VFONYH VFONYI VFONYJ VFONYK VFONYL VFONYM VFONYN VFONYO VFONYP VFONYQ VFONYR VFONYS VFONYT VFONYU VFONYV VFONYW VFONYX VFONYY VFONYZ % MACRO _70KEEP /* ALL CPU VARIABLES - NO CP-SPECIFIC */ CECSER CPCMODEL CPUACTTM CPUADJCH CPUEFFTM CPUMVSTM CPUPATTM CPUPDTTM CPUTYPE CPUUPTM CPUVERSN CPUWAITM DURATM GMTOFFTM IFAACTTM IFACPUS IFAONTTM IFAPATTM IFASHARC IFASHARE IFAUPTM IFAWAITM INAVG INMAX INMIN IORATE LIFASHAC LIFASHAR LPARNAME LPARNCA LPARNSW LPARSHAC LPARSHAR LPARWLMG LRDYAVG LRDYMAX LRDYMIN LWAITAVG LWAITMAX LWAITMIN LZIPSHAC LZIPSHAR MACHTIME MVSLEVEL MVSWAITM MXGVERSN NRCPUD NRCPUS NRIFAS NRSAMPLE NRZIPCPU PARTISHN PARTNCPU PARTNICF PARTNIFA PARTNIFL PARTNZIP PCTCPUBY PCTCPUEF NRIFACPU PCTIFABY PCTMVSBY PCTRDQWT PCTRDYWT PCTTPI PCTWUQWT PCTZIPBY PLATBUSY PLATCPUS PLCPRDYQ PRODUCT READYAVG READYMAX READYMIN RELEASE SHIFT SHORTCPS SMF70BDA SMF70CAI SMF70CCP SMF70CCR SMF70CMM SMF70CMN SMF70CPA SMF70CPA_ACTUAL SMF70CPA_RATIO SMF70CPA_SCALING_FACTOR SMF70CSC SMF70CTT SMF70DMM SMF70DMN SMF70DSA SMF70DTT SMF70EMM SMF70EMN SMF70ETT SMF70GAU SMF70GIE SMF70GJT SMF70HOF SMF70HWM SMF70ICP SMF70IFA SMF70LAC SMF70MCP SMF70MCR SMF70MPC SMF70MPR SMF70MTC SMF70MTR SMF70NCR SMF70NPR SMF70NRM SMF70NTR SMF70OIL SMF70ONT SMF70PMI SMF70PML SMF70PMP SMF70PMT SMF70PMU SMF70PMW SMF70POM SMF70SRM SMF70SUP SMF70SYN SMF70WLA SMFTIME STARTIME STFBIT03 STFBIT04 STFBIT05 STFBIT06 STFBIT07 SUAVAICH SYNCTIME SYSNAME SYSPLEX SYSTEM TOTSHARC TOTSHARE VERSNRMF VMSYSTEM ZIPACTTM ZIPCPUS ZIPONTTM ZIPPATTM ZIPSHARC ZIPSHARE ZIPUPTM ZIPWAITM %