*hand14.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;
  WHERE NAME='GRANT';

DATA _NULL_;                   *printing obs on several lines;
 SET TEMP;
 FILE PRINT NOTITLES header=HEAD;
  IF UNITS=1 THEN PUT ' *';
  ELSE IF UNITS>10 THEN PUT @8 '**';
   PUT @13 DATE MMDDYY8.
       @35 'COMPANY:         ' COMP $11. /
       @35 'COMPANY ID:      ' COMP_ID   /
       @35 'ITEM ORDERED:    ' ITEM_ID $ITEMFMT. /
       @35 'UNITS ORDERED:   ' UNITS 2. //;
  RETURN;
   HEAD:
  put @26 'Lake Systems. Inc' /
      @22 'Transaction Record Report' /
      @19 'for Sales Representative GRANT' /
      @26 'First Quater 1995'///
      @8   59*'_';
 return;
RUN;


DATA _NULL_;                   *trailing @;
 SET TEMP;
 FILE PRINT NOTITLES header=HEAD;
  IF UNITS=1 THEN PUT ' *' @;
  ELSE IF UNITS>10 THEN PUT @8 '**' @;
   PUT @13 DATE MMDDYY8.
       @35 'COMPANY:         ' COMP $11. /
       @35 'COMPANY ID:      ' COMP_ID   /
       @35 'ITEM ORDERED:    ' ITEM_ID $ITEMFMT. /
       @35 'UNITS ORDERED:   ' UNITS 2. //;
  RETURN;
   HEAD:
  put @26 'Lake Systems. Inc' /
      @22 'Transaction Record Report' /
      @19 'for Sales Representative GRANT' /
      @26 'First Quater 1995'///
      @8   59*'_';
 return;
RUN;