*hand16.txt;

DATA TRANSACT;
 INFILE 'A:\TRANSACT.TXT';
 LENGTH COMP  $10.;
 INPUT NAME $ EMPL_ID @17 DATE DATE7. @28 COMP $10. @38 COMP_ID ITEM_ID $ UNITS;
CARDS;
FOSTER   546    23FEB95    ABC INC     326   P02   3
FOSTER   546    19FEB95    INFO INC    153   M33   2
FOSTER   546    03MAR95    INFO INC    153   M33   2
FOSTER   546    26JAN95    INFO INC    153   S03   2
FOSTER   546    11FEB95    INFO INC    153   S03   1
GRANT    258    19JAN95    MACRO INC   134   D11   5
GRANT    258    09FEB95    MACRO INC   134   D11   2
GRANT    258    09FEB95    MICRO INC   132   C32   1
GRANT    258    05MAR95    MICRO INC   132   S03   4
GRANT    258    12JAN95    MICRO INC   132   V02   11
GRANT    258    09FEB95    MICRO INC   132   V02   1
GRANT    258    13FEB95    MOD INC     345   M33   1
GRANT    258    12FEB95    NEW INC     330   C32   2
GRANT    258    18FEB95    NEW INC     330   Z01   2
GRANT    258    03MAR95    TECH INC    043   C32   1
GRANT    258    02FEB95    TECH INC    043   D34   25
GRANT    258    11FEB95    TECH INC    043   D34   5
GRANT    258    03MAR95    TECH INC    043   Z01   2
FOSTER   546    20FEB95    XYZ INC     320   C32   6
;
PROC FORMAT;
 VALUE  $ITEMFMT   'C32'='CABLE'    'P02'='SOFTWARE'   'D11'='DISK DRIVE'  'S03'='SYSTEM'
                   'D34'='DISKS'    'V02'='VDT'        'M33'='MODEM'       'Z01'='Z-80';

PROC SORT DATA=TRANSACT OUT=TEMP; BY DATE;

FILENAME FOSTER 'A:\FOSTER.TXT';
FILENAME GRANT 'A:\GRANT.TXT';

DATA _NULL_;                  * outputing 2 files;
 SET TEMP end=endfile;
  IF NAME ='FOSTER' THEN
     FILE FOSTER PRINT NOTITLES header=HEAD linesleft=space;
  IF NAME ='GRANT' THEN
     FILE GRANT PRINT NOTITLES header=HEAD linesleft=space;
  if space<8 then do;
    link foot;
    put _page_;
  end;
   PUT @13 DATE MMDDYY8.
       @35 'COMPANY:         ' COMP $11. /
       @35 'COMPANY ID:      ' COMP_ID   /
       @35 'ITEM ORDERED:    ' ITEM_ID $ITEMFMT. /
       @35 'UNITS ORDERED:   ' UNITS 2. / ;
  if endfile=1 then link foot;
  RETURN;
   HEAD:
  put @26 'Lake Systems. Inc' /
      @22 'Transaction Record Report' /
      @19 'for Sales Representative  '  NAME /
      @26 'First Quater 1995'///
      @8   59*'_';
 return;
  foot:
    put  ' ';
RUN;