data WORK.a ;
%let _EFIERR_ = 0; /* set the ERROR detection macro variable */
infile 'E:\a.txt' delimiter='09'x MISSOVER DSD lrecl=32767 firstobs=2 ;
informat VAR1 $30. ;
informat VAR2 $3. ;
informat VAR3 $2. ;
informat VAR4 mmddyy10. ;
informat VAR5 best32. ;
informat VAR6 $13. ;
informat VAR7 $34. ;
informat VAR8 $53. ;
informat VAR9 $7. ;
informat VAR10 best32. ;
informat VAR11 best32. ;
informat VAR12 $5. ;
informat VAR13 $9. ;
informat VAR14 $14. ;
informat VAR15 $14. ;
informat VAR16 $14. ;
informat VAR17 $26. ;
informat VAR18 $8. ;
informat VAR19 $1. ;
informat VAR20 yymmdd10. ;
informat VAR21 $12. ;
format VAR1 $30. ;
format VAR2 $3. ;
format VAR3 $2. ;
format VAR4 mmddyy10. ;
format VAR5 best12. ;
format VAR6 $13. ;
format VAR7 $34. ;
format VAR8 $53. ;
format VAR9 $7. ;
format VAR10 best12. ;
format VAR11 best12. ;
format VAR12 $5. ;
format VAR13 $9. ;
format VAR14 $14. ;
format VAR15 $14. ;
format VAR16 $14. ;
format VAR17 $26. ;
format VAR18 $8. ;
format VAR19 $1. ;
format VAR20 yymmdd10. ;
format VAR21 $12. ;
input
VAR1 $
VAR2 $
VAR3 $
VAR4
VAR5
VAR6 $
VAR7 $
VAR8 $
VAR9 $
VAR10
VAR11
VAR12 $
VAR13 $
VAR14 $
VAR15 $
VAR16 $
VAR17 $
VAR18 $
VAR19 $
VAR20
VAR21 $
;
if _ERROR_ then call symputx('_EFIERR_',1); /* set ERROR detection macro variable */
run;