+Iso2709Rec iso2709_mk (void)
+{
+ Iso2709Rec p;
+
+ if (!(p = malloc (sizeof(*p))))
+ return NULL;
+
+ p->record_length = 0;
+ strncpyx (p->record_status, " ", 1);
+ strncpyx (p->implementation_codes, " ", 4);
+ p->indicator_length = 2;
+ p->identifier_length = 2;
+ p->base_address = 0;
+ strncpyx (p->user_systems, " ", 3);
+ p->length_data_entry = 4;
+ p->length_starting = 5;
+ p->length_implementation = 0;
+ strncpyx (p->future_use, " ", 1);
+
+ p->directory = NULL;
+ return p;
+}