OPTIONS LINESIZE=88 PAGESIZE=53 NOCENTER NODATE NONUMBER NOFMTERR;
*******************************************************************;
* PROJECT NAME: Learning to Use SAS                                ;
*             PROGRAM NAME     LOCATION     DATE     PROGRAMMER    ;
TITLE1 "Source:as10p1.SAS   Disk 1999#1  10/28/99     EJS "        ;
* Description:                                                     ;
*       Create long data set with more than 256 columns  by        ;
*******************************************************************;
FILENAME longrec 'c:\temp\as10b.txt';



*****************************************;
*** Create ASCII data file with LRECL=300;
*****************************************;
DATA _NULL_;
  FILE longrec  LRECL=1000;
  ARRAY v{50};
  ***********************;
  *** Create ID variable ;
  ***********************;
  DO j=1 to 15;
    id=INT(1000*RANUNI(234231));
    DO i=1 to 50;
      num=i+id-1;
      v{i}=num;
    END;
    PUT (v1-v50) (+6);
  END;

RUN;

DATA d;
  INFILE longrec LRECL=1000 MISSOVER;
  INPUT v1-v50;

PROC PRINT;

RUN;