REGISTRE ENTIER erreur_860010721
####################################################################
#       TRAITEMENT Txxmmm_tr.src
#		P-Code entete (Entete de BLOC)
#HISTORIQUE
# 02/09/05 jlg Creation
# 29/03/06 jlg FO 161 (evol spec stockage en elimines explicites)
####################################################################


####################################################################
# Changement domaine
####################################################################

#DEBUT_DUMP#
i_strcpy(g_idomain, "Dmmm")
#FIN_DUMP#

erreur_860010721 = i_stocke_art( g_iartin, 0, PT_ELIMINE, 0)
RETOUR TRAIT_OK
#___________________________ FIN Txxmmm_tr.src_________________________
