¡Caminando hacia el éxito!

Aprende en Comunidad

Avalados por :

Cómo justificar datos a la izquierda y rellenar a la derecha con espacios - Guía fácil

  • Creado 01/03/2024
  • Modificado 01/03/2024
  • 140 Vistas
0
Cargando...

Hola,

Quiero justificar a la izquierda los datos y rellenar a la derecha con espacios.

si la longitud del valor L es 10..

Debería verse como 'L ' en lugar de 'L Espacio... '.

Debería verse como '00200 ' o '01200 ' No quiero suprimir los ceros iniciales.

Si hago justificación a la derecha, obtengo ' L' y si hago justificación a la izquierda, obtengo solo 'L'. ¿Cómo puedo obtener el valor como ' Espacio L'..?

Por favor, hágame saber cuál sería la manera más sencilla.

Gracias,

Mark

Pedro Pascal
Se unió el 07/03/2018
Pinterest
Telegram
Linkedin
Whatsapp

4 Respuestas

0
Cargando...

data: begin of i_val occurs 0,

val1(12) type c,

val2(13) type c,

val3(14) type c,

val4(15) type c,

end of i_val.

i_val-val1 = '1'.

i_val-val2 = '2'.

i_val-val3 = '3'.

i_val-val4 = '4'.

append i_val.

*concatenate i_val-val1 i_val-val2 i_val-val3 i_val-val4 into i_val separated by '|'.

write: i_val-val1, '|', i_val-val2, '|', i_val-val3, '|', i_val-val4.

write: i_val.

Si estoy concatenando, me faltan los espacios... Necesito este formato para colocar todo esto en un archivo. ¿Cómo puedo obtener el formato como en la primera declaración de escritura?

Respondido el 15/04/2024
LUCIANO RIOJA GHIOTTO
Se unió el 13/07/2019
0
Cargando...

Hola Yelloe,

Mira si esto es lo que deseas, por favor.

- Para justificar a la izquierda, usa <b>condense</b>

- Para justificar a la derecha, usa <b>write to</b> con <b>RIGHT-JUSTIFIED</b>

Ejemplo:

<b>DATA: text(10) VALUE ' 0L0'.</b>

*Normal

<b>WRITE: / text.</b>

*Justificado a la izquierda

<b>CONDENSE text.

WRITE: / text.</b>

*Justificado a la derecha

<b>WRITE text TO text RIGHT-JUSTIFIED.

WRITE: / text.</b>

Buena suerte

Saludos

Allan Cristian

Respondido el 15/04/2024
LUCIANO RIOJA GHIOTTO
Se unió el 13/07/2019
0
Cargando...

Hola,

Por favor, prueba esto.


DATA: TEXT(10) VALUE 'L         '.
                                                                        
SHIFT TEXT LEFT CIRCULAR.
WRITE: TEXT.

Saludos,

Ferry Lianto

Respondido el 15/04/2024
LUCIANO RIOJA GHIOTTO
Se unió el 13/07/2019
0
Cargando...

Hola Yelloe,

¿Puedes publicar tu código o explicar mejor lo que deseas?

Saludos,

Allan Cristian

Respondido el 15/04/2024
LUCIANO RIOJA GHIOTTO
Se unió el 13/07/2019

contacto@primeinstitute.com

(+51) 1641 9379
(+57) 1489 6964

© 2024 Copyright. Todos los derechos reservados.

Desarrollado por Prime Institute

¡Hola! Soy Diana, asesora académica de Prime Institute, indícame en que curso estas interesado, saludos!
Hola ¿Puedo ayudarte?