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 |