| Exemplos »»
|
|
O exemplo abaixo demonstra como
visualizar e imprimir arquivos TXT com a sintaxe do Cobol
NetExpress: |
|
|
WORKING-STORAGE
SECTION.
01
CMD-EXEC-PRG. 02
COMANDO-LINE PIC x(250)
VALUE SPACES.
02 COMANDO-LINE-LEN PIC
x(4) COMP-5 VALUE 250.
02 RUN-UNIT-ID
PIC x(8) COMP-5 VALUE 01.
02 STACK-SIZE
PIC x(4) COMP-5.
02 FLAGS
PIC x(4) COMP-5 VALUE
0. 02 TTY-CMD
PIC x(1)
VALUE SPACES.
02 TTY-CMD-LEN
PIC x(4) COMP-5 VALUE 1.
02 STATUS-CODE
PIC x(2) COMP-5.
PROCEDURE DIVISION.
MOVE
"VisRel.exe /R
C:\Arquivo.Rel /T NomeDaEmpresa /SV"
TO COMANDO-LINE.
CALL
"CBL_EXEC_RUN_UNIT" USING COMANDO-LINE
BY value
COMANDO-LINE-LEN
BY reference RUN-UNIT-ID
BY value
STACK-SIZE FLAGS
BY reference
TTY-CMD BY
value TTY-CMD-LEN
RETURNING
STATUS-CODE. |
|
|
Veja também: |
|
|
Visualizar e
imprimir relatórios matriciais (padrão Epson) com o VisRel
|
Linha de comando do modo gráfico no NetExpress
|
|
|
No computador de seus
clientes instale apenas a Run-Time do VisRel
(RunTimeVisRel.exe), ou então copie o
arquivo C:\Windows\VisRel.exe para a sua pasta de
programas.
IMPORTANTE: Se você tem clientes
com Windows 95 ou 98 e se optar por copiar o VisRel.exe,
copie também o arquivo Msvbvm60.dll (sempre
deste link) para a sua pasta de programas! Nunca copie o arquivo
Msvbvm60.dll da pasta system de um computador para outro, ou para a
sua pasta de programas, pois cada versão ou service pack do
Windows tem sua própria
DLL (exceto o Windows 9x). |
|
|
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. Também
é possível fazer relatórios mais
elaborados utilizando o VisRelEdit. Por
exemplo numa listagem do cadastro de produtos.
|
|