Exemplos

Neste exemplo veremos como é simples integrar layouts de relatórios feitos com o VisRelEdit ao COBOL (tomamos como base o COBOL Micro Focus 4.5, entretanto o VisRel é independente de linguagem, ou seja, pode ser facilmente migrado para qualquer linguagem ou versão do COBOL).

O gráfico abaixo é um layout que é instalado junto com o VisRelEdit, e conforme o caso também pode ser facilmente alterado ou adaptado:

VisRel

Depois de montar ou alterar o layout no VisRelEdit de forma visual (veja o tutorial), basta clicar no menu "Editar -> Copiar como -> Cobol - Micro Focus 4.5", que neste momento o VisRelEdit vai gerar o código fonte em COBOL e coloca-lo na área de transferência do Windows. Assim você pode cola-lo no seu programa, como abaixo em azul (Se precisar no futuro alterar o layout, basta copia-lo novamente e substituir todo o bloco em azul). Em vermelho estão as variáveis que você eventualmente utiliza no layout e consequentemente deve definir também no seu programa:

Leve em consideração que o programa abaixo é apenas demonstrativo, e foi simplificado ao máximo para facilitar o entendimento. Portanto você pode adaptar a sintaxe e/ou variáveis e pictures ao seu estilo de programação. Inclusive a forma e sintaxe que o VisRelEdit utiliza para gerar o código fonte pode ser alterada no menu "Editar -> Linguagens".

      $set ans85 noosvs mf
        ENVIRONMENT DIVISION.
        configuration section.
        special-Names.
            decimal-point is comma.
        input-output section.
                select  seq-arq
                        assign to       disk
                        organization    line sequential
                        lock mode is    manual
                        status          w-seq-st.

        DATA DIVISION.

        file section.
        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-status.
           02 w-seq-id          pic x(255)   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.

********** INICIO: Variaveis Criadas para o Gráfico **********

********* Para calculos das alturas das barras:
        01 AlturaMaxima         pic 9(05)    value 200.
        01 ValorMaximo          pic 9(05)    value 1000.
       
********* Para armazenar as alturas das barras:
        01 bar01jan             pic 9(05)    value zeros.
        01 bar02jan             pic 9(05)    value zeros.
        01 bar03jan             pic 9(05)    value zeros.
        01 bar04jan             pic 9(05)    value zeros.

        01 bar01fev             pic 9(05)    value zeros.
        01 bar02fev             pic 9(05)    value zeros.
        01 bar03fev             pic 9(05)    value zeros.
        01 bar04fev             pic 9(05)    value zeros.

        01 bar01mar             pic 9(05)    value zeros.
        01 bar02mar             pic 9(05)    value zeros.
        01 bar03mar             pic 9(05)    value zeros.
        01 bar04mar             pic 9(05)    value zeros.

********* Para armazenar o valor das vendas:
        01 ven01jan             pic 9(05)    value zeros.
        01 ven02jan             pic 9(05)    value zeros.
        01 ven03jan             pic 9(05)    value zeros.
        01 ven04jan             pic 9(05)    value zeros.

        01 ven01fev             pic 9(05)    value zeros.
        01 ven02fev             pic 9(05)    value zeros.
        01 ven03fev             pic 9(05)    value zeros.
        01 ven04fev             pic 9(05)    value zeros.

        01 ven01mar             pic 9(05)    value zeros.
        01 ven02mar             pic 9(05)    value zeros.
        01 ven03mar             pic 9(05)    value zeros.
        01 ven04mar             pic 9(05)    value zeros.

********** Margens em Milimetros
        01 w-margem-superior    pic 9(2)    value 2.
        01 w-margem-esquerda    pic 9(2)    value 2.

********** FINAL: Variaveis Criadas para o Gráfico **********



        procedure division.
  
          move "Grafico.Rel" to w-seq-id

          open output seq-arq

********** Aqui voce pode preencher as variáveis e calcular
********** as alturas das barras, conforme o valor!

          move 600 to ven01jan
          move 300 to ven02jan
          move 650 to ven03jan
          move 700 to ven04jan 

          move 150 to ven01fev
          move 800 to ven02fev
          move 600 to ven03fev
          move 650 to ven04fev

          move 300 to ven01mar
          move 900 to ven02mar
          move 450 to ven03mar
          move 350 to ven04mar

********** Calcular altura das barras:

          Compute bar01jan = (ven01jan / ValorMaximo) * Alturamaxima
          Compute bar02jan = (ven02jan / ValorMaximo) * Alturamaxima
          Compute bar03jan = (ven03jan / ValorMaximo) * Alturamaxima
          Compute bar04jan = (ven04jan / ValorMaximo) * Alturamaxima

          Compute bar01fev = (ven01fev / ValorMaximo) * Alturamaxima
          Compute bar02fev = (ven02fev / ValorMaximo) * Alturamaxima
          Compute bar03fev = (ven03fev / ValorMaximo) * Alturamaxima
          Compute bar04fev = (ven04fev / ValorMaximo) * Alturamaxima

          Compute bar01mar = (ven01mar / ValorMaximo) * Alturamaxima
          Compute bar02mar = (ven02mar / ValorMaximo) * Alturamaxima
          Compute bar03mar = (ven03mar / ValorMaximo) * Alturamaxima
          Compute bar04mar = (ven04mar / ValorMaximo) * Alturamaxima


********** INICIO: BLOCO COLADO DO VisRelEdit **********

********** Para imprimir sem visualizar:
**********
********** Abra o "Gráfico de Vendas (com variaveis).vrl";
********** Clique no menu "Editar - Imprimir sem visualizar"
********** Depois clique em "Editar - Copiar como - COBOL 4.5";
********** Em seguida cole-o substituindo o bloco abaixo.
**********
********** Ou simplesmente remova os comentários dessas 4 linhas:
**********           move spaces to w-linha
**********           move "IR" to w-linha
**********           move function length(w-linha) to w-seq-size
**********           write seq-reg

********** O bloco em Cobol a seguir é gerado automaticamente pelo VisRelEdit.
********** O Programador pode colar dentro do seu fonte ou tratá-lo em um copybook.

********** Comentários ou Comandos iniciais
          move spaces to w-linha
          move "MS" to w-RH-A
          move w-margem-superior to w-RH-B
          move w-RH to w-linha
          move function length(w-linha) to w-seq-size
          write seq-reg
          move spaces to w-linha
          move "ME" to w-RH-A
          move w-margem-esquerda to w-RH-B
          move w-RH to w-linha
          move function length(w-linha) to w-seq-size
          write seq-reg
          move spaces to w-linha
          move "EG" to w-linha
          move function length(w-linha) to w-seq-size
          write seq-reg

          move spaces to w-linha
          move "F 221000Times New Roman" to w-linha
          move function length(w-linha) to w-seq-size
          write seq-reg
          move spaces to w-linha
          move "L 09990000000736010111000004" to w-linha
          move function length(w-linha) to w-seq-size
          write seq-reg
          move spaces to w-linha
          move "T 099900002007321000100010" to w-texto-A
          move "Gráfico de Vendas" to w-texto-B
          move w-texto to w-linha
          move function length(w-linha) to w-seq-size
          write seq-reg
          move spaces to w-linha
          move "RH" to w-RH-A
          move "00410" to w-RH-B
          move w-RH to w-linha
          move function length(w-linha) to w-seq-size
          write seq-reg
          move spaces to w-linha
          move "QL" to w-linha
          move function length(w-linha) to w-seq-size
          write seq-reg

          move spaces to w-linha
          move "F 101000Arial" to w-linha
          move function length(w-linha) to w-seq-size
          write seq-reg
          move spaces to w-linha
          move "T 009900002000600101100010" to w-texto-A
          move "1.000,00" to w-texto-B
          move w-texto to w-linha
          move function length(w-linha) to w-seq-size
          write seq-reg
          move spaces to w-linha
          move "F 100000Arial" to w-linha
          move function length(w-linha) to w-seq-size
          write seq-reg
          move spaces to w-linha
          move "L 09990006400216000100000001" to w-linha
          move function length(w-linha) to w-seq-size
          write seq-reg
          move spaces to w-linha
          move "L 09990028000216000100000001" to w-linha
          move function length(w-linha) to w-seq-size
          write seq-reg
          move spaces to w-linha
          move "L 09990049600216000100000001" to w-linha
          move function length(w-linha) to w-seq-size
          write seq-reg
          move spaces to w-linha
          move "RT" to w-RH-A
          move "-00400" to w-RH-B
          move w-RH to w-linha
          move function length(w-linha) to w-seq-size
          write seq-reg
          move spaces to w-linha
          move "RH" to w-RH-A
          move "00050" to w-RH-B
          move w-RH to w-linha
          move function length(w-linha) to w-seq-size
          write seq-reg
          move spaces to w-linha
          move "QL" to w-linha
          move function length(w-linha) to w-seq-size
          write seq-reg

          move spaces to w-linha
          move "F 101000Arial" to w-linha
          move function length(w-linha) to w-seq-size
          write seq-reg
          move spaces to w-linha
          move "T 009900002000600101100010" to w-texto-A
          move "750,00" to w-texto-B
          move w-texto to w-linha
          move function length(w-linha) to w-seq-size
          write seq-reg
          move spaces to w-linha
          move "F 100000Arial" to w-linha
          move function length(w-linha) to w-seq-size
          write seq-reg
          move spaces to w-linha
          move "L 09990006400216000101000001" to w-linha
          move function length(w-linha) to w-seq-size
          write seq-reg
          move spaces to w-linha
          move "L 09990028000216000101000001" to w-linha
          move function length(w-linha) to w-seq-size
          write seq-reg
          move spaces to w-linha
          move "L 09990049600216010101000001" to w-linha
          move function length(w-linha) to w-seq-size
          write seq-reg
          move spaces to w-linha
          move "RH" to w-RH-A
          move "00050" to w-RH-B
          move w-RH to w-linha
          move function length(w-linha) to w-seq-size
          write seq-reg
          move spaces to w-linha
          move "QL" to w-linha
          move function length(w-linha) to w-seq-size
          write seq-reg

          move spaces to w-linha
          move "F 101000Arial" to w-linha
          move function length(w-linha) to w-seq-size
          write seq-reg
          move spaces to w-linha
          move "T 009900002000600101100010" to w-texto-A
          move "500,00" to w-texto-B
          move w-texto to w-linha
          move function length(w-linha) to w-seq-size
          write seq-reg
          move spaces to w-linha
          move "F 100000Arial" to w-linha
          move function length(w-linha) to w-seq-size
          write seq-reg
          move spaces to w-linha
          move "L 09990006400216000101000001" to w-linha
          move function length(w-linha) to w-seq-size
          write seq-reg
          move spaces to w-linha
          move "L 09990028000216000101000001" to w-linha
          move function length(w-linha) to w-seq-size
          write seq-reg
          move spaces to w-linha
          move "L 09990049600216010101000001" to w-linha
          move function length(w-linha) to w-seq-size
          write seq-reg
          move spaces to w-linha
          move "RH" to w-RH-A
          move "00050" to w-RH-B
          move w-RH to w-linha
          move function length(w-linha) to w-seq-size
          write seq-reg
          move spaces to w-linha
          move "QL" to w-linha
          move function length(w-linha) to w-seq-size
          write seq-reg

          move spaces to w-linha
          move "F 101000Arial" to w-linha
          move function length(w-linha) to w-seq-size
          write seq-reg
          move spaces to w-linha
          move "T 009900002000600101100010" to w-texto-A
          move "250,00" to w-texto-B
          move w-texto to w-linha
          move function length(w-linha) to w-seq-size
          write seq-reg
          move spaces to w-linha
          move "F 100000Arial" to w-linha
          move function length(w-linha) to w-seq-size
          write seq-reg
          move spaces to w-linha
          move "L 09990006400216000101000001" to w-linha
          move function length(w-linha) to w-seq-size
          write seq-reg
          move spaces to w-linha
          move "L 09990028000216000101000001" to w-linha
          move function length(w-linha) to w-seq-size
          write seq-reg
          move spaces to w-linha
          move "L 09990049600216010101000001" to w-linha
          move function length(w-linha) to w-seq-size
          write seq-reg
          move spaces to w-linha
          move "RH" to w-RH-A
          move "00050" to w-RH-B
          move w-RH to w-linha
          move function length(w-linha) to w-seq-size
          write seq-reg
          move spaces to w-linha
          move "QL" to w-linha
          move function length(w-linha) to w-seq-size
          write seq-reg

          move spaces to w-linha
          move "L 09990006400216000101000001" to w-linha
          move function length(w-linha) to w-seq-size
          write seq-reg
          move spaces to w-linha
          move "L 09990028000216000101000001" to w-linha
          move function length(w-linha) to w-seq-size
          write seq-reg
          move spaces to w-linha
          move "L 09990049600216010101000001" to w-linha
          move function length(w-linha) to w-seq-size
          write seq-reg
          move spaces to w-linha
          move "RH" to w-RH-A
          move "00050" to w-RH-B
          move w-RH to w-linha
          move function length(w-linha) to w-seq-size
          write seq-reg
          move spaces to w-linha
          move "QL" to w-linha
          move function length(w-linha) to w-seq-size
          write seq-reg

          move spaces to w-linha
          move "LG120400084000380001100010" to w-texto-A
          move bar01jan to w-texto-B
          move w-texto to w-linha
          move function length(w-linha) to w-seq-size
          write seq-reg
          move spaces to w-linha
          move "LG090100130000380001100010" to w-texto-A
          move bar02jan to w-texto-B
          move w-texto to w-linha
          move function length(w-linha) to w-seq-size
          write seq-reg
          move spaces to w-linha
          move "LG100200176000380001100010" to w-texto-A
          move bar03jan to w-texto-B
          move w-texto to w-linha
          move function length(w-linha) to w-seq-size
          write seq-reg
          move spaces to w-linha
          move "LG140600222000380001100010" to w-texto-A
          move bar04jan to w-texto-B
          move w-texto to w-linha
          move function length(w-linha) to w-seq-size
          write seq-reg
          move spaces to w-linha
          move "LG120400300000380001100010" to w-texto-A
          move bar01fev to w-texto-B
          move w-texto to w-linha
          move function length(w-linha) to w-seq-size
          write seq-reg
          move spaces to w-linha
          move "LG090100346000380001100010" to w-texto-A
          move bar02fev to w-texto-B
          move w-texto to w-linha
          move function length(w-linha) to w-seq-size
          write seq-reg
          move spaces to w-linha
          move "LG100200392000380001100010" to w-texto-A
          move bar03fev to w-texto-B
          move w-texto to w-linha
          move function length(w-linha) to w-seq-size
          write seq-reg
          move spaces to w-linha
          move "LG140600438000380001100010" to w-texto-A
          move bar04fev to w-texto-B
          move w-texto to w-linha
          move function length(w-linha) to w-seq-size
          write seq-reg
          move spaces to w-linha
          move "LG120400516000380001100010" to w-texto-A
          move bar01mar to w-texto-B
          move w-texto to w-linha
          move function length(w-linha) to w-seq-size
          write seq-reg
          move spaces to w-linha
          move "LG090100562000380001100010" to w-texto-A
          move bar02mar to w-texto-B
          move w-texto to w-linha
          move function length(w-linha) to w-seq-size
          write seq-reg
          move spaces to w-linha
          move "LG100200608000380001100010" to w-texto-A
          move bar03mar to w-texto-B
          move w-texto to w-linha
          move function length(w-linha) to w-seq-size
          write seq-reg
          move spaces to w-linha
          move "LG140600654000380001100010" to w-texto-A
          move bar04mar to w-texto-B
          move w-texto to w-linha
          move function length(w-linha) to w-seq-size
          write seq-reg
          move spaces to w-linha
          move "RT" to w-RH-A
          move "-09999" to w-RH-B
          move w-RH to w-linha
          move function length(w-linha) to w-seq-size
          write seq-reg
          move spaces to w-linha
          move "RH" to w-RH-A
          move "00050" to w-RH-B
          move w-RH to w-linha
          move function length(w-linha) to w-seq-size
          write seq-reg
          move spaces to w-linha
          move "QL" to w-linha
          move function length(w-linha) to w-seq-size
          write seq-reg

          move spaces to w-linha
          move "T 009900066002121000100010" to w-texto-A
          move "Jan/2006" to w-texto-B
          move w-texto to w-linha
          move function length(w-linha) to w-seq-size
          write seq-reg
          move spaces to w-linha
          move "T 009900282002121000100010" to w-texto-A
          move "Fev/2006" to w-texto-B
          move w-texto to w-linha
          move function length(w-linha) to w-seq-size
          write seq-reg
          move spaces to w-linha
          move "T 009900498002121000100010" to w-texto-A
          move "Mar/2006" to w-texto-B
          move w-texto to w-linha
          move function length(w-linha) to w-seq-size
          write seq-reg
          move spaces to w-linha
          move "RH" to w-RH-A
          move "00018" to w-RH-B
          move w-RH to w-linha
          move function length(w-linha) to w-seq-size
          write seq-reg
          move spaces to w-linha
          move "QL" to w-linha
          move function length(w-linha) to w-seq-size
          write seq-reg

          move spaces to w-linha
          move "RH" to w-RH-A
          move "00018" to w-RH-B
          move w-RH to w-linha
          move function length(w-linha) to w-seq-size
          write seq-reg
          move spaces to w-linha
          move "QL" to w-linha
          move function length(w-linha) to w-seq-size
          write seq-reg

          move spaces to w-linha
          move "L 09990048000232010011000001" to w-linha
          move function length(w-linha) to w-seq-size
          write seq-reg
          move spaces to w-linha
          move "RH" to w-RH-A
          move "00009" to w-RH-B
          move w-RH to w-linha
          move function length(w-linha) to w-seq-size
          write seq-reg
          move spaces to w-linha
          move "QL" to w-linha
          move function length(w-linha) to w-seq-size
          write seq-reg

          move spaces to w-linha
          move "L 09990048000016000001000001" to w-linha
          move function length(w-linha) to w-seq-size
          write seq-reg
          move spaces to w-linha
          move "L 15120049600018010111000004" to w-linha
          move function length(w-linha) to w-seq-size
          write seq-reg
          move spaces to w-linha
          move "L 09990051400198010000000001" to w-linha
          move function length(w-linha) to w-seq-size
          write seq-reg
          move spaces to w-linha
          move "T 009900516001940000100010" to w-texto-A
          move "José da Silva" to w-texto-B
          move w-texto to w-linha
          move function length(w-linha) to w-seq-size
          write seq-reg
          move spaces to w-linha
          move "RH" to w-RH-A
          move "00018" to w-RH-B
          move w-RH to w-linha
          move function length(w-linha) to w-seq-size
          write seq-reg
          move spaces to w-linha
          move "QL" to w-linha
          move function length(w-linha) to w-seq-size
          write seq-reg

          move spaces to w-linha
          move "L 09990048000016000001000001" to w-linha
          move function length(w-linha) to w-seq-size
          write seq-reg
          move spaces to w-linha
          move "L 15090049600018010111000004" to w-linha
          move function length(w-linha) to w-seq-size
          write seq-reg
          move spaces to w-linha
          move "L 09990051400198010000000001" to w-linha
          move function length(w-linha) to w-seq-size
          write seq-reg
          move spaces to w-linha
          move "T 009900516001940000100010" to w-texto-A
          move "Maria José" to w-texto-B
          move w-texto to w-linha
          move function length(w-linha) to w-seq-size
          write seq-reg
          move spaces to w-linha
          move "RH" to w-RH-A
          move "00018" to w-RH-B
          move w-RH to w-linha
          move function length(w-linha) to w-seq-size
          write seq-reg
          move spaces to w-linha
          move "QL" to w-linha
          move function length(w-linha) to w-seq-size
          write seq-reg

          move spaces to w-linha
          move "L 09990048000016000001000001" to w-linha
          move function length(w-linha) to w-seq-size
          write seq-reg
          move spaces to w-linha
          move "L 15100049600018010111000004" to w-linha
          move function length(w-linha) to w-seq-size
          write seq-reg
          move spaces to w-linha
          move "L 09990051400198010000000001" to w-linha
          move function length(w-linha) to w-seq-size
          write seq-reg
          move spaces to w-linha
          move "T 009900516001940000100010" to w-texto-A
          move "João Barbosa" to w-texto-B
          move w-texto to w-linha
          move function length(w-linha) to w-seq-size
          write seq-reg
          move spaces to w-linha
          move "RH" to w-RH-A
          move "00018" to w-RH-B
          move w-RH to w-linha
          move function length(w-linha) to w-seq-size
          write seq-reg
          move spaces to w-linha
          move "QL" to w-linha
          move function length(w-linha) to w-seq-size
          write seq-reg

          move spaces to w-linha
          move "L 09990048000016000001000001" to w-linha
          move function length(w-linha) to w-seq-size
          write seq-reg
          move spaces to w-linha
          move "L 15140049600018010111000004" to w-linha
          move function length(w-linha) to w-seq-size
          write seq-reg
          move spaces to w-linha
          move "L 09990051400198010000000001" to w-linha
          move function length(w-linha) to w-seq-size
          write seq-reg
          move spaces to w-linha
          move "T 009900516001940000100010" to w-texto-A
          move "Mario Fernando" to w-texto-B
          move w-texto to w-linha
          move function length(w-linha) to w-seq-size
          write seq-reg
          move spaces to w-linha
          move "RH" to w-RH-A
          move "00018" to w-RH-B
          move w-RH to w-linha
          move function length(w-linha) to w-seq-size
          write seq-reg
          move spaces to w-linha
          move "QL" to w-linha
          move function length(w-linha) to w-seq-size
          write seq-reg

          move spaces to w-linha
          move "L 09990048000232010101000001" to w-linha
          move function length(w-linha) to w-seq-size
          write seq-reg
          move spaces to w-linha
          move "RH" to w-RH-A
          move "00009" to w-RH-B
          move w-RH to w-linha
          move function length(w-linha) to w-seq-size
          write seq-reg
          move spaces to w-linha
          move "QL" to w-linha
          move function length(w-linha) to w-seq-size
          write seq-reg

          move spaces to w-linha
          move "RH" to w-RH-A
          move "00026" to w-RH-B
          move w-RH to w-linha
          move function length(w-linha) to w-seq-size
          write seq-reg
          move spaces to w-linha
          move "QL" to w-linha
          move function length(w-linha) to w-seq-size
          write seq-reg

          move spaces to w-linha
          move "RH" to w-RH-A
          move "00098" to w-RH-B
          move w-RH to w-linha
          move function length(w-linha) to w-seq-size
          write seq-reg
          move spaces to w-linha
          move "QL" to w-linha
          move function length(w-linha) to w-seq-size
          write seq-reg

          move spaces to w-linha
          move "F 101000Arial" to w-linha
          move function length(w-linha) to w-seq-size
          write seq-reg
          move spaces to w-linha
          move "L 00990000000128000111000001" to w-linha
          move function length(w-linha) to w-seq-size
          write seq-reg
          move spaces to w-linha
          move "T 009900002001240010100010" to w-texto-A
          move "Vendedor" to w-texto-B
          move w-texto to w-linha
          move function length(w-linha) to w-seq-size
          write seq-reg
          move spaces to w-linha
          move "L 00990012800064000110000001" to w-linha
          move function length(w-linha) to w-seq-size
          write seq-reg
          move spaces to w-linha
          move "T 009900130000600110100010" to w-texto-A
          move "Jan/2006" to w-texto-B
          move w-texto to w-linha
          move function length(w-linha) to w-seq-size
          write seq-reg
          move spaces to w-linha
          move "L 00990019200064000110000001" to w-linha
          move function length(w-linha) to w-seq-size
          write seq-reg
          move spaces to w-linha
          move "T 009900194000600110100010" to w-texto-A
          move "Fev/2006" to w-texto-B
          move w-texto to w-linha
          move function length(w-linha) to w-seq-size
          write seq-reg
          move spaces to w-linha
          move "L 00990025600064010110000001" to w-linha
          move function length(w-linha) to w-seq-size
          write seq-reg
          move spaces to w-linha
          move "T 009900258000600110100010" to w-texto-A
          move "Mar/2006" to w-texto-B
          move w-texto to w-linha
          move function length(w-linha) to w-seq-size
          write seq-reg
          move spaces to w-linha
          move "RH" to w-RH-A
          move "00026" to w-RH-B
          move w-RH to w-linha
          move function length(w-linha) to w-seq-size
          write seq-reg
          move spaces to w-linha
          move "QL" to w-linha
          move function length(w-linha) to w-seq-size
          write seq-reg

          move spaces to w-linha
          move "F 100000Arial" to w-linha
          move function length(w-linha) to w-seq-size
          write seq-reg
          move spaces to w-linha
          move "T 009900002001240000100010" to w-texto-A
          move "José da Silva" to w-texto-B
          move w-texto to w-linha
          move function length(w-linha) to w-seq-size
          write seq-reg
          move spaces to w-linha
          move "T 009900130000600100100010" to w-texto-A
          move ven01jan to w-texto-B
          move w-texto to w-linha
          move function length(w-linha) to w-seq-size
          write seq-reg
          move spaces to w-linha
          move "T 009900194000600100100010" to w-texto-A
          move ven01fev to w-texto-B
          move w-texto to w-linha
          move function length(w-linha) to w-seq-size
          write seq-reg
          move spaces to w-linha
          move "T 009900258000600100100010" to w-texto-A
          move ven01mar to w-texto-B
          move w-texto to w-linha
          move function length(w-linha) to w-seq-size
          write seq-reg
          move spaces to w-linha
          move "RH" to w-RH-A
          move "00018" to w-RH-B
          move w-RH to w-linha
          move function length(w-linha) to w-seq-size
          write seq-reg
          move spaces to w-linha
          move "QL" to w-linha
          move function length(w-linha) to w-seq-size
          write seq-reg

          move spaces to w-linha
          move "T 009900002001240000100010" to w-texto-A
          move "Maria José" to w-texto-B
          move w-texto to w-linha
          move function length(w-linha) to w-seq-size
          write seq-reg
          move spaces to w-linha
          move "T 009900130000600100100010" to w-texto-A
          move ven02jan to w-texto-B
          move w-texto to w-linha
          move function length(w-linha) to w-seq-size
          write seq-reg
          move spaces to w-linha
          move "T 009900194000600100100010" to w-texto-A
          move ven02fev to w-texto-B
          move w-texto to w-linha
          move function length(w-linha) to w-seq-size
          write seq-reg
          move spaces to w-linha
          move "T 009900258000600100100010" to w-texto-A
          move ven02mar to w-texto-B
          move w-texto to w-linha
          move function length(w-linha) to w-seq-size
          write seq-reg
          move spaces to w-linha
          move "RH" to w-RH-A
          move "00018" to w-RH-B
          move w-RH to w-linha
          move function length(w-linha) to w-seq-size
          write seq-reg
          move spaces to w-linha
          move "QL" to w-linha
          move function length(w-linha) to w-seq-size
          write seq-reg

          move spaces to w-linha
          move "T 009900002001240000100010" to w-texto-A
          move "João Barbosa" to w-texto-B
          move w-texto to w-linha
          move function length(w-linha) to w-seq-size
          write seq-reg
          move spaces to w-linha
          move "T 009900130000600100100010" to w-texto-A
          move ven03jan to w-texto-B
          move w-texto to w-linha
          move function length(w-linha) to w-seq-size
          write seq-reg
          move spaces to w-linha
          move "T 009900194000600100100010" to w-texto-A
          move ven03fev to w-texto-B
          move w-texto to w-linha
          move function length(w-linha) to w-seq-size
          write seq-reg
          move spaces to w-linha
          move "T 009900258000600100100010" to w-texto-A
          move ven03mar to w-texto-B
          move w-texto to w-linha
          move function length(w-linha) to w-seq-size
          write seq-reg
          move spaces to w-linha
          move "RH" to w-RH-A
          move "00018" to w-RH-B
          move w-RH to w-linha
          move function length(w-linha) to w-seq-size
          write seq-reg
          move spaces to w-linha
          move "QL" to w-linha
          move function length(w-linha) to w-seq-size
          write seq-reg

          move spaces to w-linha
          move "T 009900002001240000100010" to w-texto-A
          move "Mario Fernando" to w-texto-B
          move w-texto to w-linha
          move function length(w-linha) to w-seq-size
          write seq-reg
          move spaces to w-linha
          move "T 009900130000600100100010" to w-texto-A
          move ven04jan to w-texto-B
          move w-texto to w-linha
          move function length(w-linha) to w-seq-size
          write seq-reg
          move spaces to w-linha
          move "T 009900194000600100100010" to w-texto-A
          move ven04fev to w-texto-B
          move w-texto to w-linha
          move function length(w-linha) to w-seq-size
          write seq-reg
          move spaces to w-linha
          move "T 009900258000600100100010" to w-texto-A
          move ven04mar to w-texto-B
          move w-texto to w-linha
          move function length(w-linha) to w-seq-size
          write seq-reg
          move spaces to w-linha
          move "RH" to w-RH-A
          move "00018" to w-RH-B
          move w-RH to w-linha
          move function length(w-linha) to w-seq-size
          write seq-reg
          move spaces to w-linha
          move "QL" to w-linha
          move function length(w-linha) to w-seq-size
          write seq-reg


********** FINAL: BLOCO COLADO DO VisRelEdit **********

          close seq-arq
         
          STRING "VisRel.exe ",
                 "/g Grafico.Rel /t Grafico de Vendas"
            DELIMITED BY SIZE INTO COMANDO

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


Página Principal Página Principal Página Principal Página Principal Página Principal Comprar Comprar Comprar Comprar Comprar Comprar Contato Contato Contato Contato Contato Contato + Produtos + Produtos + Produtos + Produtos + Produtos + Produtos Download Download Download Download Download Download Sobre Sobre Sobre Sobre Sobre Sobre