Lines Matching defs:fab
332 * fab$w_deq default extension quantity (blocks) (write).
474 struct FAB fab;
479 fab = cc$rms_fab; /* Initialize FAB. */
484 fab.fab$l_naml = &nam; /* Point FAB to NAML. */
486 fab.fab$l_dna = (char *) -1; /* Using NAML for default name. */
487 fab.fab$l_fna = (char *) -1; /* Using NAML for file name. */
491 FAB_OR_NAML(fab, nam).FAB_OR_NAML_FNA = G.zipfn;
492 FAB_OR_NAML(fab, nam).FAB_OR_NAML_FNS = strlen(G.zipfn);
494 if (ERR(sts = sys$open(&fab)))
502 rtype = fab.fab$b_rfm;
503 sys$close(&fab);
540 * yes -> switch (fab.rfm)
714 fileblk.fab$l_xab = NULL; /* No XABs. */
722 fileblk.fab$b_rfm = FAB$C_VAR; /* variable length records */
723 fileblk.fab$b_rat = FAB$M_CR; /* implied (CR) carriage ctrl */
727 fileblk.fab$b_rfm = FAB$C_FIX; /* fixed length records */
728 fileblk.fab$w_mrs = 512; /* record size 512 bytes */
729 fileblk.fab$b_rat = 0; /* no carriage ctrl */
733 fileblk.fab$b_rfm = FAB$C_STMLF; /* stream-LF record format */
734 fileblk.fab$b_rat = FAB$M_CR; /* implied (CR) carriage ctrl */
742 fileblk.fab$l_dna = (char *) -1; /* Using NAML for default name. */
743 fileblk.fab$l_fna = (char *) -1; /* Using NAML for file name. */
753 dattim.xab$l_nxt = fileblk.fab$l_xab;
754 fileblk.fab$l_xab = (void *) &dattim;
758 fileblk.fab$w_ifi = 0; /* Clear IFI. It may be nonzero after ZIP */
759 fileblk.fab$b_fac = FAB$M_BRO | FAB$M_PUT; /* {block|record} output */
763 fileblk.fab$b_fac |= FAB$M_GET;
784 fileblk.fab$w_deq = rms_ext_active;
791 fileblk.fab$l_fop |= FAB$M_TEF ;
806 fileblk.fab$l_alq = (unsigned) (G.lrec.ucsize+ 511)/ 512;
807 fileblk.fab$l_fop |= FAB$M_SQO;
812 fileblk.fab$v_tef = 1;
827 fileblk.fab$l_alq = (unsigned) (G.lrec.ucsize+ 511)/ 512;
828 fileblk.fab$v_sqo = 1;
861 if (fileblk.fab$l_stv != 0)
863 vms_msg(__G__ "", fileblk.fab$l_stv);
879 if (fileblk.fab$l_stv != 0)
881 vms_msg(__G__ "", fileblk.fab$l_stv);
920 rfm = outfab->fab$b_rfm; /* Use record format from VMS extra field */
946 outfab->fab$l_dna = (char *) -1; /* Using NAML for default name. */
947 outfab->fab$l_fna = (char *) -1; /* Using NAML for file name. */
963 dattim.xab$l_nxt = outfab->fab$l_xab;
964 outfab->fab$l_xab = (void *) &dattim;
969 outfab->fab$w_ifi = 0; /* Clear IFI. It may be nonzero after ZIP */
970 outfab->fab$b_fac = FAB$M_BIO | FAB$M_PUT; /* block-mode output */
983 outfab->fab$b_fac |= FAB$M_GET;
994 outfab-> fab$l_fop |= FAB$M_SQO;
996 outfab-> fab$v_sqo = 1;
1028 if (outfab->fab$l_stv != 0)
1030 vms_msg(__G__ "", outfab->fab$l_stv);
1036 if (outfab->fab$b_org & (FAB$C_REL | FAB$C_IDX)) {
1045 if (outfab->fab$l_stv != 0)
1047 vms_msg(__G__ "", outfab->fab$l_stv);
1065 if (outfab->fab$l_stv != 0)
1067 vms_msg(__G__ "", outfab->fab$l_stv);
1233 fileblk.fab$l_dna = (char *) -1; /* Using NAML for default name. */
1234 fileblk.fab$l_fna = (char *) -1; /* Using NAML for file name. */
1479 outfab->fab$l_dna = (char *) -1; /* Using NAML for default name. */
1480 outfab->fab$l_fna = (char *) -1; /* Using NAML for file name. */
1488 outfab->fab$l_fop |= FAB$M_MXV;
1523 outfab->fab$l_fop |= FAB$M_SUP;
1824 outfab->fab$l_xab = NULL;
1827 xabfhc->xab$l_nxt = outfab->fab$l_xab;
1828 outfab->fab$l_xab = (void *) xabfhc;
1832 xabdat->xab$l_nxt = outfab->fab$l_xab;
1833 outfab->fab$l_xab = (void *) xabdat;
1837 last_xab->xab$l_nxt = outfab->fab$l_xab;
1838 outfab->fab$l_xab = (void *) first_xab;
2272 * depending on format of the stream (fab->rfm, G.pInfo->textmode, etc.)
2807 outfab->fab$l_xab = (void *) xabrdt;
2812 outfab->fab$l_xab = (void *) &rdt;
2816 xabdat->xab$l_nxt = outfab->fab$l_xab;
2817 outfab->fab$l_xab = (void *)xabdat;
2824 xabpro->xab$l_nxt = outfab->fab$l_xab;
2825 outfab->fab$l_xab = (void *) xabpro;
2831 pro.xab$l_nxt = outfab->fab$l_xab;
2832 outfab->fab$l_xab = (void *) &pro;
2852 if (outfab->fab$l_stv != 0)
2854 vms_msg(__G__ "", outfab->fab$l_stv);
3261 outfab->fab$l_dna = (char *) -1; /* Using NAML for default name. */
3262 outfab->fab$l_fna = (char *) -1; /* Using NAML for file name. */
3623 fileblk.fab$l_dna = (char *) -1; /* Using NAML for default name. */
3624 fileblk.fab$l_fna = (char *) -1; /* Using NAML for file name. */
3896 static struct FAB fab;
3906 fab = cc$rms_fab; /* Initialize FAB. */
3908 fab.FAB_NAM = &nam; /* Point FAB to NAM[L]. */
3912 fab.fab$l_dna = (char *) -1; /* Using NAML for default name. */
3913 fab.fab$l_fna = (char *) -1; /* Using NAML for file name. */
3917 FAB_OR_NAML(fab, nam).FAB_OR_NAML_DNA = (char *) deflt;
3918 FAB_OR_NAML(fab, nam).FAB_OR_NAML_DNS = sizeof(deflt) - 1;
3920 FAB_OR_NAML(fab, nam).FAB_OR_NAML_FNA = last_wild;
3921 FAB_OR_NAML(fab, nam).FAB_OR_NAML_FNS = strlen(last_wild);
3935 if ( !OK(status = sys$parse(&fab)) )
3948 if ( OK(status = sys$parse(&fab)) )
3950 status = sys$search(&fab);
3961 if ( !OK(sys$search(&fab)) )
4180 struct FAB fab;
4187 fab = cc$rms_fab; /* Initialize FAB. */
4189 fab.FAB_NAM = &nam; /* Point FAB to NAM[L]. */
4193 fab.fab$l_dna = (char *) -1; /* Using NAML for default name. */
4194 fab.fab$l_fna = (char *) -1; /* Using NAML for file name. */
4198 FAB_OR_NAML(fab, nam).FAB_OR_NAML_DNA = PATH_DEFAULT;
4199 FAB_OR_NAML(fab, nam).FAB_OR_NAML_DNS = strlen(PATH_DEFAULT);
4201 FAB_OR_NAML(fab, nam).FAB_OR_NAML_FNA = path;
4202 FAB_OR_NAML(fab, nam).FAB_OR_NAML_FNS = strlen(path);
4208 sts = sys$parse(&fab);
4689 struct FAB fab;
4714 fab = cc$rms_fab; /* Initialize FAB. */
4716 fab.FAB_NAM = &nam; /* Point FAB to NAM[L]. */
4720 fab.fab$l_dna = (char *) -1; /* Using NAML for default name. */
4721 fab.fab$l_fna = (char *) -1; /* Using NAML for file name. */
4726 FAB_OR_NAML(fab, nam).FAB_OR_NAML_FNA = pathcomp;
4727 FAB_OR_NAML(fab, nam).FAB_OR_NAML_FNS = strlen(pathcomp);
4730 FAB_OR_NAML(fab, nam).FAB_OR_NAML_DNA = PATH_DEFAULT;
4731 FAB_OR_NAML(fab, nam).FAB_OR_NAML_DNS = strlen(PATH_DEFAULT);
4737 status = sys$parse(&fab);
4913 fab = cc$rms_fab; /* Initialize FAB. */
4915 fab.FAB_NAM = &nam; /* Point FAB to NAM[L]. */
4919 fab.fab$l_dna = (char *) -1; /* Using NAML for default name. */
4920 fab.fab$l_fna = (char *) -1; /* Using NAML for file name. */
4924 FAB_OR_NAML(fab, nam).FAB_OR_NAML_DNA = pathptr;
4925 FAB_OR_NAML(fab, nam).FAB_OR_NAML_DNS = end - pathptr;
4926 FAB_OR_NAML(fab, nam).FAB_OR_NAML_FNA = G.filename;
4927 FAB_OR_NAML(fab, nam).FAB_OR_NAML_FNS = strlen(G.filename);
4932 if (!OK(status = sys$parse(&fab)) && status == RMS$_DNF )
5040 struct FAB fab;
5058 fab = cc$rms_fab; /* Initialize FAB. */
5064 fab.FAB_NAM = &nam; /* Point FAB to NAM[L]. */
5066 fab.fab$l_dna = (char *) -1; /* Using NAML for default name. */
5067 fab.fab$l_fna = (char *) -1; /* Using NAML for file name. */
5071 FAB_OR_NAML(fab, nam).FAB_OR_NAML_FNA = filenam;
5072 FAB_OR_NAML(fab, nam).FAB_OR_NAML_FNS = strlen(filenam);
5074 fab.fab$l_xab = (char *) &xdat;
5075 fab.fab$l_fop = FAB$M_GET | FAB$M_UFO;
5077 if (ERR(sys$open(&fab))) /* open failure: report exists and */
5080 fab.fab$l_xab = NULL;
5082 sys$dassgn(fab.fab$l_stv);
5083 sys$close(&fab); /* be sure file is closed and RMS knows about it */
5537 * fab$w_deq default extension quantity (blocks) (write).
5543 * for read versus write access. (I assume that specifying fab$w_deq,
5553 int acc_cb(int *id_arg, struct FAB *fab, struct RAB *rab)
5570 fab-> fab$w_deq = rms_ext_active;
5575 fab-> fab$v_tef = 1;
5588 *id_arg, fab-> fab$w_deq, rab-> rab$b_mbc, rab-> rab$b_mbf);