ydb/yql/essentials/tests/s-expressions/suites/InMem/ExtractMembers.yqls

(
#comment
(let config (DataSource 'config))

(let res_sink (DataSink 'result))
(let str1 (AsStruct '('a (Uint32 '1)) '('b (String 'a)) '('c (Bool 'true))))
(let str2 (AsStruct '('a (Uint32 '2)) '('b (String 'b)) '('c (Bool 'false))))
(let list1 (AsList str1 str2))
(let world (Write! world res_sink (Key) (ExtractMembers list1 '('a)) '('('type))))
(let world (Write! world res_sink (Key) (ExtractMembers (Collect (Iterator list1)) '()) '('('type))))
(let world (Write! world res_sink (Key) (ExtractMembers (Just str1) '('a 'c)) '('('type))))
(let world (Commit! world res_sink))
(return world)
)