data A ;
infile f1;
LENGTH ID TIME_STAMP $20;
LENGTH PAGE_NAME $50;
input;
A =tranwrd(tranwrd(_infile_, "ID~", "="), "TIME_STAMP~","=");
ID=SCAN(SCAN(A, 2, "="), 1, "|");
A =SCAN(A, 3, "=");
A =tranwrd(A, "PAGE_NAME~", "=");
TIME_STAMP = SCAN(SCAN(A, 1, "="), 1, "|");
A =SCAN(A, 2, "=");
A =tranwrd(A, "PORTLET_NAME~", "=");
PAGE_NAME = SCAN(SCAN(A, 1, "="), 1, "|");
A =SCAN(A, 2, "=");
run;