Escribí un FM para esto ya que no pude encontrar ningún FM estándar.
DATA : longitud 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 .
longitud = strlen ( work_string ) .
DESPLAZAR work_string IZQUIERDA ELIMINANDO ESPACIOS espacio .
HACER longitud VECES .
ESCRIBIR work_string+lv_first ( 1 ) A lv_temp .
lv_sum_first = lv_sum_first + lv_temp .
ESCRIBIR work_string+lv_second ( 1 ) A lv_temp .
lv_sum_second = lv_sum_second + lv_temp .
lv_first = lv_first + 2 .
lv_second = lv_second + 2
