MVSFORUMS.com

[kris_madras]

Hi,
I have written a snippet to see the funtioning of attach statement in pl/i
in mainframe but its not working, giving error messages. Anybody help
me by correcting the following code or can provide a small example in
pl/1 in mainframes


/* PROGRAM TO DEMONSTRATE MULTITHREADING */
/* */
threads : procedure options(main);
dcl a float decimal(5) init(10);
dcl b float decimal(5) init(20);
dcl sum float decimal(5) init(0);
dcl sub float decimal(5) init(0);
attach sum_para thread(t1);
attach sub_para thread(t2);

call sum_para;
call sub_para;
/* */
sum_para : procedure ;
wait(thread(t2));
sum = a + b;
put list(a,b,sum);
end sum_para;
/* */
/* */
sub_para : procedure ;
sub = a - b;
put list(a,b,sub);
end sub_para;
end threads;




Thanks
Kris