SETSYSTEMVAL

[Joe Boyle]

The easiest way is to create a template file in qutil, and the do a run
command as below before you start writing to the file,

Run command "cp template_file_spec $AA" on error ...

That said, if you are still working on the batch file option, you could try
some code like the windows PH version below, it is very crude but requires
no dictionary files and worked at the time - and is easily tweaked to work
with unix.


can cle

screen docmd_set_prodid_env 


file products in axnwind primary occurs 10 

temporary t_time integer *8 reset at startup 
temporary t_line character *150 reset at startup 
temporary t_time_at character *5 reset at startup 
temporary t_time2 integer *8 reset at startup 

cluster  occurs with products 
 
field productid of products  required nochange lookup noton products 

field productname of products  id same   required nochange 

cluster
 
procedure designer 1
begin


let t_time = systime 


let t_line = 'cmd /c echo set prodid=' + ascii(productid) &
+ ' >> c:\joetop\cmd_files\t_cmd_file_' + ascii(t_time,8) + '.cmd ' 

run command t_line


let t_line = &
'cmd /c echo set cust_ord_prod=c:\joetop\cmd_file_reps\cust_ord_prod_' +
ascii(t_time,8) + &
'.txt >> c:\joetop\cmd_files\t_cmd_file_' + ascii(t_time,8) + '.cmd ' 

run command t_line


let t_line = &
'cmd /c echo cd c:\joetop\axiant\myaxlocations\mysqlex\ '  &
+ ' >> c:\joetop\cmd_files\t_cmd_file_' + ascii(t_time,8) + '.cmd ' 

run command t_line

let t_line = & 
'cmd /c echo %quiz% auto=cust_ord_prod.qzc '  &
+ ' >> c:\joetop\cmd_files\t_cmd_file_' + ascii(t_time,8) + '.cmd ' 

run command t_line


let t_line = &
'cmd /c echo exit >> c:\joetop\cmd_files\t_cmd_file_' + ascii(t_time,8) +
'.cmd ' 

run command t_line


let t_time2 = systime

if "58" gt ascii(t_time2,8) [3:2]
then let t_time_at =  ascii(t_time2,8) [1:2] + ":" +
ascii(nconv(ascii(t_time2,8) [3:2]) + 2,2)
else if "23" gt ascii(t_time2,8) [1:2]
then let t_time_at =  ascii(nconv(ascii(t_time2,8) [1:2]) + 1,2) + ":01" 
else  let t_time_at =  "00:01" 


let t_line = &
'cmd /c at ' + t_time_at + ' c:\joetop\cmd_files\t_cmd_file_' +
ascii(t_time,8) + '.cmd' 

run command t_line

end



build list detail

regs, joe. 

-----Original Message-----
From: powerh-l-bounces+atla38=dsl.pipex.com at lists.sowder.com
[mailto:powerh-l-bounces+atla38=dsl.pipex.com at lists.sowder.com] On Behalf Of
Abd Ghani Abdullah
Sent: 16 March 2007 16:35
To: powerh-l at lists.sowder.com
Subject: SETSYSTEMVAL


Powerhouse 8.43.D1 / HP-UX

Hello there,

I'm trying to set the system variable for the subscreen to identify which
file 
it should use.

eg:
in PHD
File AA Open $AA

In quick - 1st screen
LET b = "AA" + staff-id
if not setsystemval(AA,b)
 then error "cannot set work file")
run screen subscreen

in quick subscreen
some processing
PUT AA

I got the following error
Data access error. (AA*01)
No such file or directory (ERRNO 2)

I also tried to combined the command in a single screen, i.e. set the
variable 
and PUT in the same procedure to no avail.

Please help.

Thanks & regards.
Ghani.
-- 
= = = = = = = = = = = = = = = = = = = = = = = = = = = =
Mailing list: powerh-l at lists.sowder.com
Subscribe: "subscribe" in message body to
powerh-l-request at lists.sowder.com
Unsubscribe: "unsubscribe <password>" in message body to
powerh-l-request at lists.sowder.com
http://lists.sowder.com/mailman/listinfo/powerh-l
This list is closed, thus to post to the list you must be a subscriber.
Add 'site:lists.sowder.com powerh-l' to your search terms to search the list
archive at Google.