Solved

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

Posted on 2009-04-09
3
1,955 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

How to run any project with ease

Manage projects of all sizes how you want. Great for personal to-do lists, project milestones, team priorities and launch plans.
- Combine task lists, docs, spreadsheets, and chat in one
- View and edit from mobile/offline
- Cut down on emails

Join & Write a Comment

Sometimes a user will call me frantically, explaining that something has gone wrong and they have tried everything (read - they have messed it up more and now need someone to clean up) and it still does no good, can I help them?!  Usually the standa…
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 video gives you a great overview about bandwidth monitoring with SNMP and WMI with our network monitoring solution PRTG Network Monitor (https://www.paessler.com/prtg). If you're looking for how to monitor bandwidth using netflow or packet s…
In this tutorial you'll learn about bandwidth monitoring with flows and packet sniffing with our network monitoring solution PRTG Network Monitor (https://www.paessler.com/prtg). If you're interested in additional methods for monitoring bandwidt…

760 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

Need Help in Real-Time?

Connect with top rated Experts

17 Experts available now in Live!

Get 1:1 Help Now