something like this would work. data cobol(drop=rectype);   infile cards truncover;    input rectype $200. @;    if index(rectype,'EXTRACT FILE') then return;    input rolltype $1 pno $4 p1_num_s $1 p1_num $5; output; datalines; 101111STR1 EXTRACT FILE       2012040120120402 15666+12345+4174.99YJohn Doe            1234 15667+12346+6179.99YJohn Doe2           1235 103455STR1 EXTRACT FILE       2012040120120402000000+1234.99 ; run; ... View more

The id datatype is int, sys_date is datetime and tran_amount is decimal(25,6)  from the source system. ... View more