If you add
theCol = Column Name( As List( Loc( things, distinctlst[i] ) )[1] );
colMin = Min( Col Min( As Column( theCol ) ), As Column( theCol )[1] );
colMax = Max( Col Max( As Column( theCol ) ), As Column( theCol )[2] );
Myboxplot[axisbox( 2 )] << Min( colMin - .1 * Abs( colMax - colMin ) );
Myboxplot[axisbox( 2 )] << Max( colMax + .1 * Abs( colMax - colMin ) );
after your line
Myboxplot = mybox << report;
and before line
Myboxplot << save picture( Word( 1, Column Name( As List( Loc( things, distinctlst[i] ) )[1] ), " . " ) || ".emf", emf );
you should get what you want.
See the attached JSL file for the complete JSL update
Jim