begin
    area a_reply;
    json jobj;

webgetpostdata(a_reply);
jobj = parsejsonarea(a_reply);
       

logtext(0,JSONCountChildren(jobj,"roles"));

logtext(0,JSONGetChildNAME(jobj,"roles[0]",0));

return;
end;