El lenguaje de programación COBOL (Common Business Oriented Language ) se utiliza para el procesamiento de datos, análisis y presentación de informes en las aplicaciones de software financiero y de negocios. Incluye una amplia gama de funciones que ayudan a los programadores de documentos de texto de formato para las presentaciones en pantalla o imprimir. Las cláusulas de justificar los programas COBOL le permiten justificar una cadena de texto dentro de un campo de caracteres con caracteres al principio o al final del espacio apropiado. Es necesario definir la cláusula de programa " SOLICITUD DE IZQUIERDA " con el fin de alinear el texto a la izquierda en COBOL. Instrucciones
1

Type " Editar" en la consola de administración del sistema z/OS360 mainframe y pulse la tecla "Enter" para editar su programa COBOL.
2

Agregue la siguiente código a la sección " DIVISION dE DATOS " de su programa : . .

WORKING-STORAGE sECCIÓN

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

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

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

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

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

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

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

VINCULACIÓN SECCIÓN.

COPIA PASSJUST .

PROCEDURE DIVISION usando JUST- PASS -AREA .

realizar INICIALIZAR -FIELDS

realizar hasta Z- PTR- 1 > Z -MAX- 1

si JUST- SOURCE ( Z- PTR- 1 : 1 ) no = espacio