options ls=80 ps=60 nodate nonumber;

data emp1;
   input @1 idnum $4. @6 name $15. @22 address $42. @65 salary 9.;
   cards;
2388 James Schmidt   100 Apt. C Blount St. SW Raleigh
 NC 27693  92100
2457 Fred Williams   99 West Lane  Garner NC 27509              33190
2776 Robert
 Jones    12988 Wellington Farms Ave. Cary NC 27512  29025
8699 Jerry
 Capalleti
 222 West L St. Oxford NC 27587             39985
2100 Lanny Engles    293 Manning Pl. Raleigh NC 27606           30998
9857 Kathy Krupski   1000 Taft Ave. Morrisville NC 27508        38756
0987 Dolly Lunford   2344 Persimmons Branch  Apex NC 27505      44010
3286 Hoa Nguyen      2818 Long St. Cary NC 27513                87734
6579 Bryan Samosky   3887 Charles Ave. Garner NC 27508          50234
3888 Kim Siu         5662 Magnolia Blvd Southeast Cary NC 27513 77558
;

data emp2;
   input @1 idnum $4. @6 name $15. @22 address $42. @65 salary 9.;
   cards;
2388 James Schmidt   100 Apt. C Blount St. SW Raleigh NC 27693  92100
2457 Fred Williams   99 West Lane  Garner NC 27509              33190
2776 Robert Jones    12988 Wellington Farms Ave. Cary NC 27511  29025

8699 Jerry Capalleti 222 West L St. Oxford NC 27587             39985
3278 Mary Cravens    211 N. Cypress St. Cary NC 27512           35362
2100 Lanny
 Engles    293 Manning Pl. Raleigh NC 27606           30998
9857 Kathy Krupski   100 Taft Ave. Morrisville NC 27508         40456
0987 Dolly Lunford   2344 Persimmons
 Branch Trail Apex NC 27505 45110
3286 Hoa Nguyen      2818 Long St. Cary NC 27513                89834
6579 Bryan Samosky   3887 Charles Ave. Garner NC 27508          50234
3888 Kim Siu         5662 Magnolia Blvd Southwest Cary NC 27513 79958
;

   /* Sort both data sets by the ID variable. */
proc sort data=emp1;
   by idnum;
run;

proc sort data=emp2;
   by idnum;
run;

proc compare base=emp1 comp=emp2 brief;
   id idnum;
run;

________________________________________________________________________


options ls=132;

proc compare base=emp1 comp=emp2 out=result outnoequal
             outbase outcomp outdif noprint;
   id idnum;
run;

proc print data=result label noobs;
   by idnum;
   id idnum;
run;