我正在尝试在升级时减少用户干预。我有一个批处理文件，它执行ftp部分并在AS400上恢复，如下所示：
@echo off
if EXIST ftpcmd2.dat goto :justRunIt
SET /P userpw= Please enter in QSECOFR password:
SET /P IPaddr= Please enter in IP address of the AS400:
>ftpcmd.dat echo.open %IPaddr%
>>ftpcmd.dat echo.user
>>ftpcmd.dat echo.QSECOFR
>>ftpcmd.dat echo.%userpw%
>>ftpcmd.dat echo.bin
>>ftpcmd.dat echo.lcd c:\ahc
>>ftpcmd.dat echo.cd /qsys.lib/ahcpgm.lib
>>ftpcmd.dat echo.put PCDIST.savf
>>ftpcmd.dat echo.quote rcmd CLRLIB LANSASHIP
>>ftpcmd.dat echo.quote rcmd RSTLIB SAVLIB(LANSASHIP) DEV(*SAVF) SAVF(AHCPGM/PCDIST)
>>ftpcmd.dat echo.quote rcmd DLTOBJ OBJ(QGPL/LANSAISHP2) OBJTYPE(*FILE)
>>ftpcmd.dat echo.quote rcmd CRTDUPOBJ OBJ(LANSAISHP2) FROMLIB(LANSASHIP) OBJTYPE(*FILE) TOLIB(QGPL) DATA(*YES)
>>ftpcmd.dat echo.quote rcmd ENDSBS SBS(RELPGMLIB) OPTION (*IMMED)
ftpcmd.dat echo.quit
:justRunIt
ftp -n -s:ftpcmd2.dat
完成后我想调用AS400宏来完成更新，如下所示：
Description =
"ahc
[tab field]
"ahc
[enter]
[enter]
"addlible relpgmlib
[enter]
"lansa partition(rel) developer(a)
[enter]
"5
[enter]
"8
[enter]
[down]
[down]
[down]
[down]
[down]
[down]
[down]
[down]
[down]
[down]
[up]
"lansaishp2
[tab field]
[down]
[down]
[down]
"yes
[enter]
[down]
[tab field]
"wrksbmjob
[enter]
[pf5]