Cross file MARK macro

I use the MARK command the way I think most people do - MARK SET to save my
spot while I go check something and then use MARK FIND to get back where I
was.  

The MARK command stores the settings at a document level so when the item I
am checking is  in another file, the MARK FIND command can't return you
directly to your saved location. I wrote this simple macro to use instead of
MARK to address this issue.

/* Cross file MARK SET/FIND */

parm = arg(1)
action = translate(word(parm,1))
markname = word(parm,2)

if (action = "SET") then do
       extract name into xfilename
       extract viewnum into xfileview
       'set global.xfilemarkname'markname xfilename
       'set global.xfilemarkview'markname xfileview
       'mark set 'markname
       exit
       end

if (action = "FIND") then do
       'extract global.xfilemarkname'markname into xfilename
       'extract global.xfilemarkview'markname into xfileview
       godoc name xfilename
       goview viewnum xfileview
       'mark find 'markname
       exit
       end

'msg First parameter must be SET or FIND'

exit
 
Larry Paque
Echo Service Company
larry@scjins.com <mailto:larry@scjins.com>

+---
| This is the CODE/400 Mailing List!
| To submit a new message, send your mail to CODE400-L@midrange.com.
| To subscribe to this list send email to CODE400-L-SUB@midrange.com.
| To unsubscribe from this list send email to CODE400-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: larry@scjins.com
+---