| [613] | 1 | ZINDXH ;ISC/GRK - Move out %INDEX routines for safe keeping ;2/28/91 07:18 ;
|
|---|
| 2 | ;;7.3;TOOLKIT;;Apr 25, 1995
|
|---|
| 3 | SAVE S A="%IND",B="ZIND" D MOVE Q
|
|---|
| 4 | RESTORE S A="ZIND",B="%IND" D MOVE Q
|
|---|
| 5 | MOVE W !,"Move ",A,"* routines to ",B,"* routines. Proceed ? " R X:$S($G(DTIME):DTIME,1:360) I X=""!("Yes,Y,y,yes"'[X) W !,"No routines moved." Q
|
|---|
| 6 | MV2 F J="EX","X1","X10","X11","X2","X3","X4","X5","X51","X52","X53","X6","X8","X9" X "ZL @(A_J) W !,""Loaded "",A,J ZS @(B_J) W ?20,""Saved as "",B,J"
|
|---|
| 7 | Q
|
|---|
| 8 | WINDEX S A="WIND",B="ZIND" D MOVE Q
|
|---|
| 9 | INSTALL S A="ZIND",B="%IND" D MV2 Q
|
|---|
