HP3000-L Archives

August 2004, Week 3

HP3000-L@RAVEN.UTC.EDU
Options: Use Monospaced Font
Show Text Part by Default
Show All Mail Headers

Message: [<< First] [< Prev] [Next >] [Last >>]
Topic: [<< First] [< Prev] [Next >] [Last >>]
Author: [<< First] [< Prev] [Next >] [Last >>]

Print Reply
Subject:
MPE command file to execute a Reflection RBS script
From:
Eben Yong <[log in to unmask]>
Reply To:
Eben Yong <[log in to unmask]>
Date:
Thu, 19 Aug 2004 12:55:10 -0400
Content-Type:
text/plain
Parts/Attachments:
text/plain (43 lines) 
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 *

ATOM RSS1 RSS2