Solved

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

Posted on 2009-04-09
3
2,054 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 35

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 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

Free Tool: Site Down Detector

Helpful to verify reports of your own downtime, or to double check a downed website you are trying to access.

One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.

Question has a verified solution.

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

Suggested Solutions

I don't know if many of you have made the great mistake of using the Cisco Thin Client model with the management software VXC. If you have then you are probably more then familiar with the incredibly clunky interface, the numerous work arounds, and …
I use more than 1 computer in my office for various reasons. Multiple keyboards and mice take up more than just extra space, they make working a little more complicated. Using one mouse and keyboard for all of my computers makes life easier. This co…
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.

696 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