proc datasets library = ia nolist;
   audit cap2000;
   initiate;
   user_var who $20 label = 'Who made the change'
            why $20 label = 'Why the change was made';
run;

proc sql;
   insert into ia.cap2000
      set FlightID = 'IA00040',
          RouteID  = '0000100',
          Origin = 'CDG',
          Dest = 'LHR',
          Cap1st = 12,
          CapBusiness = 20,
          CapEcon = 120,
          Date = '03JUN2000'd,
          who = 'Administrator',
          why = 'New Flight'; 

proc print data = ia.cap2000 (type=audit);
   title 'Audit Trail for ia.cap2000';
run;

/*  To terminate the audit trail  */

proc datasets library = ia nolist;
   audit cap2000;
   terminate;
run;
quit;