Índice
1
Acessar um membro de um arquivo com ODBC
ODBC só pode acessar ao primeiro membro de um arquivo, mas existe duas possibilidades para acessar a membros:
1.- Arquivo lógico direcionado a um membro (CRTLF, indicando que membro)
2.- Definir ALIAS (SQL te permite definir ALIAS, onde indicas o nome de arquivo, Biblioteca e membro)
Este documento...
———
2
Acesso ao DB2/400 pelo Domino através de Stored Procedures
Uma Stored Procedure é um programa compilado e que pode executar comandos SQL. São geralmente utilizadas em aplicações cliente/servidor, especialmente em transações on-line (OLTP).
Existem dois tipos de Stored Procedures:
* "External": podem ser escritas em diferentes...
———
3
Alterando Tabela, Visão e Labels de colunas com SQL
Se você está cansado de deletar e recriar arquivos para alterar a informação de column-level, tal como column headings, está na hora de considerar a declaraçãoo SQL LABEL ON. LABEL ON lhe permite adicionar e alterar facilmente labels para tables, views, e columns.
LABEL ON suporta os seguintes...
———
4
Apresentar a tela de introdução de comandos em nossos programas
Svocê quer que os usuários de tuas aplicações possam acessar a tela de introdução de comandos, é muito simples. Basta fazer uma chamada ao programa QUSCMDLN como no seguinte exemplo.
CALL QUSCMDLN
Fonte: www.as400-recursos.com
———
5
Chamar um programa windows do iSeries AS/400 passando-lhe parâmetros
Este simples código nos permitirá executar aplicações windows do AS/400 iSeries.
/* Recolhe parâmetro &PARM1 */
PGM &PARM1 DCL VAR(&PARM1) TYPE(*CHAR) LEN(9)
/* Startamos o organizador PC*/
STRPCO
/*...
———
6
CL para saber o número de registros ativos de um arquivo de dados
PGM
dcl &variable *dec(10 0)
rtvmbrd file(biblioteca/arquivo) nbrcurrcd(&variavel)
PGM
17-04-2002
Fonte: www.recursos-as400.com
———
7
Como calcular o % de execução de um trabalho em batch
A forma geral de calcular o progresso de qualquer trabalho é a seguinte:
Progresso = ("Trabalho realizado até o momento"/"Trabalho total a realizar")* 100
Como verás, para poder utilizar esta fórmula, é necessário saber o: "Trabalho total a realizar".
Dado que este último depende das...
———
8
Como centralizar uma cadeia de caracteres
* Recuperamos o tamanho do campo
c eval tamanho = %size(palavra)
* Buscamos a última posição com caracteres.
c ' ' checkr palavra fin 2 0
c tamanho sub fin fin
c eval fin = fin / 2
* e centralizamos o texto
c ' ' cat(p) palavra:fin...
———
9
Como conhecer a posição do cursor na tela
Criamos uma tela para que possas provar o código
A DSPSIZ(24 80 *DS3)
A CA03(03 'SAIR')
A R FMT1
A 10 2'Move o cursor onde queiras'
A COLOR(WHT)
A 12 4'e pressione Enter para saber'
A COLOR(WHT)
A 14 6'qual é a posição exata do
cursor'
A COLOR(WHT)
A 23...
———
10
Como converter um objeto Query *QRYDFN para SQL
Recuperamos a descrição da QUERY utilizando o comando RTVQMQRY ALWQRYDFN(*YES)
Depois de limpar o membro onde temos salvado a descrição da QUERY e de deixar unicamente as instruções SQL propriamente ditas teremos duas opções
Se não tem SQL:
CRTQMQRY...
———
11
Como eliminar o * * * E N D O F R E P O R T * * * das queries
ELIMINAR *** E N D O F R E P O R T *** DAS LISTAGENS GERADOS COM QUERY
Eliminar esta mensagem da base ou rodapé dos informes é tão simples como teclar na linha de comandos:
WRKMSGD QRX1905 QQRYMSG
e selecionar a opção 2 para alterar a mensagem com o texto que ...
———