Solved

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

Posted on 2009-04-09
3
2,002 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
  • 2
3 Comments
 
LVL 34

Accepted Solution

by:
Gary Patterson earned 500 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 34

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

3 Use Cases for Connected Systems

Our Dev teams are like yours. They’re continually cranking out code for new features/bugs fixes, testing, deploying, testing some more, responding to production monitoring events and more. It’s complex. So, we thought you’d like to see what’s working for us.

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 …
Windows 7 does not have the best desktop search built in. This is something Windows 7 users have struggled with. You type something in, and your search results don’t always match what you are looking for, or it doesn’t actually work at all. There ar…
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.

773 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