ZINDXH ;ISC/GRK - Move out %INDEX routines for safe keeping ;2/28/91 07:18 ;
;;7.3;TOOLKIT;;Apr 25, 1995
SAVE S A="%IND",B="ZIND" D MOVE Q
RESTORE S A="ZIND",B="%IND" D MOVE Q
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
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"
Q
WINDEX S A="WIND",B="ZIND" D MOVE Q
INSTALL S A="ZIND",B="%IND" D MV2 Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HZINDXH 561 printed Nov 22, 2024@17:52:36 Page 2
ZINDXH ;ISC/GRK - Move out %INDEX routines for safe keeping ;2/28/91 07:18 ;
+1 ;;7.3;TOOLKIT;;Apr 25, 1995
SAVE SET A="%IND"
SET B="ZIND"
DO MOVE
QUIT
RESTORE SET A="ZIND"
SET B="%IND"
DO MOVE
QUIT
MOVE WRITE !,"Move ",A,"* routines to ",B,"* routines. Proceed ? "
READ X:$SELECT($GET(DTIME):DTIME,1:360)
IF X=""!("Yes,Y,y,yes"'[X)
WRITE !,"No routines moved."
QUIT
MV2 FOR J="EX","X1","X10","X11","X2","X3","X4","X5","X51","X52","X53","X6","X8","X9"
XECUTE "ZL @(A_J) W !,""Loaded "",A,J ZS @(B_J) W ?20,""Saved as "",B,J"
+1 QUIT
WINDEX SET A="WIND"
SET B="ZIND"
DO MOVE
QUIT
INSTALL SET A="ZIND"
SET B="%IND"
DO MV2
QUIT
