gsSQLCommand=;
"SELECT "+;
  " DocTypeID ,"+;
  " DocTypeName,"+;
  " ?VAL('') As Marked "+;
  " FROM DocTypes "+;
  " WHERE NOT Archived"
=MyExecSQL("curDocTypes")

SELECT
...
FROM xxx
WHERE DocTypeID IN(SELECT DocTypeID FROM curDocTypes WHERE Marked= 1 )

SELECT curDocTypes
lsMarkedDocTypeID  = ''
SCAN FOR Marked= 1 
   IF EMPTY(m.lsMarkedDocTypeID)
      lsMarkedCCDocID = LTRIM(STR(DocTypeID))
   ELSE
      lsMarkedCCDocID = m.lsMarkedDocTypeID + ',' + LTRIM(STR(DocTypeID))
   ENDIF
ENDSCAN
gsSQLCommand=;
   " SELECT"+;
    ...
    " FROM ххх"+;
    " WHERE DocTypeID IN(?&lsMarkedDocTypeID)"
=MyExecSQL("curDocTypes")