Assuming in your actual data file each record format HD, BS, AS etc. occur on a single line then something like this skeleton program may help.
data want;
infile "your file" dlm='|' lrecl=32000;
informat block $2.;
/*informats to describe other variables to be read go here*/
input block @;
/* each input statement below should read the variables
for that block
*/
Select (block);
when ('AS')
input ASvar1 ASvar2 ASvar3 ;
when ('BS')
input bsvar1 bsvar2 bsvar3 ;
when ('CS')
input CSvar1 CSvar2 CSvar3 ;
when ('HD')
input HDvar1 HDvar2 HDvar3 ;
when ('RS')
input RSvar1 RSvar2 RSvar3 ;
otherwise;
end;
run;
You would have to supply the variable names and attributes from some documentation.
... View more