Sage X3 how get a list of client running processes

The following Subprog returns into an Integer array the list of all running processes of clients connected to X3 application server.

The Subprog needs this two local variables as parameters:
XPROCID, an Integer array in which are inserted the numbers of running processes
XNUM, an Integer which returns the count of running processes

1. #
2. #Restituisce una lista con tutti gli ID dei processi attivi sul server
3. #
4. Subprog GET_ALLPROCESS(XPROCID,XNUM)
5. Variable Integer XPROCID
6. Variable Integer XNUM
8. Local Char RESULT(250)(1..dim(XPROCID))
9. Local Integer STAT
10. Local Char ORDSYS(250)
11. Local Integer J , I, T
12. Local Char CHAINE(250)
14. Local Char PROCESS(250)
16. ORDSYS = "psadx -afghimnopxt -l"-GLANGUE
17. Call SYSTEME2(adxmac(0),ORDSYS,"",STAT,RESULT) From ORDSYS
19. I = 3
20. XNUM = 0
21. While I<=STAT-1
22. If I>=dim(RESULT) Then
23. Call ERREUR(mess(161,115,1)) From GESECRAN : # Trop de lignes
24. Break
25. Endif
26. CHAINE = RESULT(I)
27. PROCESS = vireblc(mid$(CHAINE,1,instr(1,CHAINE," ")),2)
28. If PROCESS <> "" Then
29. T = val(PROCESS)
30. If T > 0 Then
31. XPROCID(XNUM) = T
32. XNUM += 1
33. Endif
34. Endif
35. I += 1
36. Wend
38. End

Here an example how to use the Subprog

1. Local Integer XNUM
2. Local Integer XPRCID(100)
4. Call GET_ALLPROCESS(XPRCID,XNUM)
6. Infbox "there are " + num$(XNUM) + " running client processes"

and a second one that show how delete records of a work table for all non-running processes

1. #
2. #Delete record not owned by running processes:
3. #YVP is a table used as temporary container for cosultations and/or report,
4. #the field YADXUID contains the value of variable adxuid(1)
5. #
6. Local Integer XNUM
7. Local Integer XPRCID(100)
9. Call GET_ALLPROCESS(XPRCID,XNUM)
11. Delete [F:YVP] Where find(YADXUID,XPRCID(0..XNUM))=0