sub idtCreer {local($From,$IDENT,$AUTH) = @_; 
 local $Num = 0; if (&wsFile("size",$From,$$IDENT,"Num",\$Num)!=0) {return 100}; 
 $$IDENT = ($Num+1001).'';
 local $Out = "X"; if (&wsFile("write",$From,$$IDENT,"Num",\$Out)!=0) {return 100}; 
 return &idtEcrire($From,$IDENT,$AUTH);
}

function idtCreer(From,IDENT,AUTH) { 
 var Num = Array(); Num[0] = 0; if (wsFile("size",From,IDENT[0],"Num",Num)!=0) {return 100}; 
 IDENT[0] = (Num[0]+1001).toString();
 var Out = Array("X"); if (wsFile("write",From,IDENT[0],"Num",Out)!=0) {return 100}; 
 return idtEcrire(From,IDENT,AUTH);
}