Lines Matching defs:fab
115 static struct FAB fab;
176 fab = cc$rms_fab;
184 fab.FAB_NAM = &nam;
185 fab.fab$l_xab = (char*)&xabsum;
192 fab.fab$l_dna = (char *) -1; /* Using NAML for default name. */
193 fab.fab$l_fna = (char *) -1; /* Using NAML for file name. */
197 FAB_OR_NAML( fab, nam).FAB_OR_NAML_FNA = z->name;
198 FAB_OR_NAML( fab, nam).FAB_OR_NAML_FNS = strlen( z->name);
206 * its target. fab.fab$v_bio is necessary to allow sys$open() to
213 fab.fab$v_bio = 1;
217 status = sys$open(&fab);
274 fab.fab$l_xab = (char*)xab_chain;
283 status = sys$display(&fab, 0, 0);
299 fab.fab$l_xab = NULL; /* Keep XABs */
300 status = sys$close(&fab);
348 fab.fab$b_fns = fab.fab$b_shr = fab.fab$b_dns = fab.fab$b_fac = 0;
349 fab.fab$w_ifi = 0;
350 fab.fab$l_stv = fab.fab$l_sts = fab.fab$l_ctx = 0;
351 fab.fab$l_dna = NULL;
352 fab.fab$l_fna = NULL;
353 fab.fab$l_nam = NULL;
355 fab.fab$l_naml = NULL;
357 fab.fab$l_xab = NULL;
360 dump_rms_block( (uch *)&fab );
362 scan = _compress_block((struct IZ_block *)scan, (uch *)&fab, FABL, FABSIG);
467 struct FAB *fab;
502 struct FAB *fab;
508 if ((fab = (struct FAB *) malloc(FABL)) == NULL)
514 free(fab);
520 free(fab);
527 free(fab);
534 free(fab);
540 *fab = cc$rms_fab;
545 fab->FAB_NAM = nam;
549 fab->fab$l_dna = (char *) -1; /* Using NAML for default name. */
550 fab->fab$l_fna = (char *) -1; /* Using NAML for file name. */
554 FAB_OR_NAML( fab, nam)->FAB_OR_NAML_FNA = name;
555 FAB_OR_NAML( fab, nam)->FAB_OR_NAML_FNS = strlen( name);
557 fab->fab$b_fac = FAB$M_GET | FAB$M_BIO;
558 fab->fab$l_xab = (char*)fhc;
564 * fab->fab$v_bio flag was set above.)
572 if (ERR(sys$open(fab)))
574 sys$close(fab);
575 free(fab);
583 rab->rab$l_fab = fab;
588 sys$close(fab);
589 free(fab);
597 ctx->fab = fab;
624 fab->fab$l_xab = NULL;
635 struct FAB *fab;
641 fab = (ctx = (Ctxptr)(rab->rab$l_ctx))->fab;
643 sys$close(fab);
645 free(fab);