ELSIF (mod = "Dates") & (typ = "Date") THEN
  item.GetVal(dv, ok); ASSERT(ok, 101);
  IF (dv.value.year = 0) & (dv.value.month = 0) & (dv.value.day = 0) THEN
    AddStr(nullStr, FALSE, 4, s)
  ELSE
   IF ~native THEN AddStr("{d'", TRUE, 3, s) END;
   Strings.IntToString(dv.value.year, h);
   AddStr(h, FALSE, 8, s); AddChar("-", s);
   Strings.IntToStringForm(dv.value.month, Strings.decimal, 2, "0", FALSE, h);
   AddStr(h, FALSE, 4, s); AddChar("-", s);
   Strings.IntToStringForm(dv.value.day, Strings.decimal, 2, "0", FALSE, h);
   AddStr(h, FALSE, 4, s);
   IF ~native THEN AddStr("'}", TRUE, 2, s)  END
  END