Want to win a PS4? Go Premium and enter to win our High-Tech Treats giveaway. Enter to Win

x
?
Solved

How can I place a edit-coppy append into a AS400 VBScript

Posted on 2009-04-09
3
Medium Priority
?
2,156 Views
Last Modified: 2013-12-06
This part of the code works..  I'm putting into clipboard a value from the screen.  I also need to do a copy append of the entire screen.  If I place another autECLMacro "[edit-copy]" it replaces the entire clipboard.

Thanks for the help
[PCOMM SCRIPT HEADER]
LANGUAGE=VBSCRIPT
DESCRIPTION=
[PCOMM SCRIPT SOURCE]
OPTION EXPLICIT
autECLSession.SetConnectionByName(ThisSessionName)
 
REM This line calls the macro subroutine
subSub1_
 
sub subSub1_()
   autECLSession.autECLOIA.WaitForAppAvailable
   autECLSession.autECLOIA.WaitForInputReady
 
   dim curcol,currow,maxcol,cval,startcol
   curcol = 6
   currow = autECLSession.autECLPS.CursorPosRow
   maxcol = autECLSession.autECLPS.NumCols
   startcol = autECLSession.autECLPS.CursorPosCol
 
do
   if (startcol = 6) then
     exit do
   elseif (startcol < 6) then
       autECLSession.autECLPS.SendKeys "[right]"
       startcol = startcol + 1
   elseif (startcol > 6) then
       autECLSession.autECLPS.SendKeys "[left]"
       startcol = startcol - 1
   end if
loop
 
do
   if (curcol > maxcol) then
     exit do
   end if
 
   cval = autECLSession.autECLPS.GetText(currow, curcol, 1)
   if (cval = "-") then
     exit do
   end if
   autECLMacro "[Mark Right]"
   curcol = curcol + 1
   loop
   autECLMacro "[edit-copy]"
 
end sub

Open in new window

0
Comment
Question by:DougAZ
[X]
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
  • 2
3 Comments
 
LVL 35

Accepted Solution

by:
Gary Patterson earned 2000 total points
ID: 24110710
That's what [edit-copy] does, it replaces the clipboard contents with the current selection.

If you want to append to the clipboard without replacing it, (copy append), then you'd use [edit-copyappend].

You can see all of these in the client access Keyboard editor (Edit-Preferences-Keyboard-Customize).  Pick an unused key and map the function you want to it to see the ECLMacro name.

- Gary Patterson
0
 

Author Closing Comment

by:DougAZ
ID: 31568691
Thank you..  I did try that.. must of mis-typed it..  Thanks for the additional info very helpful.
0
 
LVL 35

Expert Comment

by:Gary Patterson
ID: 24111000
First time I tried it I think I tried [edit-copy-append] instead of [edit-copyappend].

Happy to help.
0

Featured Post

Concerto Cloud for Software Providers & ISVs

Can Concerto Cloud Services help you focus on evolving your application offerings, while delivering the best cloud experience to your customers? From DevOps to revenue models and customer support, the answer is yes!

Learn how Concerto can help you.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Introduction Often we come across situations wherein our batch files would be needing to reboot Windows for a variety of reasons. A few of them would be like: (1) Setup files have been updated whose changes can take effect only after a reboot …
In a recent article here at Experts Exchange (http://www.experts-exchange.com/articles/18880/PaperPort-14-in-Windows-10-A-First-Look.html), I discussed my nine-month sandbox testing of the Windows 10 Technical Preview, specifically with respect to r…
This is used to tweak the memory usage for your computer, it is used for servers more so than workstations but just be careful editing registry settings as it may cause irreversible results. I hold no responsibility for anything you do to the regist…
Hi friends,  in this video  I'll show you how new windows 10 user can learn the using of windows 10. Thank you.

618 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question