Subject Re: Copying text...
From Mervyn Bick <invalid@invalid.invalid>
Date Tue, 21 Jun 2016 11:52:05 +0200
Newsgroups dbase.getting-started
Attachment(s) list1.DBF, MAKE_HTML_PRICELIST.prg, make_lists.prg, make_temp_tables.prg

On 21/06/2016 00:27, Charlie wrote:
>> If this produces a temporary table with the year and price without
 >> decimals I'll change the two programs for you.
 >>
 >>
 > That's OK.. It works great.  I am overwhelmed with happiness!!  Thanks very much!!! Will save me mucho timeo!!! (And I learned some stuff!!!)
 >
It took a while but at least we got there.  :-)  The only thing you
still need to do is to sort out the selection criteria for American
Flyer, Marx and Lionel sub-section price lists.  It should be quite
straightforward but it may take a while as there are 43 to do.  Although
they will be different many of them will probably be similar with only
the value to match being different.  If this is the case you should be
able to do most of the heavy lifting by copying and pasting and then
just changing the search value.

The program make_temp_tables.prg now creates tables with the fields
part_no, title, grade, yr and asell1.   Yr and asell1 contain integer
values.  The part_no field is only used to order the temporary table and
it is not used to create the HTML file.  You can, therefore, continue to
use your original XDML code to produce temporary tables while you sort
out the selection criteria for make_temp_tables.prg.  You will, however,
need to ensure that you use the name for the temporary file as given in
the attached table list1 and you will need to use title, grade, yr and
asell1 as the fieldnames.  Yr and asell1 must be integers.  You may need
to change the data type for these fields in your temporary file to LONG
to get rid of the decimal point values in these fields when the HTML
file is generated.

make_lists.prg has been changed so that it only creates the HTML file if
the appropriate temporary file exists.  You can, therefore, make the
temporary files using a combination of make_temp_tables.prg and your old
code.  Each temporary file is deleted after the HTML file s created.

The HTML file names will have mb as a prefix.  A global replace to
change ("mb to (" in make_lists.prg will get rid of the prefix.

If there is only one temporary file, only one HTML file will be created
by make_lists.prg so you can create your price lists one by one as you
did in the past if you want to.  Once you have sorted out the selection
criteria for make_temp_tables.prg though you will be able to create all
your price lists literally in seconds by running the two programs in
sequence.

make_temp_tables.prg will create 5 tables until you sort out selection
criteria for the rest.  How long does it take to run and how long does
make_lists.prg take to run?  From these figures you will be able to get
a good idea of how long it will eventually take to create the 48 price
lists.  It has got to beat doing them one by one. :-)

Mervyn.







function make_html_pricelist(cFile,cListname,cTable)
   nEndYear = 1900 //year(date())-5
   cGendate = dtoc(date())
   f = new file()
   f.create(cFile)
   f.puts('<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">')
   f.puts([<HTML>])
   f.puts([<head>])
   f.puts([<title>Free Electric Train Price Guide</title>])
   f.puts([<meta name="description" content="Electric Train Price Guide">])
   f.puts([<meta name="keywords" content="price guide, electric train price guide, train price book, trains, electric, tinplate, toy train set, miniature railroad, pre war, american flyer pre war, american flyer o gauge, american flyer 3 rail, american flyer o scale, O-27,k-line">])
   f.puts([<meta name="rating" content="general">])
   f.puts([<meta name="revisit-after" content="31 Days">])
   f.puts([<meta name="expires" content="never">])
   f.puts([<meta name="distribution" content="global">])
   f.puts([<meta name="choochooauctions.com" content="index,follow">])
   f.puts([</head>])
   f.puts([])
   f.puts([<BODY BGCOLOR="#000080" TEXT="#000000" ALINK="#000000" VLINK="#0033ff" LINK="#0033ff">])
   f.puts([])
   f.puts([<TABLE HEIGHT="80%" BORDER="0" align= center bgcolor = "#ffffff" cellpadding = "10">])
   f.puts([<TR>])
   f.puts([        <TD ALIGN="LEFT" VALIGN="TOP" WIDTH="600" align=center>])
   f.puts([<table align="center" border="0" width="95%">])
   f.puts([<tr>])
   f.puts([<td width="1220">])
   f.puts([<p><A HREF="http://www.choochooauctions.com" target = "_new"><IMG SRC="http://www.choochooauctions.com/images/choo.gif" BORDER="0"alt="choochooauctions.com"></A></p>])
   f.puts([])
   f.puts([</td>])
   f.puts([<td width = "100%" align = "right" nowrap><A HREF="http://www.traincity.com/shopbuy.html" TARGET="_new"><img SRC="http://www.choochooauctions.com/images/buy.jpg" ALIGN="right" valign = "center" BORDER = "1" alt=" Click here if you have trains for sale!"</a></td>])
   f.puts([])
   f.puts([</table>])
   f.puts([<BR>])
   f.puts([<CENTER><HR WIDTH="400" SIZE="3"><P>])
   f.puts([<b>  <font face="Arial,Helvetica" SIZE="5">Free Electric Train Price Guide<BR></font></b>])
   f.puts([<FONT FACE="Arial" SIZE="1">(To print:  Right click on list, then click print in the pop-up menu.)<P></FONT></center>])
   f.puts([<FONT FACE="Arial" SIZE="2">Items shown on this list are not for sale.  This is a price guide generated from our database based on past sales history.  Items appearing in this guide have been sold and are no longer in our inventory.  To view our current inventory please check out <A HREF="http://www.choochooauctions.com" TARGET="_new">choochooauctions.com</A> or <A HREF="http://www.traincity.com" TARGET="_new">traincity.com</A>.  Thanks for using our guides.<P></FONT>])
   f.puts([])
   f.puts([<FONT FACE="Arial" SIZE="3">])
   f.puts([<center>This free <A HREF="http://www.traincity.com/price_guide/read.html">electric train Price Guide</A> brought to you by:<BR>])
   f.puts([<A HREF="http://www.choochooauctions.com" TARGET="_new"><B>choochooauctions.com</B></A> and <A HREF="http://www.traincity.com" TARGET="_new"><B>traincity.com</B></A>])
   f.puts([</font>])
   f.puts([<p>])
   f.puts([<FONT FACE="Arial" SIZE="-8">])
   f.puts([<table  cellpadding=3 border = "1" width = "50%">])
   f.puts([<td align=center><FONT FACE="Arial">]+cListName+[</FONT></A></td>])
   f.puts([<td align=center><FONT FACE="Arial">Generated ]+cGendate+[</FONT></td>])
   f.puts([<tr>])
   f.puts([])
   f.puts([</font>])
   f.puts([])
   f.puts([</TD>])
   f.puts([</TABLE>])
   ******************* Build pricelist ***************
  
   q = new query()
   q.sql = 'select title,;
     grade,;
     yr ,;
     asell1 from "'+cTable+'"  ;
     where yr > '+nEndYear
   q.active = true
   f.puts([<FONT FACE="Arial">])
   f.puts([<center>])
   f.puts([<table>])
   f.puts([<table style="font face:=Arial;text-align: left;width: 90% ;height = 150px ;" border="0" cellpadding="1" cellspacing="0">])
   f.puts([<tbody>])
   f.puts([<tr>])
   f.puts([<th style="text-align: left;"><small>DESCRIPTION</small></th>])
   f.puts([<th style="text-align: left;"><small>GRADE</small></th>])
   f.puts([<th style="text-align: right;"><small>YEAR</small></th>])
   f.puts([<th style="text-align: right;"><small>PRICE</small></th>])
   f.puts([</tr>])

   do while not q.rowset.endofset    
      f.puts([<tr>])
      f.puts([<td style="text-align: left; width: 55%;"><small>]+q.rowset.fields["title"].value+[</small></td>])
      f.puts([<td style="text-align: left; width: 27%;"><small>]+q.rowset.fields["grade"].value+[</small></td>])
      f.puts([<td style="text-align: right; width: 8%;"><small>]+q.rowset.fields["yr"].value+[</small></td>])
      f.puts([<td style="text-align: right; width: 10%;"<small>]+q.rowset.fields["asell1"].value+[</small></td>])
      f.puts([</tr>])
      q.rowset.next()
   enddo
   f.puts([</tbody>])
   f.puts([</table>])
   f.puts([</centre>])
   f.puts([</font>])
   q.active = false
   ***************** End of pricelist *********************
   f.puts([])
   f.puts([</CENTER>])
   f.puts([<P>])
   f.puts([<CENTER><FONT FACE="arial" SIZE="-1">])
   f.puts([<table border ="0" width = "100%" cellpadding ="3">])
   f.puts([<td  align=center>])
   f.puts([<FONT FACE="arial" SIZE="2">])
   f.puts([<A HREF="index.html"><B>Home</B></A>&nbsp;|&nbsp;<A HREF="read.html"><B>About this guide</B></A>&nbsp;|&nbsp;<A HREF="http://www.choochooauctions.com"><B>Visit choochooauctions.com</B></A>&nbsp;|&nbsp;<A HREF="http://www.traincity.com"><B>Visit traincity.com</B></A>&nbsp;|&nbsp;<A HREF="mailto:trainman@traincity.com"><B>Contact Us</B></a>])
   f.puts([</font>])
   f.puts([</td>])
   f.puts([</table>])
   f.puts([<table border ="0" width = "60%"  cellpadding ="3">])
   f.puts([<td  align=center width="100%">])
   f.puts([<FONT FACE="arial" SIZE="2">])
   f.puts([<CENTER>All rights reserved.  choochooauctions.com</CENTER>])
   f.puts([</font>])
   f.puts([</td>])
   f.puts([</table>])
   f.puts([<P>])
   f.puts([<CENTER>])
   f.puts([<A HREF="http://www.choochooauctions.com/" target = "_new">])
   f.puts([<IMG SRC="http://www.traincity.com/banner/choochoo_468x60_animated_low_13k.gif" BORDER="1" alt="Visit Choochooauctions.com"></A>])
   f.puts([</CENTER>])
   f.puts([</table>])
   f.puts([</FONT></CENTER>])
   f.puts([])
   f.puts([</TABLE>])
   f.puts([</HTML>])
   f.puts([</BODY>])
   f.close()
   return true


clear
s = seconds()
if file("data\temp_pkline.dbf")
   ? "K-Line Electric Trains"
   make_html_pricelist("mbpkline.html","K-Line Electric Trains","data\temp_pkline")
   drop table "data\temp_pkline"
endif
if file("data\temp_pllgb.dbf")
   ? "LGB Trains"
   make_html_pricelist("mbpllgb.html","LGB Trains","data\temp_pllgb")
   drop table "data\temp_pllgb"
endif
if file("data\temp_pmth.dbf")
   ? "Mike's Train House"
   make_html_pricelist("mbpmth.html","Mike's Train House","data\temp_pmth")
   drop table "data\temp_pmth"
endif
if file("data\temp_plwe.dbf")
   ? "Weaver Trains"
   make_html_pricelist("mbplwe.html","Weaver Trains","data\temp_plwe")
   drop table "data\temp_plwe"
endif
if file("data\temp_plwi.dbf")
   ? "Williams Trains"
   make_html_pricelist("mbplwi.html","Williams Trains","data\temp_plwi")
   drop table "data\temp_plwi"
endif
if file("data\temp_pgafpre.dbf")
   ? "American Flyer Pre War (1906-1946)"
   make_html_pricelist("mbpgafpre.html","American Flyer Pre War (1906-1946)","data\temp_pgafpre")
   drop table "data\temp_pgafpre"
endif
if file("data\temp_pgafs.dbf")
   ? "American Flyer S Gauge (1946-1966)"
   make_html_pricelist("mbpgafs.html","American Flyer S Gauge (1946-1966)","data\temp_pgafs")
   drop table "data\temp_pgafs"
endif
if file("data\temp_pgafmpcn.dbf")
   ? "American Flyer Modern (1979-Current)"
   make_html_pricelist("mbpgafmpcn.html","American Flyer Modern (1979-Current)","data\temp_pgafmpcn")
   drop table "data\temp_pgafmpcn"
endif
if file("data\temp_pgafpap.dbf")
   ? "American Flyer Paper"
   make_html_pricelist("mbpgafpap.html","American Flyer Paper","data\temp_pgafpap")
   drop table "data\temp_pgafpap"
endif
if file("data\temp_plmxjl.dbf")
   ? "Marx Joy Line"
   make_html_pricelist("mbplmxjl.html","Marx Joy Line","data\temp_plmxjl")
   drop table "data\temp_plmxjl"
endif
if file("data\temp_plmxen.dbf")
   ? "Marx Engines"
   make_html_pricelist("mbplmxen.html","Marx Engines","data\temp_plmxen")
   drop table "data\temp_plmxen"
endif
if file("data\temp_plmxpa.dbf")
   ? "Marx Passenger Cars"
   make_html_pricelist("mbplmxpa.html","Marx Passenger Cars","data\temp_plmxpa")
   drop table "data\temp_plmxpa"
endif
if file("data\temp_plmxrsf.dbf")
   ? "Marx 4 Wheel Rolling Stock"
   make_html_pricelist("mbplmxrsf.html","Marx 4 Wheel Rolling Stock","data\temp_plmxrsf")
   drop table "data\temp_plmxrsf"
endif
if file("data\temp_plmxrse.dbf")
   ? "Marx 8 Wheel Rolling Stock"
   make_html_pricelist("mbplmxrse.html","Marx 8 Wheel Rolling Stock","data\temp_plmxrse")
   drop table "data\temp_plmxrse"
endif
if file("data\temp_plmxac.dbf")
   ? "Marx Accessories"
   make_html_pricelist("mbplmxac.html","Marx Accessories","data\temp_plmxac")
   drop table "data\temp_plmxac"
endif
if file("data\temp_plmxts.dbf")
   ? "Marx Track & Supplies"
   make_html_pricelist("mbplmxts.html","Marx Track & Supplies","data\temp_plmxts")
   drop table "data\temp_plmxts"
endif
if file("data\temp_plmxtr.dbf")
   ? "Marx Transformers"
   make_html_pricelist("mbplmxtr.html","Marx Transformers","data\temp_plmxtr")
   drop table "data\temp_plmxtr"
endif
if file("data\temp_plmxst.dbf")
   ? "Marx Sets"
   make_html_pricelist("mbplmxst.html","Marx Sets","data\temp_plmxst")
   drop table "data\temp_plmxst"
endif
if file("data\temp_plmxho.dbf")
   ? "Marx HO Gauge"
   make_html_pricelist("mbplmxho.html","Marx HO Gauge","data\temp_plmxho")
   drop table "data\temp_plmxho"
endif
if file("data\temp_pllist.dbf")
   ? "Lionel Pre-War Standard Gauge"
   make_html_pricelist("mbpllist.html","Lionel Pre-War Standard Gauge","data\temp_pllist")
   drop table "data\temp_pllist"
endif
if file("data\temp_plpreo.dbf")
   ? "Lionel Pre-War O Gauge"
   make_html_pricelist("mbplpreo.html","Lionel Pre-War O Gauge","data\temp_plpreo")
   drop table "data\temp_plpreo"
endif
if file("data\temp_lionel_pos.dbf")
   ? "Lionel Post War Trains(1945-1969)"
   make_html_pricelist("mblionel_postw.html","Lionel Post War Trains(1945-1969)","data\temp_lionel_pos")
   drop table "data\temp_lionel_pos"
endif
if file("data\temp_plliacp.dbf")
   ? "Lionel Accessories Post War"
   make_html_pricelist("mbplliacp.html","Lionel Accessories Post War","data\temp_plliacp")
   drop table "data\temp_plliacp"
endif
if file("data\temp_pllipwd.dbf")
   ? "Lionel Diesel Engines"
   make_html_pricelist("mbpllipwd.html","Lionel Diesel Engines","data\temp_pllipwd")
   drop table "data\temp_pllipwd"
endif
if file("data\temp_pllielp.dbf")
   ? "Lionel Electric Locos"
   make_html_pricelist("mbpllielp.html","Lionel Electric Locos","data\temp_pllielp")
   drop table "data\temp_pllielp"
endif
if file("data\temp_pllimzp.dbf")
   ? "Lionel Motorized Units"
   make_html_pricelist("mbpllimzp.html","Lionel Motorized Units","data\temp_pllimzp")
   drop table "data\temp_pllimzp"
endif
if file("data\temp_pllipws.dbf")
   ? "Lionel Steam Locomotives"
   make_html_pricelist("mbpllipws.html","Lionel Steam Locomotives","data\temp_pllipws")
   drop table "data\temp_pllipws"
endif
if file("data\temp_pllipcp.dbf")
   ? "Lonel Passenger Cars"
   make_html_pricelist("mbpllipcp.html","Lonel Passenger Cars","data\temp_pllipcp")
   drop table "data\temp_pllipcp"
endif
if file("data\temp_pllirsp.dbf")
   ? "Lionel Rolling Stock"
   make_html_pricelist("mbpllirsp.html","Lionel Rolling Stock","data\temp_pllirsp")
   drop table "data\temp_pllirsp"
endif
if file("data\temp_pllistp.dbf")
   ? "Lionel Sets Post War"
   make_html_pricelist("mbpllistp.html","Lionel Sets Post War","data\temp_pllistp")
   drop table "data\temp_pllistp"
endif
if file("data\temp_lionel_ho.dbf")
   ? "Lionel HO Gauge"
   make_html_pricelist("mblionel_ho.html","Lionel HO Gauge","data\temp_lionel_ho")
   drop table "data\temp_lionel_ho"
endif
if file("data\temp_lionel_mod.dbf")
   ? "Lionel Modern (1970 - Present)"
   make_html_pricelist("mblionel_modern.html","Lionel Modern (1970 - Present)","data\temp_lionel_mod")
   drop table "data\temp_lionel_mod"
endif
if file("data\temp_plliacm.dbf")
   ? "Lionel Accessories Modern"
   make_html_pricelist("mbplliacm.html","Lionel Accessories Modern","data\temp_plliacm")
   drop table "data\temp_plliacm"
endif
if file("data\temp_plliem.dbf")
   ? "Lionel Engines Modern Diesel"
   make_html_pricelist("mbplliem.html","Lionel Engines Modern Diesel","data\temp_plliem")
   drop table "data\temp_plliem"
endif
if file("data\temp_pllielm.dbf")
   ? "Lionel Electric Locos"
   make_html_pricelist("mbpllielm.html","Lionel Electric Locos","data\temp_pllielm")
   drop table "data\temp_pllielm"
endif
if file("data\temp_pllimzm.dbf")
   ? "Lionel Motorized Units MPC"
   make_html_pricelist("mbpllimzm.html","Lionel Motorized Units MPC","data\temp_pllimzm")
   drop table "data\temp_pllimzm"
endif
if file("data\temp_plliems.dbf")
   ? "Lionel Steam Engines (1901-19420"
   make_html_pricelist("mbplliems.html","Lionel Steam Engines (1901-19420","data\temp_plliems")
   drop table "data\temp_plliems"
endif
if file("data\temp_pllipcm.dbf")
   ? "Lionel Modern Passenger Cars"
   make_html_pricelist("mbpllipcm.html","Lionel Modern Passenger Cars","data\temp_pllipcm")
   drop table "data\temp_pllipcm"
endif
if file("data\temp_pllirsm.dbf")
   ? "Lionel Modern Rolling Stock"
   make_html_pricelist("mbpllirsm.html","Lionel Modern Rolling Stock","data\temp_pllirsm")
   drop table "data\temp_pllirsm"
endif
if file("data\temp_pllistm.dbf")
   ? "Lionel Sets Modern"
   make_html_pricelist("mbpllistm.html","Lionel Sets Modern","data\temp_pllistm")
   drop table "data\temp_pllistm"
endif
if file("data\temp_plliocl.dbf")
   ? "Lionel O Gauge Classics"
   make_html_pricelist("mbplliocl.html","Lionel O Gauge Classics","data\temp_plliocl")
   drop table "data\temp_plliocl"
endif
if file("data\temp_pllistcl.dbf")
   ? "Lionel Standard Gauge Classics"
   make_html_pricelist("mbpllistcl.html","Lionel Standard Gauge Classics","data\temp_pllistcl")
   drop table "data\temp_pllistcl"
endif
if file("data\temp_plipap.dbf")
   ? "Lionel Paper"
   make_html_pricelist("mbplipap.html","Lionel Paper","data\temp_plipap")
   drop table "data\temp_plipap"
endif
if file("data\temp_pllits.dbf")
   ? "Lionel Track & Supplies"
   make_html_pricelist("mbpllits.html","Lionel Track & Supplies","data\temp_pllits")
   drop table "data\temp_pllits"
endif
if file("data\temp_pllitr.dbf")
   ? "Lionel Transformers"
   make_html_pricelist("mbpllitr.html","Lionel Transformers","data\temp_pllitr")
   drop table "data\temp_pllitr"
endif
? "Seconds", seconds() - s



clear
set safety off
s = seconds()
*    Remove the leading / to uncomment this SQL statement

// Create temp_table for K-Line Electric Trains

select part_no,title,grade,cast(extract(year from sdate) as int) yr,;
cast(asell as int) asell1 from 'data\master' ;
where asell > 0 and upper(mfg) like "%K_LINE%" ;
                                                             ;
order by part_no ;
save to "data\temp_pkline"

*/
*    Remove the leading / to uncomment this SQL statement

// Create temp_table for LGB Trains

select part_no,title,grade,cast(extract(year from sdate) as int) yr,;
cast(asell as int) asell1 from 'data\master' ;
where asell > 0 and upper(mfg) like "%LGB%" ;
                                                             ;
order by part_no ;
save to "data\temp_pllgb"

*/
*    Remove the leading / to uncomment this SQL statement

// Create temp_table for Mike's Train House

select part_no,title,grade,cast(extract(year from sdate) as int) yr,;
cast(asell as int) asell1 from 'data\master' ;
where asell > 0 and upper(mfg) like "%MIKE%" ;
                                                             ;
order by part_no ;
save to "data\temp_pmth"

*/
*    Remove the leading / to uncomment this SQL statement

// Create temp_table for Weaver Trains

select part_no,title,grade,cast(extract(year from sdate) as int) yr,;
cast(asell as int) asell1 from 'data\master' ;
where asell > 0 and upper(mfg) like "%WEAVER%" ;
                                                             ;
order by part_no ;
save to "data\temp_plwe"

*/
*    Remove the leading / to uncomment this SQL statement

// Create temp_table for Williams Trains

select part_no,title,grade,cast(extract(year from sdate) as int) yr,;
cast(asell as int) asell1 from 'data\master' ;
where asell > 0 and upper(mfg) like "%WILLIAMS%" ;
                                                             ;
order by part_no ;
save to "data\temp_plwi"

*/
/*    Remove the leading / to uncomment this SQL statement

// Create temp_table for American Flyer Pre War (1906-1946)

select part_no,title,grade,cast(extract(year from sdate) as int) yr,;
cast(asell as int) asell1 from 'data\master' ;
where asell > 0 and upper(mfg) like "%AMERICAN%" ;
                                                             ;
order by part_no ;
save to "data\temp_pgafpre"

*/
/*    Remove the leading / to uncomment this SQL statement

// Create temp_table for American Flyer S Gauge (1946-1966)

select part_no,title,grade,cast(extract(year from sdate) as int) yr,;
cast(asell as int) asell1 from 'data\master' ;
where asell > 0 and upper(mfg) like "%AMERICAN%" ;
                                                             ;
order by part_no ;
save to "data\temp_pgafs"

*/
/*    Remove the leading / to uncomment this SQL statement

// Create temp_table for American Flyer Modern (1979-Current)

select part_no,title,grade,cast(extract(year from sdate) as int) yr,;
cast(asell as int) asell1 from 'data\master' ;
where asell > 0 and upper(mfg) like "%AMERICAN%" ;
                                                             ;
order by part_no ;
save to "data\temp_pgafmpcn"

*/
/*    Remove the leading / to uncomment this SQL statement

// Create temp_table for American Flyer Paper

select part_no,title,grade,cast(extract(year from sdate) as int) yr,;
cast(asell as int) asell1 from 'data\master' ;
where asell > 0 and upper(mfg) like "%AMERICAN%" ;
                                                             ;
order by part_no ;
save to "data\temp_pgafpap"

*/
/*    Remove the leading / to uncomment this SQL statement

// Create temp_table for Marx Joy Line

select part_no,title,grade,cast(extract(year from sdate) as int) yr,;
cast(asell as int) asell1 from 'data\master' ;
where asell > 0 and upper(mfg) like "%MARX%" ;
                                                             ;
order by part_no ;
save to "data\temp_plmxjl"

*/
/*    Remove the leading / to uncomment this SQL statement

// Create temp_table for Marx Engines

select part_no,title,grade,cast(extract(year from sdate) as int) yr,;
cast(asell as int) asell1 from 'data\master' ;
where asell > 0 and upper(mfg) like "%MARX%" ;
                                                             ;
order by part_no ;
save to "data\temp_plmxen"

*/
/*    Remove the leading / to uncomment this SQL statement

// Create temp_table for Marx Passenger Cars

select part_no,title,grade,cast(extract(year from sdate) as int) yr,;
cast(asell as int) asell1 from 'data\master' ;
where asell > 0 and upper(mfg) like "%MARX%" ;
                                                             ;
order by part_no ;
save to "data\temp_plmxpa"

*/
/*    Remove the leading / to uncomment this SQL statement

// Create temp_table for Marx 4 Wheel Rolling Stock

select part_no,title,grade,cast(extract(year from sdate) as int) yr,;
cast(asell as int) asell1 from 'data\master' ;
where asell > 0 and upper(mfg) like "%MARX%" ;
                                                             ;
order by part_no ;
save to "data\temp_plmxrsf"

*/
/*    Remove the leading / to uncomment this SQL statement

// Create temp_table for Marx 8 Wheel Rolling Stock

select part_no,title,grade,cast(extract(year from sdate) as int) yr,;
cast(asell as int) asell1 from 'data\master' ;
where asell > 0 and upper(mfg) like "%MARX%" ;
                                                             ;
order by part_no ;
save to "data\temp_plmxrse"

*/
/*    Remove the leading / to uncomment this SQL statement

// Create temp_table for Marx Accessories

select part_no,title,grade,cast(extract(year from sdate) as int) yr,;
cast(asell as int) asell1 from 'data\master' ;
where asell > 0 and upper(mfg) like "%MARX%" ;
                                                             ;
order by part_no ;
save to "data\temp_plmxac"

*/
/*    Remove the leading / to uncomment this SQL statement

// Create temp_table for Marx Track & Supplies

select part_no,title,grade,cast(extract(year from sdate) as int) yr,;
cast(asell as int) asell1 from 'data\master' ;
where asell > 0 and upper(mfg) like "%MARX%" ;
                                                             ;
order by part_no ;
save to "data\temp_plmxts"

*/
/*    Remove the leading / to uncomment this SQL statement

// Create temp_table for Marx Transformers

select part_no,title,grade,cast(extract(year from sdate) as int) yr,;
cast(asell as int) asell1 from 'data\master' ;
where asell > 0 and upper(mfg) like "%MARX%" ;
                                                             ;
order by part_no ;
save to "data\temp_plmxtr"

*/
/*    Remove the leading / to uncomment this SQL statement

// Create temp_table for Marx Sets

select part_no,title,grade,cast(extract(year from sdate) as int) yr,;
cast(asell as int) asell1 from 'data\master' ;
where asell > 0 and upper(mfg) like "%MARX%" ;
                                                             ;
order by part_no ;
save to "data\temp_plmxst"

*/
/*    Remove the leading / to uncomment this SQL statement

// Create temp_table for Marx HO Gauge

select part_no,title,grade,cast(extract(year from sdate) as int) yr,;
cast(asell as int) asell1 from 'data\master' ;
where asell > 0 and upper(mfg) like "%MARX%" ;
                                                             ;
order by part_no ;
save to "data\temp_plmxho"

*/
/*    Remove the leading / to uncomment this SQL statement

// Create temp_table for Lionel Pre-War Standard Gauge

select part_no,title,grade,cast(extract(year from sdate) as int) yr,;
cast(asell as int) asell1 from 'data\master' ;
where asell > 0 and upper(mfg) like "%LIONEL%" ;
                                                             ;
order by part_no ;
save to "data\temp_pllist"

*/
/*    Remove the leading / to uncomment this SQL statement

// Create temp_table for Lionel Pre-War O Gauge

select part_no,title,grade,cast(extract(year from sdate) as int) yr,;
cast(asell as int) asell1 from 'data\master' ;
where asell > 0 and upper(mfg) like "%LIONEL%" ;
                                                             ;
order by part_no ;
save to "data\temp_plpreo"

*/
/*    Remove the leading / to uncomment this SQL statement

// Create temp_table for Lionel Post War Trains(1945-1969)

select part_no,title,grade,cast(extract(year from sdate) as int) yr,;
cast(asell as int) asell1 from 'data\master' ;
where asell > 0 and upper(mfg) like "%LIONEL%" ;
                                                             ;
order by part_no ;
save to "data\temp_lionel_pos"

*/
/*    Remove the leading / to uncomment this SQL statement

// Create temp_table for Lionel Accessories Post War

select part_no,title,grade,cast(extract(year from sdate) as int) yr,;
cast(asell as int) asell1 from 'data\master' ;
where asell > 0 and upper(mfg) like "%LIONEL%" ;
                                                             ;
order by part_no ;
save to "data\temp_plliacp"

*/
/*    Remove the leading / to uncomment this SQL statement

// Create temp_table for Lionel Diesel Engines

select part_no,title,grade,cast(extract(year from sdate) as int) yr,;
cast(asell as int) asell1 from 'data\master' ;
where asell > 0 and upper(mfg) like "%LIONEL%" ;
                                                             ;
order by part_no ;
save to "data\temp_pllipwd"

*/
/*    Remove the leading / to uncomment this SQL statement

// Create temp_table for Lionel Electric Locos

select part_no,title,grade,cast(extract(year from sdate) as int) yr,;
cast(asell as int) asell1 from 'data\master' ;
where asell > 0 and upper(mfg) like "%LIONEL%" ;
                                                             ;
order by part_no ;
save to "data\temp_pllielp"

*/
/*    Remove the leading / to uncomment this SQL statement

// Create temp_table for Lionel Motorized Units

select part_no,title,grade,cast(extract(year from sdate) as int) yr,;
cast(asell as int) asell1 from 'data\master' ;
where asell > 0 and upper(mfg) like "%LIONEL%" ;
                                                             ;
order by part_no ;
save to "data\temp_pllimzp"

*/
/*    Remove the leading / to uncomment this SQL statement

// Create temp_table for Lionel Steam Locomotives

select part_no,title,grade,cast(extract(year from sdate) as int) yr,;
cast(asell as int) asell1 from 'data\master' ;
where asell > 0 and upper(mfg) like "%LIONEL%" ;
                                                             ;
order by part_no ;
save to "data\temp_pllipws"

*/
/*    Remove the leading / to uncomment this SQL statement

// Create temp_table for Lonel Passenger Cars

select part_no,title,grade,cast(extract(year from sdate) as int) yr,;
cast(asell as int) asell1 from 'data\master' ;
where asell > 0 and upper(mfg) like "%LIONEL%" ;
                                                             ;
order by part_no ;
save to "data\temp_pllipcp"

*/
/*    Remove the leading / to uncomment this SQL statement

// Create temp_table for Lionel Rolling Stock

select part_no,title,grade,cast(extract(year from sdate) as int) yr,;
cast(asell as int) asell1 from 'data\master' ;
where asell > 0 and upper(mfg) like "%LIONEL%" ;
                                                             ;
order by part_no ;
save to "data\temp_pllirsp"

*/
/*    Remove the leading / to uncomment this SQL statement

// Create temp_table for Lionel Sets Post War

select part_no,title,grade,cast(extract(year from sdate) as int) yr,;
cast(asell as int) asell1 from 'data\master' ;
where asell > 0 and upper(mfg) like "%LIONEL%" ;
                                                             ;
order by part_no ;
save to "data\temp_pllistp"

*/
/*    Remove the leading / to uncomment this SQL statement

// Create temp_table for Lionel HO Gauge

select part_no,title,grade,cast(extract(year from sdate) as int) yr,;
cast(asell as int) asell1 from 'data\master' ;
where asell > 0 and upper(mfg) like "%LIONEL%" ;
                                                             ;
order by part_no ;
save to "data\temp_lionel_ho"

*/
/*    Remove the leading / to uncomment this SQL statement

// Create temp_table for Lionel Modern (1970 - Present)

select part_no,title,grade,cast(extract(year from sdate) as int) yr,;
cast(asell as int) asell1 from 'data\master' ;
where asell > 0 and upper(mfg) like "%LIONEL%" ;
                                                             ;
order by part_no ;
save to "data\temp_lionel_mod"

*/
/*    Remove the leading / to uncomment this SQL statement

// Create temp_table for Lionel Accessories Modern

select part_no,title,grade,cast(extract(year from sdate) as int) yr,;
cast(asell as int) asell1 from 'data\master' ;
where asell > 0 and upper(mfg) like "%LIONEL%" ;
                                                             ;
order by part_no ;
save to "data\temp_plliacm"

*/
/*    Remove the leading / to uncomment this SQL statement

// Create temp_table for Lionel Engines Modern Diesel

select part_no,title,grade,cast(extract(year from sdate) as int) yr,;
cast(asell as int) asell1 from 'data\master' ;
where asell > 0 and upper(mfg) like "%LIONEL%" ;
                                                             ;
order by part_no ;
save to "data\temp_plliem"

*/
/*    Remove the leading / to uncomment this SQL statement

// Create temp_table for Lionel Electric Locos

select part_no,title,grade,cast(extract(year from sdate) as int) yr,;
cast(asell as int) asell1 from 'data\master' ;
where asell > 0 and upper(mfg) like "%LIONEL%" ;
                                                             ;
order by part_no ;
save to "data\temp_pllielm"

*/
/*    Remove the leading / to uncomment this SQL statement

// Create temp_table for Lionel Motorized Units MPC

select part_no,title,grade,cast(extract(year from sdate) as int) yr,;
cast(asell as int) asell1 from 'data\master' ;
where asell > 0 and upper(mfg) like "%LIONEL%" ;
                                                             ;
order by part_no ;
save to "data\temp_pllimzm"

*/
/*    Remove the leading / to uncomment this SQL statement

// Create temp_table for Lionel Steam Engines (1901-19420

select part_no,title,grade,cast(extract(year from sdate) as int) yr,;
cast(asell as int) asell1 from 'data\master' ;
where asell > 0 and upper(mfg) like "%LIONEL%" ;
                                                             ;
order by part_no ;
save to "data\temp_plliems"

*/
/*    Remove the leading / to uncomment this SQL statement

// Create temp_table for Lionel Modern Passenger Cars

select part_no,title,grade,cast(extract(year from sdate) as int) yr,;
cast(asell as int) asell1 from 'data\master' ;
where asell > 0 and upper(mfg) like "%LIONEL%" ;
                                                             ;
order by part_no ;
save to "data\temp_pllipcm"

*/
/*    Remove the leading / to uncomment this SQL statement

// Create temp_table for Lionel Modern Rolling Stock

select part_no,title,grade,cast(extract(year from sdate) as int) yr,;
cast(asell as int) asell1 from 'data\master' ;
where asell > 0 and upper(mfg) like "%LIONEL%" ;
                                                             ;
order by part_no ;
save to "data\temp_pllirsm"

*/
/*    Remove the leading / to uncomment this SQL statement

// Create temp_table for Lionel Sets Modern

select part_no,title,grade,cast(extract(year from sdate) as int) yr,;
cast(asell as int) asell1 from 'data\master' ;
where asell > 0 and upper(mfg) like "%LIONEL%" ;
                                                             ;
order by part_no ;
save to "data\temp_pllistm"

*/
/*    Remove the leading / to uncomment this SQL statement

// Create temp_table for Lionel O Gauge Classics

select part_no,title,grade,cast(extract(year from sdate) as int) yr,;
cast(asell as int) asell1 from 'data\master' ;
where asell > 0 and upper(mfg) like "%LIONEL%" ;
                                                             ;
order by part_no ;
save to "data\temp_plliocl"

*/
/*    Remove the leading / to uncomment this SQL statement

// Create temp_table for Lionel Standard Gauge Classics

select part_no,title,grade,cast(extract(year from sdate) as int) yr,;
cast(asell as int) asell1 from 'data\master' ;
where asell > 0 and upper(mfg) like "%LIONEL%" ;
                                                             ;
order by part_no ;
save to "data\temp_pllistcl"

*/
/*    Remove the leading / to uncomment this SQL statement

// Create temp_table for Lionel Paper

select part_no,title,grade,cast(extract(year from sdate) as int) yr,;
cast(asell as int) asell1 from 'data\master' ;
where asell > 0 and upper(mfg) like "%LIONEL%" ;
                                                             ;
order by part_no ;
save to "data\temp_plipap"

*/
/*    Remove the leading / to uncomment this SQL statement

// Create temp_table for Lionel Track & Supplies

select part_no,title,grade,cast(extract(year from sdate) as int) yr,;
cast(asell as int) asell1 from 'data\master' ;
where asell > 0 and upper(mfg) like "%LIONEL%" ;
                                                             ;
order by part_no ;
save to "data\temp_pllits"

*/
/*    Remove the leading / to uncomment this SQL statement

// Create temp_table for Lionel Transformers

select part_no,title,grade,cast(extract(year from sdate) as int) yr,;
cast(asell as int) asell1 from 'data\master' ;
where asell > 0 and upper(mfg) like "%LIONEL%" ;
                                                             ;
order by part_no ;
save to "data\temp_pllitr"

*/
set safety on
? "Seconds", seconds() - s