Lines Matching refs:outfab
154 static struct FAB *outfab = NULL;
717 outfab = &fileblk; /* Set pointers used elsewhere. */
832 ierr = sys$create(outfab);
920 rfm = outfab->fab$b_rfm; /* Use record format from VMS extra field */
944 outfab->FAB_NAM = &nam; /* Point FAB to NAML. */
946 outfab->fab$l_dna = (char *) -1; /* Using NAML for default name. */
947 outfab->fab$l_fna = (char *) -1; /* Using NAML for file name. */
951 FAB_OR_NAML(*outfab, nam).FAB_OR_NAML_FNA = G.filename;
952 FAB_OR_NAML(*outfab, nam).FAB_OR_NAML_FNS = strlen(G.filename);
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;
999 ierr = sys$create(outfab);
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)) {
1038 ierr = sys$extend(outfab);
1045 if (outfab->fab$l_stv != 0)
1047 vms_msg(__G__ "", outfab->fab$l_stv);
1055 rab.rab$l_fab = outfab;
1065 if (outfab->fab$l_stv != 0)
1067 vms_msg(__G__ "", outfab->fab$l_stv);
1468 outfab->FAB_NAM = &nam; /* Point FAB to local NAM[L]. */
1479 outfab->fab$l_dna = (char *) -1; /* Using NAML for default name. */
1480 outfab->fab$l_fna = (char *) -1; /* Using NAML for file name. */
1484 FAB_OR_NAML(*outfab, nam).FAB_OR_NAML_FNA = G.filename;
1485 FAB_OR_NAML(*outfab, nam).FAB_OR_NAML_FNS = strlen(G.filename);
1488 outfab->fab$l_fop |= FAB$M_MXV;
1491 ierr = sys$create(outfab);
1523 outfab->fab$l_fop |= FAB$M_SUP;
1525 return sys$create(outfab);
1650 outfab = NULL;
1690 outfab = (struct FAB *)extract_izvms_block(__G__ blk,
1819 if (outfab != NULL)
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;
1867 if (outfab != NULL && outfab != &fileblk)
1868 free(outfab);
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;
2845 status = sys$close(outfab);
2852 if (outfab->fab$l_stv != 0)
2854 vms_msg(__G__ "", outfab->fab$l_stv);
3128 if (outfab == NULL)
3135 outfab = &fileblk; /* Set pointer used elsewhere. */
3255 outfab->FAB_NAM = &nam; /* Point FAB to NAM[L]. */
3261 outfab->fab$l_dna = (char *) -1; /* Using NAML for default name. */
3262 outfab->fab$l_fna = (char *) -1; /* Using NAML for file name. */
3270 FAB_OR_NAML(*outfab, nam).FAB_OR_NAML_FNA = dir_name;
3271 FAB_OR_NAML(*outfab, nam).FAB_OR_NAML_FNS = strlen(dir_name);
3279 status = sys$parse(outfab);