> PADL(FIELD02, ExtraSpaces(FIELD01))
>
>Step 4: Create an ExtraSpaces( ) function:>FUNCTION ExtraSpaces(lcField1Value) > ** Font info for field 1 > lcName1 = "Arial" > lcSize1 = 12 > lcStyle1 = "B" > > ** Font info for field 2 > lcName2 = "Arial" > lcSize2 = 10 > lcStyle2 = "N" > > lnTextWidth = TXTWIDTH(lcField1Value,lcName1,lcSize1,lcStyle1)*; > FONTMETRIC(6,lcName1,lcSize1,lcStyle1) > > lnSpaceWidth = TXTWIDTH(SPACE(1),lcName2,lcSize2,lcStyle2)*; > FONTMETRIC(6,lcName2,lcSize2,lcStyle2) > > lnSpaces = CEILING(lnTextWidth/lnSpaceWidth) > > RETURN lnSpaces >ENDFUNC >>