Routine: ZOSV2MSM

%ZOSV2 ;CLKS/SO MSM - JOB OUT RTHISTJB - MUST BE IN MGR UCI ;02/10/95  10:38

 ;;8.0;KERNEL;;JUL 03, 1995

START Q

RTHSTOP Q

RTH ;FROM TASKMAN DRIVER 'XUCSTM'

 ; Fire Up RTHISTJB & Begin Data Collection

 S:$D(^RTHIST)'=11 ^RTHIST=0

 S ^RTHIST=^RTHIST+1,IRN=^RTHIST

 ; Set RTHIST job parameters

 S XUCSDUR=3600 ;rthist duration 1 hr.

 S XUCSRI=3600 ;rthist report interval 1 HR.

 S XUCSCDI=300 ;rthist cpu/disk report interval 5 min.

 I $ZV'["MSM-PC" S XUCSCDI=300 ;=PARAM("CPUTIL")

 S XUCSRDES="XUCS C.M. Tasked RTHIST" ;rthist report description

 S XUCSDAT=$P($H,","),XUCSTIM=$P($H,",",2) ; Use Node's Current Date/Time

 S ^RTHIST(IRN)=XUCSDAT_"^"_XUCSTIM_"^"_XUCSRI_"^"_XUCSRDES_"^"_XUCSDUR_"^"_XUCSCDI_"^"_XUCSTBS

RTHCHK ; Check for and remove IN PROGRESS & SUBMITTED - RTHIST's

 ; See Routine: RTHIST

 ; Line: READ+3, OPT=4

 ; Line: TERM:TP+6, OPT=2 & OPT=4

 ; OPT=2 see lines: SAVE:SAVE+3

 ; OPT=4 see lines: TERM2:DISCARD+3

INPROG I $D(^RTHIST("IN PROGRESS")) D

 . S XIRN=^RTHIST("IN PROGRESS")

 . S ^RTHIST(XIRN,"STOP")="SAVE FIRST" ; RTHIST, SAVE+3

 . F  H 1 Q:'$V(53,-5)  ; RTHIST, SAVE+4

 . ;$V(53,-5)>0  if ^RTHISTJB is running

 . I $D(^RTHIST("IN PROGRESS")),'$V(53,-5) K ^RTHIST("IN PROGRESS")

. Q

 K XIRN

SUBMIT I $D(^RTHIST("SUBMITTED")) D

 . S XIRN=0 F  S XIRN=$O(^RTHIST("SUBMITTED",XIRN)) Q:XIRN=""  S XUCSX=^RTHIST(XIRN) D

 .. I ($P(XUCSX,"^")<XUCSDAT!($P(XUCSX,"^")>XUCSDAT)) K XUCSX Q  ;not today

 .. S XUCSX1=XUCSTIM+XUCSDUR

 .. I $P(XUCSX,"^",2)>XUCSX1 K XUCSX,XUCSX1 Q  ;start time after me

 .. S ^RTHIST(XIRN,"STOP")="IMMEDIATELY" ; RTHIST, DISCARD+3

 .. F  H 1 Q:'$V(53,-5)  ;RTHIST, DISCARD+4

 .. K XUCSX,XUCSX1

 .. Q

 . K XIRN

. Q

RTHCLEAN ; Clean Up Any 'Old' XUCS ^RTHIST Nodes

 I '$D(^RTHIST("IN PROGRESS")),'$V(53,-5) DO

 . S XUCSIRN=0 F  S XUCSIRN=$O(^RTHIST(+XUCSIRN)) Q:'XUCSIRN  S XUCSIRNX=^(+XUCSIRN) DO

 .. I (($P($H,",")-$P(XUCSIRNX,"^"))>0),$E($P(XUCSIRNX,"^",4),1,4)="XUCS" K ^RTHIST(+XUCSIRN)

 .. Q

 . K XUCSIRN,XUCSIRNX

. Q

 S XUCSJOB="J ^RTHISTJB(IRN,^RTHIST(IRN))::0" X XUCSJOB I '$T Q

 S ^RTHIST("SUBMITTED",IRN)=""

 K XUCSJOB

 D AMPM

PART2 ; Get RTHIST's IN PROGRESS Node - Report Number

 K XUCSEND F  H 10 Q:$D(XUCSEND)  I $D(^RTHIST("IN PROGRESS")) D

 . S XUCSRN=^RTHIST("IN PROGRESS"),^%ZRTL("XUCS",XUCSVG,XUCSAP,"TRANSFER-STATUS")="P1"_"^"_XUCSSDT_"^"_XUCSRN,XUCSEND=1

 . S XUCSX="" F I=1:1 S XUCSXX=$T(CONFIG+I) Q:$P(XUCSXX,";",3)="END TEXT"  I $P(XUCSXX,";",4),$P(XUCSXX,";",5) S XUCSX=XUCSX_$V($P(XUCSXX,";",4),-4,$P(XUCSXX,";",5))_"~"

 . S ^%ZRTL("XUCS","ZZZ","SYS-CONFIG",XUCSVG)=XUCSX

 . K XUCSX,XUCSXX

. Q

 D CLEAN

 Q  ; End of RTHIST Run For This Node

PART4 ; Move RTHIST(IRN Nodes To %ZRTL

 D AMPM

 I $D(^RTHIST(XUCSRN,"MESSAGE")) S ^%ZRTL("XUCS",XUCSVG,XUCSAP,"TRANSFER-STATUS")="P4^"_$TR($E(^RTHIST(XUCSRN,"MESSAGE"),1,65),"^","~") D CLEAN Q

 I '$D(^RTHIST(XUCSRN,1,0)),'$D(^(1)) DO  D CLEAN Q

 . S $P(^%ZRTL("XUCS",XUCSVG,XUCSAP,"TRANSFER-STATUS"),"^")="P3"

 . I '$D(^RTHIST("IN PROGRESS")) K ^RTHIST(XUCSRN)

 . I $D(^RTHIST("IN PROGRESS")),^RTHIST("IN PROGRESS")=XUCSRN K ^RTHIST("IN PROGRESS"),^RTHIST(XUCSRN)

. Q

 S ^%ZRTL("XUCS",XUCSVG,XUCSAP,XUCSRN)=^RTHIST(XUCSRN)

 S XUCSQ="""",%X="^RTHIST("_XUCSRN_","

 S %Y="^%ZRTL(""XUCS"","_XUCSQ_XUCSVG_XUCSQ_","_XUCSQ_XUCSAP_XUCSQ_","_XUCSRN_","

 D %XY^%RCR

 S $P(^%ZRTL("XUCS",XUCSVG,XUCSAP,"TRANSFER-STATUS"),"^")="P2"

 I '$D(^RTHIST("IN PROGRESS")) K ^RTHIST(XUCSRN)

 ;$V(53,-5)>0  if ^RTHISTJB is running

 I $D(^RTHIST("IN PROGRESS")),'$V(53,-5) K ^RTHIST(XUCSRN)

 D CLEAN

CLEAN ; Kill XUCS* Local Variables

 K IRN,XUCSCDI,XUCSDAT,XUCSDUR,XUCSEND,XUCSJOB,XUCSQ,XUCSRDES,XUCSRI,XUCSRN,XUCSSDT,XUCSTBS,XUCSTM,XUCSVG

AMPM ; XUCSSDT = AM or PM?

 S XUCSAP=$S($E($P(XUCSSDT,".",2),1,2)<12:"AM",1:"PM")

TI() ; Get MSM Tic Interval

 Q $V(284,-4,1)

OS() ; Get Operating system and Version Number

 Q $P($ZV," ")_"^"_+$P($ZV," ",3)

CONFIG ;

 ;;Buffer Cache Size;116;4;W " Buffers"

 ;;Disk I/O Threshholds;;

 ;;    Begin Burst Flush;74;2;

 ;;    Stop Burst Flush;72;2;

 ;;    Flush Panic Level;308;4;

 ;;    Flush Interval (sec);76;2;

 ;;    Flush Quantity;300;4;

 ;;    I/O Capacity (iolevel);72;2;

 ;;    I/O Flush level (fllevel);74;2;

 ;;Dasd I/O Delay;134;2;

 ;;Dasd Fsync;156;2;

 ;;Term I/O Delay;136;2;

 ;;Maximum Partitions;34;2;

 ;;Maximum Concurrent Partitions;94;2;

 ;;Dispatch Parameters;;

 ;;    Slice Size;144;2;

 ;;    RunQ Slice;146;2;

 ;;    Q1 -> Q2 threshhold;148;4;

 ;;    Q2 -> Q3 Threshhold;152;4;

 ;;STAP Size;96;2;W " (=",$V(96,-4,2)\1024,"K)"

 ;;STACK Size;98;2;W " (=",$V(98,-4,2)\1024,"K)"

 ;;END TEXT

ZOSV2MSM.m