data custer;
input id $ level $ amount 5. @;
label id='卡编号' level='级别' amount='信用额度';
cards;
1001 A 20000
1002 B 30000
103  C 5000
105  A 90000
106  A 70000
107  A 50000
108  C 2000
;
data atype btype ctype;
set cuser;
if level='A' then output atype;
else if level='B' then output btype;
else output ctype;
run;
proc print data=ctype label;
title ''c类信用卡额度'';
run;