Please enable JavaScript to view this site.

A-Shell Development History

Language enhancement, compiler edit 932: XOPEN now supports RANDOM and ISAM 1.x files. Also, XOPEN supports the option of expressing the flags argument as an expression rather than as a binary variable.

XOPEN for RANDOM:

XOPEN #ch, fspec$, RANDOM, recsiz, {,flags}

In the case of RANDOM, you may use the flag FDVF_FORCED (&h0010) to convert it to RANDOM'FORCED (i.e. shared).

XOPEN for ISAM 1.x:

XOPEN #ch, fspec$, ISAM'INDEXED, recsiz, {,flags}

In the ISAM 1.x case, as with ISAMA, you can use the flag FDVF_EXCLUSIVE (&h0800) to convert from ISAM'INDEXED shared to ISAM'INDEX'EXCLUSIVE.

For completeness, here is the complete list of flags that can be used with XOPEN:

Symbol

Value

Meaning

FDVF_FORCED

&h0010

Convert RANDOM to RANDOM'FORCED (shared)

FDVF_EXCLUSIVE

&h0800

Convert INDEXED to INDEXED'EXCLUSIVE

FDVF_READONLY

&h1000

READONLY

FDVF_END_FILE

&h2000

END'FILE

FDVF_W_RECORD

&h4000

WAIT'RECORD

FDVF_W_FILE

&h8000

WAIT'FILE

Definition file: ashinc:addsfdv.def