Помогите пожалуйста с этим cmdшником!
Он работает на операционке OS/2 Warp, но не работает на Windows XP!!!
Вот сам cmdшник
/* Файл Rexx */
'@ECHO OFF'
Call RxFuncAdd 'SysLoadFuncs', 'RexxUtil', 'SysLoadFuncs'
Call SysLoadFuncs /* Загружаем все функции Rexx */
Call SysCls /* Очищаем экран */
Ds = Date(S) /* Опрашиваем текущую дату */
Tl = Time(L) /* Опрашиваем текущее время*/
Say Ds
Say Tl
Say ' Ожидаем приблизительно 1.5 часа для окончания текущего дня'
Call SysSleep 5400 /*Ожидание в секундах*/
Path_Temp = "E:\ArhivTax\DetalTax\TempTts"
'CD 'Path_Temp /*Делаем текущей директорией временный*/
/* ------------------------------------------------------------------------ */
/* Обработка тарификации АТС-335/337 */
/* ------------------------------------------------------------------------ */
Say
Say ' Обработка тарификации ЭАТС-335/337'
File_MU321_ucA = "W:\BANDS\ARCHIVE\DATA_TAX\"DelStr(Ds,1,4)"????.tts"
File_MU321_ucB = "X:\BANDS\ARCHIVE\DATA_TAX\"DelStr(Ds,1,4)"????.tts"
/* File_MU321_ucA = "W:\BANDS\ARCHIVE\DATA_TAX\011900??.tts" */
/* File_MU321_ucB = "X:\BANDS\ARCHIVE\DATA_TAX\011900??.tts" */
Say 'Копируем файлы c MU321 ucA копия1'
copy File_MU321_ucA '/B' Path_Temp'\FileMU1a.335 /B'
Say 'Копируем файлы c MU321 ucB копия1'
copy File_MU321_ucB '/B' Path_Temp'\FileMU1b.335 /B'
Say 'Копируем файлы c MU321 ucA копия2'
copy File_MU321_ucA '/B' Path_Temp'\FileMU2a.335 /B'
Say 'Копируем файлы c MU321 ucB копия2'
copy File_MU321_ucB '/B' Path_Temp'\FileMU2b.335 /B'
Say 'Выполняем проверку'
Call SysFileTree Path_Temp'\FileMU1?.335', S1, 'S'
Call SysFileTree Path_Temp'\FileMU2?.335', S2, 'S'
S1.1 = DelStr(S1.1,73,1)
S2.1 = DelStr(S2.1,73,1)
S1.1 = DelStr(S1.1,12,6)
S2.1 = DelStr(S2.1,12,6)
if compare(S1.1, S2.1)<>0 then do
Say 'Ошибка проверки файлов MU321'
Say Ds
Say Tl
Say
Say S1.1
Say S2.1
Pause
exit
end
Say 'Конвертируем файлы для ЭАТС-335/337'
'Conv335.exe FileMU1?.335 'Ds'.335'
Copy Ds'.335 /B E:\ArhivTax\2008_08.Tax\'Ds'.335 /B'
'Del ????MU1?.335'
'Del ????MU2?.335'
Say 'Начинаем обработку полученных файлов'
'CD D:\Detailed\335-D'
Copy Path_Temp'\'Ds'.335' 'D:\Detailed\335-D\'Ds'.335'
'mt20v7fa.exe 'Ds'.335'
'E:\ArhivTax\DetalTax\rar.exe a E:\'Ds' 'Ds'.335'
/* Call SysDropFuncs */
Exit
А при запуске в Windows XP пишет
Microsoft Windows XP [Версия 5.1.2600]
(С) Корпорация Майкрософт, 1985-2001.
C:\Documents and Settings\San4a>F:\Copy335.cmd
C:\Documents and Settings\San4a>/* Файл Rexx */
"/*" не является внутренней или внешней
командой, исполняемой программой или пакетным файлом.
C:\Documents and Settings\San4a>'@ECHO OFF'
"'@ECHO" не является внутренней или внешней
командой, исполняемой программой или пакетным файлом.
C:\Documents and Settings\San4a>Call RxFuncAdd 'SysLoadFuncs', 'RexxUtil', 'SysL
oadFuncs'
"RxFuncAdd" не является внутренней или внешней
командой, исполняемой программой или пакетным файлом.
C:\Documents and Settings\San4a>Call SysLoadFuncs /* Загружаем все функции Rexx
*/
"SysLoadFuncs" не является внутренней или внешней
командой, исполняемой программой или пакетным файлом.
C:\Documents and Settings\San4a>Call SysCls /* Очищаем экран */
"SysCls" не является внутренней или внешней
командой, исполняемой программой или пакетным файлом.
C:\Documents and Settings\San4a>Ds = Date(S) /* Опрашиваем текущую дату */
"Ds" не является внутренней или внешней
командой, исполняемой программой или пакетным файлом.
C:\Documents and Settings\San4a>Tl = Time(L) /* Опрашиваем текущее время*/
"Tl" не является внутренней или внешней
командой, исполняемой программой или пакетным файлом.
C:\Documents and Settings\San4a>Say Ds
"Say" не является внутренней или внешней
командой, исполняемой программой или пакетным файлом.
C:\Documents and Settings\San4a>Say Tl
"Say" не является внутренней или внешней
командой, исполняемой программой или пакетным файлом.
C:\Documents and Settings\San4a>Say ' Ожидаем приблизительно 1.5 час
а для окончания текущего дня'
"Say" не является внутренней или внешней
командой, исполняемой программой или пакетным файлом.
C:\Documents and Settings\San4a>Call SysSleep 5400 /*Ожидание в секундах*/
"SysSleep" не является внутренней или внешней
командой, исполняемой программой или пакетным файлом.
C:\Documents and Settings\San4a>Path_Temp = "E:\ArhivTax\DetalTax\TempTts"
"Path_Temp" не является внутренней или внешней
командой, исполняемой программой или пакетным файлом.
C:\Documents and Settings\San4a>'CD 'Path_Temp /*Делаем т
екущей директорией временный*/
"'CD" не является внутренней или внешней
командой, исполняемой программой или пакетным файлом.
C:\Documents and Settings\San4a>/* ---------------------------------------------
--------------------------- */
"/*" не является внутренней или внешней
командой, исполняемой программой или пакетным файлом.
C:\Documents and Settings\San4a>/* Обработка тарификации ЭАТС
-335/337 */
"/*" не является внутренней или внешней
командой, исполняемой программой или пакетным файлом.
C:\Documents and Settings\San4a>/* ---------------------------------------------
--------------------------- */
"/*" не является внутренней или внешней
командой, исполняемой программой или пакетным файлом.
C:\Documents and Settings\San4a>Say
"Say" не является внутренней или внешней
командой, исполняемой программой или пакетным файлом.
C:\Documents and Settings\San4a>Say ' Обработка тарификации ЭАТС-33
5/337'
"Say" не является внутренней или внешней
командой, исполняемой программой или пакетным файлом.
C:\Documents and Settings\San4a>File_MU321_ucA = "W:\BANDS\ARCHIVE\DATA_TAX\"Del
Str(Ds,1,4)"????.tts"
"File_MU321_ucA" не является внутренней или внешней
командой, исполняемой программой или пакетным файлом.
C:\Documents and Settings\San4a>File_MU321_ucB = "X:\BANDS\ARCHIVE\DATA_TAX\"Del
Str(Ds,1,4)"????.tts"
"File_MU321_ucB" не является внутренней или внешней
командой, исполняемой программой или пакетным файлом.
C:\Documents and Settings\San4a>/* File_MU321_ucA = "W:\BANDS\ARCHIVE\DATA_TAX\0
11900??.tts" */
"/*" не является внутренней или внешней
командой, исполняемой программой или пакетным файлом.
C:\Documents and Settings\San4a>/* File_MU321_ucB = "X:\BANDS\ARCHIVE\DATA_TAX\0
11900??.tts" */
"/*" не является внутренней или внешней
командой, исполняемой программой или пакетным файлом.
C:\Documents and Settings\San4a>Say 'Копируем файлы c MU321 ucA копия1'
"Say" не является внутренней или внешней
командой, исполняемой программой или пакетным файлом.
C:\Documents and Settings\San4a>copy File_MU321_ucA '/B' Path_Temp'\FileMU1a.335
/B'
Не удается найти указанный файл.
C:\Documents and Settings\San4a>Say 'Копируем файлы c MU321 ucB копия1'
"Say" не является внутренней или внешней
командой, исполняемой программой или пакетным файлом.
C:\Documents and Settings\San4a>copy File_MU321_ucB '/B' Path_Temp'\FileMU1b.335
/B'
Не удается найти указанный файл.
C:\Documents and Settings\San4a>Say 'Копируем файлы c MU321 ucA копия2'
"Say" не является внутренней или внешней
командой, исполняемой программой или пакетным файлом.
C:\Documents and Settings\San4a>copy File_MU321_ucA '/B' Path_Temp'\FileMU2a.335
/B'
Не удается найти указанный файл.
C:\Documents and Settings\San4a>Say 'Копируем файлы c MU321 ucB копия2'
"Say" не является внутренней или внешней
командой, исполняемой программой или пакетным файлом.
C:\Documents and Settings\San4a>copy File_MU321_ucB '/B' Path_Temp'\FileMU2b.335
/B'
Не удается найти указанный файл.
C:\Documents and Settings\San4a>Say 'Выполняем проверку'
"Say" не является внутренней или внешней
командой, исполняемой программой или пакетным файлом.
C:\Documents and Settings\San4a>Call SysFileTree Path_Temp'\FileMU1?.335', S1, '
S'
"SysFileTree" не является внутренней или внешней
командой, исполняемой программой или пакетным файлом.
C:\Documents and Settings\San4a>Call SysFileTree Path_Temp'\FileMU2?.335', S2, '
S'
"SysFileTree" не является внутренней или внешней
командой, исполняемой программой или пакетным файлом.
C:\Documents and Settings\San4a>S1.1 = DelStr(S1.1,73,1)
"S1.1" не является внутренней или внешней
командой, исполняемой программой или пакетным файлом.
C:\Documents and Settings\San4a>S2.1 = DelStr(S2.1,73,1)
"S2.1" не является внутренней или внешней
командой, исполняемой программой или пакетным файлом.
C:\Documents and Settings\San4a>S1.1 = DelStr(S1.1,12,6)
"S1.1" не является внутренней или внешней
командой, исполняемой программой или пакетным файлом.
C:\Documents and Settings\San4a>S2.1 = DelStr(S2.1,12,6)
"S2.1" не является внутренней или внешней
командой, исполняемой программой или пакетным файлом.
Непредвиденное появление: S2.1).
C:\Documents and Settings\San4a>if compare(S1.1, S2.1)<>0 then do
ПОМОГИТЕ ПОЖАЛУЙСТА!!!
ЗАРАНЕЕ СПАСИБО!!!
Он работает на операционке OS/2 Warp, но не работает на Windows XP!!!
Вот сам cmdшник
/* Файл Rexx */
'@ECHO OFF'
Call RxFuncAdd 'SysLoadFuncs', 'RexxUtil', 'SysLoadFuncs'
Call SysLoadFuncs /* Загружаем все функции Rexx */
Call SysCls /* Очищаем экран */
Ds = Date(S) /* Опрашиваем текущую дату */
Tl = Time(L) /* Опрашиваем текущее время*/
Say Ds
Say Tl
Say ' Ожидаем приблизительно 1.5 часа для окончания текущего дня'
Call SysSleep 5400 /*Ожидание в секундах*/
Path_Temp = "E:\ArhivTax\DetalTax\TempTts"
'CD 'Path_Temp /*Делаем текущей директорией временный*/
/* ------------------------------------------------------------------------ */
/* Обработка тарификации АТС-335/337 */
/* ------------------------------------------------------------------------ */
Say
Say ' Обработка тарификации ЭАТС-335/337'
File_MU321_ucA = "W:\BANDS\ARCHIVE\DATA_TAX\"DelStr(Ds,1,4)"????.tts"
File_MU321_ucB = "X:\BANDS\ARCHIVE\DATA_TAX\"DelStr(Ds,1,4)"????.tts"
/* File_MU321_ucA = "W:\BANDS\ARCHIVE\DATA_TAX\011900??.tts" */
/* File_MU321_ucB = "X:\BANDS\ARCHIVE\DATA_TAX\011900??.tts" */
Say 'Копируем файлы c MU321 ucA копия1'
copy File_MU321_ucA '/B' Path_Temp'\FileMU1a.335 /B'
Say 'Копируем файлы c MU321 ucB копия1'
copy File_MU321_ucB '/B' Path_Temp'\FileMU1b.335 /B'
Say 'Копируем файлы c MU321 ucA копия2'
copy File_MU321_ucA '/B' Path_Temp'\FileMU2a.335 /B'
Say 'Копируем файлы c MU321 ucB копия2'
copy File_MU321_ucB '/B' Path_Temp'\FileMU2b.335 /B'
Say 'Выполняем проверку'
Call SysFileTree Path_Temp'\FileMU1?.335', S1, 'S'
Call SysFileTree Path_Temp'\FileMU2?.335', S2, 'S'
S1.1 = DelStr(S1.1,73,1)
S2.1 = DelStr(S2.1,73,1)
S1.1 = DelStr(S1.1,12,6)
S2.1 = DelStr(S2.1,12,6)
if compare(S1.1, S2.1)<>0 then do
Say 'Ошибка проверки файлов MU321'
Say Ds
Say Tl
Say
Say S1.1
Say S2.1
Pause
exit
end
Say 'Конвертируем файлы для ЭАТС-335/337'
'Conv335.exe FileMU1?.335 'Ds'.335'
Copy Ds'.335 /B E:\ArhivTax\2008_08.Tax\'Ds'.335 /B'
'Del ????MU1?.335'
'Del ????MU2?.335'
Say 'Начинаем обработку полученных файлов'
'CD D:\Detailed\335-D'
Copy Path_Temp'\'Ds'.335' 'D:\Detailed\335-D\'Ds'.335'
'mt20v7fa.exe 'Ds'.335'
'E:\ArhivTax\DetalTax\rar.exe a E:\'Ds' 'Ds'.335'
/* Call SysDropFuncs */
Exit
А при запуске в Windows XP пишет
Microsoft Windows XP [Версия 5.1.2600]
(С) Корпорация Майкрософт, 1985-2001.
C:\Documents and Settings\San4a>F:\Copy335.cmd
C:\Documents and Settings\San4a>/* Файл Rexx */
"/*" не является внутренней или внешней
командой, исполняемой программой или пакетным файлом.
C:\Documents and Settings\San4a>'@ECHO OFF'
"'@ECHO" не является внутренней или внешней
командой, исполняемой программой или пакетным файлом.
C:\Documents and Settings\San4a>Call RxFuncAdd 'SysLoadFuncs', 'RexxUtil', 'SysL
oadFuncs'
"RxFuncAdd" не является внутренней или внешней
командой, исполняемой программой или пакетным файлом.
C:\Documents and Settings\San4a>Call SysLoadFuncs /* Загружаем все функции Rexx
*/
"SysLoadFuncs" не является внутренней или внешней
командой, исполняемой программой или пакетным файлом.
C:\Documents and Settings\San4a>Call SysCls /* Очищаем экран */
"SysCls" не является внутренней или внешней
командой, исполняемой программой или пакетным файлом.
C:\Documents and Settings\San4a>Ds = Date(S) /* Опрашиваем текущую дату */
"Ds" не является внутренней или внешней
командой, исполняемой программой или пакетным файлом.
C:\Documents and Settings\San4a>Tl = Time(L) /* Опрашиваем текущее время*/
"Tl" не является внутренней или внешней
командой, исполняемой программой или пакетным файлом.
C:\Documents and Settings\San4a>Say Ds
"Say" не является внутренней или внешней
командой, исполняемой программой или пакетным файлом.
C:\Documents and Settings\San4a>Say Tl
"Say" не является внутренней или внешней
командой, исполняемой программой или пакетным файлом.
C:\Documents and Settings\San4a>Say ' Ожидаем приблизительно 1.5 час
а для окончания текущего дня'
"Say" не является внутренней или внешней
командой, исполняемой программой или пакетным файлом.
C:\Documents and Settings\San4a>Call SysSleep 5400 /*Ожидание в секундах*/
"SysSleep" не является внутренней или внешней
командой, исполняемой программой или пакетным файлом.
C:\Documents and Settings\San4a>Path_Temp = "E:\ArhivTax\DetalTax\TempTts"
"Path_Temp" не является внутренней или внешней
командой, исполняемой программой или пакетным файлом.
C:\Documents and Settings\San4a>'CD 'Path_Temp /*Делаем т
екущей директорией временный*/
"'CD" не является внутренней или внешней
командой, исполняемой программой или пакетным файлом.
C:\Documents and Settings\San4a>/* ---------------------------------------------
--------------------------- */
"/*" не является внутренней или внешней
командой, исполняемой программой или пакетным файлом.
C:\Documents and Settings\San4a>/* Обработка тарификации ЭАТС
-335/337 */
"/*" не является внутренней или внешней
командой, исполняемой программой или пакетным файлом.
C:\Documents and Settings\San4a>/* ---------------------------------------------
--------------------------- */
"/*" не является внутренней или внешней
командой, исполняемой программой или пакетным файлом.
C:\Documents and Settings\San4a>Say
"Say" не является внутренней или внешней
командой, исполняемой программой или пакетным файлом.
C:\Documents and Settings\San4a>Say ' Обработка тарификации ЭАТС-33
5/337'
"Say" не является внутренней или внешней
командой, исполняемой программой или пакетным файлом.
C:\Documents and Settings\San4a>File_MU321_ucA = "W:\BANDS\ARCHIVE\DATA_TAX\"Del
Str(Ds,1,4)"????.tts"
"File_MU321_ucA" не является внутренней или внешней
командой, исполняемой программой или пакетным файлом.
C:\Documents and Settings\San4a>File_MU321_ucB = "X:\BANDS\ARCHIVE\DATA_TAX\"Del
Str(Ds,1,4)"????.tts"
"File_MU321_ucB" не является внутренней или внешней
командой, исполняемой программой или пакетным файлом.
C:\Documents and Settings\San4a>/* File_MU321_ucA = "W:\BANDS\ARCHIVE\DATA_TAX\0
11900??.tts" */
"/*" не является внутренней или внешней
командой, исполняемой программой или пакетным файлом.
C:\Documents and Settings\San4a>/* File_MU321_ucB = "X:\BANDS\ARCHIVE\DATA_TAX\0
11900??.tts" */
"/*" не является внутренней или внешней
командой, исполняемой программой или пакетным файлом.
C:\Documents and Settings\San4a>Say 'Копируем файлы c MU321 ucA копия1'
"Say" не является внутренней или внешней
командой, исполняемой программой или пакетным файлом.
C:\Documents and Settings\San4a>copy File_MU321_ucA '/B' Path_Temp'\FileMU1a.335
/B'
Не удается найти указанный файл.
C:\Documents and Settings\San4a>Say 'Копируем файлы c MU321 ucB копия1'
"Say" не является внутренней или внешней
командой, исполняемой программой или пакетным файлом.
C:\Documents and Settings\San4a>copy File_MU321_ucB '/B' Path_Temp'\FileMU1b.335
/B'
Не удается найти указанный файл.
C:\Documents and Settings\San4a>Say 'Копируем файлы c MU321 ucA копия2'
"Say" не является внутренней или внешней
командой, исполняемой программой или пакетным файлом.
C:\Documents and Settings\San4a>copy File_MU321_ucA '/B' Path_Temp'\FileMU2a.335
/B'
Не удается найти указанный файл.
C:\Documents and Settings\San4a>Say 'Копируем файлы c MU321 ucB копия2'
"Say" не является внутренней или внешней
командой, исполняемой программой или пакетным файлом.
C:\Documents and Settings\San4a>copy File_MU321_ucB '/B' Path_Temp'\FileMU2b.335
/B'
Не удается найти указанный файл.
C:\Documents and Settings\San4a>Say 'Выполняем проверку'
"Say" не является внутренней или внешней
командой, исполняемой программой или пакетным файлом.
C:\Documents and Settings\San4a>Call SysFileTree Path_Temp'\FileMU1?.335', S1, '
S'
"SysFileTree" не является внутренней или внешней
командой, исполняемой программой или пакетным файлом.
C:\Documents and Settings\San4a>Call SysFileTree Path_Temp'\FileMU2?.335', S2, '
S'
"SysFileTree" не является внутренней или внешней
командой, исполняемой программой или пакетным файлом.
C:\Documents and Settings\San4a>S1.1 = DelStr(S1.1,73,1)
"S1.1" не является внутренней или внешней
командой, исполняемой программой или пакетным файлом.
C:\Documents and Settings\San4a>S2.1 = DelStr(S2.1,73,1)
"S2.1" не является внутренней или внешней
командой, исполняемой программой или пакетным файлом.
C:\Documents and Settings\San4a>S1.1 = DelStr(S1.1,12,6)
"S1.1" не является внутренней или внешней
командой, исполняемой программой или пакетным файлом.
C:\Documents and Settings\San4a>S2.1 = DelStr(S2.1,12,6)
"S2.1" не является внутренней или внешней
командой, исполняемой программой или пакетным файлом.
Непредвиденное появление: S2.1).
C:\Documents and Settings\San4a>if compare(S1.1, S2.1)<>0 then do
ПОМОГИТЕ ПОЖАЛУЙСТА!!!
ЗАРАНЕЕ СПАСИБО!!!