$SAVE NOLIST

rq$c$create$command$connection:  PROCEDURE( ci,
                                            co,
                                            reserved$word,
                                            except$ptr ) TOKEN EXTERNAL;

DECLARE ci            TOKEN,
        co            TOKEN,
        reserved$word WORD,
        except$ptr    POINTER;

END rq$c$create$command$connection;

$RESTORE