Programa REXX (condicion reverse)

[artilla]

Buenas, me gustaria saber si me podeis hechar una mano con un programita que estoy haciendo y no lo consigo.
Se que esta la funcion de reverse pero me gustaria verlo formulado de otra manera con do while o if y no lo consigo

your edit profile using the command RECOVE
/* REXX */
"ALLOC FI(DDIN) DA(Rh23332.USER.plantilla) SHR"
"EXECIO * DISKR DDIN (STEM LINES. FINIS "
"FREE FI(DDIN)"
DO I=1 TO LINES.0
SAY I"."STRIP(LINES.I)"-"REVERSE(STRIP(LINES.I))
END




Gracias por vuestra ayuda!

[f_caballero]

Hola, no parece que el problema esté en el DO.
Yo he probado con esto y funciona:
/* REXX */
lines.1 = "ABCDEFG"
LINES.0 = 1
DO I=1 TO LINES.0
SAY I"."STRIP(LINES.I)"-"REVERSE(STRIP(LINES.I))
END

La salida me muestra esto: 1.ABCDEFG-GFEDCBA

¿Cómo es de grande la longitud del registro del fichero?
¿Está el fichero vacío?
¿Hay algún problema en el ALLOC, como que esté en uso o no exista?

Suerte.

[artilla]

gracias f_caballero.

ya me funciona correctamente


tengo otra duda a ver si me pudieses hechar una mano.


gracias de nuevo