I have the following piece of code. It works. DATA     T_GROUP1                   T_GROUP2                   T_GROUP3   ;                           SET T_GROUP ;                               IF GROUP_COUNT = 1 THEN DO ;                   CURRENT = INT(TIME()*100);                   RANDOM = INT(RANUNI(CURRENT)*100000);        OUTPUT  T_GROUP1;                          END ;                                       ELSE                                        IF GROUP_COUNT = 2 THEN DO ;                    CURRENT = INT(TIME()*100);                    RANDOM = INT(RANUNI(CURRENT)*100000);         OUTPUT  T_GROUP2;                          END ;                                       ELSE                                        IF GROUP_COUNT = 3 THEN DO ;                    CURRENT = INT(TIME()*100);                    RANDOM = INT(RANUNI(CURRENT)*100000);         OUTPUT  T_GROUP3;                          END ;                                       RETURN ;     PROC SORT DATA=T_GROUP1 ; BY RANDOM ; PROC SORT DATA=T_GROUP2 ; BY RANDOM ; PROC SORT DATA=T_GROUP3 ; BY RANDOM ;            T_GROUP has a variable called MAXNUM that captured the maximum number of GROUP_COUNT, in this case, MAXNUM=3. Suppose I would like to make the above ‘repeatable’ code into a DO LOOP, I think I might need something like DO I = 1 TO 3 THEN DO; Suppose my input data are not always the same, sometimes could have more and sometimes could have less number of GROUP_COUNT and I would like to maintain the above code structure to reflect that. Looks like I really would like to make MAXNUM into some kind of Global variables and as well a macro to call the whole thing. How can I do it??                      ... View more

I have a piece of SAS code: DATA EANEADTGP(KEEP=            ID       DATE_LAST_EARNING                   AMOUNT_LAST_EARNING                                                                        PHONE_LAST_EMPLOYER            EARN_ID                                                                                       TOTAL_AMOUNT_LAST_EARNING                                                                                          FULL_LIST_PHONE_LAST_EMPLOYER)                     ;                                                                   LENGTH              TOTAL_AMOUNT_LAST_EARNING          8                                                         FULL_LIST_PHONE_LAST_EMPLOYER  $130                              ;                                                                   SET EANEADTBUILDUP ;                                                   BY ID    DATE_LAST_EARNING ;                                             IF FIRST.DATE_LAST_EARNING THEN DO ;                                      TOTAL_AMOUNT_LAST_EARNING = 0 ;                                        FULL_LIST_PHONE_LAST_EMPLOYER = '*' ;                               END ;                                                                  LAGEARN_ID=LAG(EARN_ID) ;                                              IF LAGEARN_ID NE EARN_ID THEN DO ;                                        TOTAL_AMOUNT_LAST_EARNING + AMOUNT_LAST_EARNING ;                      FULL_LIST_PHONE_LAST_EMPLOYER=TRIM(FULL_LIST_PHONE_LAST_EMPLOYER)                                                                                 ||'/'||TRIM(PHONE_LAST_EMPLOYER) ;    END;   ELSE DO;                                                      TOTAL_AMOUNT_LAST_EARNING = AMOUNT_LAST_EARNING ;          FULL_LIST_PHONE_LAST_EMPLOYER = PHONE_LAST_EMPLOYER ;   END;                                                     RETURN ;                    And here is some of my output (some field contents are being modified and PHONE_LAST_EMPLOYER is a $15 field):                                 FULL_LIST_      DATE_                     TOTAL_AMOUNT_   PHONE_LAST_     LAST_     AMOUNT_LAST_   PHONE_LAST_ LAST_EARNING   EMPLOYER        EARNING       EARNING      EMPLOYER        ID        EARN_ID                                                                       9000       */12345678      20091125         9000    12345678       111111111      13      32300        /_             20091125        23300    _              111111111      18        40300        /_             20091125         8000    _              111111111      19        10000       */_             20070926        10000    _              222222222      3        10000       _               20070926        10000    _              222222222      3        20000        /_             20070926        10000    _              222222222      4        22800        /_             20070926         2800    _              222222222      5         13500       */0788884444    20100326        13500    0788884444     333333333      10        73500        /_             20100326        60000    _              333333333      11        96000        /_             20100326        22500    _              333333333      12        124050        /0766446644    20100326        28050        0766446644     333333333      9              Looks like the TOTAL_AMOUNT_LAST_EARNING works. E.g., looks at the 4 th to 8 th records: Both 4 th and 5 th have the TOTAL_AMOUNT = 10000 as for the AMOUNT because the EARN_ID changes not. 6 th has TOTAL_AMOUNT = 20000 (10000 + 10000) and 7 th has TOTAL_AMOUNT=22800(10000+10000+2800). However FULL_LIST_PHONE_LAST_EMPLOYER does not seem to have what I expected in return. E.g., the last record I expect to be: */0788884444/_/_/0766446644 and it’s not happening. (At this stage I’m really not fuzzy in getting rid of ‘_’)  And yet looks like FULL_LIST can only get the PHONE_LAST_EMPLOYER from the current record and forget everything else in the past or being reset as ‘ ‘.  How did it happen? Do I need to make FULL_LIST_PHONE_LAST_EMPLOYER into some sort of array or nested loop??   ... View more

Here is the basic structure of my code: DATA SUSBUILD0; SET SUSBUILD0; LENGTH COUNTER 2; COUNTER eq 1; LAGPID eq LAG(PID); LAGBENTYPE eq LAG(BEN_TYPE_CODE); IF _N_ GT 1 THEN DO; IF (LAGPID eq PID AND LAGBENTYPE eq BEN_TYPE_CODE) THEN COUNTER eq COUNTER + 1; END; RETURN; Looks like this do loop can be only visited once and stop or somehow as it loops through, it always carries the old memory that COUNTER eq 1, so COUNTER becomes 1 + 1 eq 2. As a matter of fact, none of my output records have COUNTER carry values either than 1 or 2. I have a feeling that there must be something simple I have missed in my do loop. Sorry for I asked such a dump question. ... View more

I have the following piece of SAS code worked and gave me 34 rows of records returned as expected. DATA IRSLOAD.IRSLOAD(KEEP = IRS_CRN, IRS_REVRSN, IRS_PAY, IRS_REG, IRS_METH, ENV, IRS_PTNRPID, IRS_LINKNO, IRS_PTNRKWD, IRS_LINKRSN, IRS_AREA, RANDOM); SET IRSLOAD.IRSLOAD; RETAIN I 1; IF IRS_PAY='FTB' THEN DO; IF I LE 34 AND IRS_AREA = ('AS1') THEN DO; IRS_METH = 'PHO'; OUTPUT IRSLOAD.IRSLOAD; I = I + 1; END; RETURN; And then I rewrote it as a macro being called by SAS, I have 5315 rows in return and have no IRS_METH written as 'PHO' and as if the output data is exactly the same as the input. Can anyone give me some advice? %MACRO SEL(IRS_AREA,NUM); %LET I = 1; %IF &I LE NUM AND &IRS_AREA=IRS_AREA %THEN %DO; IRS_METH = 'PHO'; OUTPUT IRSLOAD.IRSLOAD; &I = &I + 1; %END; %MEND SEL; DATA IRSLOAD.IRSLOAD(KEEP = IRS_CRN, IRS_REVRSN, IRS_PAY, IRS_REG, IRS_METH, ENV, IRS_PTNRPID, IRS_LINKNO, IRS_PTNRKWD, IRS_LINKRSN, IRS_AREA, RANDOM); SET IRSLOAD.IRSLOAD; IF IRS_PAY='FTB' THEN DO; %SEL(AS1,34); END; RETURN; Thank you cynthia : ) Message was edited by: willow2010 ... View more