# Fonction PCODE ID = 660004265
REGISTRE POINTEUR pt_msisdnres
REGISTRE ENTIER rcode
REGISTRE POINTEUR pt_code_msisdn

REGISTRE   POINTEUR    pt_codemsisdn
REGISTRE   POINTEUR    pt_code
REGISTRE   POINTEUR    pt_msisdn
REGISTRE   ENTIER    indice
REGISTRE   ENTIER    type
REGISTRE   ENTIER    code
REGISTRE   ENTIER    erreur

pt_msisdnres = depilerPOINTEUR()
rcode = depilerENTIER()
pt_code_msisdn = depilerPOINTEUR()
pt_codemsisdn="dddd:dddddddddddddddd"
pt_code="dddd"
pt_msisdn="01234567890123467"

POINT BOUCLE_CODEMSISDN

erreur=i_recupererValeur(pt_code_msisdn,pt_codemsisdn,200,'|')
SI (erreur!=0)
ALORS
  trace("Erreur retour i_recupererValeur 1")
  RETOUR 0
FINSI
SI (!i_strcmp(pt_codemsisdn,g_inull))
ALORS
  RETOUR 0
SINON
#-- extraire le code et le msisdn du pointeur "code:msisdn"
  trace2("code:msisdn recupere :%s %s",pt_codemsisdn,"")
  erreur=i_recupererValeur(pt_codemsisdn,pt_code,20,':')
  code=toInteger_660004265(pt_code)
  erreur=i_recupererValeur(pt_codemsisdn,pt_msisdn,20,':')
  SI (erreur!=0)
  ALORS
    trace("Erreur retour fonction i_recupererValeur 2")
    RETOUR 0
  SINON
    SI (rcode==code)
    ALORS
      trace2("Msisdn recupere :%s %s", pt_msisdn,"")
      i_strcpy(pt_msisdnres,pt_msisdn)
      RETOUR 1
#--msisdn trouve

    SINON
      SAUT BOUCLE_CODEMSISDN
    FINSI
  FINSI
FINSI

