>>> 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 >>>>>>