@echo off

rem s - останов по ошибке
rem t - ; символ завершения
rem v - эхо команд
rem w - отображать предупреждения SQL

rem SET DB2OPTIONS=-stvw
SET DB2OPTIONS=-tvw

if "%1" == "" goto Error

if EXIST % 1  goto cont1

SET LOG=% 1 .out
SET SCRIPTNAME=% 1 .cpl
goto cont2

:cont1

SET LOG=% 1 .out
SET SCRIPTNAME=% 1 

:cont2

if NOT EXIST %SCRIPTNAME% goto Error

erase %LOG% >nul  2 >nul
db2cmd /c /w /i db2 -f %SCRIPTNAME% -z %LOG% >nul

goto exec%ERRORLEVEL%

echo rc = %ERRORLEVEL% >>%LOG%
goto LogView

:exec0
echo rc =  0  : DB2 command or SQL statement executed successfully >>%LOG%
goto LogView

:exec1
echo rc =  1  : SELECT or FETCH statement returned no rows >>%LOG%
goto LogView

:exec2
echo rc =  2  : DB2 command or SQL statement warning >>%LOG%
goto LogView

:exec3
echo rc =  1  _and_  2  : NoRows _and_ DB2 command or SQL statement warning >>%LOG%
goto LogView

:exec4
echo rc =  4  : DB2 command or SQL statement error >>%LOG%
goto LogView

:exec5
echo rc =  1  _and_  4  : No Rows _and_ DB2 command or SQL statement error >>%LOG%
goto LogView

:exec6
echo rc =  2  _and_  4  : DB2 command or SQL statement warning _and_ DB2 command or SQL statement error >>%LOG%
goto LogView

:exec7
echo rc =  1  _and_  2  _and_  4  : No Rows _and_ DB2 command or SQL statement warning _and_ DB2 command or SQL statement error >>%LOG%
goto LogView

:exec8
echo rc =  8  : Command line processor system error >>%LOG%

:LogView
"%FARHOME%\Far.exe" -v %LOG%

goto :EOF

:Error
echo Use: ExecScript.cmd Name.ext

:EOF

CONNECT TO MYBASE;

SELECT * FROM SCH.MAINTABLE;

SELECT ID AS "Идентификатор",
           RTRIM(NAME) AS "Название"
  FROM SCH.SPRAV
ORDER BY NAME;

CONNECT RESET;