Online File
Rick Aster: Professional SAS Programming Shortcuts: Contents
DATA _NULL_;
SET MAIN.CONTROL;
ARRAY NPARM{*} _NUMERIC_;
ARRAY CPARM{*} _CHARACTER_;
DO I = 1 TO DIM(NPARM);
CALL SYMPUTX(VNAME(NPARM{I}), NPARM{I});
END;
DO I = 1 TO DIM(CPARM);
CALL SYMPUTX(VNAME(CPARM{I}), CPARM{I});
END;
STOP;
RUN;