CPC-AF0810G.p

• Rotina utilizada no na emissão de relatório de dados para SIP RN 152.
• Caso o cliente não queira executar a chamada da CPC no seu cadastro deve colocar CPC Ativo como não.
• Será permitido para esta CPC apenas um registro na tabela temporária de saída. Caso possuir mais de um registro um erro será reportado.

Localização

• Dentro do programa af0810g.p.

Ponto de Utilização

• "FINAL-PARAMETRO"

Include das definições das tabelas temporárias

• cpc-af0810g.i

Tabelas de entrada e saída

Tabela de entrada tmp-cpc-af0810g-entrada

/* -------------------- temp table de entrada de dados --------------------- */

def temp-table tmp-cpc-af0810g-entrada no-undo

field in-evento-programa            as char format "x(10)"
field nm-ponto-chamada-cpc       as char format "x(15)"
field lg-considera-repasse           as log.

Definição campo a campo da tabela de entrada

• in-evento-programa – Identifica qual procedimento a cpc deve executar no momento que está sendo chamada (af0810g).
• nm-ponto-chamada-cpc – Ponto de chamada de cpc que deve ser "FINAL-PARAMETRO".
• lg-considera-repasse – E repassado ao programa um valor definido como default.

Tabela de saída tmp-cpc-af0810g-saida

def temp-table tmp-cpc-af0810g-saida no-undo 

field lg-undo-retry                 as logical
field ds-mensagem-erro         as char format "x(75)"
field lg-considera-repasse      as log.

Definição campo a campo da tabela de saída

• lg-undo-retry – Variável que controla os erros que podem ocorrer na CPC.
• ds-mensagem-erro – Variável que recebe a descrição dos erros que ocorreram na CPC.
• lg-considera-repasse – Variável que retorna o parâmetro escolhido pelo usuário.