Follow along with the video below to see how to install our site as a web app on your home screen.
Note: This feature may not be available in some browsers.
pUser = 'UserA,UserB,UserC,UserD'
IF OCCURS(",",pUser)>0
FOR lnWordCnt = 1 to OCCURS(",",pUser)
IF lnWordCnt=1
?SUBSTR(pUser,1,ATC(",",pUser,1)-1)
ELSE
?SUBSTR(pUser,ATC(",",pUser,lnWordCnt-1)+1,ATC(",",pUser,lnWordCnt)-ATC(",",pUser,lnWordCnt-1)-1)
ENDIF
ENDFOR
ENDIF
pUser = 'UserE,UserF,UserG,UserH'
IF OCCURS(",",pUser)>0
FOR lnWordCnt = 1 to GETWORDCOUNT(pUser,",")
?GETWORDNUM(pUser,lnWordCnt,",")
ENDFOR
ENDIF
pUser = 'UserI,UserJ,UserK,UserL'
DIMENSION laUsers[OCCURS(",",pUser)]
IF OCCURS(",",pUser)>0
FOR lnWordCnt = 1 to OCCURS(",",pUser)
IF lnWordCnt=1
laUsers[lnWordCnt]=SUBSTR(pUser,1,ATC(",",pUser,1)-1)
ELSE
laUsers[lnWordCnt]=SUBSTR(pUser,ATC(",",pUser,lnWordCnt-1)+1,ATC(",",pUser,lnWordCnt)-ATC(",",pUser,lnWordCnt-1)-1)
ENDIF
ENDFOR
ENDIF
FOR lnArrayCnt = 1 TO ALEN(laUsers)
?laUsers(lnArrayCnt)
ENDFOR
pUser = 'UserM,UserN,UserO,UserP'
DIMENSION laUsers2[GETWORDCOUNT(pUser,",")]
IF OCCURS(",",pUser)>0
FOR lnWordCnt = 1 to GETWORDCOUNT(pUser,",")
laUsers2[lnWordCnt]=GETWORDNUM(pUser,lnWordCnt,",")
ENDFOR
ENDIF
FOR lnArrayCnt = 1 TO ALEN(laUsers2)
?laUsers2(lnArrayCnt)
ENDFOR