I found a method to handle the special characters. BUT I'm too much of a rookie to get the data back into the macro processor with out it being reinterpreted. Ideas?
data hmm ;
set dt;
length a10 $32767;
a1 = strip(rwnm);
a2 = strip(CODE_TYPE);
a3 = strip(htmlencode(CODE,'quot amp gt lt apos 7bit'));
a4 = strip(MODIFIER);
a5 = strip(DESCRIPTION);
a6 = strip(htmlencode(RESPONSE,'quot amp gt lt apos 7bit'));
a7 = strip(ADD_CODE);
a8 = strip(ADD_MODIFIER);
a9 = strip(ADD_LINE_NUMBER);
a10 = strip(htmlencode(COMMENT,'quot amp gt lt apos 7bit'));
Run;
I tried the following but it just reads the " and other replaced characters as sas code
proc sql;
select
cat("put '<tr name = ""row", strip(a1) ,""" >';"),
cat("put '<tD><input name=""ln", strip(a1) ,""" type=""text"" value =""" , strip(a1) ,""" size=""3"" tabindex=""-1"" readonly /></tD>';"),
cat("put '<tD><input name=""ct", strip(a1) ,""" type=""text"" value =""" , strip(a2) ,""" size=""10"" tabindex=""-1"" readonly /></tD>';"),
cat("put '<tD><input name=""cd", strip(a1) ,""" type=""text"" value =""" , strip(a3) ,""" size=""10"" tabindex=""-1"" readonly /></tD>';"),
cat("put '<tD><input name=""md", strip(a1) ,""" type=""text"" value =""" , strip(a4) ,""" size=""6"" tabindex=""-1"" readonly /></tD>';"),
cat("put '<tD><input name=""dc", strip(a1) ,"""type=""text"" value =""" , strip(a5) ,""" size=""100"" tabindex=""-1"" readonly /></tD>';"),
cat("put '<tD><select name=""asp", strip(a1) ,""" style=""width: 200px,"" > <option value =""" , strip(a6) , """>" , strip(a6) , "</option> </select></tD>';"),
cat("put '<tD><select name=""acd", strip(a1) ,""" style=""width: 50px,"" > <option value =""" , strip(a7) , """>" , strip(a7) , "</option> </select></tD>';"),
cat("put '<tD><input name=""amd", strip(a1) ,""" type=""text"" value =""" , strip(a8) ,""" size=""6"" /></tD>';"),
cat("put '<tD><input name=""aln", strip(a1) ,""" type=""text"" value =""" , strip(a9) ,""" size=""2"" /></tD>';"),
cat("put '<tD><input name=""asC", strip(a1) ,""" type=""text"" value =""" , strip(a10) ,""" size=""60"" ></tD> </tr>';")
into
:rw_lst1- :rw_lst&m_ln,
:ln_lst1 - :ln_lst&m_ln,
:ct_lst1 - :ct_lst&m_ln,
:cd_lst1 - :cd_lst&m_ln,
:md_lst1 - :md_lst&m_ln,
:dc_lst1 - :dc_lst&m_ln,
:asp_lst1 - :asp_lst&m_ln,
:acd_lst1 - :acd_lst&m_ln,
:amd_lst1 - :amd_lst&m_ln,
:aln_lst1 - :aln_lst&m_ln,
:asc_lst1 - :asc_lst&m_ln
from hmm;
%do q = 1 %to &m_ln;
&&rw_lst&q;
&&ln_lst&q;
&&ct_lst&q;
&&cd_lst&q;
&&md_lst&q;
&&dc_lst&q;
&&asp_lst&q;
&&acd_lst&q;
&&amd_lst&q;
&&aln_lst&q;
&&asc_lst&q;
%end;
... View more