/* fixlen.sas */

/* Instructions: set LRECL to correct length;   */
/*   i.e., change 1946 to desired value.        */
/*   SEER*Prep formats can be found on the Web: */
/*     seer.cancer.gov/seerprep                 */

filename in 'short.or.long.records.txd';
filename out 'just.right.txd';

data _null_;
  infile in lrecl=1946;
  file out lrecl=1946 pad;
  input @;
  put _infile_;
run;