$LARGE NOLIST OPTIMIZE(3)

BubbleStub : DO;

$INCLUDE (`w0`incs`plmlits.inc~text~)
$INCLUDE (`w0`incs`os.error.inc~text~)

CpBubbleDriver : PROCEDURE (req, pPl, pError) CLEAN;
    DCL req WORD;
    DCL (pPl, pError) PTR;
    DCL error BASED pError WORD;

    error = eNotSupport;
    END;

END;