# Fonction PCODE ID = 860026233
REGISTRE ENTIER date_pivot
REGISTRE POINTEUR NomGK
REGISTRE POINTEUR Service
############################################################################
#
# Nom du fichier: ICOM.src
# 
# Fonction:
#    Recupere l ICOM d'un GK Service correspondant ` un FAI
#
# En entree :
#    Service
#    NumGK        
#
# En sortie:
#    si OK      : Num RTC du FAI
#                 VIDE
#    Erreur     : g_inull
#
############################################################################

REGISTRE POINTEUR pt_cle
REGISTRE POINTEUR pt_valeur
REGISTRE POINTEUR pt_res
REGISTRE ENTIER   erreur



#
# Recuperation des arguments en entree
#

date_pivot = depilerENTIER()
NomGK = depilerPOINTEUR()
Service = depilerPOINTEUR()
pt_cle    = "ABCDEFGHIJKLMNOPQRSTUVWXYZABCDEFGHIJK"
pt_valeur = "JKLMNOPQRSTUVWJKLMNOPQRSTUVWJKLMNOPQR"
pt_res    = "RSTUVWXYZABCDERSTUVWXYZABCDERSTUVWXYZABCDE"


#trace1("date_pivot: <%u>", date_pivot)  
#trace2("Service:    <%s>", Service,"")
#trace2("Num:        <%s>", Num,"")

#
# Concatenation de Service et Num pour former la cle
#
erreur = i_format_str2(pt_cle,"%s%s",Service,NomGK)
#trace2("Cle: <%s>", Cle,"")

#
# Recherche dans la table externe, de la valeur correspondante a la cle
#
i_strcpy(pt_valeur, i_get_tab_field( "Inter", date_pivot, pt_cle ))
SI (i_strcmp(pt_valeur,g_inull) == 0 )
ALORS
#	trace2( "ERREUR: cle <%s> non trouve dans la table externe InefInt", Cle,"" )
        i_strcpy(pt_res, "ERR")
SINON
	 i_strcpy(pt_res, pt_valeur)
FINSI
#trace2("Valeur trouvee: <%s> : %s", valeur, "")

RETOUR pt_res

