Add Leading Characters to a Value or Field

 

A function to facilitate the addition of a leading character to a field value. The function takes three parameters:
- &LEADCHAR: The character you want to append to your value.
- &FIELDZISE: The over all size of your value after appending your desired character.
- &FIELDVALUE: The value you want to append the character to.

Function add_leading_char(&LEADCHAR, &FIELDSIZE, &FIELDVALUE, &RESULTFIELD);
   /*this function accepts a character value, fieldsize parameter, and a field value parameter and adds a leading character up to the size of the field.  The result is passed back in a result field.*/
   &LEADCHAR = Left(&LEADCHAR, 1);
   &FIELDVALUE = String(&FIELDVALUE);
   &FIELDLEN = Len(&FIELDVALUE);
   &FIELDFILL = &FIELDSIZE - &FIELDLEN;
   &LEFT_HALF = Rept(&LEADCHAR, &FIELDFILL);
   &RESULTFIELD = &LEFT_HALF | &FIELDVALUE;
End-Function;

/*Example calling the above function*/
&CHAR = "0";
&FIELDSIZE = 5;
&FIELDVALUE = 7;
add_leading_char(&CHAR, &FIELDSIZE, &FIELDVALUE, &RESULTFIELD);

/*after execution, the &RESULTFIELD value would be equal to 00007*/

 

转载于:https://www.cnblogs.com/GoDevil/archive/2009/07/27/1531986.html