Append Journals

[#1]

i am running a for loop to select different data tables and run variability chart for select parameters. The script is creating different report journals for each data table. Can any one one please help me in merging all the report journals together.

Var_chart= Function ({select_y,select_x},
current data table (dt_sub);
Rep_chart = Variability Chart(
Y( Eval (select_y) ),
X( Eval (select_x) ),
Max Iter( 100 ),
Conv Limit( 0.00000001 ),
Number Integration Abscissas( 128 ),
Number Function Evals( 65536 ),
Analysis Type( "Choose best analysis (EMS REML Bayesian)" ),
Std Dev Chart( 0 ),
Variability Summary Report(1),
Historical Sigma( 0 ),
Show Group Means( 1 ),
Show Grand Mean( 1 ),
Show Box Plots( 1 )
),


Rep_var_chart = Rep_chart << Report;
Rep_var_chart << Page Break;
Rep_var_chart << Journal Window;
Rep_Jrn << Append (Rep_var_chart);

close (dt_sub, No Save);
);

ma =1;
col_name_list ={};
Rep_Jrn= New Window ("Report", << Journal);
For (l=1,l <= NItems (test_list), l++,
open_path1 = L_path1||test_list[l]||"_"||"Com"||".jmp";
dt_sub= open (open_path1);
col_name_list[ma] = dt_sub << get column names ();
//ma=ma+1;


New Window( "Select Tests for Analysis", <<Modal,

V List Box(

Text Box( "Select Y,Response" ),

para_select1 = List Box( col_name_list[ma] ),

Text Box( "Select X,Response" ),
para_select2 = List Box( col_name_list[ma] ),

Button Box( "OK", test_list1 = para_select1 << get selected;
test_list2 = para_select2 << get selected ),

);

);

print(test_list1);
print (test_list2);

Var_chart (test_list1,test_list2);

ma=ma+1;

//close(dt_sub, NO Save);
);

[#2]

If after your

ma = ma + 1;

you just need to add

Rep_Jrn << append(report(Rep_chart));

[#3]

i tried, but its not working. Giving an error.. 

Not a display in access or evaluation of 'append' , append( Report( Rep_chart ) ) /*###*/

[#4]

Here is an example of being able to append platform output to a Journal.  Apparently, you are not properly pointing to the journal, or to the report output.

Names Default To Here( 1 );
dt = Open( "$SAMPLE_DATA/big class.jmp" );
nw = New Window( "example", <<journal );

dis = Distribution( Continuous Distribution( Column( :height ) ) );

nw << append( Report( dis ) );

dis << close window;

biv = Bivariate( Y( :height ), X( :weight ) );

nw << append( Report( biv ) );

biv << close window;