Record Information


DATE of last change to record

Get the date and time when the current record was last implemented.

This routine returns zero if the current record hasn't been implemented just yet. The returned value is a long word which is derived from the internal clock of the QL. So the date of the current record in the default buffer can be printed like this

    PRINT DATE$(recordDATE)
Sbasic
    date = recordDATE(#bufferid)
Assembler
    DATE
    bufferid
    return long date
C
    long DDrecorddate(long bufferid, long *result);
  
errors, code,   meaning
itnf    -7      invalid bufferid
...             any file i/o error

ID of current REcord

Get the recordid of the current record.

This routine returns -1 if there is no recordid for the current record just yet (-1 is an impossible recordid).

Sbasic
    id = recordID(#bufferid)
Assembler
    IDRE
    bufferid
    return long id
C
    long DDrecordid(long bufferid, long *result);
  
errors, code,   meaning
itnf    -7      invalid bufferid

LENgth of Record

Get the length of the current record. This is the length in bytes, it is the added length in bytes of the field which are not cleared and their fieldheader. Such a fieldheader contains the fieldid and the length of the field (6 bytes).

The recordlength should only be used for comparing, this is not a very usefull routine.

Sbasic
    len = recordLEN(#bufferid)
Assembler
    LENR
    bufferid
    return long length
C
    long DDrecordlen(long bufferid, long *result);
  
errors, code,   meaning
itnf    -7      invalid bufferid
PROGS, Professional & Graphical Software
last edited September 6, 1996