-#if 0
- else if (q->format == VAL_GRS1)
- {
- Z_GenericRecord *rec = odr_malloc(q->stream, sizeof(*rec));
- Z_TaggedElement *t1 = odr_malloc(q->stream, sizeof(*t1));
- Z_StringOrNumeric *s1 = odr_malloc(q->stream, sizeof(*s1));
- Z_ElementData *c1 = odr_malloc(q->stream, sizeof(*c1));
-
- rec->elements = odr_malloc(q->stream, sizeof(Z_TaggedElement*)*10);
- rec->num_elements = 1;
- rec->elements[0] = t1 ;
- t1->tagType = odr_malloc(q->stream, sizeof(int));
- *t1->tagType = 3;
- t1->tagValue = s1;
- s1->which = Z_StringOrNumeric_string;
- s1->u.string = "title";
- t1->tagOccurrence = 0;
- t1->content = c1;
- c1->which = Z_ElementData_string;
- c1->u.string = "The Bad Seed and The Ugly Duckling";
- t1->metaData = 0;
- t1->appliedVariant = 0;
- r.record = (char*) rec;
- r.len = -1;
- }
-#endif