13 lines
189 B
Text
13 lines
189 B
Text
|
mainproc: proc options(main) reorder;
|
||
|
|
|
||
|
|
subproc: proc;
|
||
|
|
dcl subvar char init ('X');
|
||
|
|
|
||
|
|
put skip data(subvar);
|
||
|
|
subvar = 'Q';
|
||
|
|
end subproc;
|
||
|
|
|
||
|
|
call subproc();
|
||
|
|
call subproc();
|
||
|
|
end mainproc;
|