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.

Âncora__RefHeading__23441_2053127524__RefHeading__23441_2053127524 Âncora__RefHeading__9596_486694287__RefHeading__9596_486694287 Âncora__RefHeading__4807_213273755__RefHeading__4807_213273755 Âncora__RefHeading__14205_644533341__RefHeading__14205_644533341 Âncora__RefHeading__90103_1756225838__RefHeading__90103_1756225838Localização

• Dentro do programa af0810g.p.

...

__RefHeading__90105_1756225838Ponto de Utilização

• "FINAL-PARAMETRO"

Âncora__RefHeading__23445_2053127524__RefHeading__23445_2053127524 Âncora__RefHeading__9600_486694287__RefHeading__9600_486694287 Âncora__RefHeading__4811_213273755__RefHeading__4811_213273755 Âncora__RefHeading__14209_644533341__RefHeading__14209_644533341 Âncora__RefHeading__90107_1756225838__RefHeading__90107_1756225838Include das definições das tabelas temporárias

• cpc-af0810g.i

...

__RefHeading__23447_2053127524 Âncora__RefHeading__9602_486694287__RefHeading__9602_486694287 Âncora__RefHeading__4813_213273755__RefHeading__4813_213273755 Âncora__RefHeading__14211_644533341__RefHeading__14211_644533341 Âncora__RefHeading__90109_1756225838__RefHeading__90109_1756225838Tabelas de entrada e saída
Âncora__RefHeading__23449_2053127524__RefHeading__23449_2053127524 Âncora__RefHeading__9604_486694287__RefHeading__9604_486694287anchor__RefHeading__4815_213273755__RefHeading__4815_213273755 Âncora__RefHeading__14213_644533341__RefHeading__14213_644533341 Âncora__RefHeading__90111_1756225838__RefHeading__90111_1756225838

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.

Âncora__RefHeading__23451_2053127524__RefHeading__23451_2053127524 Âncora__RefHeading__9606_486694287__RefHeading__9606_486694287 Âncora__RefHeading__4817_213273755__RefHeading__4817_213273755 Âncora__RefHeading__14215_644533341__RefHeading__14215_644533341 Âncora__RefHeading__90113_1756225838__RefHeading__90113_1756225838Definiçã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.

...

__RefHeading__14217_644533341 Âncora__RefHeading__90115_1756225838__RefHeading__90115_1756225838Tabela 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.

  as log.
Âncora__RefHeading__23455_2053127524__RefHeading__23455_2053127524 Âncora__RefHeading__9610_486694287__RefHeading__9610_486694287 Âncora__RefHeading__4821_213273755__RefHeading__4821_213273755 Âncora__RefHeading__14219_644533341__RefHeading__14219_644533341 Âncora__RefHeading__90117_1756225838__RefHeading__90117_1756225838

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.

...