Hola Foro
Antes que nada muchas gracias,
Lo que necesito es volcar los 50 paramatros en un campo unico tipo
texto y que cada parametro recibido este separado por punto y coma.
D principio pr EXTPROC(myprograma)
D parm50 likeds(datastruct)
D principio pi
D parm50 likeds(datastruct)
D datastruct DS QUALIFIED
D par01 20A
D par02 1S 0
D par03 10S 0
........
D par50 30A
D datapunto DS QUALIFIED
D par01 20A
D INZ(':')
D par02 1S 0
D INZ(':')
D par03 10S 0
D INZ(':')
........
D par50 30A
En Free datastruct = parm50 y luego
y luego con
EVAL-CORR datapunto = datapunto; ) )para no mover de a uno
cada paramatro.
y luego con un FOR recorrer datapunto e ir cargando el campo
textopuntoycoma Ej : 'aaaaaaa;;;;ooooooooo;sdfsd;;;;;;;'
Es lo que pretendo hacer.
Si hay otra manera por favor me podrian indicar como.
Gracias
____________________________________________________
© Publicaciones Help400, S.L. - Todos los
derechos reservados http://www.help400.es
----------------------------------------------------
Para darte de baja visita la siguente URL:
http://listas.combios.es/mailman/listinfo/forum.help400
