KMPLOAD ;SF/KAK - Manager UCI Loader Routine ;16 JUL 1998 3:35 pm
;;1.0;CAPACITY MANAGEMENT;;Jul 21, 1998
EN ;
S:'$D(DTIME) DTIME=120 S X=""
I '$D(^%ZOSF("OS")) D Q:X=""!(X="^") G:X'?1N!(X<1)!(X>3) EN S X=$S(X=1:"O",X=2:"V",X=3:"M",1:"ERR") G:X="ERR" ERR G START
.W !,"What is the operating system:",!,?3,"1. OpenM-NT",!,?3,"2. VMS",!,?3,"3. MSM",!,"Choose (1-3): "
.R X:DTIME
S X1=$P(^%ZOSF("OS"),"^") S X=$S(X1["VAX DSM":"V",X1="OpenM-NT":"O",X1["MSM":"M",1:"ERR") G:X="ERR" ERR
START ;
S KMPLD="ZOSVKR"_X,KMPSV="%ZOSVKR" D MOVE
S KMPLD="ZOSVKS"_X_"E",KMPSV="%ZOSVKSE" D MOVE
S KMPLD="ZOSVKS"_X_"S",KMPSV="%ZOSVKSS" D MOVE
END ;
W !!,"Finished",!
K KMP1,KMP2,KMP3,KMPDL,KMPLD,KMPSV,X,X1
Q
MOVE ;
W !,"Loading ",KMPLD X "ZL @KMPLD ZS @KMPSV" W ?20,"Saved as ",KMPSV
Q
ERR ;
W !,"SAGG Program for this environment is NOT implemented !",*7,!
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HKMPLOAD 885 printed Dec 13, 2024@01:41:27 Page 2
KMPLOAD ;SF/KAK - Manager UCI Loader Routine ;16 JUL 1998 3:35 pm
+1 ;;1.0;CAPACITY MANAGEMENT;;Jul 21, 1998
EN ;
+1 if '$DATA(DTIME)
SET DTIME=120
SET X=""
+2 IF '$DATA(^%ZOSF("OS"))
Begin DoDot:1
+3 WRITE !,"What is the operating system:",!,?3,"1. OpenM-NT",!,?3,"2. VMS",!,?3,"3. MSM",!,"Choose (1-3): "
+4 READ X:DTIME
End DoDot:1
if X=""!(X="^")
QUIT
if X'?1N!(X<1)!(X>3)
GOTO EN
SET X=$SELECT(X=1:"O",X=2:"V",X=3:"M",1:"ERR")
if X="ERR"
GOTO ERR
GOTO START
+5 SET X1=$PIECE(^%ZOSF("OS"),"^")
SET X=$SELECT(X1["VAX DSM":"V",X1="OpenM-NT":"O",X1["MSM":"M",1:"ERR")
if X="ERR"
GOTO ERR
START ;
+1 SET KMPLD="ZOSVKR"_X
SET KMPSV="%ZOSVKR"
DO MOVE
+2 SET KMPLD="ZOSVKS"_X_"E"
SET KMPSV="%ZOSVKSE"
DO MOVE
+3 SET KMPLD="ZOSVKS"_X_"S"
SET KMPSV="%ZOSVKSS"
DO MOVE
END ;
+1 WRITE !!,"Finished",!
+2 KILL KMP1,KMP2,KMP3,KMPDL,KMPLD,KMPSV,X,X1
+3 QUIT
MOVE ;
+1 WRITE !,"Loading ",KMPLD
XECUTE "ZL @KMPLD ZS @KMPSV"
WRITE ?20,"Saved as ",KMPSV
+2 QUIT
ERR ;
+1 WRITE !,"SAGG Program for this environment is NOT implemented !",*7,!
+2 QUIT
