Thanks, here it is
WhilePrintingRecords;
Global NumberVar Array AvgYldPrt := [0,0,0,0,0,0,0,0,0,0,0,0,0];
Global NumberVar Array TrmYldPrt := [0,0,0,0,0,0,0,0,0,0,0,0,0];
Global NumberVar Array TrmYldChPrt := [0,0,0,0,0,0,0,0,0,0,0,0,0];
Global NumberVar Array AvgYldChPrt := [0,0,0,0,0,0,0,0,0,0,0,0,0];
Global NumberVar Array TotChPrtDol := [0,0,0,0,0,0,0,0,0,0,0,0,0];
Global NumberVar Array TotChPrtCnt := [0,0,0,0,0,0,0,0,0,0,0,0,0];
Global NumberVar Array NewChPrtDol := [0,0,0,0,0,0,0,0,0,0,0,0,0];
Global NumberVar Array NewChPrtCnt := [0,0,0,0,0,0,0,0,0,0,0,0,0];
Global NumberVar Array NonChPrtDol := [0,0,0,0,0,0,0,0,0,0,0,0,0];
Global NumberVar Array NonChPrtCnt := [0,0,0,0,0,0,0,0,0,0,0,0,0];
Global NumberVar Array TotLnDol;
Global NumberVar Array TotLnCnt;
Global NumberVar Array NewLnDol;
Global NumberVar Array NewLnCnt;
Global NumberVar Array NonAcDol;
Global NumberVar Array NonAcCnt;
Global numberVar Array AvgYld;
Global numberVar Array TrmYld;
NumberVar I;
NumberVar I2 := 2;
For I := 1 to 13 Do
(
If TotLnDol
<> 0 Then AvgYldPrt := AvgYld/TotLnDol;
If TotLnDol <> 0 Then TrmYldPrt := TrmYld/TotLnDol;
);
//
If AvgYldPrt[1] <> 0 Then AvgYldChPrt[1] := (AvgYldPrt[1] - AvgYldPrt[13])/AvgYldPrt[1];
If TrmYldPrt[1] <> 0 Then TrmYldChPrt[1] := (TrmYldPrt[1] - TrmYldPrt[13])/TrmYldPrt[1];
If TotLnDol[1] <> 0 Then TotChPrtDol[1] := (TotLnDol[1] - TotLnDol[13])/TotLnDol[1];
If TotLnCnt[1] <> 0 Then TotChPrtCnt[1] := (TotLnCnt[1] - TotLnCnt[13])/TotLnCnt[1];
If NewLnDol[1] <> 0 Then NewChPrtDol[1] := (NewLnDol[1] - NewLnDol[13])/NewLnDol[1];
If NewLnCnt[1] <> 0 Then NewChPrtCnt[1] := (NewLnCnt[1] - NewLnCnt[13])/NewLnCnt[1];
If NonAcDol[1] <> 0 Then NonChPrtDol[1] := (NonAcDol[1] - NonAcDol[13])/NonAcDol[1];
If NonAcCnt[1] <> 0 Then NonChPrtCnt[1] := (NonAcCnt[1] - NonAcCnt[13])/NonAcCnt[1];
//
For I := 1 to 11 Do
(
If AvgYldPrt[I2] <> 0 Then AvgYldChPrt[I2] := (AvgYldPrt[I2] - AvgYldPrt)/AvgYldPrt[I2];
If TrmYldPrt[I2] <> 0 Then TrmYldChPrt[I2] := (TrmYldPrt[I2] - TrmYldPrt)/TrmYldPrt[I2];
If TotLnDol[I2] <> 0 Then TotChPrtDol[I2] := (TotLnDol[I2] - TotLnDol)/TotLnDol[I2];
If TotLnCnt[I2] <> 0 Then TotChPrtCnt[I2] := (TotLnCnt[I2] - TotLnCnt)/TotLnCnt[I2];
If NewLnDol[I2] <> 0 Then NewChPrtDol[I2] := (NewLnDol[I2] - NewLnDol)/NewLnDol[I2];
If NewLnCnt[I2] <> 0 Then NewChPrtCnt[I2] := (NewLnCnt[I2] - NewLnCnt)/NewLnCnt[I2];
I2 := I2 + 1
;