• Rotina utilizada para receber o segmento de resposta do ac2000 para qualquer transacao
• 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.

...

Ponto de Utilização

• "FINAL-PROCESSO"

Include das definições das tabelas temporárias

...

Tabela de entrada tmp-cpc-ac2002dac2000-entrada

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

fields in-evento-programa                   as char format "x(06)"
fields nm-ponto-chamada-cpc              as char format "x(15)"
fields lg-mensagem-na-tela                 as logical
fields segmento-req-aux                     as char format "x(8000)"
fields segmento-res-aux                     as char format "x(8000)".

...

Definição campo a campo da tabela de entrada

• in-evento-programa – Evento do programa que chama a cpc-ac2000.p. Os valores desse campo podem ser:

...

• nm-ponto-chamada-cpc – Nome do ponto de chamada da cpc dentro do programa que a utiliza. Para o programa ac2000.p:

...

• lg-mensagem-na-tela – Indica se as mensagens de erro devem ser dispostas na tela ou não. Caso o indicador for não o campo da tabela de saída ds-mensagem-relatorio deve ser preenchido. (não obrigatório).
• segmento-req-aux – Segmento de requisição de entrada do ac2000.
• segmento-res-aux – Segmento de resposta de saída do ac2000.

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

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

fields lg-undo-retry                          as logical
fields ds-mensagem-relatorio            as char format "x(75)".

...

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

...