Date:         Thu, 13 Apr 2000 13:24:01 -0400
Reply-To:     Steve Giblin <Steve_Giblin@VAPOWER.COM>
Sender:       "SAS(r) Discussion" <SAS-L@LISTSERV.UGA.EDU>
Comments:     To: Jamil Ibrahim <jibrahim@IR.UMSMED.EDU>
From:         Steve Giblin <Steve_Giblin@VAPOWER.COM>
Subject:      Re: Draw a box with cells
Comments: To: SAS-L@LISTSERV.VT.EDU
Content-type: text/plain; charset=us-ascii

Is this something that you are looking for :

/* Test Case */

DATA BASE;
 LENGTH WORD $10;
 DO I=1 TO 10;
    SUBSTR(WORD,I,1)='A';
    RAND=RANUNI(100);
    DO J=1 TO  INT(RAND*500);
       OUTPUT;
    END;
 END;
 PROC FREQ; TABLES WORD / OUT=TEMP NOPRINT;
 RUN;


 DATA _NULL_;
  SET TEMP;
  LENGTH BEGLINE TTLLINE SEPLINE FILLINE $52;
  RETAIN BEGLINE TTLLINE SEPLINE FILLINE;

  IF _N_=1 THEN DO;

   * TOP LINE OF PRINTOUT;

     BEGLINE = '+'||REPEAT('-',49)||'+';


   * TITLE CONTENT BOX;
     TTLLINE = '|';
                 SUBSTR(TTLLINE,52, 1)='|';
                 SUBSTR(TTLLINE, 3, 8)='VARIABLE';
                 SUBSTR(TTLLINE,25,12)='|      COUNT';
                 SUBSTR(TTLLINE,40,10)='|  PERCENT';

   * LINE SEPARATION;
     SEPLINE = BEGLINE;
                 SUBSTR(SEPLINE,25,1)='+';
                 SUBSTR(SEPLINE,40,1)='+';

   * CONTENT LINE BOUNDARIES;
     FILLINE = TRANWRD(SEPLINE,'-',' ');
     FILLINE = TRANWRD(FILLINE,'+','|');

  PUT BEGLINE;
  PUT TTLLINE;
  PUT SEPLINE;
  END;


  PUT FILLINE @3 WORD @28 COUNT 10. @43 PERCENT 8.2;
  PUT SEPLINE;
 RUN;


/* PRODUCES :


+--------------------------------------------------+
| VARIABLE              |      COUNT   |  PERCENT  |
+-----------------------+--------------+-----------+
| A                     |         248  |      8.84 |
+-----------------------+--------------+-----------+
| AA                    |           4  |      0.14 |
+-----------------------+--------------+-----------+
| AAA                   |         491  |     17.51 |
+-----------------------+--------------+-----------+
| AAAA                  |         469  |     16.73 |
+-----------------------+--------------+-----------+
| AAAAA                 |          80  |      2.85 |
+-----------------------+--------------+-----------+
| AAAAAA                |         463  |     16.51 |
+-----------------------+--------------+-----------+
| AAAAAAA               |         148  |      5.28 |
+-----------------------+--------------+-----------+
| AAAAAAAA              |          84  |      3.00 |
+-----------------------+--------------+-----------+
| AAAAAAAAA             |         489  |     17.44 |
+-----------------------+--------------+-----------+
| AAAAAAAAAA            |         328  |     11.70 |
+-----------------------+--------------+-----------+

*/

Steve