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