HP3000-L Archives

December 2005, Week 5

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:
From:
"Johnson, Tracy" <[log in to unmask]>
Reply To:
Johnson, Tracy
Date:
Thu, 29 Dec 2005 09:06:14 -0500
Content-Type:
text/plain
Parts/Attachments:
text/plain (87 lines)
At the beginning of your command file you'd have to add:

.01 PARM JOBNAME

On the XEQ statement you'd have to add at the end:

11 xeq suetime.sysmenu "!JOBNAME"

or 

11 xeq suetime.sysmenu "{JOBNAME}"


Tracy Johnson
Measurement Specialties, Inc. 

BT







NNNN


> -----Original Message-----
> From: HP-3000 Systems Discussion 
> [mailto:[log in to unmask]] On Behalf Of Reggie Monroe
> Sent: Wednesday, December 28, 2005 7:23 PM
> To: [log in to unmask]
> Subject: [HP3000-L] passing a variable
> 
> 
> How do you pass a variable from a vesoft menu to a command 
> file. For example we would like to pass the HPJOBNAME from below.
>  
> This is the menu:
> 5 SETVAR HPMSGFENCE, 0
> 
> 6 *CAPTION ADD OP CAPABILITY TO USER
> 
> 7 XEQ TIME.SYSMENU.SYS
> 
> 8 PROMPT STRING JOBNAME="ENTER M# OR USER NAME "
> 
> 9 IF EMPNAME ="REGGIE" THEN
> 
> 10 pause 10
> 
> 11 xeq suetime.sysmenu
> 
> 12 SEC CHANGE 
> {JOBNAME},OPERATOR.@;USERTYPE=OP;TIME=!HPHOUR-!ETIME;NOVERify
> 
>  
> 
> This is the command file named suetime
> 
> 1 DELETEVAR ETIME
> 
> 2 setvar hr4 (hphour+10) mod 24
> 
> 3 SETVAR ETIME hr4
> 
> 4 run main.pub.vesoft;info="&
> 
> 5 SEC change {JOBNAME},OPERATOR.@;USERTYPE=OP;TIME=!HPHOUR-!ETIME"
> 
>  
> Regards
>  
> Reginald Monroe
> Systems Engineering
> Mercury Insurance - Information Technology
> (714) 671-6753
> [log in to unmask]
>  
> 
> * To join/leave the list, search archives, change list settings, *
> * etc., please visit http://raven.utc.edu/archives/hp3000-l.html *
> 

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

ATOM RSS1 RSS2