topic Re: Get a jrp like script from a report window in Discussions

Get a jrp like script from a report window

Samu — Fri, 09 Jun 2023 23:42:22 GMT

Hello everyone,

I am trying to save my report script to a jrp file as explained in:

However, I don't have direct access to the Graph Builder that generated my Report Window.

I'm getting my reports via

Get Window List(Type("Reports"));

And now I need to extract the script to save it as a text file, however I can't figure out how to get that script.

When using << Get Script I only end up with things like

GraphBuilderBox(ScaleBox(ParallelScaleBox(ScaleBox(ScaleBox(ScaleBox(ScaleBox(ScaleBox(ScaleBox(GraphBuilderContainerBox(Graph[...]

How do I get a text that's more like

Graph Builder(
 Size( 1896, 975 ),
 Show Control Panel( 0 ),
 Show Legend( 0 ),
 Variables(...

Re: Get a jrp like script from a report window

Jeff_Perkinson — Wed, 04 Nov 2020 15:19:23 GMT

Take a look at the Get Scriptable Object() message. You can use that to get access to the platform (i.e., Graph Builder) in a report.

Names Default To Here( 1 );
Open( "$SAMPLE_DATA/Big Class.jmp" );
biv = bivariate( y( :weight ), x( :height ) );
rbiv = biv << report;
bivobj = rbiv << Get Scriptable Object();
bivobj<<get script();

Re: Get a jrp like script from a report window

Samu — Wed, 04 Nov 2020 15:48:00 GMT

Thank you for the reply. However I didn't manage to solve my issue yet.

After opening an existing .jrp file, which in turn opens a data table and a report window, the following scripts:

wList = Get Window List(Type("Reports"));
print(wList[1] << report << Get Scriptable Object() << get script());

wList = Get Window List(Type("Reports"));
print(wList[1] << Get Scriptable Object() << get script());

will both result in

HeadBox(V List Box(Box(OutlineBox(H List Box(NoCloneBox(IfBox(H List Box(V List Box(H List Box(ButtonBox, ButtonBox, ButtonBox), BorderBox(V List Box(H List Box(PopupBox, Text Box("40 Columns")), V List [... etc.]

Not the kind of script I am looking for. This seems to be a special case, since I'm starting with an existing report window. What am I doing wrong?

Re: Get a jrp like script from a report window

Jeff_Perkinson — Wed, 04 Nov 2020 16:14:35 GMT

It could be that your messages in:

print(wList[1] << report << Get Scriptable Object() << get script());

aren't being executed in the order you think they are.

Compare the results of these two:

Names Default To Here( 1 );
Open( "$SAMPLE_DATA/Big Class.jmp" );
biv = bivariate( y( :weight ), x( :height ) );
rbiv = biv << report;
Print( (rbiv << Get Scriptable Object()) << get script() );

Print( rbiv << Get Scriptable Object() << get script() );

Re: Get a jrp like script from a report window

Samu — Wed, 04 Nov 2020 16:41:28 GMT

Interesting. By doing it step by step like this:

wList = Get Window List(Type("Reports"));
rep =  wList[1] << report;
so = rep << Get Scriptable Object();
skr = so << get script();
Print( skr );

I am now getting error messages that Object 'HeadBox' does not recognize the message 'report'; as well as Object 'HeadBox' does not recognize the message 'Get Scriptable Object'; if I cut the report message. So Get Window List(Type("Reports")); gets me a headbox that can only recognize Get Script, which in turn gives me the same old

HeadBox(V List Box(Box(OutlineBox(H List Box(NoCloneBox(IfBox(H List Box

I already learned something, but I'm still not there yet. How do I get the Scriptable Object of my window?

Re: Get a jrp like script from a report window

txnelson — Wed, 04 Nov 2020 17:16:12 GMT

The "Get Window List" returns the Top Parent for the window.

The "Get Scriptable Object" is a message to an Outline Box(). Therefore, this modification should get you what you want.

Names Default To Here( 1 );

dt = Open( "$SAMPLE_DATA/big class.jmp" );
dis = Distribution( Continuous Distribution( Column( :height ) ) );

x = (Get Window List( Type( "Reports" ) )[1][Outline Box( 1 )] << get scriptable object());

x << get script;

Re: Get a jrp like script from a report window

Samu — Wed, 04 Nov 2020 17:53:31 GMT

Thank you very much, that did it!

Re: Get a jrp like script from a report window

MikeD_Anderson — Wed, 11 Jan 2023 22:04:38 GMT

This little nugget should be in the JSL Cookbook! Thanks @txnelson ! @DonMcCormack

Re: Get a jrp like script from a report window

DonMcCormack — Thu, 12 Jan 2023 13:50:37 GMT

Thanks @MikeD_Anderson! I agree, it would make a good addition.