Getsystemval?

[Lorry Litman]

Hi, I think if you use the job table instead of the group table the
logical may work. Although to retrieve $status you may need to run the
dcl command procedure that has the DIR command and setting $status.
Lorry

-----Original Message-----
From: powerh-l-bounces+llitman=manitoba-ehealth.ca at lists.sowder.com
[mailto:powerh-l-bounces+llitman=manitoba-ehealth.ca at lists.sowder.com]
On Behalf Of GJohnson
Sent: July 16, 2008 13:26
To: Thomson, Martyn EDUC:EX; powerh-l at lists.sowder.com
Subject: RE: Getsystemval?

Is it possible that the variable created, perhaps in a sub-process, is
not passed back? You may have to send the output to a file and check
that. 

Gerry Johnson


-----Original Message-----
From: powerh-l-bounces+gjohnson=mbfoster.com at lists.sowder.com
[mailto:powerh-l-bounces+gjohnson=mbfoster.com at lists.sowder.com] On
Behalf Of Thomson, Martyn EDUC:EX
Sent: July 16, 2008 2:04 PM
To: powerh-l at lists.sowder.com
Subject: Getsystemval?


Hello Listers,
I'm trying to add a check to initialize procedure of a QUICK screen to
check for the existence of a file using "RUN COMMAND", and testing
$STATUS indirectly with GETSYSTEMVAL. Something like this - 

DEFINE t_SRB_FILES CHAR*10 = GETSYSTEMVAL("SRB_FILES",SYMBOL)

  RUN COMMAND "dir/sin/out=sys$login:srblist.tmp xtr$srb"
  RUN COMMAND "SRB_FILES == $STATUS"
  IF t_SRB_FILES = "%X00000001"
  THEN BEGIN
      WARNING = "ERROR: Cannot proceed: Vouchers posted to CAS already
today" &
        NOW RESPONSE
      RETURN
  END

Although this works fine interactively in DCL the GETSYSTEMVAL returns
an empty string. 
I've tried making it a TEMP and using LET t_SRB_FILES =
GETSYSTEMVAL("SRB_FILES",SYMBOL)
 
I've tried using logicals - RUN COMMAND "DEFINE/GROUP SRB_FILES
'$STATUS"  
                            LET t_SRB_FILES =
GETSYSTEMVAL("SRB_FILES",LOGICAL,"(LNM$GROUP")

I've tried interrogating $STATUS directly - LET t_SRB_FILES =
GETSYSTEMVAL("$STATUS",SYMBOL)
A value is returned but is the same irrespective of whether the file
exists! Any ideas how to make this work?

Martyn Thomson
PowerHouse 7.10G1 on OpenVMS 8.3

-- 
= = = = = = = = = = = = = = = = = = = = = = = = = = = =
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.

-- 
= = = = = = = = = = = = = = = = = = = = = = = = = = = =
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.
-------------- next part --------------
This email and/or any documents in this transmission is intended for the
addressee(s) only and may contain legally privileged or confidential information.  Any unauthorized use, disclosure, distribution, copying or dissemination is strictly prohibited.  If you receive this transmission in error, please notify the sender immediately and return the original.

Ce courriel et tout document dans cette transmission est destin? ? la personne ou aux personnes ? qui il est adress?. Il peut contenir des informations privil?gi?es ou confidentielles. Toute utilisation, divulgation, distribution, copie, ou diffusion non autoris?e est strictement d?fendue. Si vous n'?tes pas le destinataire de ce message, veuillez en informer l'exp?diteur imm?diatement et lui remettre l'original.