/*View Raw Data File Before Writing Code*/
proc fslist fileref='transact.dat';
run;

/*Create two data sets*/

data credits debits;
   infile 'transact.dat';
   input Date: date9. Type $ Amount : comma9. @@; 
                                    /*Hold until end of record*/
/*Use Type to determine whether credit or debit*/
   if Type='C' then output credits; 
   if Type='D' then output debits;
run;

proc print data=credits;
   title 'Credits to Account';
run;

proc print data=debits;
   title 'Debits to Account';
run;