Category : Files from Magazines
Archive   : IMB9009.ZIP
Filename : ISAMTEST.BAS

'PROGRAM - ISAMTEST.BAS

'****************************************************************
'** Purpose - This program demonstrates the essential elements *
'** you incorporate in programs using the ISAM engine *
'****************************************************************

CLS

'****************** Setup ISAM file **************************

TYPE BusMailList 'Definition for ISAM table
FirstName AS STRING * 15
LastName AS STRING * 15
Company AS STRING * 30
Address AS STRING * 30
City AS STRING * 20
State AS STRING * 2
Zip AS STRING * 5
END TYPE

DIM ML AS BusMailList 'Record variable to move data
' in and out of file

OPEN "MailList.MDB" FOR ISAM BusMailList "BusinessList1" AS #1

' Use the CREATEINDEX cmd only if the index does not exist

CREATEINDEX #1, "B1Zip", 0, "Zip"
SETINDEX #1, "B1Zip" 'Set the active index

'******************* Add records to file **********************

INPUT "Add a record to the file (Y/N)"; Response$

WHILE UCASE$(Response$) = "Y"

CLS

PRINT "Enter the following information"
PRINT

LINE INPUT "First name: "; ML.FirstName
LINE INPUT "Last name : "; ML.LastName
LINE INPUT "Company : "; ML.Company
LINE INPUT "Address : "; ML.Address
LINE INPUT "City : "; ML.City
LINE INPUT "State : "; ML.State
LINE INPUT "Zip : "; ML.Zip

INSERT #1, ML
PRINT
INPUT "Add another record to the file (Y/N)"; Response$

WEND

'****** Sequentially display records from file *****************

MOVEFIRST #1 'Set initial file postion

NbrRecs = LOF(1) 'For ISAM files, LOF returns the # of records

FOR RecNbr = 1 TO NbrRecs

CLS

RETRIEVE #1, ML 'Get the next ISAM record

PRINT "Business mailing list display"
PRINT
PRINT "First name: "; ML.FirstName
PRINT "Last name : "; ML.LastName
PRINT "Company : "; ML.Company
PRINT "Address : "; ML.Address
PRINT "City : "; ML.City
PRINT "State : "; ML.State
PRINT "Zip : "; ML.Zip
PRINT
INPUT "Press to see the next record."; Response$

MOVENEXT #1 'Advance next record

NEXT RecNbr

PRINT
PRINT "End of file reached."
PRINT "Terminating program."

CLOSE 1
END