The following example initiates as a coroutine the procedure COROOTEEN, and passes the parameters X, Y, 7, and X + Y + Z. COROOTEEN has the task designator T associated with it.

CALL COROOTEEN(X, Y, 7, X + Y + Z) [T]

The following example initiates a coroutine using the NAME task attribute:

TASK TSK;
PROCEDURE P_EXT; EXTERNAL;
REPLACE TSK.NAME BY "SYSTEM/INTERFACE.";
CALL P_EXT[TSK];