* This program loads two data sets and merges them;

DATA DESCRIPTIONS;
  INFILE 'K:\MYWORK\CHOCOLATE.TXT' TRUNCOVER;
  INPUT CODENUM $ 1-4 NAME $ 6-14 DESCRIPTION $ 15-60;

DATA SALES;
  INFILE 'K:\MYWORK\CHOCSALES.TXT';
  INPUT CODENUM $ 1-4 PIECESSOLD 6-7;

PROC PRINT DATA=DESCRIPTIONS;
RUN;

PROC PRINT DATA=SALES;
RUN;

PROC SORT DATA=SALES;
  BY CODENUM;
RUN;

* Merge the two data sets by CODENUM;
DATA CHOCOLATES;
  MERGE SALES DESCRIPTIONS;
  BY CODENUM;

PROC PRINT DATA=CHOCOLATES;
RUN;