i want to know where in the code the line number 1334 , 1355,1376 and 1397 is. Because i am using a macro, i do not see the line numbers in SAS Log.   Is there a way to print the Line numbers in SAS Log while using Macro. I will appreciate your help in this regard.     MY CODE: options SPOOL symbolgen mprint mlogic NOSOURCE ; %macro try; data S13; Set s11; Claimno= Scan(substr(string,find(string,'~CLM*')+ 5,20),1,'*'); IF (INDEX(STRING,'NTE*ADD')> 0 OR INDEX(STRING,'NTE*TPO')> 0 ) THEN DO; Bill_type=substr(String,find(string,'***',100)+3,2); Freq= substr(String,find(string,'***',100)+8,1); Cos= substr(String,find(String,'NTE*')+8,2); Spec_Code = substr(String,find(String,'NTE*')+10,3); Paid_Amt= Scan((substr(string,find(string,'AMT*D')+6,8)),1,'~'); Paid_date=substr(String,find(string,'DTP*573*D8*')+11,8); IF (INDEX (STRING,'HI*ABJ')>0 OR INDEX(string,'HI*BJ')>0 ) THEN TYPE = 'I'; IF (INDEX (STRING,'HI*APR')> 0 OR INDEX(string,'HI*PR')>0 ) THEN TYPE = '0'; end; IF (INDEX(STRING,'NTE*ADD')= 0 and INDEX(STRING,'NTE*TPO')= 0 ) THEN DO; Bill_type=substr(String,find(string,'***')+3,2); Freq= substr(String,find(string,'***')+8,1); Paid_Amt= Scan((substr(string,find(string,'AMT*D')+6,8)),1,'~'); Paid_date=substr(String,find(string,'DTP*573*D8*')+11,8); IF (INDEX (STRING,'HI*ABJ')>0 OR INDEX(string,'HI*BJ')>0 ) THEN TYPE = 'I'; IF (INDEX (STRING,'HI*APR')> 0 OR INDEX(string,'HI*PR')>0 ) THEN TYPE = '0'; end; If find(string,'HI*ABK+') >0 then do; Pr_Diag= Scan(substr(string,find(string,'HI*ABK+' )+ 7,9),1,'~'); end; else Pr_diag = Scan(substr(string,find(string,'HI*BK+' )+ 6,9),1,'~'); %do i = 1 %to 100; Lineno=&i.; LXA=cats("LX*",&i.); LX =put(lxa,$5.); f1=cats("LX*",&i.,"~SV2*");  k1= put(f1,$9.); g1=cats("LX*",&i.,"~SV1*");  p1= put(g1,$9.) ; z11= find(string,k1); * Institutional Claims ;  g11= find(string,p1); * Professional Claims ; /* Doing this for Institutional Claims */ if z11 ne 0 then do ; * Control the loop so that extra LX lines are not counted ; b11= SUBstr(string,z11+5,600); po1 = index(b11,'~LX'); po2 = index(b11,'~HL');  po3 = index(b11,'SE'); if po1 eq 0 then po1 = 10000; if po2 eq 0 then po2 = 10000; if po3 eq 0 then po3 = 10000; word1 = min(of po1-po3); b21 = substr(b11,1,word1); Rev_Codes = Scan(b21,2,'*') ; svcCodes = Scan(b21,3,'*') ; HCPCS=scan(svccodes,2,'+'); if length(Svccodes)>9 then do; * svccodes = HC+99212 no modifiers here; mod1 = Substr(svccodes,10,2); end; if find(b21,'SVD*H8490*')>0 then do; FIDA_Paid_Amt = Scan(substr(b21,find(b21,'SVD*H8490*'),16),3,'*'); * it will give error message for non FIDA files ; end; if find(b21,'SVD*VNS7') > 0 then do; Line_Paid_Amt= Scan(substr(b21,find(b21,'SVD*VNS7'),16),3,'*') ; end; else if find(b21,'SVD*40024*')> 0 then do; Line_Paid_Amt= Scan(substr(b21,find(b21,'SVD*40024*'),16),3,'*') ; end; Line_Paid_Dt1 = substr(b21,find(b21,'DTP*573*D8*')+11,8); Line_Paid_Dt= input(Line_Paid_Dt1,8.); DOS1= substr(b21,find(b21,'472*RD8*')+8,17); Clm_From= input(scan(DOS1,1,'-'),8.); Clm_To= input(scan(DOS1,2,'-'),8.); output; end; * Close the z11 loop; /* Doing this for Professional Claims */ if g11 ne 0 then do; * Control the loop so that extra LX lines are not counted ; b11= SUBstr(string,g11+5,600); pos1 = index(b11,'~LX'); pos2 = index(b11,'~HL');  pos3 = index(b11,'SE'); if pos1 eq 0 then pos1 = 10000; if pos2 eq 0 then pos2 = 10000; if pos3 eq 0 then pos3 = 10000; word = min(of pos1-pos3); b21 = substr(b11,1,word); SvcCodes = Scan(b21,2,'*') ; HCPCS=scan(svccodes,2,'+'); mod1 = Substr(svccodes,10,2); if find(b21,'SVD*H8490*')>0 then do; FIDA_Paid_Amt = Scan(substr(b21,find(b21,'SVD*H8490*'),16),3,'*'); * it will give error message for non FIDA files ; end; if find(b21,'SVD*VNS7') > 0 then do; Line_Paid_Amt= Scan(substr(b21,find(b21,'SVD*VNS7'),16),3,'*') ; end; else if find(b21,'SVD*40024*')> 0 then do; Line_Paid_Amt= Scan(substr(b21,find(b21,'SVD*40024*'),16),3,'*') ; end; Line_Paid_Dt1 = substr(b21,find(b21,'DTP*573*D8*')+11,8); Line_Paid_Dt= input(Line_Paid_Dt1,8.); DOS1= substr(b21,find(b21,'472*RD8*')+8,17); Clm_From= input(scan(DOS1,1,'-'),8.); Clm_To= input(scan(DOS1,2,'-'),8.); output; end; * Close the g11 loop;  %end; /* Drop string f1 k1 word1 lxa lx g1 p1 z11 g11 b11 pos1 pos2 pos3 word po1 po2 po3 dos1 svccodes Line_Paid_Dt1 ;*/ RUN; %mend try; %try; ... View more

I have a data that is 1 single long line. I am trying to get the value of f1 or myvar variable value inside the find function as an argument but the find function is not reading the f1 or myvar value.   I want an output as the a2 in the attached csv file but I don’t want to hardcode it. There can be a maximum of 40 LX* segments within a claimnumber. I only have two LX lines as an example in the sample data.   THE pic SHOWS WHAT I WANT.   How can I read the value of f1 or myvar inside the find function.   My Code :     %macro tri; data S11; infile "E:\Users\Documents and Settings\57260\Desktop\Learning\NYS\TR.NYE40024.837IM.B.181101101518.001.DAT.VO" dlmStr ='PRV*BI*PXC*' lrecl = 1000000000 ignoredoseof ; input String : $2000. @@; Claimno= Scan(substr(string,find(string,'~CLM*')+ 5,20),1,'*'); %do i = 1 %to 2; f1=cats("'~LX*",&i.,"~SV2*'"); CALL SYMPUT('A'||LEFT(_N_), f1) ; myvar = symget('A1'); z1= find(string,"&A1."); z2= find(string,'~LX*1~SV2*'); a1=sUBstr(string,find(String,f1)+5,19); b1=sUBstr(string,find(String,myvar)+5,19); a2= sUBstr(string,find(string,'~LX*1~SV2*')+5,19); output; %put &i; %END; RUN; %mend tri; %tri;  I will appreciate your help in this regard This is what I want ... View more