CWFSLB

Rotina de exibição de totalizadores de operações de I/O

Formato:

CALL “CWFSLB” USING ER-FileName

Deve ser utilizado o copy book CWFSLB para agilizar e padronizar a declaração de FILE STATUS (FS-FileName) e LABEL (LB-FileName) dos arquivos que o programa utiliza, a cláusula REPLACING proporciona o recurso de adaptar o copy book para o arquivo, substituildo a string (FileName) pelo nome interno do quivo e a cláusula SPACES pelo nome externo.

Exemplo: Definindo os atributos de controle do arquivo CADCLI.

       COPY CWFSLB REPLACING ==(FileName)== BY  CADCLI
                                     SPACES BY "clientes".
 
       01  ER-CADCLI.
           05 FS-CADCLI                VALUE "00".
              88 END-CADCLI            VALUE "10".
              88 OK-CADCLI             VALUE "00"
                                        THRU "09".
              88 CREATED-CADCLI        VALUE "05".
              88 AFTER-END-CADCLI      VALUE "46".
              88 DUPLICATE-CADCLI      VALUE "22".
              88 NOT-FOUND-CADCLI      VALUE "23".
              88 EXCLUSIVE-CADCLI      VALUE "9A".
              88 LOCKED-CADCLI         VALUE "9D".
              88 NOT-EXIST-CADCLI      VALUE "30"
                                             "35".
              6             PIC 9(001).
              88 SYSTEMERR-CADCLI      VALUE 9.
              6  RT-CADCLI
                     COMP-X PIC 9(002).
           05 LB-CADCLI     PIC X(255) VALUE
              "clientes".
           05 COMP-5.
            6 FLAG-CADCLI   PIC 9(001) VALUE 0.
              88 OPENED-CADCLI         VALUE 1
                                       FALSE 0.
            6 LINE-CADCLI   PIC 9(001) VALUE 0.
            6 COLUMN-CADCLI PIC 9(001) VALUE 0.
            6 SIZE-CADCLI   PIC 9(001) VALUE 0.
            6 RD-CADCLI     PIC 9(018) VALUE 0.
            6 LS-CADCLI     PIC 9(018) VALUE 0.
            6 WR-CADCLI     PIC 9(018) VALUE 0.
            6 RW-CADCLI     PIC 9(018) VALUE 0.
            6 DL-CADCLI     PIC 9(018) VALUE 0.
 
 Atributos de controle
 e tratamento de erros.
 FILE STATUS, Condições:
 Fim de arquivo.
 Operação bem-sucedida.

 Criado no OPEN I-O.
 Leitura após fim.
 Chave duplicada.
 Chave não encontrada.
 Arquivo ocupado (OPEN).
 Registro ocupado (READ).
 Arquivo não encontrado.


 Indica erro de runtime.
 Código do erro.

 Nome no diretório/pasta.


 Indicador de abertura.
 TRUE Aberto. 
 FALSE fechado.
 Linha posição do DISPLAY. 
 Coluna posição do DISPLAY. 
 Tamanho do DISPLAY.
 Contador de leituras.
 Contador de listagens.
 Contador de gravações.
 Contador de regravações.
 Contador de deleções.
 
Indicador de abertura deve ser TRUE quando uma operação de OPEN é bem sucedida e FALSE quando executado o CLOSE, serve de controle para saber se no final do procesamento o arquivo chega aberto e precisa ser fechado.

Linha/Coluna/Tamanho posição do DISPLAY a rotina pode ser usada tanto para informar o progresso das operações de I/O como para informar os controles no final do processamento e no log.

Serão informados somente os contadores com valor maior que zero.

Para informar o progresso, deve ser indicada a posição e tamanho do primeiro contado, sendo assimida a linha seguinte para os demais.

Se a posição não for preenchida é dado DISPLAY de console e gravado no log.