how to use JSL "select where" function to select data and subset

[#1]

can help to suggest how to use JSL "select where" function to select data and subset?

for example, I want to select cell match (XY018, XY023, XY033, XY038, XY039, XY050), it may from different lot (lot column may have more than 10 different groups, so how to use JSL  use required criteria above to select "SITE" column and subset the data, thanks a lot.

LOT	SITE	Data
LL01	XY001	0.546728
LL01	XY002	0.055965
LL01	XY003	0.303851
LL01	XY004	0.858696
LL01	XY005	0.089441
LL01	XY006	0.6769
LL01	XY007	0.764777
LL01	XY008	0.232966
LL01	XY009	0.464361
LL01	XY010	0.647894
LL01	XY011	0.197118
LL01	XY012	0.824098
LL01	XY013	0.288582
LL01	XY014	0.758274
LL01	XY015	0.360068
LL01	XY016	0.996029
LL01	XY017	0.557039
LL01	XY018	0.579821
LL01	XY019	0.84759
LL01	XY020	0.5814
LL01	XY021	0.249923
LL01	XY022	0.126439
LL01	XY023	0.815976
LL01	XY024	0.340023
LL01	XY025	0.228621
LL01	XY026	0.356278
LL01	XY027	0.815186
LL01	XY028	0.483265
LL01	XY029	0.950447
LL01	XY030	0.397944
LL01	XY031	0.179747
LL01	XY032	0.892906
LL01	XY033	0.831573
LL01	XY034	0.207603
LL01	XY035	0.644884
LL01	XY036	0.557065
LL01	XY037	0.00514
LL01	XY038	0.692865
LL01	XY039	0.793528
LL01	XY040	0.545025
LL01	XY041	0.908561
LL01	XY042	0.020471
LL01	XY043	0.656038
LL01	XY044	0.785081
LL01	XY045	0.426485
LL01	XY046	0.331112
LL01	XY047	0.158288
LL01	XY048	0.025213
LL01	XY049	0.262702
LL01	XY050	0.373579
LL01	XY051	0.440254
XY02	XY001	0.163887
XY02	XY002	0.371756
XY02	XY003	0.403243
XY02	XY004	0.003273
XY02	XY005	0.487236
XY02	XY006	0.137888
XY02	XY007	0.29748
XY02	XY008	0.955243
XY02	XY009	0.012711
XY02	XY010	0.576878
XY02	XY011	0.944287
XY02	XY012	0.776797
XY02	XY013	0.158493
XY02	XY014	0.598779
XY02	XY015	0.714543
XY02	XY016	0.29589
XY02	XY017	0.969492
XY02	XY018	0.086959
XY02	XY019	0.046462
XY02	XY020	0.037904
XY02	XY021	0.360544
XY02	XY022	0.534296
XY02	XY023	0.35869
XY02	XY024	0.380169
XY02	XY025	0.17056
XY02	XY026	0.012633
XY02	XY027	0.59057
XY02	XY028	0.716395
XY02	XY029	0.136862
XY02	XY030	0.849967
XY02	XY031	0.17172
XY02	XY032	0.870706
XY02	XY033	0.415646
XY02	XY034	0.434663
XY02	XY035	0.588884
XY02	XY036	0.845628
XY02	XY037	0.831929
XY02	XY038	0.149653
XY02	XY039	0.222923
XY02	XY040	0.383863
XY02	XY041	0.965367
XY02	XY042	0.019468
XY02	XY043	0.968852
XY02	XY044	0.418934
XY02	XY045	0.122715
XY02	XY046	0.705794
XY02	XY047	0.882526
XY02	XY048	0.836149
XY02	XY049	0.330755
XY02	XY050	0.21195
XY02	XY051	0.474435

[#2 · Accepted solution]

I strongly suggest checking out JMP Scripting Index, JMP help https://www.jmp.com/support/help/en/15.2/index.shtml#page/jmp/select-rows-2.shtml# and JMP Scripting Guide https://www.jmp.com/content/dam/jmp/documents/en/support/jmp151/scripting-guide.pdf 

You could first check out how JMP would do it from Select Where menu:

Fill out dialog:

And from red triangle you can copy the code:

Script:

Names Default To Here(1);

dt = New Table("Untitled",
	Add Rows(102),
	Compress File When Saved(1),
	New Script(
		"Subset Script",
		Data Table("Untitled") << Subset(
			Selected Rows(0),
			Rows([18, 23, 33, 38, 39, 50, 69, 74, 84, 89, 90, 101]),
			Selected columns only(0)
		)
	),
	New Column("LOT",
		Character,
		"Nominal",
		Set Values(
			{"LL01", "LL01", "LL01", "LL01", "LL01", "LL01", "LL01", "LL01", "LL01",
			"LL01", "LL01", "LL01", "LL01", "LL01", "LL01", "LL01", "LL01", "LL01",
			"LL01", "LL01", "LL01", "LL01", "LL01", "LL01", "LL01", "LL01", "LL01",
			"LL01", "LL01", "LL01", "LL01", "LL01", "LL01", "LL01", "LL01", "LL01",
			"LL01", "LL01", "LL01", "LL01", "LL01", "LL01", "LL01", "LL01", "LL01",
			"LL01", "LL01", "LL01", "LL01", "LL01", "LL01", "XY02", "XY02", "XY02",
			"XY02", "XY02", "XY02", "XY02", "XY02", "XY02", "XY02", "XY02", "XY02",
			"XY02", "XY02", "XY02", "XY02", "XY02", "XY02", "XY02", "XY02", "XY02",
			"XY02", "XY02", "XY02", "XY02", "XY02", "XY02", "XY02", "XY02", "XY02",
			"XY02", "XY02", "XY02", "XY02", "XY02", "XY02", "XY02", "XY02", "XY02",
			"XY02", "XY02", "XY02", "XY02", "XY02", "XY02", "XY02", "XY02", "XY02",
			"XY02", "XY02", "XY02"}
		)
	),
	New Column("SITE",
		Character(16),
		"Nominal",
		Set Values(
			{"XY001", "XY002", "XY003", "XY004", "XY005", "XY006", "XY007", "XY008",
			"XY009", "XY010", "XY011", "XY012", "XY013", "XY014", "XY015", "XY016",
			"XY017", "XY018", "XY019", "XY020", "XY021", "XY022", "XY023", "XY024",
			"XY025", "XY026", "XY027", "XY028", "XY029", "XY030", "XY031", "XY032",
			"XY033", "XY034", "XY035", "XY036", "XY037", "XY038", "XY039", "XY040",
			"XY041", "XY042", "XY043", "XY044", "XY045", "XY046", "XY047", "XY048",
			"XY049", "XY050", "XY051", "XY001", "XY002", "XY003", "XY004", "XY005",
			"XY006", "XY007", "XY008", "XY009", "XY010", "XY011", "XY012", "XY013",
			"XY014", "XY015", "XY016", "XY017", "XY018", "XY019", "XY020", "XY021",
			"XY022", "XY023", "XY024", "XY025", "XY026", "XY027", "XY028", "XY029",
			"XY030", "XY031", "XY032", "XY033", "XY034", "XY035", "XY036", "XY037",
			"XY038", "XY039", "XY040", "XY041", "XY042", "XY043", "XY044", "XY045",
			"XY046", "XY047", "XY048", "XY049", "XY050", "XY051"}
		)
	),
	New Column("Data",
		Numeric,
		"Continuous",
		Format("Best", 12),
		Set Values(
			[0.546728, 0.055965, 0.303851, 0.858696, 0.089441, 0.6769, 0.764777,
			0.232966, 0.464361, 0.647894, 0.197118, 0.824098, 0.288582, 0.758274,
			0.360068, 0.996029, 0.557039, 0.579821, 0.84759, 0.5814, 0.249923,
			0.126439, 0.815976, 0.340023, 0.228621, 0.356278, 0.815186, 0.483265,
			0.950447, 0.397944, 0.179747, 0.892906, 0.831573, 0.207603, 0.644884,
			0.557065, 0.00514, 0.692865, 0.793528, 0.545025, 0.908561, 0.020471,
			0.656038, 0.785081, 0.426485, 0.331112, 0.158288, 0.025213, 0.262702,
			0.373579, 0.440254, 0.163887, 0.371756, 0.403243, 0.003273, 0.487236,
			0.137888, 0.29748, 0.955243, 0.012711, 0.576878, 0.944287, 0.776797,
			0.158493, 0.598779, 0.714543, 0.29589, 0.969492, 0.086959, 0.046462,
			0.037904, 0.360544, 0.534296, 0.35869, 0.380169, 0.17056, 0.012633,
			0.59057, 0.716395, 0.136862, 0.849967, 0.17172, 0.870706, 0.415646,
			0.434663, 0.588884, 0.845628, 0.831929, 0.149653, 0.222923, 0.383863,
			0.965367, 0.019468, 0.968852, 0.418934, 0.122715, 0.705794, 0.882526,
			0.836149, 0.330755, 0.21195, 0.474435]
		)
	)
);

/*
//Select where solution from JMP:
dt << Row Selection(
	Select where(
		:SITE == "XY018" | :SITE == "XY023" | :SITE == "XY033" | :SITE == "XY038" |
		:SITE == "XY039" | :SITE == "XY050"
	)
);
*/

//easier to maintein solution with list
sitelist = {"XY018", "XY023", "XY033", "XY038", "XY039", "XY050"};
dt << Select Where(ContainsItem(:SITE, sitelist));

//subset
dt << Subset(Outputtable("newtable"), Selected Rows, Selected columns only(0));