if(n
=c_sue(a
)) return(n
);
if(curunit
->uwrt
) (void) nowreading(curunit
);
if(fread((char *)&reclen
,sizeof(int),1,cf
)
err(a
->ciend
, EOF
, "start");
err(a
->cierr
, errno
, "start");
if(n
=c_sue(a
)) return(n
);
if(!curunit
->uwrt
) (void) nowwriting(curunit
);
(void) fseek(cf
,(long)sizeof(int),1);
if(a
->ciunit
>= MXUNIT
|| a
->ciunit
< 0)
err(a
->cierr
,101,"startio");
curunit
= &units
[a
->ciunit
];
if(curunit
->ufd
==NULL
&& fk_open(SEQ
,UNF
,a
->ciunit
))
if(curunit
->ufmt
) err(a
->cierr
,103,"sue")
if(!curunit
->useek
) err(a
->cierr
,103,"sue")
(void) fwrite((char *)&reclen
,sizeof(int),1,cf
);
(void) fseek(cf
,recloc
,0);
(void) fwrite((char *)&reclen
,sizeof(int),1,cf
);
(void) fseek(cf
,(long)(reclen
-recpos
+sizeof(int)),1);