Árvore de páginas

Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.

...

  • "CRIA-TMPRPBEN"
  • "DT-RECEB-ARQ"
  • "GRAVA-TEMP"
  • "TRATA-MOV-BENEF"
  • "GRAVA-MEN-BENEF"
  • "TRATA-DEP"
  • "TRATA-CAR-ESPEC"
  • "TRATA-IMP"
  • "NOME-SOCIAL"
  • "FIM-CARGA-REG3"

Include das definições das tabelas temporárias

...

def temp-table tmp-cpc-api-set0003-entrada no-undo

    fields in-evento-

...

programa   as char format "x(15)"                     
    fields nm-ponto-chamada-cpc

...

as char format "x(15)"

...

                 

...

  
    fields

...

lg-mensagem-

...

na-

...

tela  as logical       

...


   

...

fields dt-inclusao-

...

origem   as date
    fields nr-rowid-tmprpben    as rowid
   

...

fields cd-

...

modalidade       

...

like modalid.cd-modalidade
    fields nr-

...

proposta         

...

like propost.nr-proposta
    fields nr-

...

layout           

...

as int format "99"
    fields char-

...

           

...

 as char format "x(30)" 
    fields char-

...

           

...

 as char format "x(30)" 
    fields char-

...

           

...

 as char format "x(30)" 
    fields char-

...

           

...

 as char format "x(30)" 
    fields char-

...

           

...

 as char format "x(30)" 
    fields char-

...

           

...

 as char format "x(60)" 
    fields char-

...

           

...

 as char format "x(60)" 
    fields char-

...

           

...

 as char format "x(60)" 
    fields char-

...

           

...

 as char format "x(60)" 
    fields char-

...

10             

...

as char format "x(60)"
    fields cd-motivo-

...

cancelamento as int
   

...

 fields cd-contratante like tmprpben.cd-contratante
    fields nr-lote-imp         

...

like tmprpben.nr-lote-imp
    fields nr-sequencia-benef 

...

 like tmprpben.nr-sequencia-benef
    fields nr-sequencia-real 

...

 

...

like tmprpben.nr-sequencia-real
    fields in-tipo-movimento   

...

like tmprpben.in-tipo-movimento
    fields cd-

...

usuario like tmprpben.cd-usuario
    fields nr-

...

linha as int
    fields nr-cpf             

...

 as char
    fields nm-

...

usuario    

...

as char 
   

...

fields cd-funcionario     

...

 as char 
   

...

fields ds-mensagem 

...

        as char
    fields ds-complemento 

...

   

...

 as char
    fields ds-string-imp       

...

as char. 


Definição campo a campo da tabela de entrada

...

def temp-table tmp-cpc-api-set0003-saida no-undo

    fields lg-undo-

...

retry         as logical                                 
    fields lg-dt-receb-arq       as logical
    fields ds-mensagem-relatorio

...

as char format "x(75)"

...


...

   

...

fields char-

...

              as char format "x(30)" 
    fields char-

...

             

...

as char format "x(30)" 
    fields char-

...

             

...

as char format "x(30)" 
    fields char-

...

             

...

as char format "x(30)" 
    fields char-

...

             

...

as char format "x(30)" 
    fields char-

...

              as char format "x(60)" 
    fields char-

...

              as char format "x(60)" 
    fields char-

...

             

...

as char format "x(60)" 
    fields char-

...

             

...

as char format "x(60)" 
    fields char-

...

10             

...

 as char format "x(60)"
    fields cd-motivo-cancelamento as int
    fields lg-

...

next as log
   

...

fields ds-string-imp       

...

 as char. 

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

...