AS400でAppend機能をコピーして、Append More Screens（VBScript）をコピーする方法を教えてください。

コピーアペンド機能を使用して、AS400から数百の画面をコピーしようとしています。停止する前に33画面分の「コピーを追加」するだけです。私はVBScriptマクロを使ってコピーとナビゲートを行っています。（以下に示す）追加の画面をコピーする方法はありますか？私のコードに間違ったことがあるのでしょうか、あるいは別のアプローチを提案できますか？AS400でAppend機能をコピーして、Append More Screens（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
出典
2012-03-22 Gordon Yu
[クライアント/のiSeries/IBM i]はアクセスがクリップボードの合計サイズを制限することができます。 SOの質問Clipboard size limitへの答えthisを参照してください。
アプリケーションの背後にあるデータベースに直接アクセスするのではなく、本当にスクレイプをスクリーニングする必要がありますか？
ミッドレンジシステムの大きな利点の1つは、データベースに直接アクセスできることです。Access iSeries services from the middle tier
LinuxのIBM i Access
のJavaJT400
Windowsの場合：ここで
は、あなたが始めるためにいくつかの参照です
出典
2012-03-25 17:40:07 jamesallman
AS400でAppend機能をコピーして、Append More Screens（VBScript）をコピーする方法を教えてください。

答えて

関連する問題
