A linguagem de programação COBOL ( Common Business Oriented Idioma ) é usado para o processamento de dados, análise e elaboração de relatórios em aplicações financeiras e de software empresarial. Ele inclui uma ampla gama de funções que ajudam programadores documentos de texto em formato de apresentações na tela ou impressão. Os justifiquem cláusulas de programas COBOL permitem justificar uma cadeia de texto dentro de um campo de caracteres com os caracteres de espaço à direita ou à apropriadas. Você precisa definir a cláusula programa " PEDIDO - LEFT" , a fim de alinhar o texto à esquerda em COBOL. Instruções
1 Tipo

"Editar" no console de gerenciamento do sistema de mainframe z/OS360 e pressione a tecla "Enter" para editar o seu programa COBOL.
2

Adicione o seguinte código para a seção " DATA DIVISION " de seu programa: . .

sECÇÃO WORKING- STORAGE

01 Z- PTR- 1 pic 9 (3) Valor 0

01 Z- PTR -2 pic 9 (3) Valor 0

01 Z- MAX- 1. pic 9 (3) Valor 0

01 Z- MAX- 2. pic 9 (3) valor 0 .

01 FIRST-BYTE pic 9 (3) o valor 0.

01 FINAL-BYTE pic 9 (3) o valor 0.

01 LENGTH-OF- STRING pic 9 (3) o valor 0.

LIGAÇÃO SEÇÃO.

COPY PASSJUST .

DIVISÃO procedimento usando JUST- PASS -AREA .

realizar INITIALIZE CAMPOS -

realizar até Z- PTR- 1> Z- MAX- 1

se JUST- SOURCE ( Z- PTR- 1: 1) não = ESPAÇO

Se o primeiro -BYTE = 0

adicionar Z- PTR- 1 a ZERO dando PRIMEIRO -BYTE

end- se

adicionar Z- PTR- 1 a ZERO dando - fINAL BYTE

end- se

adicionar 1 a Z- PTR- 1

final de executar

compute - COMPRIMENTO dE - fINAL = STRING -BYTE - PRIMEIRO -BYTE + 1

GOBACK .

PEDIDO - ESQUERDA.

adicionar 1 a ZERO dando Z- PTR -2

mover JUST- SOURCE ( PRIMEIRO -BYTE : COMPRIMENTO - dE - STRING )

a JUST- TARGET (Z- PTR- 2: COMPRIMENTO - dE - STRING )

mover ZERO para JUST- RESPONDER

saída.
3

Digite em "Salvar" no console e pressione a tecla "Enter" para alinhar documento de texto para a esquerda em seu programa COBOL.
< br >