-- $Source: /commtar/monoBANK/CICS_INTF/tsk1.ada,v $ 
-- $Revision: 1.2 $ $Date: 88/03/26 08:56:18 $ $Author: chris $ 
with CICS_Task_Control; use CICS_Task_Control;
procedure tsk1 is
    subtype c_area is string(1..2);
    package TKCA is new Communication_Area_Pkg(C_Area);
    ca : c_area := "T1";
    begin
	TKCA.Link("PA02", ca, 2);
	TKCA.Transfer_Control("PA06", ca, 2);
    end;