• 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.

...

__RefHeading__86025_1756225838Localização

• Dentro do ac2000.p no final do programa antes da resposta.

Ponto de Utilização

  Âncora__RefHeading__19365_2053127524__RefHeading__19365_2053127524 Âncora__RefHeading__5520_486694287__RefHeading__5520_486694287 Âncora__RefHeading__731_213273755__RefHeading__731_213273755 Âncora__RefHeading__10129_644533341__RefHeading__10129_644533341 Âncora__RefHeading__86027_1756225838__RefHeading__86027_1756225838Ponto de Utilização

• "FINAL-PROCESSO"

Âncora__RefHeading__19367_2053127524__RefHeading__19367_2053127524 Âncora__RefHeading__5522_486694287__RefHeading__5522_486694287 Âncora__RefHeading__733_213273755__RefHeading__733_213273755 Âncora__RefHeading__10131_644533341__RefHeading__10131_644533341 Âncora__RefHeading__86029_1756225838__RefHeading__86029_1756225838Include das definições das tabelas temporárias

• cpc-ac2000.i

...

__RefHeading__735_213273755 Âncora__RefHeading__10133_644533341__RefHeading__10133_644533341 Âncora__RefHeading__86031_1756225838__RefHeading__86031_1756225838Tabelas de entrada e saída
Âncora__RefHeading__19371_2053127524__RefHeading__19371_2053127524 Âncora__RefHeading__5526_486694287__RefHeading__5526_486694287 Âncora__RefHeading__737_213273755__RefHeading__737_213273755 Âncora__RefHeading__10135_644533341__RefHeading__10135_644533341 Âncora__RefHeading__86033_1756225838__RefHeading__86033_1756225838

Tabela de entrada tmp-cpc-ac2002d-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)".

Âncora__RefHeading__19373_2053127524__RefHeading__19373_2053127524 Âncora__RefHeading__5528_486694287__RefHeading__5528_486694287 Âncora__RefHeading__739_213273755__RefHeading__739_213273755 Âncora__RefHeading__10137_644533341__RefHeading__10137_644533341 Âncora__RefHeading__86035_1756225838__RefHeading__86035_1756225838Definiçã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:

"INCLUI"

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

"FINAL-PROCESSO"

• 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)".

Âncora__RefHeading__19377_2053127524__RefHeading__19377_2053127524 Âncora__RefHeading__5532_486694287__RefHeading__5532_486694287 Âncora__RefHeading__743_213273755__RefHeading__743_213273755 Âncora__RefHeading__10141_644533341__RefHeading__10141_644533341 Âncora__RefHeading__86039_1756225838__RefHeading__86039_1756225838Definição campo a campo da tabela de saída

• lg-undo-retry – Variável que controla se erros aconteceram dentro da CPC deve retornar SIM se erros aconteceram e NÃO se o processo foi concluído por completo.
• ds-mensagem-relatorio – Deve conter mensagens de erro ou qualquer outro tipo de mensagem. Utilizado em conjunto com a entrada lg-mensagem-na-tela. Se lg-mensagem-na-tela for Não então esse campo deve ser preenchido.

...