filename$ = "BBjRecordSet.dat"
modes$ = ""
template$ = "state:c(2),name:c(16* = )"
erase filename$,err=*next
mkeyed filename$,2,0,32
channel = unt
open (channel)filename$
dim rec$:template$
while 1
dread rec.state$,rec.name$,end=*break
write record (channel,key = rec.state$)rec$
wend
close (channel)
RecordSet! = bbjapi().createFileRecordSet(filename$,modes$,template$)
print "BBjRecordSet::getFileName() = '",RecordSet!.getFileName(),"'"
print "BBjRecordSet::getMode() = '",RecordSet!.getMode(),"'"
print "BBjRecordSet::getTemplate() = '",RecordSet!.getTemplate(),"'"
print "BBjRecordSet::getQuery() = '",RecordSet!.getQuery(),"'"
print "BBjRecordSet::getConnectString() = '",RecordSet!.getConnectString(),"'"
print "BBjRecordSet::isUpdatable() = '",RecordSet!.isUpdatable(),"'"
print "BBjRecordSet::isScrollSensitive() = '",RecordSet!.isScrollSensitive(),"'"
RecordSet!.first()
RecordData! = RecordSet!.getCurrentRecordData()
print "The first record is:",'LF',RecordData!,
stop
data "AK","Alaska"
data "AL","Alabama"
data "AR","Arkansas"
data "AZ","Arizona"
data "CA","California"
data "CO","Colorado"
data "CT","Connecticut"
data "DC","District of Columbia"
data "DE","Delaware"
data "FL","Florida"
data "GA","Georgia"
data "GU","Guam"
data "HI","Hawaii"
data "IA","Iowa"
data "ID","Idaho"
data "IL","Illinois"
data "IN","Indiana"
data "KS","Kansas"
data "KY","Kentucky"
data "LA","Louisiana"
data "MA","Massachusetts"
data "MD","Maryland"
data "ME","Maine"
data "MI","Michigan"
data "MN","Minnesota"
data "MO","Missouri"
data "MS","Mississippi"
data "MT","Montana"
data "NC","North Carolina"
data "ND","North Dakota"
data "NE","Nebraska"
data "NH","New Hampshire"
data "NJ","New Jersey"
data "NM","New Mexico"
data "NV","Nevada"
data "NY","New York"
data "OH","Ohio"
data "OK","Oklahoma"
data "OR","Oregon"
data "PA","Pennsylvania"
data "PR","Puerto Rico"
data "RI","Rhode Island"
data "SC","South Carolina"
data "SD","South Dakota"
data "TN","Tennessee"
data "TX","Texas"
data "UT","Utah"
data "VA","Virginia"
data "VI","Virgin Islands"
data "VT","Vermont"
data "WA","Washington"
data "WI","Wisconsin"
data "WV","West Virginia"
data "WY","Wyoming"
|