REGISTRE ENTIER res_860025994
REGISTRE ENTIER cpt_860025994
REGISTRE ENTIER erreur_860025994
REGISTRE POINTEUR pt_SGTQS_860025994
# ---------------------------------------------------------------------------
#
# FICHIER     : Trm6dc_redis.src
#
# VERSION     : %version: %
#
# AUTEUR      : cree le 27/03/14 par DECI (DRE)
#
# CREE le     : %date_created%
#
# MODIFIE le  : 
#
# DESCRIPTION : Pcode fourni par France Telecom
#
# RELECTURES  : 
#
# 09/04/2014 PSA G4R6 Creation  pour G4R6 Lot2
# ---------------------------------------------------------------------------


trace("[Redist] : Ici pcode de redistribution Trm6dc")
pt_SGTQS_860025994="12345678901212345"

# Initialisation des Entiers
erreur_860025994 = 0
res_860025994 = 0
cpt_860025994 = i_LireRedistCpt()

# Initialisation des Pointeurs
i_strcpy(pt_SGTQS_860025994,"")


trace1("[Redist] Trm6dc : Nombre de passage en redistribution : %d", cpt_860025994 ) 

SI ( cpt_860025994 < 3 )
ALORS
	res_860025994 = i_stocke_art( g_iartin, 0, PT_OK, 0 )
SINON
        res_860025994 = i_stocke_art( g_iartin, 0, PT_ANOREDIST, 0 )
	i_strcpy(pt_SGTQS_860025994, i_LireEECSGTQS(g_ieec))
        erreur_860025994= i_PlvMessEmettre(8504,2,g_iartin,"",2,"Trm6dc",pt_SGTQS_860025994,0)
        trace("[Redist]Trm6dc : stockage en anomalie de redistribution")
FINSI

RETOUR TRAIT_OK

# fin de fichier



