>DIMENSION laDataSessions(1) >laDataSessions[1] = 1 && 1 is always the default datasession > >FOR EACH oForm IN _SCREEN.Forms > lnDataSessionCount = ALEN(laDataSessions) > IF oForm.DataSession = 2 && PrivateDataSession > IF ASCAN(laDataSessions, oForm.DataSessionID) = 0 && Have we already added this one? > DIMENSION laDataSessions[lnDataSessionCount + 1] > laDataSessions[lnDataSessionCount + 1] = oForm.DataSessionID > ENDIF > ENDIF >ENDFOR > >?ALEN(laDataSessions) >