source: WorldVistAEHR/trunk/r/CAPACITY_MANAGEMENT_TOOLS-KMPD-KMPL/KMPLOAD.m@ 1000

Last change on this file since 1000 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 863 bytes
Line 
1KMPLOAD ;SF/KAK - Manager UCI Loader Routine ;16 JUL 1998 3:35 pm
2 ;;1.0;CAPACITY MANAGEMENT;;Jul 21, 1998
3EN ;
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
9START ;
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
13END ;
14 W !!,"Finished",!
15 K KMP1,KMP2,KMP3,KMPDL,KMPLD,KMPSV,X,X1
16 Q
17MOVE ;
18 W !,"Loading ",KMPLD X "ZL @KMPLD ZS @KMPSV" W ?20,"Saved as ",KMPSV
19 Q
20ERR ;
21 W !,"SAGG Program for this environment is NOT implemented !",*7,!
22 Q
Note: See TracBrowser for help on using the repository browser.