Notifies the DATATRIEVE interpreter that the DECforms forms to
be used are linked with the application rather than being stored
in external files (default case) and provides an address to get them.
Alternatively, it can reset the default case.
It is relevant only for applications calling the DATATRIEVE API.
Syntax:
FN$SET_FORM_TABLE_ADDR (form_table_addr, enable_flag).
1 – Input
This function takes two parameters as input.
The first one (form_table_addr) is the address of
FORMS$AR_FORM_TABLE,
if linked forms are to be used (enable_flag is 1 ).
The second one (enable_form) must be 1, if form files are to be
ignored and linked forms (via FORMS$AR_FORM_TABLE) are to be used.
It must be 0, if form files are to be used (default case).
2 – Output
None.
3 – Example
(C code)
....
{
#pragma nostandard
globalref unsigned long FORMS$AR_FORM_TABLE ;
#pragma standard
unsigned long *ar_form_table_ptr ;
char com[80];
ar_form_table_ptr = &FORMS$AR_FORM_TABLE ;
/* DECforms Forms linked with the application must be used */
sprintf(com, "FN$SET_FORM_TABLE_ADDR(%1d,%1d)",
ar_form_table_ptr, 1 ) ;
tdesc.dsc$a_pointer = com ;
tdesc.dsc$w_length = strlen(com) ;
status = dtr$command(&dab, &tdesc );
}