Greetings All,

I recently wrote this script to save myself some time.  I have a command
file which displays a result, which I then manually copy to the windows
clipboard and use in another PC application.  I use this command file
often and finally realized that a UDC such as the one below would save me
time and effort.  Hope someone gets something out of this and would enjoy
seeing other such ideas.

Eben Yong
Health Plan of San Mateo

* CopyToClip UDC code begins below



CopyToClip
PARM CopyText=".."

if "!CopyText"=".." or hpjobtype<>"S"
 return
endif

COMMENT EY 07/14/2004 - Can you guess what this does?  Pretty cool.
SETVAR ESC CHR(27)
SETVAR RBSBegin "!ESC&o2G"
SETVAR RBSEnd "!ESC&oH"

COMMENT --- the following is Reflection Basic

ECHO !RBSBegin
ECHO Sub Main()
ECHO with application
ECHO  .SetClipboardText  "!CopyText"
ECHO end with
ECHO End Sub
ECHO !RBSEnd

COMMENT --- end Reflection Basic

* To join/leave the list, search archives, change list settings, *
* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *