How to identify a particular value in a varibale

[alexdsa310]

I have a dataset which has variable and i need to pick up a value and create a macro variable like below

proc contents data=adam.adlb noprint out=_cont (keep=name);
run;

data null;
     set _cont (where=(length(name)=7 and substr(upcase(name),4,3)='CAT'));
     call symputx('domain', substr(upcase(name), 6, 2), 'T');
run;

The value which i need is "PARCAT1" but there is another value named "PARCAT2" in the data. How can i create domain with name as "PARCAT1" in my data.

[RW9 · Accepted solution]

Sorry, your post confuses me, why create a Domain - which is CDISC terminology for a particular group of variables - with the name of a variable?

As for your question:

data _null_;
  set sashelp.vcolumn (where=(name="PARCAT1"));
  if _n_=1 then call symputx('domain',substr(name,6,2),'T');
run;