<br><br>
<div class="gmail_quote">On Tue, Jun 17, 2008 at 8:10 AM, Wayne Dunlop &lt;<a href="mailto:wayne.dunlop@gmail.com">wayne.dunlop@gmail.com</a>&gt; wrote:<br>
<blockquote class="gmail_quote" style="PADDING-LEFT: 1ex; MARGIN: 0px 0px 0px 0.8ex; BORDER-LEFT: #ccc 1px solid">
<p>;------------------------------------------------<br>;CREATION&nbsp; TAB DELIMITED FILE<br>;------------------------------------------------</p>
<p>CAN CLE<br>SET DEF</p>
<p>ACCESS MY-FILE</p>
<p>DEF TBL-NUM&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; INT SIZ 2 = 9<br>DEF TBL&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; CHAR *&nbsp; 1 = CHAR(TBL-NUM)[2:1]</p>
<p>SET REP LIM 2000</p>
<p>;Define the tab file header, i.e. line 1.<br>;This header line will be positioned on top by using INITIAL HEADING.<br>;----------------------------------------<br>DEF HEADER CHAR * 50 =&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &amp;,<br>PACK (&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &amp;,<br>
&nbsp;&nbsp;&nbsp;&nbsp; &quot;OPERATIONCODE&quot;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; + TBL +&nbsp;&nbsp;&nbsp; &amp;,<br>&nbsp;&nbsp;&nbsp;&nbsp; &quot;OPERATIONNAME&quot;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; + TBL +&nbsp;&nbsp;&nbsp; &amp;,<br>&nbsp;&nbsp;&nbsp;&nbsp; &quot;VALUE&quot;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; + TBL +&nbsp;&nbsp;&nbsp; &quot;X&quot; )</p>
<p>&nbsp;</p>
<p><br>;Define the content of the data lines<br>;----------------------------------------<br>DEF PACKET CHAR * 50 =&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &amp;,<br>TRUNC(&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; FIELD-2&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ) + TBL +&nbsp;&nbsp;&nbsp; &amp;,<br>TRUNC(&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; FIELD-2LABEL ) + TBL +&nbsp;&nbsp;&nbsp; &amp;,<br>
TRUNC(&nbsp; ASC(VALUE)&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ) + TBL +&nbsp;&nbsp;&nbsp; &quot;X&quot;</p>
<p>;The extra &quot;X&quot; is an added precaution to get rid of any trailing spaces.<br>;Any spaces will be located in the X field which you won&#39;t use anyaway.</p>
<p><br>:PURGE TABFILE.YYY<br>SET REP DEV DISC NAME TABFILE</p>
<p>SET NOHEAD<br>INITIAL HEADING HEADER</p>
<p>SET PAGE LEN 0<br>SET PAGE WID 256<br>SET REP SPA 0</p>
<p>REP PACKET</p>
<p>GO</p>
<p><br>---------------------------------------<br>example with a text field<br>example with a date<br>example with a currency (money with 2 decimals)<br>------------------------- --------------<br>DEF MY-TAB-NUM&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; INT SIZ 2 = 9<br>
DEF MY-TAB&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; CHAR *&nbsp; 1 = CHAR(MY-TAB-NUM)[2:1]</p>
<p><br>def packet char * 200&nbsp;&nbsp; =&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &amp;,<br>pack (&nbsp;&nbsp;&nbsp;&nbsp; Sometextfield&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; + MY-TAB +&nbsp; &amp;,<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; asc(quizdate,8)[7:2]&nbsp;&nbsp;&nbsp; + &quot;/&quot;&nbsp;&nbsp;&nbsp; +&nbsp; &amp;,<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; asc(quizdate,8)[5:2]&nbsp;&nbsp;&nbsp; + &quot;/&quot;&nbsp;&nbsp;&nbsp; +&nbsp; &amp;,<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; asc(quizdate,8)[1:4]&nbsp;&nbsp;&nbsp; + MY-TAB +&nbsp; &amp;,<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; asc(moneyfield,10)[1:8] + &quot;.&quot;&nbsp;&nbsp;&nbsp; +&nbsp; &amp;,<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; asc(moneyfield,10)[9:2] + MY-TAB +&nbsp; &amp;,<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &quot;X&quot;&nbsp;&nbsp; )</p>
<div>-----</div>
<div>With thanks to all those Quizards who showed me how to do that in days gone by.</div>
<div>Wayne</div><font color="#888888">
<div>&nbsp;</div>
<div>&nbsp;</div></font></blockquote></div><br>