@echo off
c:
cd \dbarch\tool
set hugo=x%pathdhs3mao%
if "%hugo%" == "x" goto holihn
goto habihn
:holihn
cls
echo          ������������������������������������������������������������Ŀ
echo          �Achtung das MAO Verzeichnis ist undefiniert:                �
echo          �Sie k�nnen ihr MAO Verzeichnis nun eingeben                 �
echo          �                                                            �
echo          �zB. c:\dhs3xx                                               �
echo          ��������������������������������������������������������������
echo .
what s "MAO Pfad eingeben: "
set PATHDHS3MAO=%what%
:habihn
set hugo=
cls
echo         �������������������������������������������������������������Ŀ
echo         � ALCATEL 4400 Database-Management 2.2.dhs3x  by L. Heged�s   �
echo         �                                                             �
echo         �                                                             �
echo         �    Aktuelle Datenbasis archiviern ............ A            �
echo         �      (von CQL_MAO nach ARCH)                                �
echo         �    Archivierte Datenbasis entarchivieren ..... E            �
echo         �      (von ARCH nach CQL_MAO)                                �
echo         �                                                             �
echo         �                                                             �
echo         �    Quit ...................................... Q            �
echo         �                                                             �
echo         �                                                             �
echo         �                                                             �
echo         ���������������������������������������������������������������
echo .
echo         ��������������������������������������������������������������
echo           Datenbasis Verzeichnis:  %PATHDHS3MAO%\CQL_MAO
echo           Archiv Verzeichnis    :  C:\DBARCH\DB
echo         ��������������������������������������������������������������
echo .
what ce "Bitte w�hlen Sie aus (A,E,Q): " AEQ
echo %WHAT%
echo.
if "%WHAT%" == "Q" goto end
if "%WHAT%" == "E" goto entarch
echo .
if exist %PATHDHS3MAO%\cql_mao\*.bd goto weiter
echo .
echo Es ist keine Datenbasis zu archivieren vorhanden!!!!!!!!
goto end
:weiter
echo .
what s "geben Sie einen ARCHIVNAMEN an (zB. mydb.928): "
if exist c:\dbarch\DB\%what% goto gibts
goto arch
:gibts
dir/w C:\dbarch\DB\*.*
echo .
echo Der Name existiert bereits
echo .
what s "geben Sie einen ARCHIVNAMEN an (zB. mydb.928): "
if exist c:\dbarch\DB\%what% goto end
:arch
pkzip c:\dbarch\DB\%what% -rp %PATHDHS3MAO%\cql_mao\*.*
what ce "Wollen Sie die Datenbasis in CQL_MAO l�schen (J,N): " JN
echo %what%
if "%WHAT%" == "N" goto end
del %PATHDHS3MAO%\cql_mao\*.bd
del %PATHDHS3MAO%\cql_mao\tmp\*.ls*
del %PATHDHS3MAO%\cql_mao\tmp\*.put
del %PATHDHS3MAO%\cql_mao\tmp\*.trs
copy C:\dbarch\default\DB\*.* %PATHDHS3MAO%\CQL_MAO\TMP\*.*  >NUL
goto end
:entarch
echo .
dir /w/p c:\dbarch\DB\*.*
echo %what%
what s "geben Sie einen ARCHIVNAMEN an: "
set fname=%what%
if exist c:\dbarch\DB\%fname% goto machs
echo .
echo Archivenamen nicht gefunden!!!
goto end
:machs
if exist %PATHDHS3MAO%\cql_mao\*.bd goto error
pkunzip -do c:\dbarch\DB\%fname% %PATHDHS3MAO%\cql_mao
set fname=
goto end
:error
echo WARNUNG: Im CQL_MAO befindet sich eine unkomprimierte Datenbasis!!!
echo          Falls diese noch ben�tigt wird dr�cken Sie "N" und starten
echo          das Programm neu um diese zu archivieren.
echo.
what ce "Wollen Sie die Datenbasis in CQL_MAO l�schen (J,N): " JN
echo %what%
if "%WHAT%" == "N" goto end
del %PATHDHS3MAO%\cql_mao\*.bd
del %PATHDHS3MAO%\cql_mao\tmp\*.ls*
del %PATHDHS3MAO%\cql_mao\tmp\*.put
del %PATHDHS3MAO%\cql_mao\tmp\*.trs
copy C:\dbarch\default\DB\*.* %PATHDHS3MAO%\CQL_MAO\TMP\*.* >NUL
pkunzip -do c:\dbarch\DB\%fname% %PATHDHS3MAO%\cql_mao\
set fname=
:end
pause