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!
Programa REXX (condicion reverse)
-
- Usuario avanzado
- Mensajes: 58
- Registrado: 25 Sep 2007, 16:36
- País: España
- Ciudad: Madrid
- Ocupación: Analista de desarrollo
Re: Programa REXX (condicion reverse)
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.
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.
Salud y fortuna.
Fernando Caballero
Fernando Caballero
-
- Usuario
- Mensajes: 6
- Registrado: 01 Ago 2017, 13:08
- País: españa
- Ciudad: barcelona
- Ocupación: Consultor
Re: Programa REXX (condicion reverse)
gracias f_caballero.
ya me funciona correctamente
tengo otra duda a ver si me pudieses hechar una mano.
gracias de nuevo
ya me funciona correctamente
tengo otra duda a ver si me pudieses hechar una mano.
gracias de nuevo