proc format: format characters to numbers

learn proc format:

data test;
input start $ end $ label;
cards;
nextag   nextag 1
#sina    #sina  2
#1000    #1000  3
;
run;

data fmt0;
retain fmtname'$testfmt' ;
set test end=last;
start=start;
end=end;
label=label;
output;
if last then do;
  hlo='O';
  label=0;
  output;
end;
run;

proc print data=fmt0;
run;

proc format cntlin=fmt0;
select $testfmt;
run;

data test;
input test $20.;
cards;
nextag
#sina
&ok
#1000
wokong
;
run;

data test_result;
set test;
id=put(test, $testfmt.)+0;
run;

proc print data=test_result;
run;

The output is:

Obs    test      id

 1     nextag     1
 2     #sina      2
 3     &ok        0
 4     #1000      3
 5     wokong     0