getenv - unix - fp 5.0.13

[Enrique Arredondo]

----- Original Message ----- 
From: "Bob Stockler" <bob at trebor.iglou.com>
To: "FilePro Mailing List" <filepro-list at seaslug.org>
Sent: Tuesday, March 09, 2004 5:13 PM
Subject: Re: getenv - unix - fp 5.0.13


> On Tue, Mar 09, 2004 at 04:29:54PM -0500, Jean-Pierre A. Radley wrote:
> |
> | Try filePro's USER command instead:
> | Off the top of my head (meaning "not tested"):
> |
> | ::uu="/usr/vsifax/bin/flog -a"<2:
> | ::user getflog=uu:
> | ::aa(30,allup)=getflog:
>
> This was recently discussed on the filePro Mailing List.
>
> The USER command requires:
>
>   Then: USER alias = /hard/coded/non-variable/argument-of/program-name
>   Then: alias      = "query sent to USER program"
>   Then: ANSWER     = alias ; declare ANSWER
>
> where "alias" is like any other alias, given to a LOOKUP or
> whatever; "query sent to USER program" may be a string literal
> or a dummy or real field or any compination of them; and ANSWER
> is a variable to receive the reply from the USER program.
>
> The "Then: USER" line should be encountered only once by the
> processing, but a loop may (or may not) surround the other two
> lines to continue to query the user program (if it is itself
> capable of continuing, reading its standard input, and responding).
>
> Bob
>
> PS - I think the USER command is one of the most underused features
>      of filePro.  I have programs that use filePro file i/o that
>      write shell scripts on the fly to be called by USER.
>
>      Too bad it's not available on Windows, though now I think that
>      broken-since-birth OS might be able to support it - if fPtech
>      saw fit to implement it (one uninformed person's opinion).
>
> -- 
> Bob Stockler - bob at trebor.iglou.com

I tried it but I'm getting the following:
  1  -------   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -
       . If:
.
       Then: user getname="/usr/vsifax/bin/flog"
.
  2  -------   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -
       . If:
.
       Then: getname="-a"<2
.
  3  -------   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -
fetch  . If:
.
       Then: answer=getname;declare answer
.
  4  -------   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -
       . If:
.
       Then: msgbox answer

report wuhistfax -f poststatus -a -u

                 bb b b b b b b b b b b b b b b b b b b b b b b b b b b b b b b b b b b b b b b b b b b b b
                 b ?a13R55C?`5?(?(?*?(?*?a1R1C?(?*?a1R1C?(?`5 b
                 bb b b b b b b b b b b b b b b b b b b b b b b b b b b  Press  Return   b

[After hitting return it just shells out:]




                          Records Selected:        42

                         Generating Output:        41 /usr2/henry>



Maybe that argument * -a * is killing it right ?


Thanks for all people that answered my email