EXECUTE "SET-THOUS ."
EXECUTE "SET-DEC ,"
EXECUTE "DATE.FORMAT"
OPEN "DICT", "CIVILAIDANT" TO F.DICTCIVILAIDANT ELSE STOP
OPEN "DICT", "CONTRAT" TO F.DICTCONTRAT ELSE STOP

*************************************************************
*    MICHAEL : création de dictionnaires fichiers CONTRAT et CIVILAIDANT
* Destinés à la recherche d'aidant du menu Planning.

ENR_DICT = ""
ENR_DICT<1> = "V"
ENR_DICT<3> = ""
ENR_DICT<5> = "2R"
ENR_DICT<6> = "S"

FOR i = 1 TO 15 
   ENR_DICT<2> = 'OCONV(@ID,"TCAPIMPAIDANT;X':i:';;6")'
   ENR_DICT<4> = "Comportement ":i
   WRITE ENR_DICT ON F.DICTCIVILAIDANT, "ComportementMv":i

   ENR_DICT<2> = 'OCONV(@ID,"T1,5":@VM:"TCAPIMPAIDANT;X':i:';;6")'
   ENR_DICT<4> = "Comportement ":i
   WRITE ENR_DICT ON F.DICTCONTRAT, "ComportementMv":i
NEXT i

STOP
