      Header=rmfield(Header,<span class="string">'SeqNo'</span>);
0117             <span class="keyword">end</span>
0118             <span class="keyword">if</span> isfield(Header,<span class="string">'RespId'</span>)
0119                 Header=rmfield(Header,<span class="string">'RespId'</span>);
0120             <span class="keyword">end</span>
0121             <span class="keyword">if</span> isfield(Header,<span class="string">'Date'</span>)
0122                 Header.OriginalDate=Header.Date;
0123    