SEO

#1 (**permalink**) 04-19-2008, 09:28 PM

This is a multi-part message in MIME format.

------_=_NextPart_001_01C43F0E.D6D47466
Content-Type: text/plain;
charset="us-ascii"
Content-Transfer-Encoding: quoted-printable

Thank you very much. I tried this and it worked very well.

=20

I played around with the RETURN syntax, forgetting about the EXIT
syntax.

=20

=20

Thanks Fernando.

=20

Regards

Dirk

=20

=20

-----Original Message-----
From: Fernando Ortiz [mailto:fortiz@lacorona.com.mx]=20
Sent: Thursday, May 20, 2004 8:28 PM
To: Dirk Moolman; informix-list@iiug.org
Subject: Re: Passing a value from Unix into 4GL ?

=20

Hi Dirk,

=20

There's a workaround if the unix command only returns ONE integer value.

=20

As you can see I'm not a shell programmer, but the following script do a
line count in the file given as first parameter and then returns the
line count as the exit code.

=20

[ortiz@adela bin]$ cat cuenta
#/bin/bash
a=3D`wc -l $1`
b=3D`echo $a | cut -f 1 -d \ `
exit $b

=20

And this small 4gl, prompts for a file name, runs the shell script and
returns the 'exit code' from the script.

=20

[ortiz@adela bin]$ cat cuenta.4gl
MAIN

=20

DEFINE w_arch char(30),
w_comm char(80),
w_line smallint

=20

PROMPT "File name ? " FOR w_arch
LET w_comm =3D "cuenta ", w_arch
RUN w_comm RETURNING w_line
LET w_line =3D w_line / 256
DISPLAY "LINES =3D ", w_line

=20

END MAIN

=20

=20

=20

The programs works BUT I need to divide the returning value by 256,
maybe is a problem in my linux port.

=20

[ortiz@adela bin]$ fglgo -V
INFORMIX-4GL Version 7.30.UC7
Pcode Version 730

=20

=20

HTH

----- Original Message -----=20

From: Dirk Moolman <mailto

irkM@mxgroup.co.za> =20

To: informix-list@iiug.org=20

Sent: Thursday, May 20, 2004 10:56 AM

Subject: Passing a value from Unix into 4GL ?

=20

I am searching the net, but can't find an answer yet. =20

=20

How can I run a 4GL, that will run a Unix command, and then keep

the result of the Unix command in a variable in the 4GL ?

=20

=20

Example: =20

=20

Let's say I have a script that does a word count (wc) on a file.

I want to run this script from a 4GL program, and then use the
result

of the word count in the 4GL.

=20

Should be simple, but I don't know how ...

=20

=20

=20

=20

=20

Dirk Moolman

Database and Unix Administrator

MXGROUP

=20

=20

"People demand freedom of speech as a compensation for the
freedom of thought which they seldom use."=20

-Kierkegaard=20

=20

=09
=09
=09

=09
________________________________

<< ella for Spam Control >> has removed 976 Spam messages and set aside
515 Newsletters for me
You can use it too - and it's FREE! www.ellaforspam.com

=20

------_=_NextPart_001_01C43F0E.D6D47466
Content-Type: text/html;
charset="us-ascii"
Content-Transfer-Encoding: quoted-printable

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<html>

<head>
<META HTTP-EQUIV=3D"Content-Type" CONTENT=3D"text/html; =
charset=3Dus-ascii">

<meta name=3DGenerator content=3D"Microsoft Word 10 (filtered)">

<style>
<!--
/* Font Definitions */
@font-face
{font-family:Courier;
panose-1:2 7 4 9 2 2 5 2 4 4;}
@font-face
{font-family:Tahoma;
panose-1:2 11 6 4 3 5 4 4 2 4;}
/* Style Definitions */
p.MsoNormal, li.MsoNormal, div.MsoNormal
{margin:0in;
margin-bottom:.0001pt;
font-size:12.0pt;
font-family:"Times New Roman";}
a:link, span.MsoHyperlink
{color:blue;
text-decoration:underline;}
a:visited, span.MsoHyperlinkFollowed
{color

urple;
text-decoration:underline;}
p.MsoPlainText, li.MsoPlainText, div.MsoPlainText
{margin:0in;
margin-bottom:.0001pt;
font-size:10.0pt;
font-family:"Courier New";}
span.EmailStyle18
{font-family:Arial;
color:navy;}
@page Section1
{size:8.5in 11.0in;
margin:1.0in 77.95pt 1.0in 77.95pt;}
div.Section1
{page:Section1;}
-->
</style>

</head>

<body bgcolor=3Dwhite lang=3DEN-US link=3Dblue vlink=3Dpurple>

<div class=3DSection1>

Thank you very much.  I tried =
this and it
worked very well.

 

I played around with the RETURN =
syntax,
forgetting about the EXIT syntax.

 

 

Thanks Fernando.

 

Regards

Dirk

 

 

-----Original =
Message----- 
From: Fernando Ortiz
[mailto:fortiz@lacorona.com.mx] 
Sent: Thursday, May 20, =
2004 8:28
PM 
To: Dirk Moolman;
informix-list@iiug.org 
Subject: Re: Passing a =
value from
Unix into 4GL ?

 

<div>

Hi =
Dirk,

</div>

<div>

 

</div>

<div>

There's a workaround if =
the unix
command only returns ONE integer value.

</div>

<div>

 

</div>

<div>

As you can see I'm not a =
shell
programmer, but the following script do a line count in the file given =
as first
parameter and then returns the line count as the exit =
code.

</div>

<div>

 

</div>

<div>

[ortiz@adela bin]$ cat =
cuenta 
#/bin/bash 
a=3D`wc -l $1` 
b=3D`echo $a | cut -f 1 -d \  ` 
exit $b

</div>

<div>

 

</div>

<div>

And this small 4gl, =
prompts for a
file name, runs the shell script and returns the 'exit code' from the =
script.

</div>

<div>

 

</div>

<div>

 
[ortiz@adela bin]$ cat cuenta.4gl 
MAIN

</div>

<div>

 

</div>

<div>

DEFINE w_arch =
char(30), 
       w_comm char(80), 
       w_line smallint

</div>

<div>

 

</div>

<div>

PROMPT "File name ? =
"
FOR w_arch 
LET w_comm =3D "cuenta ", w_arch 
RUN w_comm RETURNING w_line 
LET w_line =3D w_line / 256 
DISPLAY "LINES =3D ", w_line

</div>

<div>

 

</div>

<div>

END =
MAIN

</div>

<div>

 

</div>

<div>

 

</div>

<div>

 

</div>

<div>

The programs works BUT I =
need to
divide the returning value by 256, maybe is a problem in my linux =
port.

</div>

<div>

 

</div>

<div>

[ortiz@adela bin]$ fglgo =
-V 
INFORMIX-4GL Version   7.30.UC7 
Pcode Version 730

</div>

<div>

 

</div>

<div>

 

</div>

<div>

HTH

</div>

<blockquote style=3D'border:none;border-left:solid black =
1.5pt;padding:0in 0in 0in 4.0pt;
margin-left:3.75pt;margin-top:5.0pt;margin-right:0in;margin-bottom:5.0pt'=
>

<div>

----- Original Message =
----- 

</div>

<div style=3D'font-color:black'>

From:</span=
> <a
href=3D"mailto

irkM@mxgroup.co.za" title=3D"DirkM@mxgroup.co.za">Dirk =
Moolman</a> 

</div>

<div>

To:<=
/font> <a
href=3D"mailto:informix-list@iiug.org" =
title=3D"informix-list@iiug.org">informix-list@iiug.org</a>


</div>

<div>

Sent:</span=
> Thursday,
May 20, 2004 10:56 AM

</div>

<div>

Subject:</s=
pan> Passing a
value from Unix into 4GL ?

</div>

<div>

 

</div>

I am searching the net, but can't find an =
answer
yet.  

 

How can I run a 4GL, that will run a Unix =
command, and
then keep

the result of the Unix command in a variable =
in the
4GL ?

 

 

Example:  =


 

Let's say I have a script that does a word =
count (wc)
on a file.

I want to run this script from a 4GL program, =
and then
use the result

of the word count in the =
4GL.

 

Should be simple, but I don't know how =
....

 

 

 

 

 

Dirk Moolman

Database and Unix =
Administrator

MXGROUP

 

 

"People demand freedom of speech as a
compensation for the freedom of thought which they seldom use." =


-Kierkegaard 

 

 
 




<div class=3DMsoNormal align=3Dcenter =
style=3D'margin-left:.5in;text-align:center'>

<hr size=3D2 width=3D"100%" align=3Dcenter>

</div>

<table class=3DMsoNormalTable border=3D1 cellspacing=3D0 cellpadding=3D0 =
width=3D626
bgcolor=3D"#FFFF99" =
style=3D'width:469.6pt;margin-left:.5in;background:#FFFF99;
border

utset #999999 1.0pt'>
<tr>
<td style=3D'border:inset #999999 1.0pt;padding:6.0pt 6.0pt 6.0pt =
6.0pt'>
<< ella for Spam Control >> has
removed 976 Spam =
messages and
set aside 515 =
Newsletters for me 
You can use it too - and it's FREE!  <a =
href=3D"http://www.ellaforspam.com">www.ellaforspam.com</a>=

</td>
</tr>
</table>

 

</blockquote>

</div>

</body>

</html>
=00
------_=_NextPart_001_01C43F0E.D6D47466--
sending to informix-list

Thread Tools
Show Printable Version Email this Page
Display Modes
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode

SEO

RE: Passing a value from Unix into 4GL ?