O exemplo abaixo demonstra como visualizar e imprimir uma listagem do cadastro de produtos com cabeçalho automático utilizando a sintaxe do Cobol Micro Focus 4.5:

1º Faça o download dos arquivos deste exemplo clicando aqui;

2º Abra o layout do relatório chamado "CADPRO.vrl";

3º Veja que foram inseridas apenas 3 linhas de programação na banda para transforma-la em uma section. Assim é possível replica-la facilmente no seu programa a partir dos registros do cadastro; 

4º Para integrar o layout acima com o programa Cobol abaixo, clique no menu "Editar - Copiar como - Cobol 4.5", e em seguida substitua todo o conteúdo do arquivo "CADPRO.CPY" com o que estiver na área de tranferência (colar). O VisRelEdit pode fazer isso automaticamente ao selecionar o menu "Configurar - Gerar CPY ao Salvar";

5º Em seguida basta compilar o programa e executá-lo. Veja que a rotina "imp-dados" foi chamada diversas vezes gerando as linhas de detalhes do relatório, e o VisRel encarrega-se de fazer a quebra de página conforme o tamanho do papel selecionado pelo usuário.

      $set ans85 noosvs mf
        environment division.
        configuration section.
        special-Names.
             decimal-point is comma.
        input-output section.
             select ARQ1
                    assign to disk
                    file status is w-seq-st.

             select seq-arq
                    assign to        disk
                    organization     line sequential
                    lock mode is     manual
                    status           w-seq-st.

        data division.
        file section.
        fd      ARQ1
                label record is standard
                value of file-id is w-nome-arq.
        01      REG1.
                03 fd-codigo         pic 9(04).
                03 fd-produto        pic x(30).
                03 fd-valunit        pic 9(6)v99.

        fd      seq-arq
                value of file-id w-seq-id
                record is varying in size depending on w-seq-size.
        01      seq-reg.
                02 w-linha           pic x(1200).

        working-storage section.

        01      w-nome-arq           pic x(20)     value spaces.

        01      VisRel.
                03 w-numrel          pic x(10)     value "Rel0001".
                03 w-cod             pic 9(4).
                03 w-descr           pic x(30).
                03 w-valor           pic zz.zz9,99.
                03 w-conta           pic 9(4)      value zeros.

        01      w-status.
                02 w-seq-id          pic x(20)     value spaces.
                02 w-seq-st          pic xx        value zeros.
                02 w-seq-size        pic 9(06)     value zeros.

        01      w-texto.
                02 w-texto-A         pic x(26)     value spaces.
                02 w-texto-B         pic x(1174)   value spaces.

        01      w-RH.
                02 w-RH-A            pic x(2)      value spaces.
                02 filler            pic x(1)      value spaces.
                02 w-RH-B            pic x(1197)   value spaces.

        77      FUNCAO-35            pic x comp-x  value 35.
        77      CODERRO-2            pic x comp-x  value 0.
        01      COMANDO              pic x(250)    value spaces.
        01      COMMAND-LIN.
                02 COMMAND-LIN-LEN   pic x comp-x  value 0.

        screen section.

        procedure division.

        Inicio. 
******** Inicializar o arquivo com alguns registros ********
           move "CADPRO.DAT" to w-nome-arq
           open output ARQ1

           perform 500 times
              add 1 to w-conta
              move w-conta to fd-codigo
              string "Produto ", w-conta
                     delimited by size into fd-produto
              compute fd-valunit = 100 * w-conta
              write REG1
           end-perform

           close ARQ1

           perform inicio-visrel

           open input ARQ1.
           go to le-arquivo.
           .

        inicio-visrel.
           move "CADPRO.Rel" to w-seq-id
           open output seq-arq
           copy "cadpro.cpy".

        le-arquivo.
           read arq1 next at end go to fecha-arquivo.

           move fd-codigo  to w-cod.
           move fd-produto to w-descr.
           move fd-valunit to w-valor.

           perform imp-dados.
           go to le-arquivo.

        fecha-arquivo.
            close ARQ1.

        final-visrel.
            close seq-arq.
         
            STRING "C:\Windows\VisRel.exe ",
                   "/g ",
                   w-seq-id,
                   " /t Cadastro de Produtos"
                   DELIMITED BY SIZE INTO COMANDO.

            DISPLAY COMANDO UPON COMMAND-LINE.
            CALL X"91" USING CODERRO-2, FUNCAO-35, COMMAND-LIN.
            exit program.
            goback.

No computador de seus clientes instale apenas a Run-Time do VisRel (RunTimeVisRel.exe), ou então copie o arquivo C:\Windows\VisRel.exe e o arquivo Msvbvm60.dll para a sua pasta de programas.

Obs.: Ao utilizar o DialogSystem do NetExpress é necessário adicionar na linha de comando o parâmetro /SV, caso contrário a tela do VisRel pode ficar oculta pelo seu programa. E no caso de relatórios no modo gráfico (VisRelEdit), selecione o menu Configurar - Manter o relatório visível. Isso ocorre devido ao comando "REFRESH-OBJECT" que é disparado depois do comando "RETC".

Veja mais detalhes das linhas de comando do VisRel clicando aqui.