Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Insert into cursor problems
Message
From
22/03/2004 02:45:07
 
 
To
19/03/2004 06:17:59
General information
Forum:
Visual FoxPro
Category:
Coding, syntax & commands
Miscellaneous
Thread ID:
00887815
Message ID:
00888426
Views:
10
Try to open and close cursors within the scan.
scan
   create cursor ncci_header
   ....
   use in ncci_header
endscan
Kamil

>I have a routine where I create a cursor, populate variable and then create an ascii file using that data as follows:
>
><pre>
>select controlling table
>scan
>
>*** adding header record
>create cursor ncci_header (carrier_cd c(5)......)
>*** get values to populate the ncci_header record		
>Insert Into ncci_header (carrier_cd,......  )	 ;
>			values(lccarrier_cd, ..........)
>
> ** add the header record
>Select  ncci_header
>Copy To ncci_header.txt Type Sdf
>lc_header = Filetostr('ncci_header.txt')
>lnbytes = Strtofile(lc_header,'policy.txt',1)
>
>*** adding location records or name records
>    create cursor location
>    get values to populate for location for controlling record
>    insert into location
>    add location to policy.txt using same routine as above
>endscan
>
>There are about 7-8 more records types that in the routine that need to be added to the txt file for that one controlling record.
>
>My problem is that either the insert is not firing every time or the routine to add to the policy.txt file is not working always.
>
>Out of 3400 record in the controlling table - anywhere from 4-6 header records are not added. If I run it a second time it is never the same header records that are missing even though the data has not changed. Even though the header record is missing the rest of the records such as location are added correctly.
>
>Anyone know of any problems with insert or the use of strtofile which might explain this?
>
>
>Thanks
>Gaylen
A moment of silence is our cosmic reset button.
Previous
Reply
Map
View

Click here to load this message in the networking platform