| 1 | KMPLOAD ;SF/KAK - Manager UCI Loader Routine ;16 JUL 1998 3:35 pm
|
|---|
| 2 | ;;1.0;CAPACITY MANAGEMENT;;Jul 21, 1998
|
|---|
| 3 | EN ;
|
|---|
| 4 | S:'$D(DTIME) DTIME=120 S X=""
|
|---|
| 5 | 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
|
|---|
| 6 | .W !,"What is the operating system:",!,?3,"1. OpenM-NT",!,?3,"2. VMS",!,?3,"3. MSM",!,"Choose (1-3): "
|
|---|
| 7 | .R X:DTIME
|
|---|
| 8 | 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
|
|---|
| 9 | START ;
|
|---|
| 10 | S KMPLD="ZOSVKR"_X,KMPSV="%ZOSVKR" D MOVE
|
|---|
| 11 | S KMPLD="ZOSVKS"_X_"E",KMPSV="%ZOSVKSE" D MOVE
|
|---|
| 12 | S KMPLD="ZOSVKS"_X_"S",KMPSV="%ZOSVKSS" D MOVE
|
|---|
| 13 | END ;
|
|---|
| 14 | W !!,"Finished",!
|
|---|
| 15 | K KMP1,KMP2,KMP3,KMPDL,KMPLD,KMPSV,X,X1
|
|---|
| 16 | Q
|
|---|
| 17 | MOVE ;
|
|---|
| 18 | W !,"Loading ",KMPLD X "ZL @KMPLD ZS @KMPSV" W ?20,"Saved as ",KMPSV
|
|---|
| 19 | Q
|
|---|
| 20 | ERR ;
|
|---|
| 21 | W !,"SAGG Program for this environment is NOT implemented !",*7,!
|
|---|
| 22 | Q
|
|---|
