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