Announcement

Collapse

The Alpha Software Forum Participation Guidelines

The Alpha Software Forum is a free forum created for Alpha Software Developer Community to ask for help, exchange ideas, and share solutions. Alpha Software strives to create an environment where all members of the community can feel safe to participate. In order to ensure the Alpha Software Forum is a place where all feel welcome, forum participants are expected to behave as follows:
  • Be professional in your conduct
  • Be kind to others
  • Be constructive when giving feedback
  • Be open to new ideas and suggestions
  • Stay on topic


Be sure all comments and threads you post are respectful. Posts that contain any of the following content will be considered a violation of your agreement as a member of the Alpha Software Forum Community and will be moderated:
  • Spam.
  • Vulgar language.
  • Quotes from private conversations without permission, including pricing and other sales related discussions.
  • Personal attacks, insults, or subtle put-downs.
  • Harassment, bullying, threatening, mocking, shaming, or deriding anyone.
  • Sexist, racist, homophobic, transphobic, ableist, or otherwise discriminatory jokes and language.
  • Sexually explicit or violent material, links, or language.
  • Pirated, hacked, or copyright-infringing material.
  • Encouraging of others to engage in the above behaviors.


If a thread or post is found to contain any of the content outlined above, a moderator may choose to take one of the following actions:
  • Remove the Post or Thread - the content is removed from the forum.
  • Place the User in Moderation - all posts and new threads must be approved by a moderator before they are posted.
  • Temporarily Ban the User - user is banned from forum for a period of time.
  • Permanently Ban the User - user is permanently banned from the forum.


Moderators may also rename posts and threads if they are too generic or do not property reflect the content.

Moderators may move threads if they have been posted in the incorrect forum.

Threads/Posts questioning specific moderator decisions or actions (such as "why was a user banned?") are not allowed and will be removed.

The owners of Alpha Software Corporation (Forum Owner) reserve the right to remove, edit, move, or close any thread for any reason; or ban any forum member without notice, reason, or explanation.

Community members are encouraged to click the "Report Post" icon in the lower left of a given post if they feel the post is in violation of the rules. This will alert the Moderators to take a look.

Alpha Software Corporation may amend the guidelines from time to time and may also vary the procedures it sets out where appropriate in a particular case. Your agreement to comply with the guidelines will be deemed agreement to any changes to it.



Bonus TIPS for Successful Posting

Try a Search First
It is highly recommended that a Search be done on your topic before posting, as many questions have been answered in prior posts. As with any search engine, the shorter the search term, the more "hits" will be returned, but the more specific the search term is, the greater the relevance of those "hits". Searching for "table" might well return every message on the board while "tablesum" would greatly restrict the number of messages returned.

When you do post
First, make sure you are posting your question in the correct forum. For example, if you post an issue regarding Desktop applications on the Mobile & Browser Applications board , not only will your question not be seen by the appropriate audience, it may also be removed or relocated.

The more detail you provide about your problem or question, the more likely someone is to understand your request and be able to help. A sample database with a minimum of records (and its support files, zipped together) will make it much easier to diagnose issues with your application. Screen shots of error messages are especially helpful.

When explaining how to reproduce your problem, please be as detailed as possible. Describe every step, click-by-click and keypress-by-keypress. Otherwise when others try to duplicate your problem, they may do something slightly different and end up with different results.

A note about attachments
You may only attach one file to each message. Attachment file size is limited to 2MB. If you need to include several files, you may do so by zipping them into a single archive.

If you forgot to attach your files to your post, please do NOT create a new thread. Instead, reply to your original message and attach the file there.

When attaching screen shots, it is best to attach an image file (.BMP, .JPG, .GIF, .PNG, etc.) or a zip file of several images, as opposed to a Word document containing the screen shots. Because Word documents are prone to viruses, many message board users will not open your Word file, therefore limiting their ability to help you.

Similarly, if you are uploading a zipped archive, you should simply create a .ZIP file and not a self-extracting .EXE as many users will not run your EXE file.
See more
See less

Reading Data from Large Text Files splitting files but read together

Collapse
X
 
  • Filter
  • Time
  • Show
Clear All
new posts

  • Reading Data from Large Text Files splitting files but read together

    Ok so I am working with ham radio log files that are in what is called ADIF format using adf file ext. They are a text file with different ext. However these text files can be rather Hugh, I read a post from 2011 about splitting the file which made some sense and I could get byte size of file and do something to divide into X amount of files or even Variables. Things that I don't know such as how many bytes of data can a C type variable hold and then I can put in by byte size. ?1024? How can I read through the data if record info is shifted to next variable. I have used file_pointer.seek(180) to get past the header

    Code:
    first line various text form software
    <LOG_PGM:9>NetLogger
    <LOG_VER:5>3.1.5
    
    <PROGRAMID:9>NetLogger
    <PROGRAMVERSION:5>3.1.5
    
    <EOH>
    <Call:4>N4UP
    <QSO_Date:8>20170106
    <Time_On:6>033017
    <App_NetLogger_ClubMemberId:4>9203
    <Comment:6>#9203#
    <Name:5>PETER
    <Band:3>80m
    <RST_Sent:2>59
    <RST_Rcvd:2>59
    <Mode:3>SSB
    <Freq:5>3.832
    <QTH:8>Victoria
    <State:2>VA
    <Cnty:12>VA,LUNENBURG
    <DXCC:3>291
    <Gridsquare:4>FM07
    <App_NetLogger_Preferred_Name:5>Peter
    <Operator:6>KM4OUS
    <QSL_Via:22>M T N eQSL-LoTW-Direct
    <Country:13>United States
    <Address:38>PETER
    Po Box 1306
    Victoria, VA 23974
    <App_NetLogger_Award_Status:6>MIL:AF
    <App_NetLogger_Net:17>OMISS 80m SSB Net
    <App_NetLogger_Club:5>OMISS
    <Station_Callsign:6>KM4OUS
    <eor>
    This is the format of the adif file and not all lines are there so some records have more or less lines of data. there is a <eor> tag at the end of each record and I was originally going to just loop a string scanner function to extract the data but then I realized that I can't load the while file into string data because it's too big.
    Pointers ideas guidance all very much appreciated. Is there a way to import the format to an alpha table?
    https://www.housingeducator.org
    k3srg

  • #2
    Re: Reading Data from Large Text Files splitting files but read together

    What do you want to do with the contents of the text file?
    There can be only one.

    Comment


    • #3
      Re: Reading Data from Large Text Files splitting files but read together

      I want to import it into an alpha table and then run queries on it for club rewards such as worked all states or counties. So I can see what club rewards I'm eligible for.
      https://www.housingeducator.org
      k3srg

      Comment


      • #4
        Re: Reading Data from Large Text Files splitting files but read together

        Do you have the table created? If so, what is the table structure. Are all the possible fields represented in your sample of the file?

        Is there any significance to the numbers after the colons?

        <Call:4>

        for example.
        There can be only one.

        Comment


        • #5
          Re: Reading Data from Large Text Files splitting files but read together

          no table yet was going to create from the file. as far as I can tell in my logs that is all the fields there would be.
          https://www.housingeducator.org
          k3srg

          Comment


          • #6
            Re: Reading Data from Large Text Files splitting files but read together

            the number is just the length of the data in the field he has a callsign of 4 i have a callsign of 6 so its just char length.
            https://www.housingeducator.org
            k3srg

            Comment


            • #7
              Re: Reading Data from Large Text Files splitting files but read together

              Which doesn't help when creating the table because it can only have one defined width. I made some assumptions about possible max widths. The attached script should read the file and create records into the attached table. The table should be downloaded and added to a database. The script should be adjusted so that the name and location of the text file are correct.

              netlogger.zip

              netlogger - 08-16-2017 -1.txt

              The address section presents a bit of an issue. I settled on concatenating the parts with a ~ separating them.
              There can be only one.

              Comment


              • #8
                Re: Reading Data from Large Text Files splitting files but read together

                Thanks a million Stan you are a code master. I had to remove the line under the header where it looks if file is blank there must be an extra line feed in the file that makes it stop. It seems to read and write correctly i adjusted the field sizes and changed to Numeric to Char and runs great. Thanks you so much for taking the time.
                https://www.housingeducator.org
                k3srg

                Comment


                • #9
                  Re: Reading Data from Large Text Files splitting files but read together

                  Ok so I have got the data into the netlogger table and it seems to be all written corretly I then duplicated the table and I'm trying to run some code to scan only the value in state and if <>"" enter record in new table but nothing is writing. It's running the code and using resource so I must just have something in the wrong place this is the code i'm using
                  Code:
                  dim states[50] as c
                  dim tbl as P
                  tbl=table.open("netlogger")
                  tbl.fetch_first()
                  while .not. eof("netlogger")
                  	
                  st=tbl.State
                  if st="" 
                  	goto skip
                  	end if
                  states[]=	"AL"
                  states[]=	"AK"
                  states[]=	"AZ"
                  states[]=	"AR"
                  states[]=	"CA"
                  states[]=	"CO"
                  states[]=	"CT"
                  states[]=	"DE"
                  states[]=	"FL"
                  states[]=	"GA"
                  states[]=	"HI"
                  states[]=	"ID"
                  states[]=	"IL"
                  states[]=	"IN"
                  states[]=	"IA"
                  states[]=	"KS"
                  states[]=	"KY"
                  states[]=	"LA"
                  states[]=	"ME"
                  states[]=	"MD"
                  states[]=	"MA"
                  states[]=	"MI"
                  states[]=	"MN"
                  states[]=	"MS"
                  states[]=	"MO"
                  states[]=	"MT"
                  states[]=	"NE"
                  states[]=	"NV"
                  states[]=	"NH"
                  states[]=	"NJ"
                  states[]=	"NM"
                  states[]=	"NY"
                  states[]=	"NC"
                  states[]=	"ND"
                  states[]=	"OH"
                  states[]=	"OK"
                  states[]=	"OR"
                  states[]=	"PA"
                  states[]=	"RI"
                  states[]=	"SC"
                  states[]=	"SD"
                  states[]=	"TN"
                  states[]=	"TX"
                  states[]=	"UT"
                  states[]=	"VT"
                  states[]=	"VA"
                  states[]=	"WA"
                  states[]=	"WV"
                  states[]=	"WI"
                  states[]=	"WY"
                  
                  if states.find(st)<>0
                  'state was found as worked
                  dim rtbl as P
                  rtbl=table.open("record-match")
                  rtbl.enter_begin()
                  rtbl.Call=tbl.Call
                  rtbl.Qso_date=tbl.Qso_date
                  rtbl.Time_on=tbl.Time_on
                  rtbl.Clubmemberid=tbl.Clubmemberid
                  rtbl.Comment=tbl.Comment
                  rtbl.Name=tbl.Name
                  rtbl.Band=tbl.Band
                  rtbl.Rst_send=tbl.Band
                  rtbl.Rst_send=tbl.Rst_send
                  rtbl.Rst_rcvd=tbl.Rst_rcvd
                  rtbl.Mode=tbl.Mode
                  rtbl.Freq=tbl.Freq
                  rtbl.Qth=tbl.Qth
                  rtbl.State=tbl.State
                  rtbl.Cnty=tbl.Cnty
                  rtbl.Dxcc=tbl.Dxcc
                  rtbl.Gridsq=tbl.Gridsq
                  rtbl.Pref_name=tbl.Pref_name
                  rtbl.Operator=tbl.Operator
                  rtbl.Qsl_via=tbl.Qsl_via
                  rtbl.Country=tbl.Country
                  rtbl.Address=tbl.Address
                  rtbl.Award_status=tbl.Award_status
                  rtbl.Award_net=tbl.Award_net
                  rtbl.Club=tbl.Club
                  rtbl.Callsign=tbl.Callsign
                  rtbl.enter_end()
                  
                  rtbl.close()
                  
                  
                      
                  end if
                  skip:
                  tbl.fetch_next()
                  end while
                  I get no results in the result table. Not sure what I'm missing here.
                  https://www.housingeducator.org
                  k3srg

                  Comment


                  • #10
                    Re: Reading Data from Large Text Files splitting files but read together

                    So this is what I tried and got some results
                    Code:
                    'Date Created: 16-Aug-2017 10:35:40 PM
                    'Last Updated: 16-Aug-2017 10:35:40 PM
                    'Created By  : Hubby
                    'Updated By  : Hubby
                    
                    dim shared tbl as P
                    tbl=table.open("netlogger")
                    tbl.fetch_first()
                    while .not. eof("netlogger")
                    	dim shared st as c
                    st=tbl.State
                    dim  states[50] as c
                    states[]=	"AL"
                    states[]=	"AK"
                    states[]=	"AZ"
                    states[]=	"AR"
                    states[]=	"CA"
                    states[]=	"CO"
                    states[]=	"CT"
                    states[]=	"DE"
                    states[]=	"FL"
                    states[]=	"GA"
                    states[]=	"HI"
                    states[]=	"ID"
                    states[]=	"IL"
                    states[]=	"IN"
                    states[]=	"IA"
                    states[]=	"KS"
                    states[]=	"KY"
                    states[]=	"LA"
                    states[]=	"ME"
                    states[]=	"MD"
                    states[]=	"MA"
                    states[]=	"MI"
                    states[]=	"MN"
                    states[]=	"MS"
                    states[]=	"MO"
                    states[]=	"MT"
                    states[]=	"NE"
                    states[]=	"NV"
                    states[]=	"NH"
                    states[]=	"NJ"
                    states[]=	"NM"
                    states[]=	"NY"
                    states[]=	"NC"
                    states[]=	"ND"
                    states[]=	"OH"
                    states[]=	"OK"
                    states[]=	"OR"
                    states[]=	"PA"
                    states[]=	"RI"
                    states[]=	"SC"
                    states[]=	"SD"
                    states[]=	"TN"
                    states[]=	"TX"
                    states[]=	"UT"
                    states[]=	"VT"
                    states[]=	"VA"
                    states[]=	"WA"
                    states[]=	"WV"
                    states[]=	"WI"
                    states[]=	"WY"
                    
                    if st<>"" '.and. states.find(st)<>0
                    'state was found as worked
                    dim rtbl as P
                    rtbl=table.open("record-match")
                    rtbl.enter_begin()
                    rtbl.Call=tbl.Call
                    rtbl.Qso_date=tbl.Qso_date
                    rtbl.Time_on=tbl.Time_on
                    rtbl.Clubmemberid=tbl.Clubmemberid
                    rtbl.Comment=tbl.Comment
                    rtbl.Name=tbl.Name
                    rtbl.Band=tbl.Band
                    rtbl.Rst_send=tbl.Band
                    rtbl.Rst_send=tbl.Rst_send
                    rtbl.Rst_rcvd=tbl.Rst_rcvd
                    rtbl.Mode=tbl.Mode
                    rtbl.Freq=tbl.Freq
                    rtbl.Qth=tbl.Qth
                    rtbl.State=tbl.State
                    rtbl.Cnty=tbl.Cnty
                    rtbl.Dxcc=tbl.Dxcc
                    rtbl.Gridsq=tbl.Gridsq
                    rtbl.Pref_name=tbl.Pref_name
                    rtbl.Operator=tbl.Operator
                    rtbl.Qsl_via=tbl.Qsl_via
                    rtbl.Country=tbl.Country
                    rtbl.Address=tbl.Address
                    rtbl.Award_status=tbl.Award_status
                    rtbl.Award_net=tbl.Award_net
                    rtbl.Club=tbl.Club
                    rtbl.Callsign=tbl.Callsign
                    rtbl.enter_end()
                    
                    rtbl.close()
                    
                    
                        
                    end if
                    skip:
                    tbl.fetch_next()
                    end while
                    Now I can sort and filter some more
                    https://www.housingeducator.org
                    k3srg

                    Comment


                    • #11
                      Re: Reading Data from Large Text Files splitting files but read together

                      You commented out the .and. states.find(alltrim(st))<>0 so you really aren't checking to see if the tbl.state was found, just that it isn't blank. Also you are populating the array on each fetch when it only needs to be done once. If your state field is defined as more than two characters you need to trim the extras to find a match in the states array.

                      Try it this way.

                      Code:
                      dim  states[50] as c
                      states[]=	"AL"
                      states[]=	"AK"
                      states[]=	"AZ"
                      states[]=	"AR"
                      states[]=	"CA"
                      states[]=	"CO"
                      states[]=	"CT"
                      states[]=	"DE"
                      states[]=	"FL"
                      states[]=	"GA"
                      states[]=	"HI"
                      states[]=	"ID"
                      states[]=	"IL"
                      states[]=	"IN"
                      states[]=	"IA"
                      states[]=	"KS"
                      states[]=	"KY"
                      states[]=	"LA"
                      states[]=	"ME"
                      states[]=	"MD"
                      states[]=	"MA"
                      states[]=	"MI"
                      states[]=	"MN"
                      states[]=	"MS"
                      states[]=	"MO"
                      states[]=	"MT"
                      states[]=	"NE"
                      states[]=	"NV"
                      states[]=	"NH"
                      states[]=	"NJ"
                      states[]=	"NM"
                      states[]=	"NY"
                      states[]=	"NC"
                      states[]=	"ND"
                      states[]=	"OH"
                      states[]=	"OK"
                      states[]=	"OR"
                      states[]=	"PA"
                      states[]=	"RI"
                      states[]=	"SC"
                      states[]=	"SD"
                      states[]=	"TN"
                      states[]=	"TX"
                      states[]=	"UT"
                      states[]=	"VT"
                      states[]=	"VA"
                      states[]=	"WA"
                      states[]=	"WV"
                      states[]=	"WI"
                      states[]=	"WY"
                      dim shared st as c
                      dim shared tbl as P
                      tbl=table.open("netlogger")
                      tbl.fetch_first()
                      while .not. eof("netlogger")
                      	st=tbl.State
                      	if st <> "" .and. states.find(alltrim(st))<>0
                      		'state was found as worked
                      		dim rtbl as P
                      		rtbl=table.open("record-match")
                      		rtbl.enter_begin()
                      		rtbl.Call=tbl.Call
                      		rtbl.Qso_date=tbl.Qso_date
                      		rtbl.Time_on=tbl.Time_on
                      		rtbl.Clubmemberid=tbl.Clubmemberid
                      		rtbl.Comment=tbl.Comment
                      		rtbl.Name=tbl.Name
                      		rtbl.Band=tbl.Band
                      		rtbl.Rst_send=tbl.Band
                      		rtbl.Rst_send=tbl.Rst_send
                      		rtbl.Rst_rcvd=tbl.Rst_rcvd
                      		rtbl.Mode=tbl.Mode
                      		rtbl.Freq=tbl.Freq
                      		rtbl.Qth=tbl.Qth
                      		rtbl.State=tbl.State
                      		rtbl.Cnty=tbl.Cnty
                      		rtbl.Dxcc=tbl.Dxcc
                      		rtbl.Gridsq=tbl.Gridsq
                      		rtbl.Pref_name=tbl.Pref_name
                      		rtbl.Operator=tbl.Operator
                      		rtbl.Qsl_via=tbl.Qsl_via
                      		rtbl.Country=tbl.Country
                      		rtbl.Address=tbl.Address
                      		rtbl.Award_status=tbl.Award_status
                      		rtbl.Award_net=tbl.Award_net
                      		rtbl.Club=tbl.Club
                      		rtbl.Callsign=tbl.Callsign
                      		rtbl.enter_end()
                      		rtbl.close()
                      	end if
                      	tbl.fetch_next()
                      end while
                      There can be only one.

                      Comment


                      • #12
                        Re: Reading Data from Large Text Files splitting files but read together

                        So was it just a matter of alltrim(). I just woke up and haven't compared the difference in code to see what I was missing but it seems to work
                        Thx again stan
                        https://www.housingeducator.org
                        k3srg

                        Comment


                        • #13
                          Re: Reading Data from Large Text Files splitting files but read together

                          Slow day, here is another version which should be faster.

                          Code:
                          tst = cstates("A|S"+crlf())
                          sts = words(tst,1,50,.T.,crlf())
                          'build a collection variable
                          dim states as U
                          states.initialize("1|2","1","2",sts)
                          dim shared st as c
                          dim shared tbl as P
                          dim rtbl as P
                          rtbl=table.open("record-match") 'only open the destination table once
                          rtbl.batch_begin() 'turn on batch processing
                          tbl=table.open("netlogger")
                          tbl.fetch_first()
                          while .not. tbl.fetch_eof("netlogger")
                          	st=tbl.State
                          	if st <> "" .and. states.exist(alltrim(st))	'check to see if the tbl.state exists in the collection
                          		'state was found as worked
                          		rtbl.enter_begin()
                          		rtbl.Call=tbl.Call
                          		rtbl.Qso_date=tbl.Qso_date
                          		rtbl.Time_on=tbl.Time_on
                          		rtbl.Clubmemberid=tbl.Clubmemberid
                          		rtbl.Comment=tbl.Comment
                          		rtbl.Name=tbl.Name
                          		rtbl.Band=tbl.Band
                          		rtbl.Rst_send=tbl.Band
                          		rtbl.Rst_send=tbl.Rst_send
                          		rtbl.Rst_rcvd=tbl.Rst_rcvd
                          		rtbl.Mode=tbl.Mode
                          		rtbl.Freq=tbl.Freq
                          		rtbl.Qth=tbl.Qth
                          		rtbl.State=tbl.State
                          		rtbl.Cnty=tbl.Cnty
                          		rtbl.Dxcc=tbl.Dxcc
                          		rtbl.Gridsq=tbl.Gridsq
                          		rtbl.Pref_name=tbl.Pref_name
                          		rtbl.Operator=tbl.Operator
                          		rtbl.Qsl_via=tbl.Qsl_via
                          		rtbl.Country=tbl.Country
                          		rtbl.Address=tbl.Address
                          		rtbl.Award_status=tbl.Award_status
                          		rtbl.Award_net=tbl.Award_net
                          		rtbl.Club=tbl.Club
                          		rtbl.Callsign=tbl.Callsign
                          		rtbl.enter_end()
                          	end if
                          	tbl.fetch_next()
                          end while
                          rtbl.batch_end()
                          rtbl.close()
                          tbl.close()
                          Last edited by Stan Mathews; 08-17-2017, 12:33 PM. Reason: all versions should use while .not. tbl.fetch_eof("netlogger")
                          There can be only one.

                          Comment


                          • #14
                            Re: Reading Data from Large Text Files splitting files but read together

                            Stan

                            Good choice with the collection. Should be much faster.
                            Al Buchholz
                            Bookwood Systems, LTD
                            Weekly QReportBuilder Webinars Thursday 1 pm CST

                            Occam's Razor - KISS
                            Normalize till it hurts - De-normalize till it works.
                            Advice offered and questions asked in the spirit of learning how to fish is better than someone giving you a fish.
                            When we triage a problem it is much easier to read sample systems than to read a mind.

                            Comment


                            • #15
                              Re: Reading Data from Large Text Files splitting files but read together

                              So it works great stan as you knew it would I only had to change the way it seen the eof for the table not sure why your way didn't work but I also have added a query in the middle to check if there is a record with the state, since this is a WAS "Worked All States" code sniplet and I really like the way you used the built in states list never knew that existed but I have only scraped the surface over the years. So here is the code that I made changes for. This is great for others to reference and if I'm working on something down the road Alpha Message Board will always be here to look back..
                              Code:
                              tst = cstates("A|S"+crlf())
                              sts = words(tst,1,50,.T.,crlf())
                              'build a collection variable
                              dim states as U
                              states.initialize("1|2","1","2",sts)
                              dim shared st as c
                              dim shared tbl as P
                              dim rtbl as P
                              rtbl=table.open("record-match") 'only open the destination table once
                              rtbl.batch_begin() 'turn on batch processing
                              tbl=table.open("netlogger")
                              tbl.fetch_first()
                              while .not. eof("netlogger")
                              	st=tbl.State
                              	if st <> "" .and. states.exist(alltrim(st))	'check to see if the tbl.state exists in the collection
                              		'state was found as worked
                              		'start table query
                              'dim tbl as P
                              
                              dim qry as P
                              
                              dim nrecs as N
                              
                              'tbl = table.current()
                              
                              query.description = "Time Sheet"
                              
                              query.order = "State"
                              
                              query.filter = "State = VAR->st"
                              
                              query.options = ""
                              
                              qry = rtbl.query_create()
                              
                              nrecs = qry.records_get()
                              
                              IF (nrecs <> 0) then
                              
                                  qry.drop()
                              
                                  'ui_msg_box("Null Query","There are no records in the Query" ,UI_INFORMATION_SYMBOL)
                              
                                  query.order = ""
                              
                                  query.filter = ""
                              
                                 goto skip
                              
                              end if
                              
                              		
                              		'trying the fetch find key for writing 1st 50 states in log
                              		rtbl.enter_begin()
                              		rtbl.Call=tbl.Call
                              		rtbl.Qso_date=tbl.Qso_date
                              		rtbl.Time_on=tbl.Time_on
                              		rtbl.Clubmemberid=tbl.Clubmemberid
                              		rtbl.Comment=tbl.Comment
                              		rtbl.Name=tbl.Name
                              		rtbl.Band=tbl.Band
                              		rtbl.Rst_send=tbl.Band
                              		rtbl.Rst_send=tbl.Rst_send
                              		rtbl.Rst_rcvd=tbl.Rst_rcvd
                              		rtbl.Mode=tbl.Mode
                              		rtbl.Freq=tbl.Freq
                              		rtbl.Qth=tbl.Qth
                              		rtbl.State=tbl.State
                              		rtbl.Cnty=tbl.Cnty
                              		rtbl.Dxcc=tbl.Dxcc
                              		rtbl.Gridsq=tbl.Gridsq
                              		rtbl.Pref_name=tbl.Pref_name
                              		rtbl.Operator=tbl.Operator
                              		rtbl.Qsl_via=tbl.Qsl_via
                              		rtbl.Country=tbl.Country
                              		rtbl.Address=tbl.Address
                              		rtbl.Award_status=tbl.Award_status
                              		rtbl.Award_net=tbl.Award_net
                              		rtbl.Club=tbl.Club
                              		rtbl.Callsign=tbl.Callsign
                              		rtbl.enter_end()
                              	end if
                              	skip:
                              	tbl.fetch_next()
                              end while
                              rtbl.batch_end()
                              rtbl.close()
                              tbl.close()
                              https://www.housingeducator.org
                              k3srg

                              Comment

                              Working...
                              X