KMPLOAD.m

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 ---KMPLOAD   885     printed  Apr 09, 2024@20:46:05                                                                                                                                                                                                      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