data Compress_Mob;
length Mob_Phe$ 14;
Input Mob_Phe$ @@;
Cards;
13915625877 013145672561 134-7596-5241
1364524124 01045125421
;
run;
Data Mob;
Set Compress_Mob;
  If Length(Compress(Mob_Phe,'0123456789','k'))=11 Then Do;
  Mob_Phone=Substr(Compress(Mob_Phe,'0123456789','k'),1,11);
  If Substr(Compress(Mob_Phe),1,3) In ('130','131','132','133','150','151','152','153') Then Do;
  Flag="联通";Output;End;
  Else If Substr(Compress(Mob_Phe),1,3) In('134','135','136','137','138','139','154','155','156','157','158','159')  Then Do;
  Flag="移动";Output;End;End;
Else If Length(Compress(Mob_Phe,'0123456789','k'))=12 ;
     And Substr(Compress(Mob_Phe),1,1)='0' Then Do;
  Mob_Phone=Substr(Compress(Mob_Phe,'0123456789','k'),2,11);
  If Substr(Compress(Mob_Phe),2,3) In ('130','131','132','133','150','151','152','153') Then Do;
  Flag="联通";Output;End;
  Else If substr(Compress(Mob_Phe),2,3) In('134','135','136','137','138','139','154','155','156','157','158','159')  Then Do;
  Flag="移动";Output;End;
End;
Run;