× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.


  • Subject: Re: how to add 10,000 records to new file with one field setequal tocounter
  • From: Rob Berendt <rob@xxxxxxxxx>
  • Date: Wed, 26 Apr 2000 17:31:54 -0500

Bravo!




brobins3d@yahoo.com on 04/26/2000 05:23:29 PM
Please respond to MIDRANGE-L@midrange.com@Internet
To:     MIDRANGE-L@midrange.com@Internet
cc:      
Fax to: 
Subject:        Re: how to add 10,000 records to new file with one field 
setequal  tocounter

RE: how to add 10,000 records to new file with one field setequal tocounterJoel,

Here is one way to do it.

SQL -> Create Table QTemp/Test   (Fielda  dec(5,0))
CL -> InzPFM file(QTemp/Test) totrcds(10000)
SQL -> Update QTemp/Test Set fielda=rrn(Test)

Bill
  ----- Original Message ----- 
  From: Stone, Joel 
  To: 'MIDRANGE-L@midrange.com' 
  Sent: Wednesday, April 26, 2000 7:51 AM
  Subject: RE: how to add 10,000 records to new file with one field setequal 
tocounter


  Business problem: 

  Salesperson file exists to validate salesperson ID during order entry.  For 
testing, I wanted to populate the entire file with all possible salespeople 
(0001 thru 9999) so users can test application and not worry about entering an 
invalid salesperson ID.

  Any better ideas??? 

  I was curious to know if this is possible on the /400 with a tool such as SQL 
or Query/400 or something else without writing a program!



<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD><TITLE>RE: how to add 10,000 records to new file with one field 
setequal tocounter</TITLE>
<META content="text/html; charset=ISO-8859-1" http-equiv=Content-Type>
<META content="MSHTML 5.00.2919.6307" name=GENERATOR>
<STYLE></STYLE>
</HEAD>
<BODY bgColor=#ffffff>
<DIV><FONT face=Arial size=2>Joel,</FONT></DIV>
<DIV>&nbsp;</DIV>
<DIV><FONT face=Arial size=2>Here is one way to do it.</FONT></DIV>
<DIV>&nbsp;</DIV>
<DIV><FONT face=Arial size=2>SQL -&gt; Create Table 
QTemp/Test&nbsp;&nbsp;&nbsp;(Fielda&nbsp; dec(5,0))</FONT></DIV>
<DIV><FONT face=Arial size=2>CL -&gt; InzPFM file(QTemp/Test) 
totrcds(10000)</FONT></DIV>
<DIV><FONT face=Arial size=2>SQL -&gt; Update QTemp/Test Set 
fielda=rrn(Test)</FONT></DIV>
<DIV>&nbsp;</DIV>
<DIV><FONT face=Arial size=2>Bill</FONT></DIV>
<BLOCKQUOTE 
style="BORDER-LEFT: #000000 2px solid; MARGIN-LEFT: 5px; MARGIN-RIGHT: 0px; 
PADDING-LEFT: 5px; PADDING-RIGHT: 0px">
  <DIV style="FONT: 10pt arial">----- Original Message ----- </DIV>
  <DIV 
  style="BACKGROUND: #e4e4e4; FONT: 10pt arial; font-color: black"><B>From:</B> 
  <A href="mailto:StoneJ@gourmetaward.com" title=StoneJ@gourmetaward.com>Stone, 
  Joel</A> </DIV>
  <DIV style="FONT: 10pt arial"><B>To:</B> <A 
  href="mailto:'MIDRANGE-L@midrange.com'" 
  title=MIDRANGE-L@midrange.com>'MIDRANGE-L@midrange.com'</A> </DIV>
  <DIV style="FONT: 10pt arial"><B>Sent:</B> Wednesday, April 26, 2000 7:51 
  AM</DIV>
  <DIV style="FONT: 10pt arial"><B>Subject:</B> RE: how to add 10,000 records 
to 
  new file with one field setequal tocounter</DIV>
  <DIV><BR></DIV>
  <P><FONT size=2>Business problem:</FONT> </P>
  <P><FONT size=2>Salesperson file exists to validate salesperson ID during 
  order entry.&nbsp; For testing, I wanted to populate the entire file with all 
  possible salespeople (0001 thru 9999) so users can test application and not 
  worry about entering an invalid salesperson ID.</FONT></P>
  <P><FONT size=2>Any better ideas???</FONT> </P>
  <P><FONT size=2>I was curious to know if this is possible on the /400 with a 
  tool such as SQL or Query/400 or something else without writing a 
  program!</FONT></P></BLOCKQUOTE></BODY></HTML>

As an Amazon Associate we earn from qualifying purchases.

This thread ...


Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.