[XPT writer] Write row count in OBSV8 record

src/sas/readstat_xport_write.c

@@ -53,8 +53,8 @@ static readstat_error_t xport_write_header_record_v8(readstat_writer_t *writer,
         xport_header_record_t *xrecord) {
     char record[RECORD_LEN+1];
     snprintf(record, sizeof(record),
-            "HEADER RECORD*******%-8sHEADER RECORD!!!!!!!%-30d",
-            xrecord->name, xrecord->num1);
+            "HEADER RECORD*******%-8sHEADER RECORD!!!!!!!" "%15d" "%15d",
+            xrecord->name, xrecord->num1, xrecord->num2);
     return xport_write_record(writer, record);
 }
 
@@ -356,12 +356,16 @@ static readstat_error_t xport_write_namestr_header_record(readstat_writer_t *wri
 }
 
 static readstat_error_t xport_write_obs_header_record(readstat_writer_t *writer) {
+    if (writer->version == 8) {
+        xport_header_record_t xrecord = {
+            .name = "OBSV8",
+            .num1 = writer->row_count
+        };
+        return xport_write_header_record_v8(writer, &xrecord);
+    }
     xport_header_record_t xrecord = { 
         .name = "OBS"
     };
-    if (writer->version == 8) {
-        strcpy(xrecord.name, "OBSV8");
-    }
     return xport_write_header_record(writer, &xrecord);
 }