KMPSLOAD.m

KMPSLOAD ;SF/KAK - Manager UCI Loader Routine ;14 OCT 92 4:30 pm

 ;;1.8;SAGG PROJECT;;Jun 16, 1998

CLEAN ;

 F KMPS1="A1B5","%A1B5" F KMPS2="GE","GS" F KMPS3="I","M","P","V" S KMPSDL=KMPS1_KMPS2_KMPS3 D DEL

 S KMPSDL="A1B5LOAD" D DEL

 ;

END ;

 W !!,"Finished",!

 K KMPS1,KMPS2,KMPS3,KMPSDL

 Q

DEL ;

 S X=KMPSDL X ^%ZOSF("TEST") Q:'$T

 W !,"Deleting ",X X ^%ZOSF("DEL")

 Q

KMPSLOAD  ;SF/KAK - Manager UCI Loader Routine ;14 OCT 92 4:30 pm

 +1       ;;1.8;SAGG PROJECT;;Jun 16, 1998

CLEAN     ;

 +1        FOR KMPS1="A1B5","%A1B5"

               FOR KMPS2="GE","GS"

                   FOR KMPS3="I","M","P","V"

                       SET KMPSDL=KMPS1_KMPS2_KMPS3

                       DO DEL

 +2        SET KMPSDL="A1B5LOAD"

           DO DEL

 +3       ;

END       ;

 +1        WRITE !!,"Finished",!

 +2        KILL KMPS1,KMPS2,KMPS3,KMPSDL

 +3        QUIT 

DEL       ;

 +1        SET X=KMPSDL

           XECUTE ^%ZOSF("TEST")

           IF '$TEST

               QUIT 

 +2        WRITE !,"Deleting ",X

           XECUTE ^%ZOSF("DEL")

 +3        QUIT