Eu escrevi um FM para isso, já que não consegui encontrar nenhum FM padrão.
DATA : comprimento TIPO i .
DATA : lv_temp TIPO n ,
lv_sum_first TIPO int4 ,
lv_sum_second TIPO int4 ,
lv_final_res TIPO int4 .
DATA : work_string ( 50 ) TIPO c .
DATA : lv_first TIPO int4 VALOR 1 ,
lv_second TIPO int4 VALOR 2 .
work_string = iv_number .
comprimento = strlen ( work_string ) .
MOVER work_string PARA A ESQUERDA ELIMINANDO ESPAÇOS espaço .
FAZER comprimento VEZES .
ESCREVER work_string+lv_first ( 1 ) EM lv_temp .
lv_sum_first = lv_sum_first + lv_temp .
ESCREVER work_string+lv_second ( 1 ) EM lv_temp .
lv_sum_second = lv_sum_second + lv_temp .
lv_first = lv_first + 2 .
lv_second = lv_second + 2 .
