AFSARCH1.m

AFSARCH1 ; DSDHQW/PDW -GENERIC BACKUP/ARCHIEVE UTILITY ; [ 07/26/2006           ]

 ;;2.0v1;AFS;******;AUG 03, 1994

ENDX ;EP

 ;I $D(%DEV) S IO=%DEV X ^%ZIS("C")      ;ACR*2.1*20.03  IM16483

 I $D(%DEV) D CLOSE^%ZISH()              ;ACR*2.1*20.03  IM16483

 K AFSDELDT,AFSDSAVE,AFSFCNT,DIR,X,Y,AFSSZ,AFSI,AFSLDATE,AFSR,AFSRR,AFSX,AFSXSAVE,AFSY,AFSYY,AFSZ,AFSCMD

 ;S %FN=%FNSAV

 K %OPT Q

ABEND ;EP

 Q

JCANCEL ;EP

 U IO(0) W *7,!!,AFSERMSG,!,?10,"ENTER <RETURN> TO EXIT" S DX=$X+2,DY=$Y,%L=1,%T="A",%F="I" D ^AFSHDAT1 G ENDX

AFSARCH1  ; DSDHQW/PDW -GENERIC BACKUP/ARCHIEVE UTILITY ; [ 07/26/2006           ]

 +1       ;;2.0v1;AFS;******;AUG 03, 1994

ENDX      ;EP

 +1       ;I $D(%DEV) S IO=%DEV X ^%ZIS("C")      ;ACR*2.1*20.03  IM16483

 +2       ;ACR*2.1*20.03  IM16483

           IF $DATA(%DEV)

               DO CLOSE^%ZISH()

 +3        KILL AFSDELDT,AFSDSAVE,AFSFCNT,DIR,X,Y,AFSSZ,AFSI,AFSLDATE,AFSR,AFSRR,AFSX,AFSXSAVE,AFSY,AFSYY,AFSZ,AFSCMD

 +4       ;S %FN=%FNSAV

 +5        KILL %OPT

           QUIT 

ABEND     ;EP

 +1        QUIT 

JCANCEL   ;EP

 +1        USE IO(0)

           WRITE *7,!!,AFSERMSG,!,?10,"ENTER <RETURN> TO EXIT"

           SET DX=$X+2

           SET DY=$Y

           SET %L=1

           SET %T="A"

           SET %F="I"

           DO ^AFSHDAT1

           GOTO ENDX