[comp.os.vms] Does FDL$GENERATE work?

SLOANE@KUHUB.CC.UKANS.EDU (Bob Sloane) (07/21/88)

Hi all,

Does anyone out there use FDL$GENERATE?  I tried the following C program,
just to try the routine out, and I keep getting the error:

%LIB-F-FATERRLIB, fatal error in library

when I run it.  Am I doing something wrong, or is this an error in the
library?  Thanks for any help anyone can give.
+-------------------+-------------------------------------+------------------+
|  Bob Sloane        \Internet: SLOANE@KUHUB.CC.UKANS.EDU/Anything I said is |
|  Computer Center    \ BITNET: SLOANE@UKANVAX.BITNET   / my opinion, not my |
|  University of Kansas\  AT&T: (913) 864-0444         /  employer's.        |
+-----------------------+-----------------------------+----------------------+
================================== CUT HERE ==================================
/*
 *    to run:
 *      $ CC TESTFDL
 *      $ LINK TESTFDL,SYS$LIBRARY:VAXCRTL.OLB/LIBRARY
 *      $ TESTFDL:==$dir:TESTFDL
 *      $ TESTFDL TESTFDL.C
 */

#include stdio
#include "fdldef.h"
#include rms
#include descrip

main(num,args)
    int num;
    char **args;
{
    struct FAB *fab = { malloc(sizeof (struct FAB)) };
    struct RAB *rab = { malloc(sizeof (struct RAB)) };
    long status;
    char fdl_buf[4096];
    struct dsc$descriptor fdl_desc = 
              { sizeof fdl_buf, DSC$K_DTYPE_VT, DSC$K_CLASS_D, &fdl_buf[0] };
    int flags = { FDL$M_FDL_STRING | FDL$M_FULL_OUTPUT };
    int badblk,retlen;

    if ( num != 2 ) {
	fprintf(stderr,"Usage: testfdl file.\n");
	exit();
    }

    *fab = cc$rms_fab;
    fab->fab$l_fna = args[1];
    fab->fab$b_fns = strlen(args[1]);
    if ( !((status=sys$open(fab,0,0))&1) )
	exit(status);
    *rab = cc$rms_rab;
    rab->rab$l_fab = fab;
    if ( !((status=sys$connect(rab,0,0))&1) )
	exit(status);

    status=fdl$generate(&flags,&fab,&rab,0,0,&fdl_desc,&badblk,&retlen);
    if ( !(status&1) )
	exit(status);
    fdl_buf[retlen] = '\0';
    printf("%s\n",fdl_buf);

    if ( !((status=sys$close(fab,0,0))&1) )
	exit(status);
    free(rab);
    free(fab);
}