OPTIONS LINESIZE=88 PAGESIZE=53 NOCENTER NODATE NONUMBER NOFMTERR;
*******************************************************************;
* PROJECT NAME: Learning to Use SAS                                ;
*             PROGRAM NAME     LOCATION     DATE     PROGRAMMER    ;
TITLE1 "Source:LEC15P6.SAS    Disk 1998#1 10/28/98      EJS "      ;
* Description:                                                     ;
*    Address List from SAS Language and Procedures, Ver 6, pp382   ;
*      skipping over embedded blanks, and using long field widths  ;
*******************************************************************;
FILENAME contacts 'c:\temp\lec15p5.txt';


DATA new1;
 INFILE contacts;
 INPUT id       2.
       name & $25.
       addr & $25.
      citys & $25.
        zip ;
 LABEL addr="Street/Address:/ADDR"
      citys="City/and/State:/CITYS"
       zip="Zip/Code:/ZIP";



PROC PRINT DATA=new1 SPLIT="/";
  ID id;
  VAR  name addr citys zip;
  TITLE2 "Table 2a.  Listing of Names and Address in with Long Field Width";

PROC CONTENTS DATA=new1;
  TITLE2 "Table 2b.  Contents of Address List with long Field Widths";
RUN;