Como alinhar textos à esquerda em COBOL

Escrito por alexander gokhfeld | Traduzido por felipe zschornack
  • Compartilhar
  • Tweetar
  • Compartilhar
  • Pin
  • E-mail
Como alinhar textos à esquerda em COBOL
A linguagem COBOL possui funções de formatação para o alinhamento de textos em documentos (Jupiterimages/Photos.com/Getty Images)

A linguagem de programação COBOL (Common Business Oriented Language - linguagem orientada a pequenos negócios) é utilizada para o processamento de dados, análise e criação de relatórios em aplicações de software financeiros e de negócios. Ela inclui uma ampla variedade de funções que ajudam os programadores a formatar documentos de texto para serem exibidos na tela ou impressos. As cláusulas de alinhamento dos programas COBOL permitem alinhar uma string de texto dentro de um campo de caracteres com o apropriado espaço de caracteres à esquerda ou à direita. É necessário definir a cláusula de programa "REQUEST-LEFT", para alinhar o texto à esquerda em COBOL.

Nível de dificuldade:
Moderadamente fácil

Outras pessoas estão lendo

Instruções

    Instruções

  1. 1

    Digite "Edit" (editar) no terminal de gerenciamento do mainframe z/OS360 e pressione a tecla "Enter" para editar o seu programa em COBOL.

  2. 2

    Adicione o código a seguir na seção "DATA DIVISION" do seu 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.

    LINKAGE SECTION. COPY PASSJUST.

    PROCEDURE DIVISION using JUST-PASS-AREA. perform INITIALIZE-FIELDS

    perform until Z-PTR-1 > Z-MAX-1 if JUST-SOURCE(Z-PTR-1:1) not = SPACE if FIRST-BYTE = 0 add Z-PTR-1 to ZERO giving FIRST-BYTE end-if add Z-PTR-1 to ZERO giving FINAL-BYTE end-if add 1 to Z-PTR-1 end-perform

    compute LENGTH-OF-STRING = FINAL-BYTE - FIRST-BYTE + 1

    GOBACK.

    REQUEST-LEFT. add 1 to ZERO giving Z-PTR-2 move JUST-SOURCE(FIRST-BYTE:LENGTH-OF-STRING) to JUST-TARGET(Z-PTR-2:LENGTH-OF-STRING) move ZERO to JUST-RESPOND exit.

  3. 3

    Digite "Save" (salvar) no terminal e pressione a tecla "Enter" para alinhar à esquerda o documento de texto no seu programa em COBOL.

Não perca

Filtro:
  • Geral
  • Artigos
  • Slides
  • Vídeos
Mostrar:
  • Mais relevantes
  • Mais lidos
  • Mais recentes

Nenhum artigo disponível

Nenhum slide disponível

Nenhum vídeo disponível