-- $Source: /commtar/monoBANK/CICS_INTF/tsk2.ada,v $ 
-- $Revision: 1.3 $ $Date: 88/03/25 18:23:17 $ $Author: chris $ 
with CICS_Task_Control; use CICS_Task_Control;
procedure tsk3 is
    subtype c_area is string(1..2);
    package TKCA is new Communication_Area_Pkg(C_Area);
    ca : c_area := "T1";
    begin
	suspend;
	TKCA.setup_return("TSK2", ca);
	return;
    end;

with CICS_Task_Control; use CICS_Task_Control;
with CICS_Terminal_Control;
procedure tsk2 is
    subtype c_area is string(1..2);
    package TKCA is new Communication_Area_Pkg(C_Area);
    package TC renames CICS_Terminal_Control;
    ptr : TKCA.communication_area_pointer;
    begin
	ptr := TKCA.Comm_Area;
	if ptr.all = "T1" then
	    TC.Send_Text("Received comm_area");
	else
	    TC.Send_Text("Received junk: " & ptr.all);
	end if;
    end;