SAS Code to Randomly Select NJ Pick 6 Lotto numbers

I did this little program about seven years ago on a day I was bored at work!

DATA _NULL_;
CUR = DATE();
CUR1 = PUT(CUR,MMDDYY10.);
CALL SYMPUT ('CUR',CUR1);
RUN;

%MACRO PROCESS;
%DO Z = 1 %TO 6;
%IF &Z = 1 %THEN %DO;
DATA Z1;
Y = 49 * RANUNI(0) +1;
Z1 = INT(Y);
CALL SYMPUT("Z1",Z1);
DROP Y;
RUN;
%END;
%ELSE %DO;
DATA Z&Z;
RETAIN TRUE 1;
DO WHILE (TRUE);
Y = 49 * RANUNI(0) +1;
Z&Z = INT(Y);
IF Z&Z NOT IN (%DO I = 1 %TO %EVAL(&Z - 1);
&&Z&I
%END; ) THEN DO;
OUTPUT;
TRUE = 0;
END;
END;
CALL SYMPUT("Z&Z",Z&Z);
DROP Y TRUE;
RUN;
%END;
%END;
DATA NUMBERS;
MERGE Z1 Z2 Z3 Z4 Z5 Z6;
RUN;
TITLE1 "YOUR PICK-6 LOTTO NUMBERS FOR &CUR";
PROC PRINT DATA=NUMBERS NOOBS;
RUN;
%MEND;

%PROCESS