OPTIONS LINESIZE=88 PAGESIZE=53 NOCENTER NODATE NONUMBER NOFMTERR;
*******************************************************************;
* PROJECT NAME: Learning to Use SAS                                ;
*             PROGRAM NAME     LOCATION     DATE     PROGRAMMER    ;
TITLE1 "Source:LEC13P6.SAS    Disk 1998#1 10/28/98      EJS "      ;
* Description:                                                     ;
*       Illustration reading files with more than 256 columns  by  ;
*     inclusion of the LRECL options in an INFILE statement        ;
*     where file is identified in a FILENAME statement             ;
*     and no LRECL occurs                                          ;
*     SAS goes to a new line to finish reading a record            ;
*       Input data:  LEC13P1.DAT                                   ;
*******************************************************************;
FILENAME longrec 'c:\temp\lec13p1.dat';

         **************************;
         *** Organizing Files in   ;
         ***  programs             ;
         *** Use default LRECL     ;
         **************************;


DATA d;
  INFILE  longrec;
  INPUT v1-v30;

PROC PRINT DATA=d;
  TITLE2 "Table 1. Listing of Data miss-read with long record length using an INFILE statement";

       **********************;
       *** Include MISSOVER *;
       ***  to prevent going*;
       ***  to a new line   *;
       **********************;


DATA d1;
  INFILE  longrec MISSOVER;
  INPUT v1-v30;

PROC PRINT DATA=d1;
  TITLE2 "Table 1. Listing of Data miss-read with long record length, with MISSOVER option";


RUN;