Programa REXX (condicion reverse)

Todo lo relacionado con REXX en este ambiente.
artilla
Usuario
Usuario
Mensajes: 3
Registrado: 01 Ago 2017, 13:08
País: españa
Ciudad: barcelona
Ocupación: Consultor

Programa REXX (condicion reverse)

Mensajepor artilla » 01 Ago 2017, 13:32

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
Usuario avanzado
Usuario avanzado
Mensajes: 52
Registrado: 25 Sep 2007, 16:36
País: España
Ciudad: Madrid
Ocupación: Analista de desarrollo

Re: Programa REXX (condicion reverse)

Mensajepor f_caballero » 06 Ago 2017, 07:47

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.
Salud y fortuna.
Fernando Caballero

artilla
Usuario
Usuario
Mensajes: 3
Registrado: 01 Ago 2017, 13:08
País: españa
Ciudad: barcelona
Ocupación: Consultor

Re: Programa REXX (condicion reverse)

Mensajepor artilla » 21 Sep 2017, 17:09

gracias f_caballero.

ya me funciona correctamente


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


gracias de nuevo


Volver a “REXX”