/*  must have function "Begin" to start with even if nothing inside */

func Begin() {
	ind1 = 0;    /*  initialize a counter */
}

func OnLineHeader() {
	LH.HLH[size(LH.HLH)] = " ";
	LH.HLH[size(LH.HLH)] = "    This Processing Flow Stinks";
	LH.HLH[size(LH.HLH)] = " ";
	output(LH);
}

/*  here is the guts of what we want to do to each trace header */

func OnTrace() {
	++ind1;                  /*  increment counter by 1 */
	recnum = Tr.RecNum;      /* copy RecNum value to PrRcNm value */
	trcnum = Tr.TrcNum;      /* copy RecNum value to PrRcNm value */
	srcpt  = Tr.SrcLoc;
	cdp    = Tr.DphInd;
	gi     = Tr.RecInd;
	dist   = Tr.DstSgn;

	print("Rec= ",recnum," trc= ",trcnum," src pt= ",srcpt," cdp= ",cdp," grp= ",gi," distance= ",dist,"\n");

	output(Tr);
}

/*      we're finished */