OPTIONS NODATE NONUMBER PS=60 LS=64;

DATA in;
     INPUT name $ 1-4 x1 5-6 x2 7-9 x3 10-15 x4 16 x5 17-24 id $ 25;
     IF id = 'C'
     THEN DO; c1 = 10; trans = 'Credit'; END;
     ELSE DO; c1 = 12; trans = ' Debit'; END;
CARDS;
JOHN52509824584825892345D
JAHN78934598045319253409C
JEAN97834509823450982450D
SEAN28724720952984528092D
IVAN97845978250982450984C
;
PROC PRINT DATA=in;
TITLE1 'READING IN DATA BY COLUMN';

DATA in; SET in;
     FILE PRINT;
     PUT @3  name @c1 id @14 trans
         @21 x1 +3 x2 +5 x3 +5 x4 +1 x5 ;
TITLE1 'USING THE PUT STATEMENT TO FORMAT OUTPUT';

DATA in; SET in;
     FILE PRINT;
     PUT 'My name is ' name ' and I make $' x5 +1 'per year.' /
         'That is obviously a LIE.' /  ;
RUN;