<html xmlns:o="urn:schemas-microsoft-com:office:office" xmlns:w="urn:schemas-microsoft-com:office:word" xmlns="http://www.w3.org/TR/REC-html40">
<head>
<meta http-equiv=Content-Type content="text/html; charset=us-ascii">
<meta name=Generator content="Microsoft Word 11 (filtered medium)">
<style>
<!--
/* Style Definitions */
p.MsoNormal, li.MsoNormal, div.MsoNormal
{margin:0cm;
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:purple;
text-decoration:underline;}
p
{margin-top:4.0pt;
margin-right:6.5pt;
margin-bottom:0cm;
margin-left:5.75pt;
margin-bottom:.0001pt;
font-size:9.0pt;
font-family:Arial;}
span.EmailStyle17
{mso-style-type:personal-compose;
font-family:Arial;
color:windowtext;}
@page Section1
{size:612.0pt 792.0pt;
margin:72.0pt 90.0pt 72.0pt 90.0pt;}
div.Section1
{page:Section1;}
-->
</style>
</head>
<body lang=EN-US link=blue vlink=purple>
<div class=Section1>
<p class=MsoNormal><font size=2 face=Arial><span lang=EN-AU style='font-size:
10.0pt;font-family:Arial'>Hi all <o:p></o:p></span></font></p>
<p class=MsoNormal><font size=2 face=Arial><span lang=EN-AU style='font-size:
10.0pt;font-family:Arial'><o:p> </o:p></span></font></p>
<p class=MsoNormal><font size=2 face=Arial><span lang=EN-AU style='font-size:
10.0pt;font-family:Arial'>Can anyone please explain the use of open () or
create() with the writeline() commands please.<o:p></o:p></span></font></p>
<p class=MsoNormal><font size=2 face=Arial><span lang=EN-AU style='font-size:
10.0pt;font-family:Arial'><o:p> </o:p></span></font></p>
<p class=MsoNormal><font size=2 face=Arial><span lang=EN-AU style='font-size:
10.0pt;font-family:Arial'><o:p> </o:p></span></font></p>
<p class=MsoNormal><font size=2 face=Arial><span lang=EN-AU style='font-size:
10.0pt;font-family:Arial'><o:p> </o:p></span></font></p>
<p class=MsoNormal><font size=2 face=Arial><span lang=EN-AU style='font-size:
10.0pt;font-family:Arial'>LF = open (“path/filename”, “rwct”)<o:p></o:p></span></font></p>
<p class=MsoNormal><font size=2 face=Arial><span lang=EN-AU style='font-size:
10.0pt;font-family:Arial'><o:p> </o:p></span></font></p>
<p><font size=1 color="#010100" face="Times New Roman"><span style='font-size:
9.0pt;font-family:"Times New Roman";color:#010100'>"filename" is the
name of the file to be opened.<br>
"mode" is the access mode to use (see below).<br>
"aa" is the file handle.</span></font><o:p></o:p></p>
<p style='margin-top:0cm'><font size=1 face=Arial><span style='font-size:9.0pt'> <o:p></o:p></span></font></p>
<p style='margin-bottom:2.5pt'><b><font size=1 color="#010100"
face="Times New Roman"><span style='font-size:9.0pt;font-family:"Times New Roman";
color:#010100;font-weight:bold'>Parameters</span></font></b><o:p></o:p></p>
<p><font size=1 color="#010100" face="Times New Roman"><span style='font-size:
9.0pt;font-family:"Times New Roman";color:#010100'>mode r - read
access<br>
w - write access<br>
c - create if doesn't exist<br>
0 - truncate if already exists<br>
b - binary mode<br>
t - text mode</span></font><o:p></o:p></p>
<p style='margin-top:0cm'><font size=1 face=Arial><span style='font-size:9.0pt'> <o:p></o:p></span></font></p>
<p class=MsoNormal><font size=2 face=Arial><span lang=EN-AU style='font-size:
10.0pt;font-family:Arial'><o:p> </o:p></span></font></p>
<p class=MsoNormal><font size=2 face=Arial><span lang=EN-AU style='font-size:
10.0pt;font-family:Arial'>& er = writeline(lf,sq)<o:p></o:p></span></font></p>
<p class=MsoNormal><font size=2 face=Arial><span lang=EN-AU style='font-size:
10.0pt;font-family:Arial'>sq being the sql statement<o:p></o:p></span></font></p>
<p class=MsoNormal><font size=2 face=Arial><span lang=EN-AU style='font-size:
10.0pt;font-family:Arial'><o:p> </o:p></span></font></p>
<p><font size=1 color="#010100" face="Times New Roman"><span style='font-size:
9.0pt;font-family:"Times New Roman";color:#010100'> Then:
bytes = WRITELINE(handle,source,length)<br>
Then: bytes =
WRITELINE(handle,source)</span></font><o:p></o:p></p>
<p style='margin-top:0cm'><font size=1 face=Arial><span style='font-size:9.0pt'> <o:p></o:p></span></font></p>
<p style='margin-left:36.0pt'><font size=1 color="#010100"
face="Times New Roman"><span style='font-size:9.0pt;font-family:"Times New Roman";
color:#010100'>"handle" is the file handle returned by OPEN() or
CREATE().<br>
"source" is the data to write.<br>
"length" is the number of bytes to write.</span></font><o:p></o:p></p>
<p style='text-indent:36.0pt'><font size=1 color="#010100"
face="Times New Roman"><span style='font-size:9.0pt;font-family:"Times New Roman";
color:#010100'>"bytes" is the number of bytes written, including
newline</span></font><o:p></o:p></p>
<p><font size=1 color="#010100" face="Times New Roman"><span style='font-size:
9.0pt;font-family:"Times New Roman";color:#010100'>If length is not specified,
the length of the source field is used.</span></font><o:p></o:p></p>
<p style='margin-top:0cm'><font size=1 face=Arial><span style='font-size:9.0pt'> <o:p></o:p></span></font></p>
<p><font size=1 color="#010100" face="Times New Roman"><span style='font-size:
9.0pt;font-family:"Times New Roman";color:#010100'>A newline character is
appended to the information written.</span></font><o:p></o:p></p>
<p style='margin-top:0cm'><font size=1 face=Arial><span style='font-size:9.0pt'> <o:p></o:p></span></font></p>
<p><font size=1 color="#010100" face="Times New Roman"><span style='font-size:
9.0pt;font-family:"Times New Roman";color:#010100'>Return value<br>
<br>
The number of bytes written, including the newline.</span></font><o:p></o:p></p>
<p style='margin-top:0cm'><font size=1 face=Arial><span style='font-size:9.0pt'> <o:p></o:p></span></font></p>
<p><b><font size=1 color="#010100" face="Times New Roman"><span
style='font-size:9.0pt;font-family:"Times New Roman";color:#010100;font-weight:
bold'>Note:</span></font></b><font color="#010100" face="Times New Roman"><span
style='font-family:"Times New Roman";color:#010100'> The file must be opened in
text mode. A newline character is appended to the information written.</span></font><o:p></o:p></p>
<p class=MsoNormal><font size=2 face=Arial><span lang=EN-AU style='font-size:
10.0pt;font-family:Arial'><o:p> </o:p></span></font></p>
<p class=MsoNormal><font size=2 face=Arial><span lang=EN-AU style='font-size:
10.0pt;font-family:Arial'><o:p> </o:p></span></font></p>
<p class=MsoNormal><font size=2 face=Arial><span lang=EN-AU style='font-size:
10.0pt;font-family:Arial'><o:p> </o:p></span></font></p>
<p class=MsoNormal><font size=2 face=Arial><span lang=EN-AU style='font-size:
10.0pt;font-family:Arial'><o:p> </o:p></span></font></p>
<p class=MsoNormal><font size=2 face=Arial><span lang=EN-AU style='font-size:
10.0pt;font-family:Arial'>Yet each time a new record is done in the rreport it
dumps over previous lines/file.<o:p></o:p></span></font></p>
<p class=MsoNormal><font size=2 face=Arial><span lang=EN-AU style='font-size:
10.0pt;font-family:Arial'><o:p> </o:p></span></font></p>
<p class=MsoNormal><font size=2 face=Arial><span lang=EN-AU style='font-size:
10.0pt;font-family:Arial'><o:p> </o:p></span></font></p>
<p class=MsoNormal><font size=2 face=Arial><span lang=EN-AU style='font-size:
10.0pt;font-family:Arial'><o:p> </o:p></span></font></p>
<p class=MsoNormal><font size=2 face=Arial><span lang=EN-AU style='font-size:
10.0pt;font-family:Arial'>FP Ver 4.8.13 Windows<o:p></o:p></span></font></p>
<p class=MsoNormal><font size=2 face=Arial><span lang=EN-AU style='font-size:
10.0pt;font-family:Arial'><o:p> </o:p></span></font></p>
<p class=MsoNormal><font size=2 face=Arial><span lang=EN-AU style='font-size:
10.0pt;font-family:Arial'>::'FILEPRO TO MYSQL DUMP:<o:p></o:p></span></font></p>
<p class=MsoNormal><font size=2 face=Arial><span lang=EN-AU style='font-size:
10.0pt;font-family:Arial'><o:p> </o:p></span></font></p>
<p class=MsoNormal><font size=2 face=Arial><span lang=EN-AU style='font-size:
10.0pt;font-family:Arial'>::co (1,.0,g); cx (8,.0) = "1":<o:p></o:p></span></font></p>
<p class=MsoNormal><font size=2 face=Arial><span lang=EN-AU style='font-size:
10.0pt;font-family:Arial'>:'file fields count:fc (3,.0) = NUMFIELD(-):<o:p></o:p></span></font></p>
<p class=MsoNormal><font size=2 face=Arial><span lang=EN-AU style='font-size:
10.0pt;font-family:Arial'>::lf =
open("c:/fp/output/mysql_dump.txt","rwc"):<o:p></o:p></span></font></p>
<p class=MsoNormal><font size=2 face=Arial><span lang=EN-AU style='font-size:
10.0pt;font-family:Arial'>:lf lt "0":errorbox " Failed to open
file " ; end:<o:p></o:p></span></font></p>
<p class=MsoNormal><font size=2 face=Arial><span lang=EN-AU style='font-size:
10.0pt;font-family:Arial'>::' now build record data:<o:p></o:p></span></font></p>
<p class=MsoNormal><font size=2 face=Arial><span lang=EN-AU style='font-size:
10.0pt;font-family:Arial'>::dim fields(49)1:<o:p></o:p></span></font></p>
<p class=MsoNormal><font size=2 face=Arial><span lang=EN-AU style='font-size:
10.0pt;font-family:Arial'>::sq = "":<o:p></o:p></span></font></p>
<p class=MsoNormal><font size=2 face=Arial><span lang=EN-AU style='font-size:
10.0pt;font-family:Arial'>loop:cx gt fc:goto out:<o:p></o:p></span></font></p>
<p class=MsoNormal><font size=2 face=Arial><span lang=EN-AU style='font-size:
10.0pt;font-family:Arial'>:cx eq “1”: sq = sq & “ INSERT
INTO customer “:<o:p></o:p></span></font></p>
<p class=MsoNormal><font size=2 face=Arial><span lang=EN-AU style='font-size:
10.0pt;font-family:Arial'>:cx eq "1" '
Open Bracket of new record:sq = sq < "("&
"'"{@rn{"',":<o:p></o:p></span></font></p>
<p class=MsoNormal><font size=2 face=Arial><span lang=EN-AU style='font-size:
10.0pt;font-family:Arial'>::nm = FIELDNAME(-,cx):<o:p></o:p></span></font></p>
<p class=MsoNormal><font size=2 face=Arial><span lang=EN-AU style='font-size:
10.0pt;font-family:Arial'>:
' field data in quotes:sq = sq & "'"{fields(cx){"'"{"-"{nm:<o:p></o:p></span></font></p>
<p class=MsoNormal><font size=2 face=Arial><span lang=EN-AU style='font-size:
10.0pt;font-family:Arial'>:cx ne
fc
' comma between fields:sq = sq{",":<o:p></o:p></span></font></p>
<p class=MsoNormal><font size=2 face=Arial><span lang=EN-AU style='font-size:
10.0pt;font-family:Arial'>:cx eq
fc
' Close bracket for last field:sq = sq & ")":<o:p></o:p></span></font></p>
<p class=MsoNormal><font size=2 face=Arial><span lang=EN-AU style='font-size:
10.0pt;font-family:Arial'>::cx = cx + "1":<o:p></o:p></span></font></p>
<p class=MsoNormal><font size=2 face=Arial><span lang=EN-AU style='font-size:
10.0pt;font-family:Arial'>::goto loop:<o:p></o:p></span></font></p>
<p class=MsoNormal><font size=2 face=Arial><span lang=EN-AU style='font-size:
10.0pt;font-family:Arial'>out::' check to see if last record:<o:p></o:p></span></font></p>
<p class=MsoNormal><font size=2 face=Arial><span lang=EN-AU style='font-size:
10.0pt;font-family:Arial'>:@rp ne @ts:sq = sq {",":<o:p></o:p></span></font></p>
<p class=MsoNormal><font size=2 face=Arial><span lang=EN-AU style='font-size:
10.0pt;font-family:Arial'>::gosub line:<o:p></o:p></span></font></p>
<p class=MsoNormal><font size=2 face=Arial><span lang=EN-AU style='font-size:
10.0pt;font-family:Arial'>::aa = close (lf):<o:p></o:p></span></font></p>
<p class=MsoNormal><font size=2 face=Arial><span lang=EN-AU style='font-size:
10.0pt;font-family:Arial'>::end:<o:p></o:p></span></font></p>
<p class=MsoNormal><font size=2 face=Arial><span lang=EN-AU style='font-size:
10.0pt;font-family:Arial'>line:' WRITE LINE:'now write a line:<o:p></o:p></span></font></p>
<p class=MsoNormal><font size=2 face=Arial><span lang=EN-AU style='font-size:
10.0pt;font-family:Arial'>::aa = writeline(lf,sq):<o:p></o:p></span></font></p>
<p class=MsoNormal><font size=2 face=Arial><span lang=EN-AU style='font-size:
10.0pt;font-family:Arial'>:aa lt "0":show "Failed to write
line":<o:p></o:p></span></font></p>
<p class=MsoNormal><font size=2 face=Arial><span lang=EN-AU style='font-size:
10.0pt;font-family:Arial'>::return:<o:p></o:p></span></font></p>
<p class=MsoNormal><font size=2 face=Arial><span lang=EN-AU style='font-size:
10.0pt;font-family:Arial'><o:p> </o:p></span></font></p>
<p class=MsoNormal><font size=2 face=Arial><span lang=EN-AU style='font-size:
10.0pt;font-family:Arial'><o:p> </o:p></span></font></p>
<p class=MsoNormal><font size=3 face="Times New Roman"><span lang=EN-AU
style='font-size:12.0pt'><o:p> </o:p></span></font></p>
<p class=MsoNormal><font size=3 face="Times New Roman"><span lang=EN-AU
style='font-size:12.0pt'>Thank you<o:p></o:p></span></font></p>
<p class=MsoNormal><font size=3 face="Times New Roman"><span lang=EN-AU
style='font-size:12.0pt'><o:p> </o:p></span></font></p>
<p class=MsoNormal><font size=3 face="Times New Roman"><span lang=EN-AU
style='font-size:12.0pt'>Scott Smith<o:p></o:p></span></font></p>
</div>
</body>
</html>