Lines Matching defs:fab
158 struct FAB fab;
310 struct FAB fab; /* FAB. */
315 fab = cc$rms_fab;
316 fab.FAB_NAM = &nam;
322 fab.fab$l_dna = (char *) -1; /* Using NAML for default name. */
323 fab.fab$l_fna = (char *) -1; /* Using NAML for file name. */
328 FAB_OR_NAML( fab, nam).FAB_OR_NAML_FNA = file_spec;
329 FAB_OR_NAML( fab, nam).FAB_OR_NAML_FNS = strlen( file_spec);
332 sts = sys$parse( &fab, 0, 0); /* Parse the file spec. */
555 d->fab = cc$rms_fab; /* Initialize FAB. */
558 d->fab.FAB_NAM = &d->nam; /* FAB -> NAM[L] */
562 d->fab.fab$l_dna =(char *) -1; /* Using NAML for default name. */
563 d->fab.fab$l_fna = (char *) -1; /* Using NAML for file name. */
568 d->FAB_OR_NAML( fab, nam).FAB_OR_NAML_FNA = p;
569 d->FAB_OR_NAML( fab, nam).FAB_OR_NAML_FNS = strlen(p);
574 d->FAB_OR_NAML( fab, nam).FAB_OR_NAML_DNA = DEF_DEVDIR;
575 d->FAB_OR_NAML( fab, nam).FAB_OR_NAML_DNS = sizeof( DEF_DEVDIR)- 1;
583 if (sys$parse(&d->fab) != RMS$_NORMAL)
585 /* Does this replace d->fab.fab$l_fna with a new string in its own space?
652 d->fab.fab$w_ifi = 0; /* internal file index: what does this do? */
662 "fab = cc$rms_fab", and left that way, so clearing it here may very
667 if ((r = sys$search(&d->fab)) == RMS$_NORMAL)