private void ProcessHeader(ParseRecord pr)
{
InternalST.Soap( this,"ProcessHeader ");
pr.Dump();
if (headerList == null)
headerList = new ArrayList(10);
ParseRecord headerPr = GetPr();
headerPr.PRparseTypeEnum = InternalParseTypeE.Object;
headerPr.PRobjectTypeEnum = InternalObjectTypeE.Array;
headerPr.PRobjectPositionEnum = InternalObjectPositionE.Headers;
headerPr.PRarrayTypeEnum = InternalArrayTypeE.Single;
headerPr.PRarrayElementType = typeof(System.Runtime.Remoting.Messaging.Header);
headerPr.PRisArrayVariant = false;
headerPr.PRarrayElementTypeCode = InternalPrimitiveTypeE.Invalid;
headerPr.PRrank = 1;
headerPr.PRlengthA = new int[1];
headerList.Add(headerPr);
}