¡Caminando hacia el éxito!

Aprende en Comunidad

Avalados por :

Como justificar dados à esquerda e preencher à direita com espaços - Guia fácil

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

Olá,

Quero justificar os dados à esquerda e preencher à direita com espaços.

se o comprimento do valor L for 10..

Deveria aparecer como 'L ' em vez de 'L Espaço... '.

Deveria aparecer como '00200 ' ou '01200 ' Não quero suprimir os zeros iniciais.

Se eu justificar à direita, obtenho ' L' e se justificar à esquerda, obtenho apenas 'L'. Como posso obter o valor como ' Espaço L'..?

Por favor, me informe qual seria a maneira mais simples.

Obrigado,

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.

Se estou concatenando, faltam espaços... Preciso deste formato para colocar tudo isso em um arquivo. Como posso obter o formato como na primeira declaração de escrita?

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

Olá Yelloe,

Verifique se isso é o que deseja, por favor.

- Para justificar à esquerda, use condense

- Para justificar à direita, use write to com RIGHT-JUSTIFIED

Exemplo:

DATA: text(10) VALUE ' 0L0'.

*Normal

WRITE: / text.

*Justificado à esquerda

CONDENSE text.

WRITE: / text.

*Justificado à direita

WRITE text TO text RIGHT-JUSTIFIED.

WRITE: / text.

Boa sorte

Saudações

Allan Cristian

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

Olá,

Por favor, teste isso.


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

Saudações,

Ferry Lianto

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

Olá Yelloe,

Podes publicar o teu código ou explicar melhor o que desejas?

Saudações,

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?