quinta-feira, 28 de fevereiro de 2008
[Informix] criar indice
create index i_FINTRA_MAIS3 on T_FINTRAS_MAIS2(ftfintransnrftnr,ftsubscribernr,ftaccnr);
[informix]Criar tabela temp
SELECT F.*
FROM T_ASSINANTESC A, T_FINTRAS_MAIS F
WHERE F.ftsubscribernr = A.cucustnr
AND F.ftaccnr = A.accountnr
INTO TEMP T_FINTRAS_MAIS2 with no log;
FROM T_ASSINANTESC A, T_FINTRAS_MAIS F
WHERE F.ftsubscribernr = A.cucustnr
AND F.ftaccnr = A.accountnr
INTO TEMP T_FINTRAS_MAIS2 with no log;
terça-feira, 26 de fevereiro de 2008
Tratar com 0 return nulo
BEGIN
SELECT NVL(reversesmsaccnr,0)
INTO X_SMS_REVERTE
FROM smsacc
WHERE smsaccnrbrnr = X_SMS_ATUAL;
END;
SELECT NVL(reversesmsaccnr,0)
INTO X_SMS_REVERTE
FROM smsacc
WHERE smsaccnrbrnr = X_SMS_ATUAL;
END;
[informix] Procedure
CREATE PROCEDURE "informix".jft_reverte(P_IS_CANCELAR_INV INTEGER,
P_IS_REVERTER_FTR INTEGER,
P_ID_FINTRA INTEGER)
returning VARCHAR(255);
-- P_IS_CANCELAR_INV = 1 --> CANCELAR INVOICES - LIGADO
-- P_IS_CANCELAR_INV = 0 --> NÃO CANCELA INVOICES - DESLIGADO
-- P_IS_REVERTER_FTR = 0 --> NÃO REVERTER FINTRA - DESLIGADO
-- P_IS_REVERTER_FTR = 1 --> REVERTER FINTRA - LIGADO
-- DEFINIR VARIAVEL FIXA
DEFINE X_IS_PROCESSADO INTEGER;
DEFINE X_IS_JAREVERTIDO INTEGER;
DEFINE X_SMS_REVERTE INTEGER;
,,,,
,,,,
,,,,
return X_IS_PROCESSADO' - 'X_IS_ERROR;
END PROCEDURE
P_IS_REVERTER_FTR INTEGER,
P_ID_FINTRA INTEGER)
returning VARCHAR(255);
-- P_IS_CANCELAR_INV = 1 --> CANCELAR INVOICES - LIGADO
-- P_IS_CANCELAR_INV = 0 --> NÃO CANCELA INVOICES - DESLIGADO
-- P_IS_REVERTER_FTR = 0 --> NÃO REVERTER FINTRA - DESLIGADO
-- P_IS_REVERTER_FTR = 1 --> REVERTER FINTRA - LIGADO
-- DEFINIR VARIAVEL FIXA
DEFINE X_IS_PROCESSADO INTEGER;
DEFINE X_IS_JAREVERTIDO INTEGER;
DEFINE X_SMS_REVERTE INTEGER;
,,,,
,,,,
,,,,
return X_IS_PROCESSADO' - 'X_IS_ERROR;
END PROCEDURE
Concatenar Texto
IF X_SMS_ATUAL = 0 THEN
LET X_IS_ERROR = 'FINTRA ID : 'P_ID_FINTRA' NÃO ENCONTRATO';
LET X_IS_PROCESSADO = 1;
END IF;
LET X_IS_ERROR = 'FINTRA ID : 'P_ID_FINTRA' NÃO ENCONTRATO';
LET X_IS_PROCESSADO = 1;
END IF;
[informix] Exception de uma tabela
-- LIMPANDO TANELA
BEGIN
ON EXCEPTION SET ESQL
--RETURN 'PROBLEMA AO LIMPAR TABELA TEMPORARIA T_work: ERROR_SQL 'ESQL' ERROR: 'X_IS_ERROR;
END EXCEPTION
drop table T_work;
END;
BEGIN
ON EXCEPTION SET ESQL
--RETURN 'PROBLEMA AO LIMPAR TABELA TEMPORARIA T_work: ERROR_SQL 'ESQL' ERROR: 'X_IS_ERROR;
END EXCEPTION
drop table T_work;
END;
Assinar:
Postagens (Atom)