REGISTRE ENTIER res_860026396
REGISTRE ENTIER cpt_860026396
REGISTRE ENTIER erreur_860026396
REGISTRE POINTEUR pt_SGTQS_860026396
######################################################################
# REDISTRIBUTION
#
# FICHIER     : TcarteOSA_redis.src
# 
# DESCRIPTION : Pcode fourni par France Telecom
#
######################################################################
#	HISTORIQUE
#
# 08/07/2014 - THE - Creation Param FTSA_G4R7 Lot 2
#
######################################################################

###########################################################################
# Declarations
###########################################################################

trace("[Redist] : Ici pcode de redistribution - [ __FILE__ ] ")
pt_SGTQS_860026396="12345678901212345"

# Initialisation des Entiers
erreur_860026396 = 0
res_860026396 = 0
cpt_860026396 = i_LireRedistCpt()

# Initialisation des Pointeurs
i_strcpy(pt_SGTQS_860026396,"")

trace1(" [ __FILE__ ]  : Nombre de passage en redistribution : %d", cpt_860026396 ) 

SI ( cpt_860026396 < 3 )
ALORS
	res_860026396 = i_stocke_art( g_iartin, 0, PT_OK, 0 )
SINON
        res_860026396 = i_stocke_art( g_iartin, 0, PT_ANOREDIST, 0 )
        i_strcpy(pt_SGTQS_860026396, i_LireEECSGTQS(g_ieec))
        erreur_860026396= i_PlvMessEmettre(8504,2,g_iartin,"",2,"TcarteOSA",pt_SGTQS_860026396,0)
        trace(" - [ __FILE__ ] : stockage en anomalie de redistribution")
FINSI

RETOUR TRAIT_OK

