How to solve the JMP Alarm with error "deleted object reference: day << Get in access or evaluation of 'Glue' in JMP18 version

ThoPhan — Mon, 28 Apr 2025 03:20:10 GMT

This script is running well in JMP14 version, but when I using in JMP18 version the alarm happened.

Hopefully getting a help from everyone.

Thank you so much

Re: How to solve the JMP Alarm with error "deleted object reference: day << Get in access or evaluation of 'Glue' in JMP18 version

jthi — Mon, 28 Apr 2025 05:30:19 GMT

Whatever days is referring to (number edit box or something like that is my guess) has been deleted. Impossible to say why because we cannot see the script

Names Default To Here(1);

nw = New Window("", days = Number Edit Box());
Show(days << get);
nw << close window;
Show(days << get);

Re: How to solve the JMP Alarm with error "deleted object reference: day << Get in access or evaluation of 'Glue' in JMP18 version

ThoPhan — Tue, 29 Apr 2025 05:23:19 GMT

Hi jthi,

Thanks for an approaching this, below is the script and I also attached the file.

Clear Log();

DefaultStartTime = (today()-12*3600);

DefaultEndTime = Today();

User = Get Environment Variable( "UserName" );

HourAlertRateDefault = 5;

SixHourAlertRateDefault = 5;

start_week = Week Of Year( Today() );

list_weeks = {};

For( i = 1, /*i<=10 &*/ i <= start_week, i++, //the i<=10 limits the combobox to last 10 weeks

//iwwtodate(start_week - (i - 1), year(today()), 2 /*Monday*/ )

Insert Into( list_weeks, Eval( "WW" || Char( start_week - (i - 1) ) ) )

);

User = Get Environment Variable( "UserName" );

// Define time function.

iwwtodate = Function( {_ww_, _year_, _dayofweek_},

//Local Variables

{_ww01thisyear_ = 0, _sundayww01_ = 0},

_ww01thisyear_ = Informat( "01Jan" || Char( _year_ ) );

_sundayww01_ = _ww01thisyear_ - (Day Of Week( _ww01thisyear_ ) - 1) * 24 * 3600;

(_ww_ - 1) * 7 * 24 * 3600 + _sundayww01_ + (_dayofweek_ - 1) * 24 * 3600

;

);

date_box = Function( //makes Graham's datebox that is hard to mess up

{timething = Today()},

{newbox},

current_ver = Left( JMP Version(), 2 );

If( Num( current_ver ) >= 11,

newbox = Eval(

Substitute(

Name Expr(

Number Edit Box(

timething, //Eval(Sub()) because of JMP quirk

10, //just need this because JMP doesn't default a width

<<Set function(

Function( {self},

{},

If( Is Missing( self << get ),

self << Set( Eval( DUMMY ) )//sets the date to the timething argument

)

<<Set Format( Format( "m/d/y h:m:s", 23, 0 ) );//makes datetime format for the box (gives calendar)

)

Expr( DUMMY ), timething

)

newbox = Text Edit Box( Char( Format( Timething, "m/d/y h:m:s" ) ) )

);

//newbox;

);

// End Define time function.

// Create expr window popup + Time checking

expr_window = Expr(

QueryOptionsChooser = New Window( "CHT PWL SPL CV Quick Monitoring " || User || "",

<<Modal,

<<Return Result,

V List Box(

Text Box( " " ),

Panel Box( "Do you want the Report to Auto-Refresh?",

H List Box(

V List Box( Text Box( "Method" ), tautorefresh = Combo Box( {"Run Once", "Auto Refresh"}, Show( tautorefresh << Get() ) ) ),

Text Box( " " ),

V List Box(

Text Box( "Option" ),

Option_select = Radio Box( {"Both", "Only SPEC-PL Last 30mins","Only PWL, SPL, CV " }, show( Option_select << get() ) )

V List Box(

Text Box( "Refresh every " ),

trefresh = Radio Box( {"5 minutes", "20 minutes", "60 minutes", "2 hours"}, Show( trefresh << Get() ) )

Text Box( " " ),

V List Box( Text Box( "Refresh speed " ), rspeed_cb = Check Box( {"Fast"} ), rspeed_cb << Set( 1, 1 ) ),

Text Box( " " ),

V List Box( Text Box( "Time Range Data for Auto refresh" ), days = Radio Box( {"1 Day", "0.5 Day", "6 Hours", "2 Hours"} ) ),

Text Box( " " ),

Panel Box( "Please select the timeframe",

H List Box(

V List Box(

//Text box ("Time Method"),

//method=Radio Box( {"Days Ago", "Date Range"}),

Text Box( "Time Method" ),

method = Combo Box( {"Days Ago", "Date Range"} ),

Text Box( " " ),

V List Box( Text Box( "Days Ago" ), days = Radio Box( {"1.5", "3.5", "7", "2 Hours"} ) ),

Text Box( " " ),

V List Box(

Text Box( "Date Range" ),

V List Box(

startdatebox = date_box( Today() - 3.5 * 24 * 60 * 60 );

enddatebox = date_box( Today() );

startdate = startdatebox;,

enddate = enddatebox,

Spacer Box( Size( 10, 10 ) ),

H List Box(

Spacer Box( Size( 10, 10 ) ),

Panel Box( "Choose Plant:",

H List Box(

Spacer Box( Size( 10, 0 ) ),

V List Box( "Plant", PlantSelect = Radio Box( {"DMT1", "DMT2", "KMT1", "PGT1", "PGT2"} ), PlantSelect << set( 1 ) ),

Spacer Box( Size( 10, 0 ) ),

)

Spacer Box( Size( 20, 10 ) ),

Panel Box( "Choose transaction time window:",

Text Box( " " ),

H List Box(

Text Box( "Start Time: " ),

StartTimeBox = H List Box(

StartTimePickBox = date_box( DefaultStartTime );

StartTimePick = StartTimePickBox;

//RocoTimeStartPick = date_box( (StartTimePick << Get) - 3600 );

Text Box( " " ),

Button Box( "Set to 12:00a.m.",

LastTime = StartTimePickBox << Get;

StartTimePickBox << Delete;

StartTimeBox << Append(

StartTimePickBox = date_box( 86400 * Floor( LastTime / 86400 ) );

StartTimePick = StartTimePickBox;

//RocoTimeStartPick = date_box( 86400 * Floor( (LastTime - 3600) / 86400 ) );

//RocoTimeStartPick = date_box( (StartTimePick << Get) - 3600 );

);

//RocoTimeStartPick = date_box( (StartTimePickBox << Get) - 3600 );

Text Box( " " ),

H List Box(

Text Box( "End Time: " ),

EndTimeBox = H List Box(

EndTimePickBox = date_box( DefaultEndTime );

EndTimePick = EndTimePickBox;

Text Box( " " ),

Button Box( "Set to 12:00a.m.",

LastTime = EndTimePickBox << Get;

EndTimePickBox << Delete;

EndTimeBox << Append(

EndTimePickBox = date_box( 86400 * Floor( LastTime / 86400 ) );

EndTimePick = EndTimePickBox;

);

Spacer Box( Size( 10, 10 ) ),

Spacer Box( Size( 20, 20 ) ),

//RocoTimeEndPick = date_box( (EndTimePick << Get) + 3600 );

H List Box( Align( Right ), Spacer Box(), Button Box( "OK" ), Button Box( "Cancel" ) )

) //end overall VListBox()

);

If( QueryOptionsChooser["Button"] == -1,

StopRunningTheThing

);

// Decleration Time to refresh.

days = days << Get;

dateoffset = Match( days, 1, "24", 2, "12", 3, "6", 4, "2" );

ar = tautorefresh << get;

ref = trefresh << get;

refresh = Match( ref, 1, "5", 2, "20", 3, "60", 4, "120" );

//rspeed = rspeed_cb << get;

//Process event Refresh ticked

If( ar == 2,

StartTimePick = date_box( Today() - Num( dateoffset ) * 3600 );

EndTimePick = date_box( DefaultEndTime );

);

RocoTimeStartPick = date_box( (StartTimePick << Get) - 3600 ); // Get roco time 1hour before CHT time

RocoTimeEndPick = date_box( (EndTimePick << Get) + 3600 );// Get roco time 1hour later CHT time

CHTTimeStartPick = date_box( (StartTimePick << Get) - 1800 );

CHTTimeEndPick = date_box( (EndTimePick << Get) + 1800 );

SPL_PL_start = date_box( (EndTimePick << Get) - 1800 );

SPL_PL_end = date_box( EndTimePick << Get );

//Collect user selections

PlantSelection = QueryOptionsChooser["PlantSelect"];

PlantName = Match( PlantSelection, 1, "DMT1", 2, "DMT2", 3, "KMT1", 4, "PGT1", 5, "PGT2" );

//show(PlantName);

StartTimeSelection = Format( StartTimePick << Get, "m/d/y h:m:s" );

EndTimeSelection = Format( EndTimePick << Get, "m/d/y h:m:s" );

RocoTimeStart = Format( RocoTimeStartPick << Get, "m/d/y h:m:s" );

RocoTimeEnd = Format( RocoTimeEndPick << Get, "m/d/y h:m:s" );

CHTTimeStart = Format( CHTTimeStartPick << Get, "m/d/y h:m:s" );

CHTTimeEnd = Format( CHTTimeEndPick << Get, "m/d/y h:m:s" );

SPLPL_timestart = Format( SPL_PL_start << Get, "m/d/y h:m:s" );

SPLPL_timeend = Format( SPL_PL_end << Get, "m/d/y h:m:s" );

option_selection = QueryOptionsChooser["Option_select"];

Print( option_selection );

Print( PlantName );

Print( StartTimeSelection );

Print( EndTimeSelection );

Print( RocoTimeStart );

Print( RocoTimeEnd );

Print( CHTTimeStart );

Print( CHTTimeEnd );

Print( refresh || " Refresh time" );

expr_TimeCheck = Expr(

TimeFixWindow = New Window( "Time Selection Error!",

<<Modal,

<<Return Result,

H List Box(

V List Box(

Text Box( " " ),

Text Box( "Your Start Time was later than your End Time! Care to try again?" ),

Text Box( " " ),

Text Box( "You chose:" ),

H List Box(

Text Box( " " ),

V List Box(

H List Box( Text Box( "Start Time: " || StartTimeSelection ), ),

H List Box( Text Box( "End Time: " || EndTimeSelection ) )

)

Text Box( " " ),

H List Box(

Text Box( "Start Time: " ),

StartTimePickBox = date_box( DefaultStartTime );

StartTimePick = StartTimePickBox;

Text Box( " " ),

H List Box(

Text Box( "End Time: " ),

EndTimePickBox = date_box( DefaultEndTime );

EndTimePick = EndTimePickBox;

Text Box( " " ),

)

H List Box( Align( Right ), Spacer Box(), OKButton = Button Box( "OK" ), Button Box( "Cancel" ) )

);

StartTimeSelection = Format( StartTimePick << Get, "m/d/y h:m:s" );

EndTimeSelection = Format( EndTimePick << Get, "m/d/y h:m:s" );

If( TimeFixWindow["Button"] == -1,

StopRunningTheThing

);

//Recurse as needed

If( Informat( StartTimeSelection, "m/d/y h:m:s" ) > Informat( EndTimeSelection, "m/d/y h:m:s" ),

Eval( expr_TimeCheck ),

Eval( expr_Scrap_SQL )

);

); //end expr_TimeCheck

If( Informat( StartTimeSelection, "m/d/y h:m:s" ) > Informat( EndTimeSelection, "m/d/y h:m:s" ),

Eval( expr_TimeCheck ),

VisionStartTime = Format(

Max( Informat( StartTimeSelection, "m/d/y h:m:s" ), 86400 * Floor( (Informat( EndTimeSelection, "m/d/y h:m:s" ) - 86400) / 86400 ) ),

"m/d/y h:m:s"

);

If( Today() - Informat( EndTimeSelection, "m/d/y h:m:s" ) > 86400,

VisionEndTime = Format(

Min( Informat( EndTimeSelection, "m/d/y h:m:s" ), 86400 * Ceiling( (Informat( EndTimeSelection, "m/d/y h:m:s" ) - 86400) / 86400 ) ),

"m/d/y h:m:s"

VisionEndTime = Format(

Min( Informat( VisionStartTime, "m/d/y h:m:s" ) + 86400, Informat( EndTimeSelection, "m/d/y h:m:s" ) ),

"m/d/y h:m:s"

)

);

SPL_expr = Expr(

QueryInfo = "DRIVER=SQL Server;SERVER=" || PlantName || "MESSQLODS;APP=Microsoft Office XP;WSID=FS-1261;DATABASE=ODS;Trusted_Connection=Yes";

//QueryInfo = "DRIVER=SQL Server;SERVER=" || PlantName ||

//"messqlods.fs.local;APP=Microsoft Office XP; WSID=FS-10967;DATABASE=ODS;Trusted_Connection=Yes";

Re: How to solve the JMP Alarm with error "deleted object reference: day << Get in access or evaluation of 'Glue' in JMP18 version

jthi — Tue, 29 Apr 2025 05:38:04 GMT

You are using Modal window and trying to access the values AFTER the modal window has been closed -> those values/references are gone at that point. I can see you are using << Return Result, so you could utilize that instead of << Get, so instead of

days = days << Get;

use

days = QueryOptionsChooser["days"];

Note that you might have to do similar changes to also display boxes.

Other option would be to collect the results already inside the modal when Button Box "OK" is pressed, so

Button Box("OK")

would change to

Button Box("OK",
	days = days << get;
)

And again, similar changes might be required elsewhere

topic Re: How to solve the JMP Alarm with error "deleted object reference: day << Get in access or evaluation of 'Glue' in JMP18 version in Discussions

How to solve the JMP Alarm with error "deleted object reference: day << Get in access or evaluation of 'Glue' in JMP18 version

Re: How to solve the JMP Alarm with error "deleted object reference: day << Get in access or evaluation of 'Glue' in JMP18 version

Re: How to solve the JMP Alarm with error "deleted object reference: day << Get in access or evaluation of 'Glue' in JMP18 version

Re: How to solve the JMP Alarm with error "deleted object reference: day << Get in access or evaluation of 'Glue' in JMP18 version