VisRel - Exemplo do gráfico de vendas

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:



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 .