OPTIONS LINESIZE=88 PAGESIZE=53 NOCENTER NODATE NONUMBER NOFMTERR;
*******************************************************************;
* PROJECT NAME: Learning to Use SAS                                ;
*             PROGRAM NAME     LOCATION     DATE     PROGRAMMER    ;
TITLE1 "Source:LEC15P12.SAS    Disk 1998#1 10/28/98      EJS "     ;
* Description:                                                     ;
*    Address List from SAS Language and Procedures, Ver 6, pp382   ;
*      including follow-up status with corrected length            ;
*******************************************************************;
FILENAME contacts 'c:\temp\lec15p5.txt';


DATA new3 ;
 INFILE contacts;
 LENGTH fu $8.;
 INPUT id       2.
       name & $20.
       addr & $18.
      citys & $16.
        zip ;
 LABEL addr="Street/Address:/ADDR"
      citys="City/State:/CTST"
         fu="Follow-up/Status:/FU";
 IF ID IN (1,3,5,6) THEN fu='active';
   ELSE fu='drop out';

PROC PRINT DATA=new3 SPLIT="/";
  ID id;
  VAR name addr citys zip fu;
  TITLE2 "Table 2.  List of Subjects with Follow-up Status and right Length";
RUN;