iunit->flags.form = FORM_FORMATTED;
iunit->flags.pad = PAD_YES;
iunit->flags.status = STATUS_UNSPECIFIED;
+ iunit->endfile = NO_ENDFILE;
/* Initialize the data transfer parameters. */
}
+/* is_stream_io () -- Determine if I/O is access="stream" mode */
+
+int
+is_stream_io (st_parameter_dt *dtp)
+{
+ return dtp->u.p.current_unit->flags.access == ACCESS_STREAM;
+}
+
+
/*************************/
/* Initialize everything */