В OpenEdge нет функции lpad (), но вы можете использовать функцию FILL ().Требуется два ввода: символьная строка для использования в качестве значения заполнения и количество повторов строки.
Это добавит четыре "7" к началу act_num, как вы описали в своем вопросе:
DEFINE VARIABLE act_num AS CHARACTER NO-UNDO INITIAL "101".
act_num = FILL("7", 4) + act_num.
MESSAGE act_num VIEW-AS ALERT-BOX.
Значением заполнения может быть любая строка, а не просто один символ.