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