Thanks everyone. My case is more complex than the sample. But I am pleased to learn the basic idea from you guys. I did not know hash before. Is there any book recommended for a beginner?   Thanks again.    ... View more

Sorry for that.  Original data has some missing data. For each ID, they should have one of the 4 different y  (. or 0 or 1 or 2), which means 4 rows for each ID. so I need to add the missing row back. When the missing row added back, the value of x will be 0. I am not sure whether I explained it clear now.  ... View more

Thanks for your reply. I learned macro by myself. Could you give me some suggestion how to improve this macro or how to improve my general knowledge about macro?    have a good day ... View more

After I remove %put, It works. but I just added %put. where is the problem coming before it? and from the log, how did you find it?   Thanks a lot ... View more

Thanks for your suggestion. I tried %tem without macro and no problem. I tried some other macro with the %large %mi without any problem. The only difference is they only have one parameter &missper. ... View more

1605 data eq; 1606 input ID y x z w; 1607 cards; NOTE: The data set WORK.EQ has 4 observations and 5 variables. NOTE: DATA statement used (Total process time): real time 0.01 seconds cpu time 0.01 seconds 1612 ; 1613 run; 1614 1615 %macro tem (missper,n_imp,n_seed); 1616 %PUT proc mi data=eq seed=&&my_seed&i nimpute=&n_imp out=EMIMP&missper; 1617 em itprint outem = outem; 1618 var y x z w; 1619 run; 1620 %mend tem; 1621 1622 %macro mi (missper,n_imp,n_seed); 1623 %tem (&missper,&n_imp,&n_seed); 1624 %mend mi; 1625 1626 %macro large(missper,n_imp,n_seed,n_boot); 1627 data seed_long(drop=i); 1628 call streaminit(&n_seed); 1629 do i = 1 to &n_boot; 1630 x_seed = floor(rand("Uniform")*500000); output; 1631 end; 1632 run; 1633 1634 data _null_; 1635 set seed_long; 1636 call symput('my_seed'|| compress(put(_n_,4.)), x_seed); 1637 run; 1638 1639 %let i=1; 1640 %do %until (&i>&n_boot) ; 1641 %mi(&missper,&n_imp,&n_seed); 1642 %let i = %eval(&i+1); 1643 %end; 1644 %mend large; 1645 1646 %large(20,5,3456,3); MPRINT(LARGE): data seed_long(drop=i); MPRINT(LARGE): call streaminit(3456); MPRINT(LARGE): do i = 1 to 3; MPRINT(LARGE): x_seed = floor(rand("Uniform")*500000); MPRINT(LARGE): output; MPRINT(LARGE): end; MPRINT(LARGE): run; NOTE: The data set WORK.SEED_LONG has 3 observations and 1 variables. NOTE: DATA statement used (Total process time): real time 0.01 seconds cpu time 0.00 seconds MPRINT(LARGE): data _null_; MPRINT(LARGE): set seed_long; MPRINT(LARGE): call symput('my_seed'|| compress(put(_n_,4.)), x_seed); MPRINT(LARGE): run; NOTE: Numeric values have been converted to character values at the places given by: (Line):(Column). 5893:233 NOTE: There were 3 observations read from the data set WORK.SEED_LONG. NOTE: DATA statement used (Total process time): real time 0.01 seconds cpu time 0.01 seconds proc mi data=eq seed= 95419 nimpute=5 out=EMIMP20 NOTE: Line generated by the invoked macro "TEM". 1 em itprint outem = outem; -- 180 MPRINT(TEM): em itprint outem = outem; ERROR 180-322: Statement is not valid or it is used out of proper order. NOTE: Line generated by the invoked macro "TEM". 1 var y x z w; --- 180 MPRINT(TEM): var y x z w; ERROR 180-322: Statement is not valid or it is used out of proper order. MPRINT(TEM): run; MPRINT(MI): ; MPRINT(LARGE): ; proc mi data=eq seed= 450752 nimpute=5 out=EMIMP20 NOTE: Line generated by the invoked macro "TEM". 1 em itprint outem = outem; -- 180 MPRINT(TEM): em itprint outem = outem; ERROR 180-322: Statement is not valid or it is used out of proper order. NOTE: Line generated by the invoked macro "TEM". 1 var y x z w; --- 180 MPRINT(TEM): var y x z w; ERROR 180-322: Statement is not valid or it is used out of proper order. MPRINT(TEM): run; MPRINT(MI): ; MPRINT(LARGE): ; proc mi data=eq seed= 436565 nimpute=5 out=EMIMP20 NOTE: Line generated by the invoked macro "TEM". 1 em itprint outem = outem; -- 180 MPRINT(TEM): em itprint outem = outem; ERROR 180-322: Statement is not valid or it is used out of proper order. NOTE: Line generated by the invoked macro "TEM". 1 var y x z w; --- 180 MPRINT(TEM): var y x z w; ERROR 180-322: Statement is not valid or it is used out of proper order. MPRINT(TEM): run; MPRINT(MI): ; MPRINT(LARGE): ; Thanks for your suggestion. I don't know where is the 1 coming from. I am using sas for student. I can't find a strange character now.  ... View more

Thanks. I update the code.  data eq; input ID y x z w; cards; 1 1 65 40 0 2 1 34 . 0 3 0 . 23 0 4 1 48 35 0 ; run; %macro tem (missper,n_imp,n_seed); %PUT proc mi data=eq seed=&&my_seed&i nimpute=&n_imp out=EMIMP&missper.; EM itprint outem = outem; var y x z w; run; %mend tem; %macro mi (missper,n_imp,n_seed); %tem (&missper,&n_imp,&n_seed); %mend mi; %macro large(missper,n_imp,n_seed,n_boot); data seed_long(drop=i); call streaminit(&n_seed); do i = 1 to &n_boot; x_seed = floor(rand("Uniform")*500000); output; end; run; data _null_; set seed_long; call symput('my_seed'|| compress(put(_n_,4.)), x_seed); run; %let i=1; %do %until (&i>&n_boot) ; %mi(&missper,&n_imp,&n_seed); %let i = %eval(&i+1); %end; %mend large; %large(20,5,3456,3); I changed %mi with three parameters. As you can see. the EM is like this :   proc mi data=eq seed= 95419 nimpute=5 out=EMIMP20   So the parameter is right now. but it still has other error like this:  NOTE: Line generated by the invoked macro "TEM". 1 EM itprint outem = outem; -- 180 MPRINT(TEM): EM itprint outem = outem; ERROR 180-322: Statement is not valid or it is used out of proper order. NOTE: Line generated by the invoked macro "TEM". 1 var y x z w; --- 180 ... View more