Tecnología

Inicio

Cómo alinear texto a la izquierda en COBOL

Cómo alinear texto a la izquierda en COBOL


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 impresión en pantalla o presentaciones. Los justificar las cláusulas de programas COBOL le permiten justificar una cadena de texto dentro de un campo de caracteres con el líder apropiado o caracteres de espacio. Es necesario definir la cláusula programa "SOLICITUD DE IZQUIERDA" con el fin de alinear el texto a la izquierda en COBOL.

Instrucciones

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

2 Agregue el código siguiente a la sección "DIVISIÓN DE DATOS" de su programa:

WORKING-STORAGE SECTION.
01 Z-PTR-1 pic 9(3) value 0.
01 Z-PTR-2 pic 9(3) value 0.
01 Z-MAX-1 pic 9(3) value 0.
01 Z-MAX-2 pic 9(3) value 0.
01 FIRST-BYTE pic 9(3) value 0.
01 FINAL-BYTE pic 9(3) value 0.
01 LENGTH-OF-STRING pic 9(3) value 0.

SECCIÓN DE VINCULACIÓN.
COPIA PASSJUST.

DIVISIÓN DE PROCEDIMIENTO usando JUST-PASS-AREA.
realizar initialize-CAMPOS

realizar hasta Z-PTR-1> Z-MAX-1
si JUST-FUENTE (Z-PTR-1: 1) No = SPACE
Si las primeras-BYTE = 0
añadir Z-PTR-1 a CERO dando PRIMER-BYTE
terminara si
añadir Z-PTR-1 a CERO dando FINAL-BYTE
terminara si
añadir al menos 1 a Z-PTR-1
poner fin a-cabo

calcular LONGITUD DE LA CADENA = FINAL-BYTE - PRIMER-BYTE + 1

REGRESA.

SOLICITUD-izquierda.
añadir al menos 1 a CERO dando Z-PTR-2
mover JUST-FUENTE (FIRST-BYTE: LONGITUD DE LA CADENA)
a JUST-TARGET (Z-PTR-2: LONGITUD DE LA CADENA)
ZERO para mover JUST-RESPONDER
salida.

3 Tipo de "Guardar" en la consola y pulse la tecla "Enter" para alinear el documento de texto a la izquierda en su programa COBOL.