option obs=max; proc import datafile= "//<<path>>/ABCD.xlsx" out=ABCD dbms=xlsx replace; run;
DATA ABCD1; FORMAT Current_Excess BEST.; SET ABCD ( KEEP = A B H I J P Q R S U); RETAIN RM_NAME Entity_Name RM_CODE Limit_Product_Type Account_ReferenceNo System_ID; IF INDEX (A, "Name :")>0 THEN RNAME = B; IF INDEX (A, "Customer :")>0 THEN Entity = B; IF INDEX (A, "Code :")>0 THEN CODE = B; IF INDEX (A,"Product :") THEN Limit_Product = B; IF INDEX (A,"Id :") THEN ReferenceNo = B; IF INDEX (A,"Id :") THEN ID = B; CURRENCY =P; Current_Excess = Q; /*Current_Excess = INPUT (Current_Exces,BEST.);*/ NO_OF_DAYS_InExcess =U ; Excess_Sin = S; CODE = I; NAME = J; EXCESS_SINCE = INPUT (EXCESS_SIN, COMMA8.); EXCESS_SINCE = EXCESS_SINCE - 21916; FORMAT EXCESS_SINCE DATE11.; LENGTH FILENAME $50. REPORT $30.; FILENAME = "ABCD"; REPORT = "ABCD"; IF CURRENCY IN (" ", "Fin Ccy") THEN DELETE; DROP A B H I J S P Q R U EXCESS_SIN; RUN;
PROC SORT DATA = ABCD1 OUT = ABCD_FINAL noduprecs; BY NAME; RUN;
Sample code for a file....
... View more