Power Builder - ARREGLOS

Hola a todos, tengo el siguiente problema.

con este script obtengo los digitos en mi valor a traves de un vector
ls_cod[ ] Ejm: 411

ll_len=len(ls_codigo_contable)
For li_i=1 to ll_len
//Determinar cuantos digitos tengo en el codigo
ls_cod[li_i]=Mid(ls_codigo_contable,li_i,1)
Next

Ahora bien lo que quiero es hacer que el 411 aparezca como 4.1.1
la preguna es: Como hago para obtener cada inidice del vector para despues colocarle el punto entre cada numero.

Gracias por su atencion.......

Un saludo especial desde COLOMBIA

Bueno, disculpame pero me temo que no entiendo muy bien ni el ejemplo ni la pregunta...

que valor tiene ls_codigo_contable y de donde sale el 411...

pero si ls_codigo_contable = 411 y lo quires poner en el vector ls_cod digito a digito en cada posición del vector separado por un punto, será mejor que utilices un WHILE y un contador que indicará la posición

Integer li_pos = 1, li_i = 1
Boolean lb_salir = FALSE

WHILE NOT lb_salir
//llevamos el digito correspondiente de la cadena
ls_cod[li_pos] = Mid(ls_codigo_contable,li_i,1)
//aumentamos los contadores de la posición
li_pos ++
li_i ++
//preguntamos si ya es el final del codigo para darle la salida al ciclo
IF li_i > len(ls_codigo_contable) THEN
lb_salir = TRUE
ELSE
//si la cadena tiene más digitos llevamos al vector un punto para que separe
ls_cod[li_pos] = '.'
li_pos ++
END IF
LOOP

crfeo que con este codigo resuelves el problema asñi como lo entendí, si lo entendó mal te pido me disculpes y por favor explicame más detalladamente el problema para ayudarte efectivamente... espero una respuesta

Hola amigo Milson un saludo desde la hermana Republica de Venezuela, gracias de antemano por el codigo con eso logre resolver el problema y disculpalme por no ser mas explicito pero aun asi entendistes lo que queria obtener.

Gracias y a la orden para cualquier cosa.....

"4.1.1" = String("411", "@.@.@")

Facil:-)