Counting amout of records in quick

[Ronald W. Olenic]

This is a multi-part message in MIME format.
--------------4B0A39DCDC79B83630E2BF28
Content-Type: text/plain; charset=us-ascii
Content-Transfer-Encoding: 7bit

Hi Bourchi!

Screen X 

FILE primary_file primary

file primary_file alias file2 designer

temporary t_kount
...

procedure designer XXX
begin
  let t_kount = 0
  while retrieving file2 sequential
  begin
    let t_kount = t_kount + 1
    if t_count > 5000
    then begin
      run screen ...
      break
    end
  end
end

build

This should do the trick!

Ron Olenic
Senior Systems Analyst

The opinions expressed are my own, and are subject to tax, title and
licensing.  Dealer's price does not necessarily reflect the MSRP for
these opinions.
   



"Bourchi, H." wrote:
> 
> > Goed day,
> >
> > Quick question : (I am using ver. (7.10.F2) on Open vms)
> > I need to run a screen only if amout of one of my data file greather then
> > 5000 is.
> > Somthing like this :
> >
> >       If amout of file > 5000
> >       then run screen ...
> >
> > My question is how can I count amout of a data file in quick.
> >
> > thanks,
> > Hamid Bourchi
> >
> >
> = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =
> Subscribe: "subscribe powerh-l" in message body to majordomo@lists.swau.edu
> Unsubscribe: "unsubscribe powerh-l" in message to majordomo@lists.swau.edu
> This list is closed, thus to post to the list, you must be a subscriber.
--------------4B0A39DCDC79B83630E2BF28
Content-Type: text/x-vcard; charset=us-ascii;
 name="olenicr.vcf"
Content-Transfer-Encoding: 7bit
Content-Description: Card for Ronald W. Olenic
Content-Disposition: attachment;
 filename="olenicr.vcf"

begin:vcard 
n:Olenic;Ronald
x-mozilla-html:TRUE
org:Compuware
adr:;;;;;;
version:2.1
email;internet:ronolenic@bigfoot.com
title:Senior Systems Analyst
note;quoted-printable:The opinions expressed are my own, and as such are subject to change or  even complete reversal without notice=0D=0A
fn:Ronald Olenic
end:vcard

--------------4B0A39DCDC79B83630E2BF28--

= = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =
Subscribe: "subscribe powerh-l" in message body to majordomo@lists.swau.edu
Unsubscribe: "unsubscribe powerh-l" in message to majordomo@lists.swau.edu
This list is closed, thus to post to the list, you must be a subscriber.