Loop simples para limpar uma lista fixa

Olá!

Quando utilizamos uma lista (array) é uma boa prática limpar os registros antes de movimentar os valores para as variáveis.

Assim, se declararmos por exemplo uma lista de 5 posições (occurs), deveria ser feita uma limpeza de cada um dos registros. E uma forma de realizar esse processo, é:

INITIALIZE nomeLista(1)

           nomeLista(2)

           nomeLista(3)

           nomeLista(4)

           nomeLista(5).

Entretanto, se declararmos uma lista com 100 posições, esse INITIALIZE não será uma boa forma de realizar esse processo. Pois, imagine o tamanho que a instrução de inicialização terá para uma lista de 100 ou mais posições.

Então, para realizar o processo de limpeza em listas fixas com muitas posições, é viável realizar um loop para percorrer a lista e limpar cada registro. Segue abaixo um exemplo de estrutura de repetição simples, para percorrer uma lista e limpar cada registro:

* -- LIMPA A LISTA

     PERFORM VARYING TALLY FROM 1 BY 1 UNTIL TALLY > totalDeOcorrencias

         INITIALIZE nomeLista(TALLY)

     END-PERFORM.

Onde:
totalDeOcorrencias = ao número de OCCURS da lista

Consultar a relação de Termos e Abreviaturas acesse aqui.

Até o próximo post!

Mascaras de edição no COBOL

Olá!

Por meio do uso de mascaras de edição, é possível no COBOL a apresentar valores numéricos de formas variadas. Assim, neste post será demonstrado algumas dessas mascaras!

Primeiramente temos o valor 12732234 que será armazenado na variável GDA-NR-SMLC PIC  9(009), e posteriormente este valor será movimentado para as variáveis que estão definidas com a mascara.

As variáveis usadas para a demonstração do uso das mascaras de edição, são:

    * -- GUARDA O NUMERO PARA SIMULACAO DE APLICACAO DAS MASCARAS

       77 GDA-NR-SMLC                   PIC  9(009) VALUE ZEROS.

      *

      * -- GUARDA O NUMERO COM ZEROS A ESQUERDA E SINAL

       77 GDA-VL-COM-ZEROS              PIC  9(009) VALUE ZEROS.

      *

      * -- GUARDA O NUMERO SEM ZEROS A ESQUERDA E SINAL

      *    SOMENTE MOSTRA O SINAL QUANDO O NUMERO NEGATIVO

       77 GDA-VL-SEM-ZEROS              PIC --------9 VALUE ZEROS.

      *

      * -- GUARDA O NUMERO SEM ZEROS A ESQUERDA E SINAL

      *    MOSTRA O SINAL TAMBEM PARA OS NUMEROS POSITIVOS

       77 GDA-VL-SEM-ZEROS-SNL          PIC ++++++++9 VALUE ZEROS.

      *

      * -- GUARDA O NUMERO FORMATADO PARA A MASCARA DE DATA DD/MM/AAAA

       77 GDA-DATA                      PIC ZZ/ZZ/ZZZZ.

      *

      * -- GUARDA O NUMERO FORMATADO PARA O VALOR R$

       77 GDA-VALOR                     PIC -999.999,99.

      *

      * -- GUARDA O NUMERO FORMATADO PARA O VALOR R$ E SINAL

       77 GDA-VALOR-SNL                 PIC S9(09)V9(2).

Então, se executarmos um DISPLAY em cada variável, o formato que o valor 12732234 será apresentado, é:

• DISPLAY GDA-VL-COM-ZEROS, apresenta: 012732234

Definição da variável: PIC 9(009)
Note que o valor 12732234 possui um "0" na frente. Pois, o valor é menor que o tamanho suportado por está variável, assim, as casas numéricas não usadas será apresentada com zero.

• DISPLAY GDA-VL-SEM-ZEROS, apresenta: 12732234

Definição da variável: PIC --------9

Deste modo o valor não possui o zero na frente, e também não há sinalização. Sendo que se o valor fosse negativo, seria apresentado um sinal "-" de negativo para o valor.

• DISPLAY GDA-VL-SEM-ZEROS-SNL, apresenta: +12732234

Definição da variável: PIC ++++++++9

Com essa mascara se o valor positivo será apresentado com o sinal "+" na frente do número. E se o valor negativo será apresentado com o sinal "-" na frente do número. De qualquer modo a sinalização do valor aparecerá.

• DISPLAY GDA-DATA, apresenta: 12/73/2234

Definição da variável: PIC ZZ/ZZ/ZZZZ

Neste tipo de definição o valor será apresentado no formato de data DD/MM/AAAA.

• DISPLAY GDA-VALOR, apresenta:  732.234,00

Definição da variável: PIC -999.999,99

Para apresentar o valor no formato de R$. Lembrando que com o uso de "-" na definição da variável somente aparecerá o sinal se o valor for negativo.

• DISPLAY GDA-VALOR-SNL, apresenta:  +012732234.00

Definição da variável: PIC S9(09)V9(2)

Com está definição o valor será sinalizado para positivos e negativos, também apresentando os zeros a esquerda.


Como se trata de mascaras de edição, é uma boa pratica utiliza-las somente para a apresentação do valor final. Ou seja, não é comum usar variáveis definidas com algumas mascaras para realizar o processamento dos dados.

Para Ctrl + C dos códigos acesse aqui.

Consultar a relação de Termos e Abreviaturas acesse aqui.

Até o próximo post!

Chamada de programa via Commarea

Olá!

Em um post anterior (Chamada de programas COBOL via Container) apresentei uma das formas de realizar o trânsito de dados entre os programas COBOL com o uso de containers. Neste post será demonstrado a utilização de Commarea, que é mais uma forma de como os dados podem ser tramitados.

Sendo que uma das características que diferenciam a chamada via Container e Commarea, é o tamanho da informação que pode ser passada de um programa para o outro. Por exemplo, quando utilizamos Container é possível tramitar até 64.000k de bytes dentro de um container, e quando é feito via Commarea somente até 32.000k bytes. Para mais informações sobre a quantidade de dados suportados veja no post:
Quantidade de dados suportados Commarea / Container.

Assim, a idea básica, é que quando uma ROTINA-A chama a ROTINA-C via Commarea, é criado uma área comum que "conectar" as duas rotinas, de modo que essa área pode suportar até 32.000k bytes de informação.

Para melhor entender veja a imagem abaixo e a descrição de seus processos, que simulam a chamada da ROTINA-C para retornar o nome do aluno à ROTINA-A:

Fluxo de dados via Commarea

Os processos para o fluxo de dados para a imagem acima, são:

1. A ROTINA-A realiza a chamada (CALL / LINK ) da ROTINA-C via Commarea, informando o código do aluno.
2. Então a ROTINA-C recebe o código do aluno e faz seu processamento para retornar o nome do aluno.
3. Assim a ROTINA-C preenche a variável NM-ALUNO na área comum com o nome do aluno referente ao código informado.
4. De modo que a ROTINA-C devolve (GOBACK) o processamento para a ROTINA-A.
5. Por fim, ao retornar a ROTINA-A a variável já está preenchida com o nome do aluno, assim está rotina continuará com o seu processamento.

E não necessariamente as duas rotinas precisam ser Commarea, pois como está sendo apresentado a chamada da ROTINA-C é feita via Commarea. Então, o programa que está sendo chamado (ROTINA-C) tem que ser Commarea, por outro lado o programa chamador (ROTINA-A) pode ser Commarea ou Container.

Então, para apresentar o respectivo processo da imagem acima, irei utilizar o mesmo código da ROTINA-A usado no post citado logo no inicio, só que com a incrementação do código para chamar a ROTINA-C.

O que defini as variáveis que comporão a área comum é o que está na Linkage Section da rotina que irá ser chamada (ROTINA-C). Sendo uma boa pratica que está área seja um BOOK, pois no programa chamador (ROTINA-A) deverá conter a mesma declaração de variáveis. Então, para facilitar cria-se um book que ambos programas deverão incluir.

Os comandos principais na ROTINA-A e ROTINA-C para esse tipo de chamada, são apresentados abaixo:

ROTINA-C

O book da ROTINA-C:

           03 REQUISICAO.

      * --    OBRIGATORIOS

               05 CD-ALUNO                       PIC  9(009) COMP.

      *

           03 RESPOSTA.

      * --    CONTROLE DE ERRO

               05 CD-ERRO                        PIC  9(009) COMP.

               05 TX-ERRO                        PIC  X(120).

      * --    DADOS PROCESSADOS

               05 NM-ALUNO                       PIC  X(050).

Sendo que o book acima será incluído logo na Linkage Section da ROTINA-C:

      *

      *----------------------------------------------------------------*

       LINKAGE                          SECTION.

      *----------------------------------------------------------------*

      * BOOK INCLUIDO DA ROTINA-C

       01 DFHCOMMAREA.

-INC BOOK-ROTINA-C

ROTINA-A

As alterações necessárias na ROTINA-A para realizar a chamada da ROTINA-C, são:

• O include do book da ROTINA-C:

      * BOOK INCLUIDO DA ROTINA-C

       01 BOOK-DA-ROTINA-C.

-INC BOOK-ROTINA-C

• O comando EXEC CICS LINK:

           EXEC CICS LINK

              PROGRAM  ( 'ROTINA-C'              )

              COMMAREA ( BOOK-ROTINA-C           )

              LENGTH   ( LENGTH OF BOOK-ROTINA-C )

              RESP     ( CICS-RESP               )

              RESP2    ( CICS-RESP2              )

           END-EXEC.

De modo que a ROTINA-C também pode ser chamada por meio de um comando CALL, e para não deixar uma página grande, este será demonstrado em outro post.

Para Ctrl + C dos códigos acesse aqui.

Consultar a relação de Termos e Abreviaturas acesse aqui.

Até o próximo post!