Si lo quieres hacer con RPG/400 (OPM), creo que lo mas facil sería algo mas
o menos así, suponiendo que las variables de entrada y salida tengan una
longitud de 50 caracteres:
E ARRY 50 1
C *ENTRY PLIST
C PARM VARENT 50
C PARM VARSAL 50
C CLEARARRY
C CLEARVARSAL
C MOVE *ZERO N 20
C *BLANK CHEKRVARENT N 90
C N IFGT *ZERO
C 50 SUB N N
C MOVEAVARENT ARRY,N
C MOVEAARRY VARSAL
C ELSE
C MOVELVARENT VARSAL
C ENDIF
C MOVE *ON *INLR
C RETRN
Aclaro que esto no lo tengo programado, me lo ideé aquí "en caliente" al
leer tu correo, así que seguramente necesitará algunas adecuaciones y
correcciones.
Saludos y espero te sea útil.
Jesús Humberto Olague Alcalá
Líder de Proyectos
Envases y Tapas Modelo, S.A. de C.V.
e-mail: [EMAIL PROTECTED]
Tel: (478) 985 4100 Ext. 247
Fax: (478) 985 4100 Ext. 249
"Diego Garulo"
<[EMAIL PROTECTED]> Para: "Forum. Help400"
Enviado por: <[EMAIL PROTECTED]>
forum.help400-request@ cc:
combios.es Asunto: Eliminar Espacios en
blanco
09/01/2003 04:02
Por favor, responda a
forum.help400
Buenos dias.
Tengo el problema que tengo que eliminar los espacios en blanco por la
derecha de un campo alfabetico para que dicho campo me quede alineado a la
derecha.
Muchas gracias.
_____________________________________________________
Forum.HELP400 es un servicio más de NEWS/400.
© Publicaciones Help400, S.L. - Todos los derechos reservados
http://www.help400.es
_____________________________________________________
Para darte de baja, envía el mensaje resultante de pulsar
mailto:[EMAIL PROTECTED]?body=LEAVE
--------------------------------------------------------------------------
" Este mensaje es confidencial. Si usted no es el destinatario de este
mensaje, le suplicamos se lo notifique al remitente mediante un correo
electrónico y que borre el presente mensaje y sus anexos de su computadora
sin retener copia de los mismos. No debe copiar este mensaje o usarlo para
cualquier propósito ni divulgar su contenido. Muchas gracias.
This e-mail is confidential and may also be privileged. If you are not the
intended recipient please immediately advise the sender by reply e-mail and
delete this message and its attachments from your computer without
retaining a copy. You should not copy it or use it for any purpose nor
disclose its contents to any other person. Thank you. "
_____________________________________________________
Forum.HELP400 es un servicio más de NEWS/400.
© Publicaciones Help400, S.L. - Todos los derechos reservados
http://www.help400.es
_____________________________________________________
Para darte de baja, envía el mensaje resultante de pulsar
mailto:[EMAIL PROTECTED]?body=LEAVE
