|xv$ HSCLOAD010.CB` HSCLOAD010.CBACKUP/NOASSIST/NODISMOUNT/COMMENT=VAX/VMS SPKITBLD Procedure/INTER/LOG/VERIFY $1$DIA2:[HSC.C]*.*; $1$DIA2:[HSC]HSCLOAD010.C/LABEL=(HSCLOAD)/SAVE/BLOCK=9000/GROUP=25/NOINIT/NOREWIVAX/VMS SPKITBLD Procedure BUCKLEY `Mv:<^V6.1 _DEWEY::  _$1$DIA2: V6.1 $I*[HSC.C]HSCLOADINGIVP.COM;4+, ./ 4I,- 0123KPWO536@C<7:<^89GHJ&$@sys$manager:hsc_loading_logicals.com$!I$write sys$output "defining the disk to hsc paths, this may take a while""$@hsc$loading:build_disk_cable.comI$write sys$output "path definition complete, here are the paths defined:"$!$$type hsc$loading:disk_cable_hsc.dat$!C$!DEFINE THE LENGTH OF TIME TO COLLECT DATA FOR (DELTA TIME FORMAT)$!$!G$write sys$output "This IVP waits 5 minutes while collecting disk data"$!$RUN_TIME = "0 00:05:00"$!I$! this command procedure runs hsc_loading TO PRODUCE the "best" loading $! (hsc$loading:disk_path.dat) $!2$! RUN HSC_LOADING SENDING OUTPUT TO DISK_PATH.DAT$!@$HSC_LOAD/OUTPUT=HSC$LOADING:DISK_PATH.DAT/RUNTIME="''RUN_TIME'"$!8$! TYPE OUT HSC$LOADING:DISK_PATH.DAT SO IT'S IN THE LOG$!$TYPE HSC$LOADING:DISK_PATH.DAT$!$EXIT*[HSC.C]HSCLOADINGIVP_MI.COM;1+, ./ 4IB- 0123KPWO526`j<7#:<^89GHJ&$@sys$manager:hsc_loading_logicals.com$!C$!DEFINE THE LENGTH OF TIME TO COLLECT DATA FOR (DELTA TIME FORMAT)$!$!G$write sys$output "This IVP waits 5 minutes while collecting disk data"$!$RUN_TIME = "0 00:05:00"$!I$! this command procedure runs hsc_loading TO PRODUCE the "best" loading $! (hsc$loading:disk_path.dat) $!2$! RUN HSC_LOADING SENDING OUTPUT TO DISK_PATH.DAT$!@$HSC_LOAD/OUTPUT=HSC$LOADING:DISK_PATH.DAT/RUNTIME="''RUN_TIME'"$!8$! TYPE OUT HSC$LOADING:DISK_PATH.DAT SO IT'S IN THE LOG$!$TYPE HSC$LOADING:DISK_PATH.DAT$!$EXIT*[HSC.C]HSC_LOADING_NOVPA.CLD;1+, ./ 4Q- 0123KPWO5?6>}ZW7`-:<^89GHJDEFINE VERB HSC_LOAD$ IMAGE HSC$LOADING:HSC_LOADING.EXE1QUALIFIER RUNTIME,VALUE(REQUIRED,TYPE=$DELTATIME)QQUALIFIER OUTPUT,DEFAULT,VALUE(DEFAULT="HSC$LOADING:DISK_PATH.DAT",TYPE=$OUTFILE)*[HSC.C]HSC_LOADING_NOVPA.OBJ;3+, ./ 4- 0123KPWO56spB7::<^89GHJ6 HSC_LOADING01 7-Jul-1993 11:29 7-Jul-1993 11:29DEC Fortran V6.0-1 HSC_LOADINGP6 DISK UNIT # HSC # REQ # PREFERRED PORT (A OR B)          REQ#  # DISKS= / CURRENT LOAD=   PROPOSED LOAD=   HSC_LOADINGOUTPUTRUNTIMEHSC$LOADING:DISK_CABLE_HSC.DATCurrent Device is PROGRAM RUN TIME = HSC$LOADING:MANUAL_HSC_LOADING.RPTHSC$LOADING:NEW_LOADING.RPTP'5\kz0 CLI$PRESENT@@ CLI$GET_VALUE@` CLI$GET_VALUE@ FOR$OPEN@4Dp"%(% FOR$OPEN@HH FOR$OPEN@PO[^˨ CLI$PRESENTP˸ CLI$GET_VALUEPPLIB$STOP CLI$GET_VALUEPVVVLIB$STOPXQ@aZ\l\P``Qޫ(ad\lfP`hQޫ,al\lpP`rQat\ޫ0lxP`|Qa~\lˀPޫ4`ˀQaˈ\@lˊP`ˌQaː\l˔P@`˖Qa˘\@l˜Pޫ`ˠQ aˢ\"lˤP`˨Qޫaˬ\lˮP`˰Qޫa˴\lFOR$OPENW(d(d(j۟~ FOR$READ_SFh FOR$IO_T_DSx FOR$IO_T_DSˈ FOR$IO_T_DSˀ FOR$IO_T_DSː FOR$IO_T_DSp FOR$IO_T_DS FOR$IO_END)d)d1q SYS$ASSIGNPVV~ FOR$WRITE_SL, FOR$IO_T_DSh FOR$IO_T_DS FOR$IO_ENDV84 LIB$SIGNAL1+2DXL< SYS$GETDVIWPVVVd` LIB$SIGNAL12lh SYS$DASSGNPVVVtp LIB$SIGNAL1ѫ0x LIB$SIGNAL1kԫԫԫ )dˀ LIB$CVT_DTBPVVV˔ː LIB$SIGNAL˘GET_HSC_NUMBER)dˤ LIB$CVT_DTBPVVV˸˴ LIB$SIGNAL˼GET_HSC_NUMBERXW(H[HjPЫ`(@@Hn(HHPk`HRЫb(HHPЫ`HRЫ b,( H(H(dHHPЫ`1 FOR$CLOSE~ FOR$WRITE_SL FOR$IO_T_DS$ FOR$IO_T_DS FOR$IO_END$ SYS$BINTIMVVLIB$STOP SYS$SCHDWKPPLIB$STOP SYS$HIBERPP$ LIB$STOP\V1VZ(J[( SYS$ASSIGNPP@<LIB$STOP2LXTD SYS$GETDVIWPPlhLIB$STOP2tp SYS$DASSGNPP|xLIB$STOPJRbRJTRdJPЫ`\VcZV\V1\QQWW\XHRbRWYIUeURUH[Q(apaH[PI[R(b`I[Q(paaZWV\1sZ1WT1YTUEQaQESc¹jC!)EdE\l\EP`Pď\PP\L`RbREWgWL`VWRfL`P`PL`SPc)EEL$aQaQL$aSWQc)EdE\l\EP`Pď\PP\L`RbREVfVL`ZVRjL`P`PL`SPc)EEL$aQaQL$aSVQcTW1WZJP`PP\JQaQQVJTdTTYJP`PPX)Jd(JJJYJQiaAJď\VV\LtaYiYJQaQLtaSQYcLaUeULaXUh1)Jd(JJJ\JQlaBJďYXXYIta\l\JQaQItaSQ\cIaUeUIaVUfW1ŭY)Id1IUeUIWgWIQaQIScSďUWWUVFtaP`WďQSSQXHtaUeW(I@*-O$ HSCLOAD010.C  [HSC.C]HSC_LOADING_NOVPA.OBJ;3% IIQISacAIIQaQFtaSQWcFaUeUFaRUb1W(IIIQISacBIIQaQHtaSQcHaUeUHaRUb1F`Sc\H`P`Z\Z(IIIQISacAIIQaQFtaSQWcFaUeUFaRUb1\Z(IIIZIQjaBIIZjZHtaQZaHaScSHaUSe1\)II(IIIPIR`bAIIP`PFtaRPWbFaTdTFaZTj(IIIZIPj`BIIWgWHtaPW`HaRbRHaTRdV)Ij1ZZѭ1ŭ\)IL1LP`PPWLRbRRXLTdTTZLP`PP)IL(LLLQLSacALďWXXWGtaQaQLScSGtaUSQeGaP`PGaTPd)IL(LLLWLQgaBLďZŭXXZJtaP`PLRbRJtaTRPdJaXhXJaQXaˀFOR$OPENˠFOR$OPEN FOR$WRITE_SF FOR$IO_END\1W\Z)JJ *R FOR$WRITE_SFJ[˼˸ FOR$IO_T_DSJ FOR$IO_T_DSJTd FOR$IO_L_RJ  FOR$IO_T_DS FOR$IO_ENDn FOR$WRITE_SFJ[ FOR$IO_T_DSJ FOR$IO_T_DSJUe FOR$IO_L_RJRb FOR$IO_L_R˘ FOR$IO_T_DS FOR$IO_END\ FOR$CLOSE FOR$CLOSEFOR$OPENXSXYSTYTD`VfV FOR$WRITE_SFXZJ FOR$IO_T_DSS FOR$IO_L_VDaUe FOR$IO_L_RD`Rb FOR$IO_L_RD$aZj FOR$IO_L_RDtaUe FOR$IO_L_R FOR$IO_ENDSjdXT3 FOR$CLOSEPdP  O HSC_LOADING SYS$ASSIGN SYS$BINTIM SYS$DASSGN SYS$GETDVIW SYS$HIBER SYS$SCHDWK CLI$GET_VALUE CLI$PRESENT CLI$_ABSENTLIB$STOPFOR$OPEN LIB$SIGNAL LIB$CVT_DTBGET_HSC_NUMBER FOR$CLOSEu$CODEy$PDATA$LOCAL COM$ARRAY\ HSC$ARRAY FOR$IO_END FOR$IO_L_R FOR$IO_L_V FOR$IO_T_DS FOR$READ_SF FOR$WRITE_SF FOR$WRITE_SLP#P@PP)P P:cPPPP&PP&P P%P?PaPPPPP'PtRPAPP-PPtFPiPtPPTFPuPPu<P_P}PP\= PE P^ P P] P  P_{ P PK PJ7 P7M P!d P P^ P` P P P_ P|u9GET_HSC_NUMBER01 7-Jul-1993 11:29 7-Jul-1993 11:29DEC Fortran V6.0-1GET_HSC_NUMBERGET_HSC_NUMBERPP|H[T}PQU޼VUUP)@UfUXXPPXXQ(AXf_ |HGET_HSC_NUMBERf$CODE$PDATA$LOCAL\ HSC$ARRAY-P#f*[HSC.C]MANUAL_HSC_LOADING.COM;5+,!./ 4M- 0123KPWO564C%7G:<^89GHJ$!manual_hsc_loading.com$!C$!DEFINE THE LENGTH OF TIME TO COLLECT DATA FOR (DELTA TIME FORMAT)$RUN_TIME = "0 01:00:00"$!G$! this command procedure runs hsc_loading and uses the "best" loading M$! (hsc$loading:disk_path.dat) as input to produce reports and command files.$!&$@SYS$MANAGER:HSC_LOADING_LOGICALS.COM$!F$! non vpa version of code records # i/o's to the disk, waits an hour,F$! and gets the new number of i/os and subtracts to determine the diskG$! loading. Do NOT run at lunch time or after hours at the load may not$! be "normal".$!2$! RUN HSC_LOADING SENDING OUTPUT TO DISK_PATH.DAT$!@$HSC_LOAD/OUTPUT=HSC$LOADING:DISK_PATH.DAT/RUNTIME="''RUN_TIME'"$!8$! TYPE OUT HSC$LOADING:DISK_PATH.DAT SO IT'S IN THE LOG$!$TYPE HSC$LOADING:DISK_PATH.DAT$!B$! READ IN DISK_PATH.DAT AND CREATE COMMAND PROCEDURE TO SET PATHS$!4$OPEN/err=nofile DISK_PATH HSC$LOADING:DISK_PATH.DAT($OPEN/WRITE SET HSC$LOADING:SET_PATH.COM,$OPEN/WRITE FORCE HSC$LOADING:FORCE_PATH.COM,$OPEN/WRITE CLEAR HSC$LOADING:CLEAR_PATH.COM*$WRITE CLEAR "$NODE = F$GETSYI("NODENAME") $DISK_LOOP:%$READ/END=DONE_DISK DISK_PATH DISKREC3$DISK = F$EDIT("''F$EXTRACT(1,15,DISKREC)'","TRIM")3$HOST = F$EDIT("''F$EXTRACT(18,6,DISKREC)'","TRIM"))$WRITE SET "$PREFER ''DISK'/HOST=''HOST'"1$WRITE FORCE "$PREFER ''DISK'/HOST=''HOST'/FORCE"+$WRITE CLEAR "$PREFER ''DISK'/HOST=''NODE'"$GOTO DISK_LOOP $DONE_DISK:$WRITE SET "$EXIT"$WRITE FORCE "$EXIT"$WRITE CLEAR "$EXIT"$CLOSE DISK_PATH $CLOSE SET $CLOSE FORCE $CLOSE CLEAR$! $SET NOON&$PURGE/KEEP=3 HSC$LOADING:SET_PATH.COM($PURGE/KEEP=3 HSC$LOADING:FORCE_PATH.COM($PURGE/KEEP=3 HSC$LOADING:CLEAR_PATH.COM$EXIT$nofile:+$request "error in hsc load, no data found"$exit*[HSC.C]PREFERRED_PATH.COM;4+,./ 4N- 0123KPWO 564JC%75S:<^89GHJ$! preferred_path.com$!C$!DEFINE THE LENGTH OF TIME TO COLLECT DATA FOR (DELTA TIME FORMAT)$RUN_TIME = "0 01:00:00"$!G$! this command procedure runs hsc_loading and uses the "best" loading N$! (hsc$loading:disk_path.dat) as input to set the preferred port cluster-wideN$! using sysman and prefer and then initiates a failover using prefer with the$! /force option$!&$@SYS$MANAGER:HSC_LOADING_LOGICALS.COM$!F$! non vpa version of code records # i/o's to the disk, waits an hour,F$! and gets the new number of i/os and subtracts to determine the diskG$! loading. Do NOT run at lunch time or after hours at the load may not$! be "normal".$!2$! RUN HSC_LOADING SENDING OUTPUT TO DISK_PATH.DAT$!@$HSC_LOAD/OUTPUT=HSC$LOADING:DISK_PATH.DAT/RUNTIME="''RUN_TIME'"$!8$! TYPE OUT HSC$LOADING:DISK_PATH.DAT SO IT'S IN THE LOG$!$TYPE HSC$LOADING:DISK_PATH.DAT$!B$! READ IN DISK_PATH.DAT AND CREATE COMMAND PROCEDURE TO SET PATHS$!4$OPEN/err=nofile DISK_PATH HSC$LOADING:DISK_PATH.DAT($OPEN/WRITE SET HSC$LOADING:SET_PATH.COM,$OPEN/WRITE FORCE HSC$LOADING:FORCE_PATH.COM,$OPEN/WRITE CLEAR HSC$LOADING:CLEAR_PATH.COM*$WRITE CLEAR "$NODE = F$GETSYI("NODENAME") $DISK_LOOP:%$READ/END=DONE_DISK DISK_PATH DISKREC3$DISK = F$EDIT("''F$EXTRACT(1,15,DISKREC)'","TRIM")3$HOST = F$EDIT("''F$EXTRACT(18,6,DISKREC)'","TRIM"))$WRITE SET "$PREFER ''DISK'/HOST=''HOST'"1$WRITE FORCE "$PREFER ''DISK'/HOST=''HOST'/FORCE"+$WRITE CLEAR "$PREFER ''DISK'/HOST=''NODE'"$GOTO DISK_LOOP $DONE_DISK:$WRITE SET "$EXIT"$WRITE FORCE "$EXIT"$WRITE CLEAR "$EXIT"$CLOSE DISK_PATH $CLOSE SET $CLOSE FORCE $CLOSE CLEAR:$! USE SYSMAN AND PREFER TO SET ALL OF THE PREFERRED PATHS$!L$!MAY BE CUSTOMIZED FOR YOUR ENVIRONMENT (EXCLUDE NI NODES!) AS SHOWN BELOW:$! $!$MC SYSMAN*$!SET ENVIRONMENT/NODE=(NODE1,NODE2,NODE3)$!DO @HSC$LOADING:SET_PATH.COM2$! WAIT 20 SECONDS FOR THE PREFERRED PATHS TO TAKE$!WAIT 00:00:20.00$!%$! USE PREFER/FORCE TO FORCE FAILOVER$!$!@HSC$LOADING:FORCE_PATH.COM $!$MC SYSMAN*$!SET ENVIRONMENT/NODE=(NODE1,NODE2,NODE3) $!DO @HSC$LOADING:CLEAR_PATH.COM $!CLEAN UP$!$! $MC SYSMANSET ENVIRONMENT/CLUSTERDO @HSC$LOADING:SET_PATH.COM2$! WAIT 20 SECONDS FOR THE PREFERRED PATHS TO TAKE$WAIT 00:00:20.00$!%$! USE PREFER/FORCE TO FORCE FAILOVER$!$@HSC$LOADING:FORCE_PATH.COM$WAIT 00:00:20.00 $MC SYSMANSET ENVIRONMENT/CLUSTERDO @HSC$LOADING:CLEAR_PATH.COM $!CLEAN UP$! $SET NOON $PURGE/KEEP=3 PREFERRED_PATH.LOG&$PURGE/KEEP=3 HSC$LOADING:SET_PAE+$ HSCLOAD010.C SC.C]PREFERRED_PATH.COM;4N 6TH.COM($PURGE/KEEP=3 HSC$LOADING:FORCE_PATH.COM($PURGE/KEEP=3 HSC$LOADING:CLEAR_PATH.COM$EXIT$nofile:+$request "error in hsc load, no data found"$exit ){$ HSCLOAD010.CL   xctvJ;3@`  VI_nPg<xk`CoYnw]Ob(_LvXTp|-9WpCiBIzcTTHxOck[[Y,LL.%b"&*E_gaR3,bSDmbVQ>g9((4Hfx¤; uQ*uNMK}N'fIO0 ,98/je$MAUW W# <ޚI YOcM& HaaAI g? 6|paPQEjME$gBa|Uo1$\T(IIIZIPpa]@.A BLAU< 9ZQZgd}kRgSHaUCe0 5 J\)KH(IIIPORicAKϞI P`PGFaRPWbF*+d~f6^NTozIޛ۪߬Pj"xugAWgWHtaPW`HaBcRHETV- Ij1&Aލ)7̞ʕb9h]lsqj_g_mʙls.?FbKm7tCitl#% "l7 <(Q;Ԛ'C 4 ss39 $($d$&!×)`er$Ü<Ǒ?2%Ȏ5Eafmqe 2h7<3-2)!L6>P@p"5x-.LA_#CNE_!鱴Sܨ"TA rbHɠ&! FkscOt2M&<6 !!``if6y0K?/-'#"op(dd0'i@&15}VCLqd,R^ meneld!'8:;vvy}CBwdT%6(t`%:bG<9"1os(pz),7@:" nsbfs*$:!{?&&*("f7\O+ `0<'!5je}3gt3'2'6 2mBZR%6((a5,vH,-+:+g9ie_pdP+a $t*{$!4$teHN#RLOG`aEMH"O\paaIP^ CTH' &AvsY%_[CU `f U*@SIbe  eHDC_Z  c OCAMN{mu D0* bnj$vdH!X]T, |E^[KSlye lI&Q.IN7_.LOdR*/d^J HBtfCKIN;]D_PLV~NTat$EKPP&PP&P P%P?PaPPPPP'PtRPAPP-PPtFPiPtPPTFPuPPu<P_P}PP\= PE P^ P P] P  P_{ P PK PJ7 P7M P!d P P^ P` P P P_ P|u9GET_HS_MUMBER01 7-Jum,/93{ybyz}~ * bp}p}gnudiA:CLEtA mosvtaB ?/0,1+/WEU_hSw_LWBERGET_HSC_NUMBCRP01P|H1[OTPQ޼ VNPUR)3@1*:oZ Uo -b>Bd9XPX:X\[Q) |Xb_ hHJ sm ]NLAF$# /MAG@ aLLDING:Nw DJF&EXE7$ FJS|PUN](ZES[IRhRzP@3GITCFSTNHIT6UT,EFCUOTөALUE(DEFAULT="HSC$LOADING:DISK_PATH.DAT",TYPE=$OUTFILE)*[HSC.C]MANUAL_HSC_LOADING.COM;5+,!./ 4M- 0123K~z[IS.CYHCZLOAFI{GQNGVfA{\x#6k:T <.') 4GRJ- &!]anclnhsc^l]admnT.com$jC[ DFIOEwTHA E_GTH"Os CIEET0?C\ sAT|s (LEtTA TIME FGRtAT)$RUJ_I]E!=""x 80z:O"$3C$! tiis commWnd prkh-76-)o31'=gjCR[B+CVX]DDIWJCE/UNOTJM]^[VPzg  EgfGEO7RG^J qivMauh.dj?o(*9;3 o"~sod%v!gjcngr`!tlw!vi~ltlw!sfhjEDKSosNmszsm gfrhlladi lam*An f anN5ycVpt|kON8mi&CODERpbk}eS5,/kO2u/vOljjeIkc9!snkTS5ga&H=0#f&.AMDd.6? Tpg/oJo"azM!0 r*(tIc 2d\N|)|eB$ .3; e0Ol+$0XRu`jr qwdgskG*A?,>(&/#gnoMMo'!>u5tr9;:*%et!>&#=a%/:"Hd!<>-0a#8e+ 6cB+ 0 . R  KeRHjEIQN? "&>cc PUjfIid)ous w  t acnarS eoGoW{j}T@WTSCtVAJH^E:XSKDfTF/TCTUNOBE3#7%R _TRJ',&!S$!_PK!_WTZSC?IAJH^E:SKDCTF/TCTO R%S.H^"T LT* $PE;UC*M@@DN\EISKORAd.DNU)*LmYnN#D HYPOUG/DT;MD CBGA C@LMNI-g aeSFT`KQVH$:$$EN4sr=nofilb JH\J_AO#HSC4NO!INH;DSFR li ~AhEM/IYVEET;XQCOA_OG:SET_P_TF/LNM?WEN/VPHTK'FOBAESC+MODDFukRBT5@L-"MdE].VRQUG GLEAB"H$LTQFI:CWAR_PATH.QOC+%WRHO!CLEAR ",NODE = F$GETSYI("NODENAME") $DISK_MOOP:%%READ/ENE=DONE_DHSK HSK\PATJ DICIR34FI =;%EDIT("'%F$EHVRIT(*<35ISPFC)' ,"TBKM34JO =;%EDIT("'%F$EHVRQT(*(.6ISPDC)'#.#TAIC#&)%LITK!SET "$^SEFER"''DYQKWHOHD?'OSO#1$WRIPE FORCE "$PBGF ' inNpn%e"e1#;.+t7%"l9*}pnptouf(kB!Sp*(u4' CLI$GET_VALUEPVVVLIB$STOPXQ@aZ\l\P``Qޫ(ad\lfP`hQޫ,al\lpP`rQat\ޫ0lxP`|Qa~\lˀPޫ4`ˀQaˈ\@lˊP`ˌQaː\l˔P@`˖Qa˘\@l˜Pޫ`ˠQ aˢ\"lˤPp`˨Qޫaˬ\wᮥUNݰN$ڔB;4 FdR%MVEbfW (K ;fO(T۟~GOR$PEqD_Dʟh2 FKRIO_T_FSW`yQ GO$IK__MS˽ pOqD[͟˵S=^FGRIO_T_DS˩ FOR$MOTODRps O[IO_T_DS FNR$IO_ENQ&ۘjgesyMpHrlnmd3@1U޾^HNOs aaT՟vM"*!CC gr s ShDUA+ai 5LTNTairvodc-0::vmP$mnEje*1$WGWE O !#FERubF~ZOtN0''&=RJdԲAF &Sнװ޿ױ ""GGBGEFJݵMPL_G$ٲ ]OӽKWUP"R"#˲ZK &VVFϬMQ"!˭ZK &VΩ %ZJ @NzCe\J_4@HLt,ʰGORP#XRdG.߾w4 @p% @sICyTV l2u-Qme8߽0}IJE "NNJO% @xMUDJ I߾1*vDZwv'l3`t@S-dC W=`$%`k%zVuB_#@A$P@;D\PJ._Y11$!Vۅ20 AMD<@|KEEN1A#TWF@uj>3:,bN`RX 'o'!I\D 4SYWR@\@EHjHLRY GOOYYJ*"8:" JJN&D_PLx@P@]iYJ QEl-2Q}B $* N<}&~DE0-gIK1,SKD3M!3Dg& FPCP JJN&OQ_] AN 8) ޯ $ச$MW^'$:@NEH4 t}0m _ xNT$ VYW "SYNVLRJE