Bad File Mode Error
Posted: Sun Nov 25, 2012 12:46 pm
I get a bad file mode error on the WRITE #1, SalesNum, SalesmanNam$, SalesAmt, CommRt, CommissionAm line
what should I do?
My Code
' This program reads a sequential file
'
'
'
'
' SalesNum = Salesman Number
' SalesmanNam$ = Salesman Name
' SalesAmt = Sales Amount
' CommRt = Commission Rate
' CommissionAm = Commission Amount
'
' *******************************************
' Program mainline
' *******************************************
CLS
GOSUB CreateFile
GOSUB LoadFile
GOSUB CloseFile
END
' ******************* Create The File ***************
CreateFile:
OPEN "SALEDATA" FOR INPUT AS #1
RETURN
' ************ Print The Report ***************
PrintReport:
INPUT #1, SalesNum, Nam$, SaleAmt, CommRt
DO UNTIL SalesNum = 0
LET Comm = SaleAmt * (CommRt / 100)
PRINT USING D$; SalesNum; Nam$; SaleAmt; CommRt; Comm
INPUT #1, SalesNum, Nam$, SaleAmt, CommRt
LOOP
RETURN
LoadFile:
DO UNTIL UCASE$(SalesmanNam$) = "END"
INPUT "Salesman Number", SalesNum
INPUT "Salesman Name", SalesmanNam$
INPUT "Sales Amount", SalesAmt
INPUT "Commission Rate", CommRt
INPUT "Commission Amount", CommissionAm
PRINT
WRITE #1, SalesNum, SalesmanNam$, SalesAmt, CommRt, CommissionAm
LOOP
RETURN
'****************************************************************************
' Close File
'****************************************************************************
CloseFile:
CLOSE #1
RETURN
what should I do?
My Code
' This program reads a sequential file
'
'
'
'
' SalesNum = Salesman Number
' SalesmanNam$ = Salesman Name
' SalesAmt = Sales Amount
' CommRt = Commission Rate
' CommissionAm = Commission Amount
'
' *******************************************
' Program mainline
' *******************************************
CLS
GOSUB CreateFile
GOSUB LoadFile
GOSUB CloseFile
END
' ******************* Create The File ***************
CreateFile:
OPEN "SALEDATA" FOR INPUT AS #1
RETURN
' ************ Print The Report ***************
PrintReport:
INPUT #1, SalesNum, Nam$, SaleAmt, CommRt
DO UNTIL SalesNum = 0
LET Comm = SaleAmt * (CommRt / 100)
PRINT USING D$; SalesNum; Nam$; SaleAmt; CommRt; Comm
INPUT #1, SalesNum, Nam$, SaleAmt, CommRt
LOOP
RETURN
LoadFile:
DO UNTIL UCASE$(SalesmanNam$) = "END"
INPUT "Salesman Number", SalesNum
INPUT "Salesman Name", SalesmanNam$
INPUT "Sales Amount", SalesAmt
INPUT "Commission Rate", CommRt
INPUT "Commission Amount", CommissionAm
WRITE #1, SalesNum, SalesmanNam$, SalesAmt, CommRt, CommissionAm
LOOP
RETURN
'****************************************************************************
' Close File
'****************************************************************************
CloseFile:
CLOSE #1
RETURN