ARRAY SCD(*) SC001-SC500; DO IS = 1 TO 500; IF SUBSTR(SCD(IS),1,1) > "V" THEN I = 500; ELSE IF SUBSTR(SCD(IS),1,1) = '*' THEN DO; SUBSTR(TRIM,1,2) = SUBSTR(SCD(IS),2,2); TRIM1 = SUBSTR(SCD(IS),1,3); END; ELSE IF SUBSTR(SCD(IS),1,1) = '-' THEN DO; SUBSTR(TRIM,3,2) = SUBSTR(SCD(IS),2,2); TRIM2 = SUBSTR(SCD(IS),1,3); END;
... View more