topic Re: Is there any statements that could push back the POINTER? in SAS Programming

Is there any statement that could push back the POINTER?

LinyuanQin — Fri, 27 Sep 2013 14:41:38 GMT

Hello everyone:

I want the data in the form below to be read into SAS as the wanted form:

original form:

>yal1 t1 awd123456789

GATA

ACC

>yal2 t2 gfs12354687987984565621321654987

TGACAG

>yal3 t3 gfs1235468798798456562132165498789879875468798652135469798987987987985465798798

ATG

TGAG

wanted form:

yal1 t1 GAT

yal1 t1 AAC

yal1 t1 C

yal2 t2 TGA

yal2 t2 CAG

yal2 t2 GC

yal3 t3 ATG

yal3 t3 TGA

yal3 t3 G

data_null_ had helped me partially deal with it, and I wonder is there any statement that could push back the

POINTER if I want to use the statment "if x="<" then PUSH THE POINTER BACK" so the statement "input @'>'" could take

effect?

Thanks for any help.

Re: Is there any statements that could push back the POINTER?

Tom — Fri, 27 Sep 2013 14:48:03 GMT

You can move the pointer back within the current input line by using + with a negative number inside of parentheses.

data test;

input char5 $char5. +(-2) char2 $char2. ;

put char5= char2= ;

cards;

12345

run;

Re: Is there any statements that could push back the POINTER?

data_null__ — Fri, 27 Sep 2013 15:53:53 GMT

Consider this variation on the program that discarded the partial sequences.

filename FT15F001 temp; 
data dna;
   infile FT15F001 n=2 eof=eof;
   input  @'>' id :$10. name :$10. / x $1. @;
   if x eq '>' then lostcard;
   length dna $3; 
   do while(x ne '>');
      dna = catt(dna,x);
      do i = 2 to 3; 
         input x $1. @;
         if x eq '>' then do; 
            output; 
            goto nextid;            
            end; 
         dna = catt(dna,x);
         end; 
      output; 
      dna = ' '; 
      input x $1. @;
      end; 
 nextid: input @1 @@;
   return; 
 eof: output; 
   stop; 
   drop i x;
   parmcards; 
>yal1 t1 awd123456789
GATA
ACC
>yal4 t4 gfs12354687987984565621321654987
TGACAG
GCG
>yal2 t2 gfs12354687987984565621321654987
TGACAG
GC
>yal3 t3 gfs1235468798798456562132165498789879875468798652135469798987987987985465798798
ATG
TGAG
;;;;
   run;

Re: Is there any statements that could push back the POINTER?

LinyuanQin — Sat, 28 Sep 2013 12:03:50 GMT

Thank you tom!

Re: Is there any statements that could push back the POINTER?

LinyuanQin — Sat, 28 Sep 2013 12:05:30 GMT

Thanks again data_null_! I really appreciate your code to this question!