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 ); }