我现在有一批用户名，有的是有邮箱的，有的是没有邮箱的，我想把有邮箱的数据标识并提取出来，请问如何操作。

原数据：
例：

        data a;
                input a $40.;
                cards;
        XX
        XXX@QQ.COM
        XXXX@SINA.COM
        XXXXXX
        XXXXXXX
        ;
        run;



我想在a列中，如果出现了 @  这个符号，就在变量B中标识为1，请问高手如何操作。