Question

我正在尝试使用复制追加功能从AS400复制数百个屏幕。它只允许我在停止之前“复制附加”约33个屏幕。我正在使用VBScript宏进行复制和导航。（如下所示）有没有办法复制附加更多的屏幕？你看到我的代码有什么问题，或者可以提出不同的方法吗？

谢谢，戈登

[PCOMM SCRIPT HEADER]
LANGUAGE=VBSCRIPT
DESCRIPTION=
[PCOMM SCRIPT SOURCE]
OPTION EXPLICIT
autECLSession.SetConnectionByName(ThisSessionName)

REM This line calls the macro subroutine
subSub1_

sub subSub1_()

dim pagectr, roll

pagectr = 1


   autECLSession.autECLOIA.WaitForAppAvailable
   autECLSession.autECLOIA.WaitForInputReady
   autECLMacro "[edit-copyappend]"

Do

   autECLSession.autECLPS.SendKeys "[left]"
   autECLSession.autECLPS.SendKeys "[left]"
   autECLSession.autECLPS.SendKeys "[left]"
   autECLSession.autECLPS.SendKeys "[down]"
   autECLSession.autECLPS.SendKeys "[down]"
   autECLSession.autECLPS.SendKeys "[down]"
   autECLSession.autECLPS.SendKeys "[down]"
   autECLSession.autECLPS.SendKeys "7"
   autECLSession.autECLPS.SendKeys "[enter]"

   autECLSession.autECLOIA.WaitForAppAvailable
   autECLSession.autECLOIA.WaitForInputReady
   autECLMacro "[edit-copyappend]"  

   autECLSession.autECLPS.SendKeys "[pf3]"

roll = 1

Do

if (roll = pagectr) then
    exit do
end if

   autECLSession.autECLPS.SendKeys "[roll up]"

roll = roll + 1

Loop


   autECLSession.autECLPS.SendKeys "[left]"
   autECLSession.autECLPS.SendKeys "[left]"
   autECLSession.autECLPS.SendKeys "[left]"
   autECLSession.autECLPS.SendKeys "[down]"
   autECLSession.autECLPS.SendKeys "[down]"
   autECLSession.autECLPS.SendKeys "[down]"
   autECLSession.autECLPS.SendKeys "[down]"
   autECLSession.autECLPS.SendKeys "5"
   autECLSession.autECLPS.SendKeys "[enter]"

   autECLSession.autECLOIA.WaitForAppAvailable
   autECLSession.autECLOIA.WaitForInputReady
   autECLMacro "[edit-copyappend]"  

   autECLSession.autECLPS.SendKeys "[pf3]"

roll = 1

Do

if (roll = pagectr) then
    exit do
end if

   autECLSession.autECLPS.SendKeys "[roll up]"

roll = roll + 1

Loop



   autECLSession.autECLPS.SendKeys "[left]"
   autECLSession.autECLPS.SendKeys "[left]"
   autECLSession.autECLPS.SendKeys "[left]"
   autECLSession.autECLPS.SendKeys "[down]"
   autECLSession.autECLPS.SendKeys "[down]"
   autECLSession.autECLPS.SendKeys "[down]"
   autECLSession.autECLPS.SendKeys "[down]"
   autECLSession.autECLPS.SendKeys "[down]"
   autECLSession.autECLPS.SendKeys "7"
   autECLSession.autECLPS.SendKeys "[enter]"

   autECLSession.autECLOIA.WaitForAppAvailable
   autECLSession.autECLOIA.WaitForInputReady
   autECLMacro "[edit-copyappend]"  

   autECLSession.autECLPS.SendKeys "[pf3]"

roll = 1

Do

if (roll = pagectr) then
    exit do
end if

   autECLSession.autECLPS.SendKeys "[roll up]"

roll = roll + 1

Loop


   autECLSession.autECLPS.SendKeys "[left]"
   autECLSession.autECLPS.SendKeys "[left]"
   autECLSession.autECLPS.SendKeys "[left]"
   autECLSession.autECLPS.SendKeys "[down]"
   autECLSession.autECLPS.SendKeys "[down]"
   autECLSession.autECLPS.SendKeys "[down]"
   autECLSession.autECLPS.SendKeys "[down]"
   autECLSession.autECLPS.SendKeys "[down]"
   autECLSession.autECLPS.SendKeys "5"
   autECLSession.autECLPS.SendKeys "[enter]"

   autECLSession.autECLOIA.WaitForAppAvailable
   autECLSession.autECLOIA.WaitForInputReady
   autECLMacro "[edit-copyappend]"  

   autECLSession.autECLPS.SendKeys "[pf3]"

roll = 1

Do

if (roll = pagectr) then
    exit do
end if

   autECLSession.autECLPS.SendKeys "[roll up]"

roll = roll + 1

Loop


   autECLSession.autECLPS.SendKeys "[left]"
   autECLSession.autECLPS.SendKeys "[left]"
   autECLSession.autECLPS.SendKeys "[left]"
   autECLSession.autECLPS.SendKeys "[down]"
   autECLSession.autECLPS.SendKeys "[down]"
   autECLSession.autECLPS.SendKeys "[down]"
   autECLSession.autECLPS.SendKeys "[down]"
   autECLSession.autECLPS.SendKeys "[down]"
   autECLSession.autECLPS.SendKeys "[down]"
   autECLSession.autECLPS.SendKeys "7"
   autECLSession.autECLPS.SendKeys "[enter]"

   autECLSession.autECLOIA.WaitForAppAvailable
   autECLSession.autECLOIA.WaitForInputReady
   autECLMacro "[edit-copyappend]"  

   autECLSession.autECLPS.SendKeys "[pf3]"

roll = 1

Do

if (roll = pagectr) then
    exit do
end if

   autECLSession.autECLPS.SendKeys "[roll up]"

roll = roll + 1

Loop


   autECLSession.autECLPS.SendKeys "[left]"
   autECLSession.autECLPS.SendKeys "[left]"
   autECLSession.autECLPS.SendKeys "[left]"
   autECLSession.autECLPS.SendKeys "[down]"
   autECLSession.autECLPS.SendKeys "[down]"
   autECLSession.autECLPS.SendKeys "[down]"
   autECLSession.autECLPS.SendKeys "[down]"
   autECLSession.autECLPS.SendKeys "[down]"
   autECLSession.autECLPS.SendKeys "[down]"
   autECLSession.autECLPS.SendKeys "5"
   autECLSession.autECLPS.SendKeys "[enter]"

   autECLSession.autECLOIA.WaitForAppAvailable
   autECLSession.autECLOIA.WaitForInputReady
   autECLMacro "[edit-copyappend]"  

   autECLSession.autECLPS.SendKeys "[pf3]"

 roll = 1

Do

if (roll = pagectr) then
    exit do
end if

   autECLSession.autECLPS.SendKeys "[roll up]"

roll = roll + 1

Loop



   autECLSession.autECLPS.SendKeys "[left]"
   autECLSession.autECLPS.SendKeys "[left]"
   autECLSession.autECLPS.SendKeys "[left]"
   autECLSession.autECLPS.SendKeys "[down]"
   autECLSession.autECLPS.SendKeys "[down]"
   autECLSession.autECLPS.SendKeys "[down]"
   autECLSession.autECLPS.SendKeys "[down]"
   autECLSession.autECLPS.SendKeys "[down]"
   autECLSession.autECLPS.SendKeys "[down]"
   autECLSession.autECLPS.SendKeys "[down]"
   autECLSession.autECLPS.SendKeys "7"
   autECLSession.autECLPS.SendKeys "[enter]"

   autECLSession.autECLOIA.WaitForAppAvailable
   autECLSession.autECLOIA.WaitForInputReady
   autECLMacro "[edit-copyappend]"  

   autECLSession.autECLPS.SendKeys "[pf3]"


roll = 1

Do

if (roll = pagectr) then
    exit do
end if

   autECLSession.autECLPS.SendKeys "[roll up]"

roll = roll + 1

Loop


   autECLSession.autECLPS.SendKeys "[left]"
   autECLSession.autECLPS.SendKeys "[left]"
   autECLSession.autECLPS.SendKeys "[left]"
   autECLSession.autECLPS.SendKeys "[down]"
   autECLSession.autECLPS.SendKeys "[down]"
   autECLSession.autECLPS.SendKeys "[down]"
   autECLSession.autECLPS.SendKeys "[down]"
   autECLSession.autECLPS.SendKeys "[down]"
   autECLSession.autECLPS.SendKeys "[down]"
   autECLSession.autECLPS.SendKeys "[down]"
   autECLSession.autECLPS.SendKeys "5"
   autECLSession.autECLPS.SendKeys "[enter]"

   autECLSession.autECLOIA.WaitForAppAvailable
   autECLSession.autECLOIA.WaitForInputReady
   autECLMacro "[edit-copyappend]"  

   autECLSession.autECLPS.SendKeys "[pf3]"

roll = 1

Do

if (roll = pagectr) then
    exit do
end if

   autECLSession.autECLPS.SendKeys "[roll up]"

roll = roll + 1

Loop


   autECLSession.autECLPS.SendKeys "[left]"
   autECLSession.autECLPS.SendKeys "[left]"
   autECLSession.autECLPS.SendKeys "[left]"
   autECLSession.autECLPS.SendKeys "[down]"
   autECLSession.autECLPS.SendKeys "[down]"
   autECLSession.autECLPS.SendKeys "[down]"
   autECLSession.autECLPS.SendKeys "[down]"
   autECLSession.autECLPS.SendKeys "[down]"
   autECLSession.autECLPS.SendKeys "[down]"
   autECLSession.autECLPS.SendKeys "[down]"
   autECLSession.autECLPS.SendKeys "[down]"
   autECLSession.autECLPS.SendKeys "7"
   autECLSession.autECLPS.SendKeys "[enter]"

   autECLSession.autECLOIA.WaitForAppAvailable
   autECLSession.autECLOIA.WaitForInputReady
   autECLMacro "[edit-copyappend]"     

   autECLSession.autECLPS.SendKeys "[pf3]"

roll = 1

Do

if (roll = pagectr) then
    exit do
end if

   autECLSession.autECLPS.SendKeys "[roll up]"

roll = roll + 1

Loop

   autECLSession.autECLPS.SendKeys "[left]"
   autECLSession.autECLPS.SendKeys "[left]"
   autECLSession.autECLPS.SendKeys "[left]"
   autECLSession.autECLPS.SendKeys "[down]"
   autECLSession.autECLPS.SendKeys "[down]"
   autECLSession.autECLPS.SendKeys "[down]"
   autECLSession.autECLPS.SendKeys "[down]"
   autECLSession.autECLPS.SendKeys "[down]"
   autECLSession.autECLPS.SendKeys "[down]"
   autECLSession.autECLPS.SendKeys "[down]"
   autECLSession.autECLPS.SendKeys "[down]"
   autECLSession.autECLPS.SendKeys "5"
   autECLSession.autECLPS.SendKeys "[enter]"

   autECLSession.autECLOIA.WaitForAppAvailable
   autECLSession.autECLOIA.WaitForInputReady
   autECLMacro "[edit-copyappend]"  

   autECLSession.autECLPS.SendKeys "[pf3]"

roll = 1

Do

if (roll = pagectr) then
    exit do
end if

   autECLSession.autECLPS.SendKeys "[roll up]"

roll = roll + 1

Loop


   autECLSession.autECLPS.SendKeys "[left]"
   autECLSession.autECLPS.SendKeys "[left]"
   autECLSession.autECLPS.SendKeys "[left]"
   autECLSession.autECLPS.SendKeys "[down]"
   autECLSession.autECLPS.SendKeys "[down]"
   autECLSession.autECLPS.SendKeys "[down]"
   autECLSession.autECLPS.SendKeys "[down]"
   autECLSession.autECLPS.SendKeys "[down]"
   autECLSession.autECLPS.SendKeys "[down]"
   autECLSession.autECLPS.SendKeys "[down]"
   autECLSession.autECLPS.SendKeys "[down]"
   autECLSession.autECLPS.SendKeys "[down]"
   autECLSession.autECLPS.SendKeys "7"
   autECLSession.autECLPS.SendKeys "[enter]"

   autECLSession.autECLOIA.WaitForAppAvailable
   autECLSession.autECLOIA.WaitForInputReady
   autECLMacro "[edit-copyappend]"  

   autECLSession.autECLPS.SendKeys "[pf3]"

roll = 1

Do

if (roll = pagectr) then
    exit do
end if

   autECLSession.autECLPS.SendKeys "[roll up]"

roll = roll + 1

Loop


   autECLSession.autECLPS.SendKeys "[left]"
   autECLSession.autECLPS.SendKeys "[left]"
   autECLSession.autECLPS.SendKeys "[left]"
   autECLSession.autECLPS.SendKeys "[down]"
   autECLSession.autECLPS.SendKeys "[down]"
   autECLSession.autECLPS.SendKeys "[down]"
   autECLSession.autECLPS.SendKeys "[down]"
   autECLSession.autECLPS.SendKeys "[down]"
   autECLSession.autECLPS.SendKeys "[down]"
   autECLSession.autECLPS.SendKeys "[down]"
   autECLSession.autECLPS.SendKeys "[down]"
   autECLSession.autECLPS.SendKeys "[down]"
   autECLSession.autECLPS.SendKeys "5"
   autECLSession.autECLPS.SendKeys "[enter]"

   autECLSession.autECLOIA.WaitForAppAvailable
   autECLSession.autECLOIA.WaitForInputReady
   autECLMacro "[edit-copyappend]"  

   autECLSession.autECLPS.SendKeys "[pf3]"

roll = 1

Do

if (roll = pagectr) then
    exit do
end if

   autECLSession.autECLPS.SendKeys "[roll up]"

roll = roll + 1

Loop


   autECLSession.autECLPS.SendKeys "[left]"
   autECLSession.autECLPS.SendKeys "[left]"
   autECLSession.autECLPS.SendKeys "[left]"
   autECLSession.autECLPS.SendKeys "[down]"
   autECLSession.autECLPS.SendKeys "[down]"
   autECLSession.autECLPS.SendKeys "[down]"
   autECLSession.autECLPS.SendKeys "[down]"
   autECLSession.autECLPS.SendKeys "[down]"
   autECLSession.autECLPS.SendKeys "[down]"
   autECLSession.autECLPS.SendKeys "[down]"
   autECLSession.autECLPS.SendKeys "[down]"
   autECLSession.autECLPS.SendKeys "[down]"
   autECLSession.autECLPS.SendKeys "[down]"
   autECLSession.autECLPS.SendKeys "7"
   autECLSession.autECLPS.SendKeys "[enter]"

   autECLSession.autECLOIA.WaitForAppAvailable
   autECLSession.autECLOIA.WaitForInputReady
   autECLMacro "[edit-copyappend]"  

   autECLSession.autECLPS.SendKeys "[pf3]"

roll = 1

Do

if (roll = pagectr) then
    exit do
end if

   autECLSession.autECLPS.SendKeys "[roll up]"

roll = roll + 1

Loop


   autECLSession.autECLPS.SendKeys "[left]"
   autECLSession.autECLPS.SendKeys "[left]"
   autECLSession.autECLPS.SendKeys "[left]"
   autECLSession.autECLPS.SendKeys "[down]"
   autECLSession.autECLPS.SendKeys "[down]"
   autECLSession.autECLPS.SendKeys "[down]"
   autECLSession.autECLPS.SendKeys "[down]"
   autECLSession.autECLPS.SendKeys "[down]"
   autECLSession.autECLPS.SendKeys "[down]"
   autECLSession.autECLPS.SendKeys "[down]"
   autECLSession.autECLPS.SendKeys "[down]"
   autECLSession.autECLPS.SendKeys "[down]"
   autECLSession.autECLPS.SendKeys "[down]"
   autECLSession.autECLPS.SendKeys "5"
   autECLSession.autECLPS.SendKeys "[enter]"

   autECLSession.autECLOIA.WaitForAppAvailable
   autECLSession.autECLOIA.WaitForInputReady
   autECLMacro "[edit-copyappend]"  

   autECLSession.autECLPS.SendKeys "[pf3]"

roll = 1

Do

if (roll = pagectr) then
    exit do
end if

   autECLSession.autECLPS.SendKeys "[roll up]"

roll = roll + 1

Loop


   autECLSession.autECLPS.SendKeys "[left]"
   autECLSession.autECLPS.SendKeys "[left]"
   autECLSession.autECLPS.SendKeys "[left]"
   autECLSession.autECLPS.SendKeys "[down]"
   autECLSession.autECLPS.SendKeys "[down]"
   autECLSession.autECLPS.SendKeys "[down]"
   autECLSession.autECLPS.SendKeys "[down]"
   autECLSession.autECLPS.SendKeys "[down]"
   autECLSession.autECLPS.SendKeys "[down]"
   autECLSession.autECLPS.SendKeys "[down]"
   autECLSession.autECLPS.SendKeys "[down]"
   autECLSession.autECLPS.SendKeys "[down]"
   autECLSession.autECLPS.SendKeys "[down]"
   autECLSession.autECLPS.SendKeys "[down]"
   autECLSession.autECLPS.SendKeys "7"
   autECLSession.autECLPS.SendKeys "[enter]"

   autECLSession.autECLOIA.WaitForAppAvailable
   autECLSession.autECLOIA.WaitForInputReady
   autECLMacro "[edit-copyappend]"  

   autECLSession.autECLPS.SendKeys "[pf3]"

roll = 1

Do

if (roll = pagectr) then
    exit do
end if

   autECLSession.autECLPS.SendKeys "[roll up]"

roll = roll + 1

Loop


   autECLSession.autECLPS.SendKeys "[left]"
   autECLSession.autECLPS.SendKeys "[left]"
   autECLSession.autECLPS.SendKeys "[left]"
   autECLSession.autECLPS.SendKeys "[down]"
   autECLSession.autECLPS.SendKeys "[down]"
   autECLSession.autECLPS.SendKeys "[down]"
   autECLSession.autECLPS.SendKeys "[down]"
   autECLSession.autECLPS.SendKeys "[down]"
   autECLSession.autECLPS.SendKeys "[down]"
   autECLSession.autECLPS.SendKeys "[down]"
   autECLSession.autECLPS.SendKeys "[down]"
   autECLSession.autECLPS.SendKeys "[down]"
   autECLSession.autECLPS.SendKeys "[down]"
   autECLSession.autECLPS.SendKeys "[down]"
   autECLSession.autECLPS.SendKeys "5"
   autECLSession.autECLPS.SendKeys "[enter]"

   autECLSession.autECLOIA.WaitForAppAvailable
   autECLSession.autECLOIA.WaitForInputReady
   autECLMacro "[edit-copyappend]"  

   autECLSession.autECLPS.SendKeys "[pf3]"

roll = 1

Do

if (roll = pagectr) then
    exit do
end if

   autECLSession.autECLPS.SendKeys "[roll up]"

roll = roll + 1

Loop


   autECLSession.autECLPS.SendKeys "[left]"
   autECLSession.autECLPS.SendKeys "[left]"
   autECLSession.autECLPS.SendKeys "[left]"
   autECLSession.autECLPS.SendKeys "[down]"
   autECLSession.autECLPS.SendKeys "[down]"
   autECLSession.autECLPS.SendKeys "[down]"
   autECLSession.autECLPS.SendKeys "[down]"
   autECLSession.autECLPS.SendKeys "[down]"
   autECLSession.autECLPS.SendKeys "[down]"
   autECLSession.autECLPS.SendKeys "[down]"
   autECLSession.autECLPS.SendKeys "[down]"
   autECLSession.autECLPS.SendKeys "[down]"
   autECLSession.autECLPS.SendKeys "[down]"
   autECLSession.autECLPS.SendKeys "[down]"
   autECLSession.autECLPS.SendKeys "[down]"
   autECLSession.autECLPS.SendKeys "7"
   autECLSession.autECLPS.SendKeys "[enter]"

   autECLSession.autECLOIA.WaitForAppAvailable
   autECLSession.autECLOIA.WaitForInputReady
   autECLMacro "[edit-copyappend]"  

   autECLSession.autECLPS.SendKeys "[pf3]"

roll = 1

Do

if (roll = pagectr) then
    exit do
end if

   autECLSession.autECLPS.SendKeys "[roll up]"

roll = roll + 1

Loop


   autECLSession.autECLPS.SendKeys "[left]"
   autECLSession.autECLPS.SendKeys "[left]"
   autECLSession.autECLPS.SendKeys "[left]"
   autECLSession.autECLPS.SendKeys "[down]"
   autECLSession.autECLPS.SendKeys "[down]"
   autECLSession.autECLPS.SendKeys "[down]"
   autECLSession.autECLPS.SendKeys "[down]"
   autECLSession.autECLPS.SendKeys "[down]"
   autECLSession.autECLPS.SendKeys "[down]"
   autECLSession.autECLPS.SendKeys "[down]"
   autECLSession.autECLPS.SendKeys "[down]"
   autECLSession.autECLPS.SendKeys "[down]"
   autECLSession.autECLPS.SendKeys "[down]"
   autECLSession.autECLPS.SendKeys "[down]"
   autECLSession.autECLPS.SendKeys "[down]"
   autECLSession.autECLPS.SendKeys "5"
   autECLSession.autECLPS.SendKeys "[enter]"

   autECLSession.autECLOIA.WaitForAppAvailable
   autECLSession.autECLOIA.WaitForInputReady
   autECLMacro "[edit-copyappend]"  

   autECLSession.autECLPS.SendKeys "[pf3]"

roll = 1

Do

if (roll = pagectr) then
    exit do
end if

   autECLSession.autECLPS.SendKeys "[roll up]"

roll = roll + 1

Loop


   autECLSession.autECLPS.SendKeys "[left]"
   autECLSession.autECLPS.SendKeys "[left]"
   autECLSession.autECLPS.SendKeys "[left]"
   autECLSession.autECLPS.SendKeys "[down]"
   autECLSession.autECLPS.SendKeys "[down]"
   autECLSession.autECLPS.SendKeys "[down]"
   autECLSession.autECLPS.SendKeys "[down]"
   autECLSession.autECLPS.SendKeys "[down]"
   autECLSession.autECLPS.SendKeys "[down]"
   autECLSession.autECLPS.SendKeys "[down]"
   autECLSession.autECLPS.SendKeys "[down]"
   autECLSession.autECLPS.SendKeys "[down]"
   autECLSession.autECLPS.SendKeys "[down]"
   autECLSession.autECLPS.SendKeys "[down]"
   autECLSession.autECLPS.SendKeys "[down]"
   autECLSession.autECLPS.SendKeys "[down]"
   autECLSession.autECLPS.SendKeys "7"
   autECLSession.autECLPS.SendKeys "[enter]"

   autECLSession.autECLOIA.WaitForAppAvailable
   autECLSession.autECLOIA.WaitForInputReady
   autECLMacro "[edit-copyappend]"  

   autECLSession.autECLPS.SendKeys "[pf3]"


roll = 1

Do

if (roll = pagectr) then
    exit do
end if

   autECLSession.autECLPS.SendKeys "[roll up]"

roll = roll + 1

Loop


   autECLSession.autECLPS.SendKeys "[left]"
   autECLSession.autECLPS.SendKeys "[left]"
   autECLSession.autECLPS.SendKeys "[left]"
   autECLSession.autECLPS.SendKeys "[down]"
   autECLSession.autECLPS.SendKeys "[down]"
   autECLSession.autECLPS.SendKeys "[down]"
   autECLSession.autECLPS.SendKeys "[down]"
   autECLSession.autECLPS.SendKeys "[down]"
   autECLSession.autECLPS.SendKeys "[down]"
   autECLSession.autECLPS.SendKeys "[down]"
   autECLSession.autECLPS.SendKeys "[down]"
   autECLSession.autECLPS.SendKeys "[down]"
   autECLSession.autECLPS.SendKeys "[down]"
   autECLSession.autECLPS.SendKeys "[down]"
   autECLSession.autECLPS.SendKeys "[down]"
   autECLSession.autECLPS.SendKeys "[down]"
   autECLSession.autECLPS.SendKeys "5"
   autECLSession.autECLPS.SendKeys "[enter]"

   autECLSession.autECLOIA.WaitForAppAvailable
   autECLSession.autECLOIA.WaitForInputReady
   autECLMacro "[edit-copyappend]"  

   autECLSession.autECLPS.SendKeys "[pf3]"


roll = 1

Do

if (roll = pagectr) then
    exit do
end if

   autECLSession.autECLPS.SendKeys "[roll up]"

roll = roll + 1

Loop





   pagectr = pagectr + 1






REM Wait for 10 seconds = 10000 milliseconds
autECLSession.autECLPS.Wait 5000
Loop



end sub

Answer 1

[Client / iSeries / IBM i]访问可能会限制剪贴板的总大小。请参阅问题this的Clipboard size limit回答。

您是否真的需要屏幕抓取而不是直接访问应用程序后面的数据库？

中端系统的一大优势是能够直接访问数据库。

以下是一些可以帮助您入门的参考资料：

Windows Access iSeries services from the middle tier
Linux IBM i Access
Java JT400

如何在AS400中使用复制附加功能来复制附加更多屏幕（VBScript）？

1 个答案: