|
data WORK.snactive;
do i=1 to 4;
do j=1 to 100000 until (gsno=.);
xx='E:\GSscript\data\2013-0'||put(i,1.)||'\xy2\sn_active.txt';
infile temp filevar=xx delimiter='09'x MISSOVER DSD firstobs=2 lrecl=2000;
informat gsno best32. ;
informat gsurs $40. ;
informat VAR3 $6. ;
informat VAR4 $15. ;
informat VAR5 $26. ;
informat urs $40. ;
informat id best32. ;
informat host best32. ;
informat VAR9 $19. ;
informat VAR10 best32. ;
informat VAR11 $15. ;
informat VAR12 $26. ;
informat VAR13 $14. ;
informat VAR14 anydtdtm40. ;
informat VAR15 best32. ;
informat VAR16 $19. ;
informat VAR17 $14. ;
informat VAR18 best32. ;
informat VAR19 $10. ;
format gsno best12. ;
format gsurs $40. ;
format VAR3 $6. ;
format VAR4 $15. ;
format VAR5 $26. ;
format urs $40. ;
format id best12. ;
format host best12. ;
format VAR9 $19. ;
format VAR10 best12. ;
format VAR11 $15. ;
format VAR12 $26. ;
format VAR13 $14. ;
format VAR14 datetime. ;
format VAR15 best12. ;
format VAR16 $19. ;
format VAR17 $14. ;
format VAR18 best12. ;
format VAR19 $10. ;
input
gsno
gsurs $
VAR3 $
VAR4 $
VAR5 $
urs $
id
host
VAR9 $
VAR10
VAR11 $
VAR12 $
VAR13 $
VAR14
VAR15
VAR16 $
VAR17 $
VAR18
VAR19 $
;
output;
if _ERROR_ then call symputx('_EFIERR_',1); /* set ERROR detection macro variable */
end;
end;
run;
__________________________________________________
在网上找到了一个方法,但是这样跑下去,I不进行循环,跑完i=1后,就不跑i=2的语句了,请问高人如何解决这个问题?
|