Error creating forms context

Question

Does anyone know why this C code, when executed from UNIX command line works, but won't work as a host command from a form. I am running 9iAS release 2, on AIX. I have tried using a shell script in which I set all necessary environment variables before running the command. The shell script works from command line, but not from the form. Here's the C code......
/* Create Forms API context */
ctx_attr.mask_d2fctxa = (ub4)0;
if ( d2fctxcr_Create(&ctx, &ctx_attr) != D2FS_SUCCESS )
fprintf(stderr, "Error creating Forms API context\n");
exit(1);
/* Load the form module into memory */
if ( d2ffmdld_Load(ctx, &form, argv[1], FALSE) !=
D2FS_SUCCESS )
fprintf(stderr, "Failed to load form : %s\n", argv[1]);
exit(1);
/* Get the name of the form module */
if ( d2ffmdg_name(ctx, form, &form_name) != D2FS_SUCCESS )
fprintf(stderr, "Error getting the name of the form.\n");
else
/* print the name of the form, then free it */
printf("The name of the form is %s\n", form_name);
free(form_name);
/* Destroy the in-memory form */
if ( d2ffmdde_Destroy(ctx, form) != D2FS_SUCCESS )
fprintf(stderr, "Error destroying the form module\n");
/* Close the API and destroy context */
d2fctxde_Destroy(ctx);

Answer 1

You could as well use this sample code
#include <stdio.h>
#include <stdlib.h>
#include <malloc.h>
#include <d2fctx.h> /* Forms API context */
#include <d2ffmd.h> /* Form module header file */
int main (int argc, char *argv[])
     d2fctxa ctx_attr;
     d2fctx *ctx;
     d2ffmd *form;
     d2fcnv *pd2fcnv;
     d2fgra *pd2fgra;
     text *form_name;
     /* Check arguments */
     if ( argc != 2 )
          fprintf(stderr, "USAGE: %s <filename>\n", argv[0]);
          exit(1);
     /* Create Forms API context */
     ctx_attr.mask_d2fctxa = (ub4)0;
     if ( d2fctxcr_Create(&ctx, &ctx_attr) != D2FS_SUCCESS )
          fprintf(stderr, "Error creating Forms API context\n");
          exit(1);
     /* Load the form module into memory */
     if ( d2ffmdld_Load(ctx, &form,(text*) argv[1]) != D2FS_SUCCESS )
          fprintf(stderr, "Failed to load form module: %s\n", argv[1]);
          exit(1);
     /* Get the name of the form module */
     if ( d2ffmdg_name(ctx, form, &form_name) != D2FS_SUCCESS )
          fprintf(stderr, "Error getting the name of the form module\n");
     else
          /* Print the name of the form, then free it */
          printf ("The name of the form is %s\n", form_name);
          free(form_name);
     if ( d2ffmdsv_Save(ctx, form, (text *)argv[1])
     != D2FS_SUCCESS )
     fprintf(stderr, "Could not save the form\n");
     /* Destroy the in-memory form */
     if ( d2ffmdde_Destroy(ctx, form) != D2FS_SUCCESS )
     fprintf(stderr, "Error destroying form module\n");
     /* Close the API and destroy context */
     d2fctxde_Destroy(ctx);
     return 0;