Commit | Line | Data |
---|---|---|
8662e665 PW |
1 | /* sequential formatted external common routines*/ |
2 | #include "fio.h" | |
3 | extern char *fmtbuf; | |
4 | e_rsfe() | |
5 | { int n; | |
6 | n=en_fio(); | |
7 | fmtbuf=NULL; | |
8 | return(n); | |
9 | } | |
10 | c_sfe(a,flag) cilist *a; /* check */ | |
11 | { unit *p; | |
12 | if(a->ciunit >= MXUNIT || a->ciunit<0) | |
13 | err(a->cierr,101,"startio"); | |
14 | p = &units[a->ciunit]; | |
15 | if(p->ufd==NULL && fk_open(flag,SEQ,FMT,a->ciunit)) err(a->cierr,114,"sfe") | |
16 | if(!p->ufmt) err(a->cierr,102,"sfe") | |
17 | return(0); | |
18 | } | |
19 | e_wsfe() | |
20 | { return(e_rsfe()); | |
21 | } |