Random Data Files

[Robert Wolfe]

Hi all. Got my copy of PowerBASIC 3.5 for DOS yesterday and am in a little bit of a bind with a database project I am working on.

I was wondering if the DOS version can handle record structure definitions in the following format:

Type MyRec
  Name as String * 30
  Date as String * 10
End Type

Dim mydata As MyRec 

mydata.Name = "John Doe"
mydata.Date = DATE$

If not, what would be the PBDOS way of handling this?

[Michael Mattias]

What happened when you tried?

(Hint: It should have worked just fine).

[Paul Dixon]

Robert,
NAME is a reserved word in PBDOS. Try changing NAME to something else.

Paul.

[Robert Wolfe]

Robert,
NAME is a reserved word in PBDOS. Try changing NAME to something else.

Paul.

Paul, that was just sample code, I don't actually use NAME in my actual code. Will post more information when I get home this evening.

[Robert Wolfe]

What happened when you tried?

(Hint: It should have worked just fine).

Here is my actual code:

----- CODE -----
Type itemRec
  Name as String * 30
  UPC as String * 30
  Desc as String * 30
  Qty as Integer
  Bin as String * 10
End Type

DIM item AS itemRec, Record AS QUAD

OPEN "database.db" FOR RANDOM AS #1 LEN = LEN(itemRec)

If Command$ = "init" or Command$ = "INIT" Then
  For Record = 1 To 32767
    item.Name = "<<< EMPTY >>>"
    item.UPC  = "000000000000"
    item.Desc = "NULL"
    item.Qty  = 0
    item.Bin  = "NULL"
    PUT #1, Record, item
  Next Record
End If

Close #1

----- CODE -----

Now, when I go to compile the code, I get this "Error 421: String operand expected". But, looking back, I _think_ I see the problem here.

[...changes some code...]

Ok changed the 'Name' variable to iName and it compiled fine. Thanks to the poster who kindly reminded me that 'NAME' is a reserved word/variable