# Fonction PCODE ID = 660003942
REGISTRE POINTEUR pt_Date

REGISTRE    ENTIER    res

pt_Date = depilerPOINTEUR()

	SI(i_strlen(pt_Date)!= 14)
	ALORS
		trace("DATE_ROAMING_SMMS, format de date invalide , taille tres courte < 14")
		RETOUR  1
	FINSI
	# controle de l annee AAAA : 2000-2070
	res = (i_strtab(pt_Date,0)-0x30) *1000 + (i_strtab(pt_Date,1)-0x30)*100 + (i_strtab(pt_Date,2)-0x30)*10 + i_strtab(pt_Date,3)-0x30
	SI(res <=2000 || res >= 2070)
	ALORS
		trace1("DATE_ROAMING_SMMS, l annee <%d> est incorrecte ", res)
		RETOUR res
	FINSI
	# Controle du mois MM
	res = (i_strtab(pt_Date,4)-0x30)*10 + (i_strtab(pt_Date,5)-0x30)
	SI( res <=0 || res > 12)
	ALORS
		trace1("DATE_ROAMING_SMMS, le mois <%d> est incorrect", res)
		RETOUR 1
	FINSI
	# Controle du jour JJ
	res = (i_strtab(pt_Date,6)-0x30)*10 + (i_strtab(pt_Date,7)-0x30)
	SI( res <=0 || res > 31)
	ALORS
		trace1("DATE_ROAMING_SMMS, le jour <%d> est incorrect", res)
		RETOUR 1
	FINSI
	# Controle du  hhmmss
	res = (i_strtab(pt_Date,8)-0x30)*100000 + (i_strtab(pt_Date,9)-0x30)*10000
	res = res + (i_strtab(pt_Date,10)-0x30)*1000 + (i_strtab(pt_Date,11)-0x30)*100
	res = res + (i_strtab(pt_Date,12)-0x30)*10 + (i_strtab(pt_Date,13)-0x30)
	SI( res <0 || res > 235959)
	ALORS
		trace1("DATE_ROAMING_SMMS, la valeur hhmmss :<%d> de l heure est incorrecte", res)
		RETOUR 1
	FINSI
	RETOUR 0
