Solved

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

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

Is Your Active Directory as Secure as You Think?

More than 75% of all records are compromised because of the loss or theft of a privileged credential. Experts have been exploring Active Directory infrastructure to identify key threats and establish best practices for keeping data safe. Attend this month’s webinar to learn more.

Question has a verified solution.

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

Suggested Solutions

Introduction How to create multiboot configuration with XP\Vista and Windows 7 on it? And most important question - how to do this correctly so not to have any kind of nightmares we get when system gets screwed? First of all one should realize t…
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 …
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.

920 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

13 Experts available now in Live!

Get 1:1 Help Now