Re: Problem with creating empty file

Nope - still works for me...


Can you have a look and see if there are any other files call text-txt.txt
in your $DBPATH ?

It will be using DBPATH to find the file - so it might not be the one you
think it is...



On 21 March 2013 14:42, Daniel Kroker <[email protected]> wrote:

>  Perhabs it is a problem with the locale?
>
> We have:
>
> <ENV NAME="DB_LOCALE" VALUE="de_de.PC-Latin-1"/>
>
> <ENV NAME="LANG" VALUE="de_DE.utf8"/>
>
> Complete output:
>
>
> << <ENVELOPE ID="3" PID="18044">
>
> <COMMANDS>
>
> <PROGRAMSTARTUP PROGRAMNAME="./m" ID="3">
>
> <ENV NAME="DBPATH"
> VALUE=":/v/MAIN/schema/:/t/compiler/a4gl/tools:/home/dk/aubit4gl/tools:/t/compiler/a4gl/incl:/home/dk/aubit4gl/incl:."/>
>
> <ENV NAME="DBDATE" VALUE="DMY4."/>
>
> <ENV NAME="DBMONEY" VALUE=","/>
>
> <ENV NAME="A4GL_NUMERIC" VALUE=","/>
>
> <ENV NAME="DB_LOCALE" VALUE="de_de.PC-Latin-1"/>
>
> <ENV NAME="LANG" VALUE="de_DE.utf8"/>
>
> <ENV NAME="A4GL_VERSION" VALUE="1.2.33"/>
>
> <ENV NAME="XML_VERSION" VALUE="1.3"/>
>
> </PROGRAMSTARTUP>
>
> </COMMANDS>
>
> </ENVELOPE>
>
> <<
>
> <ENVELOPE ID="3" PID="18044">
>
> <COMMANDS>
>
> <RUNINFO MODE="1" CMD="cat /dev/null &gt; text-txt.txt" RUNCNT="1"
> STARTSTOP="1" />
>
> </COMMANDS>
>
> </ENVELOPE>
>
> <<
>
> <ENVELOPE ID="3" PID="18044">
>
> <COMMANDS>
>
> <RUNINFO MODE="1" CMD="cat /dev/null &gt; text-txt.txt" RUNCNT="1"
> STARTSTOP="0" />
>
> </COMMANDS>
>
> </ENVELOPE>
>
> <<
>
> <ENVELOPE ID="3" PID="18044">
>
> <COMMANDS>
>
> <FILE NAME="text-txt.txt">mFG/t+j0BggQ</FILE>
>
> </COMMANDS>
>
> </ENVELOPE>
>
> <<
>
> <ENVELOPE ID="3" PID="18044">
>
> <COMMANDS>
>
> <FRONTCALL MODULE="INTERNAL" NAME="ui.vdc.execute"
> EXPECT="1"><VS><V>text-txt.txt</V></VS></FRONTCALL>
>
> </COMMANDS>
>
> </ENVELOPE>
>
> <<
>
> <ENVELOPE ID="3" PID="18044">
>
> <COMMANDS>
>
> <WAITFOREVENT/>
>
> </COMMANDS>
>
> </ENVELOPE>
>
> >> <TRIGGERED ID="-123">
>
> <SVS/>
>
> </TRIGGERED>
>
> <<
>
> <ENVELOPE ID="3" PID="18044">
>
> <COMMANDS>
>
> <PROGRAMSTOP EXITCODE="0" ID="3">
>
> </PROGRAMSTOP>
>
> </COMMANDS>
>
> </ENVELOPE>
>
>
>  Am 21.03.2013 15:28, schrieb Mike Aubury:
>
>  I do not get that here..
> Running that program I get :
>
> <ENVELOPE ID="1" PID="7615">
> <COMMANDS>
> <PROGRAMSTARTUP PROGRAMNAME="./x1" ID="0">
> <ENV NAME="DBPATH"
> VALUE=":/home/aubit4gl/aubit4glsrc/tools:/home/aubit4gl/aubit4gl/tools:/home/aubit4gl/aubit4glsrc/incl:/home/aubit4gl/aubit4gl/aubit4gl/incl:."/>
> <ENV NAME="DBDATE" VALUE="dmy4/"/>
> <ENV NAME="DBMONEY" VALUE="#."/>
> <ENV NAME="A4GL_NUMERIC" VALUE=""/>
> <ENV NAME="DB_LOCALE" VALUE=""/>
> <ENV NAME="LANG" VALUE=""/>
> <ENV NAME="A4GL_VERSION" VALUE="1.2.33"/>
> <ENV NAME="XML_VERSION" VALUE="1.3"/>
> </PROGRAMSTARTUP>
> </COMMANDS>
> </ENVELOPE>
> <ENVELOPE ID="1" PID="7615">
> <COMMANDS>
> <RUNINFO MODE="1" CMD="cat /dev/null &gt; text-txt.txt" RUNCNT="1"
> STARTSTOP="1" />
> </COMMANDS>
> </ENVELOPE>
> <ENVELOPE ID="1" PID="7615">
> <COMMANDS>
> <RUNINFO MODE="1" CMD="cat /dev/null &gt; text-txt.txt" RUNCNT="1"
> STARTSTOP="0" />
> </COMMANDS>
> </ENVELOPE>
> <ENVELOPE ID="1" PID="7615">
> <COMMANDS>
> <FILE NAME="text-txt.txt"></FILE>
> </COMMANDS>
> </ENVELOPE>
> <ENVELOPE ID="1" PID="7615">
> <COMMANDS>
> <FRONTCALL MODULE="INTERNAL" NAME="ui.vdc.execute"
> EXPECT="1"><VS><V>text-txt.txt</V></VS></FRONTCALL>
> </COMMANDS>
> </ENVELOPE>
> <ENVELOPE ID="1" PID="7615">
> <COMMANDS>
> <WAITFOREVENT/>
> </COMMANDS>
> </ENVELOPE>
> ^C<ENVELOPE ID="1" PID="7615">
> <COMMANDS>
> <PROGRAMSTOP EXITCODE="0" ID="0">
> </PROGRAMSTOP>
> </COMMANDS>
> </ENVELOPE>
>
>
>
>  (This is from the command line with A4GL_UI=XML, but no AFGLSERVER set -
> so it just outputs to the standard output)
>
>
> On 21 March 2013 13:27, Daniel Kroker <[email protected]> wrote:
>
>> Hello,
>>
>> Example:
>>
>> MAIN
>> DEFINE file CHAR(200)
>> DEFINE runtxt CHAR(500)
>> DEFINE l_errorval CHAR(500)
>>
>> LET file = "text-txt.txt"
>>
>> LET runtxt = "cat /dev/null > ", file
>> RUN runtxt CLIPPED
>> RETURNING l_errorval
>> IF aclfgl_sendfile_to_ui(file CLIPPED) THEN END IF
>> IF ui.vdc.execute(file CLIPPED) THEN END IF
>>
>> END MAIN
>>
>>
>> In this example text-txt.txt is empty and were sent to the client.
>> Over the Protocoll i can see:
>>
>> <COMMANDS>
>>
>> <FILE NAME="text-txt.txt">mKG2t+j0BggQ</FILE>
>>
>> </COMMANDS>
>>
>> </ENVELOPE>
>>
>>
>> If i open the file with Notepad the file has the text: "˜ ½·èô   " but i
>> dont know why.
>> What is the problem with RUN and cat ?
>>
>>
>> --
>> Mit freundlichen Grüßen
>>
>> i.A. Daniel kroker
>> VENTAS AG
>>
>> VENTAS AG
>> Mexikoring 29
>> D-22297 Hamburg
>> Germany
>>
>> [email protected]
>> www.ventas.de
>>
>> Tel +49-40-32 33 34-0 <%2B49-40-32%2033%2034-0>
>> Fax +49-40-32 33 34-38 <%2B49-40-32%2033%2034-38>
>>
>> VENTAS AG
>> Firmensitz: Mexikoring 29, 22297 Hamburg, Deutschland
>> Registergericht: Hamburg, HRB 80297
>> Ust.IdNr.: DE118686712
>> Vorstandsvorsitzender: Dipl.Ing. Alain Siverly
>> Aufsichtsratsvorsitzender: Dr. Olaf Rehme
>>
>>
>>
>> ------------------------------------------------------------------------------
>> Everyone hates slow websites. So do we.
>> Make your web apps faster with AppDynamics
>> Download AppDynamics Lite for free today:
>> http://p.sf.net/sfu/appdyn_d2d_mar
>> _______________________________________________
>> Aubit4gl-discuss mailing list
>> [email protected]
>> https://lists.sourceforge.net/lists/listinfo/aubit4gl-discuss
>>
>
>
>
> --
> Mit freundlichen Grüßen
>
> i.A. Daniel kroker
> VENTAS AG
>
> VENTAS AG
> Mexikoring 29
> D-22297 Hamburg
> Germany
> [email protected]
>
> Tel +49-40-32 33 34-0
> Fax +49-40-32 33 34-38
>
> VENTAS AG
> Firmensitz: Mexikoring 29, 22297 Hamburg, Deutschland
> Registergericht: Hamburg, HRB 80297
> Ust.IdNr.: DE118686712
> Vorstandsvorsitzender: Dipl.Ing. Alain Siverly
> Aufsichtsratsvorsitzender: Dr. Olaf Rehme
>
>
>
> ------------------------------------------------------------------------------
> Everyone hates slow websites. So do we.
> Make your web apps faster with AppDynamics
> Download AppDynamics Lite for free today:
> http://p.sf.net/sfu/appdyn_d2d_mar
> _______________________________________________
> Aubit4gl-discuss mailing list
> [email protected]
> https://lists.sourceforge.net/lists/listinfo/aubit4gl-discuss
>
>

------------------------------------------------------------------------------
Everyone hates slow websites. So do we.
Make your web apps faster with AppDynamics
Download AppDynamics Lite for free today:
http://p.sf.net/sfu/appdyn_d2d_mar

_______________________________________________
Aubit4gl-discuss mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/aubit4gl-discuss