Posting the reply I got from JMP support here for visibility. Works for JMP 17.0.0
Names Default To Here( 1 );
dt = Open( "$SAMPLE_DATA/Big Class.jmp" );
dists = dt << Distribution(
By( :Sex ),
SendToByGroup(
{:sex == "F"},
Continuous Distribution( Column( :weight ), Normal Quantile Plot( 1 ) )
),
SendToByGroup( {:sex == "M"}, Continuous Distribution( Column( :weight ) ) )
);
For Each( {dist}, dists, expr = dist << get script;
Print( Arg( Extract Expr( expr, Where( Wild() ) ) ) )
);
dist << Get Where Expr works for JMP 18