-- $Source: /commtar/monoBANK/CICS_INTF/tsk_tst.ada,v $ 
-- $Revision: 1.1 $ $Date: 88/03/19 15:21:58 $ $Author: chris $ 
with CICS_Task_Control; use CICS_Task_Control;
procedure tsk_tst is
    begin
	Enqueue("tsk_tst enqueue");
	Dequeue("tsk_tst enqueue");
	Link("PA02");
	Transfer_Control("PA06");
    end;