* Get random sample of 40 cases from each stratum. * although there are only 2 groups in the following example, the same procedure works * for any number of groups. * Posted to SPSSX-L by Raynald Levesque on 2005/06/18 * http://www.spsstools.net INPUT PROGRAM. LOOP id=1 TO 949. - COMPUTE grp=(id<825). - END CASE. END LOOP. END FILE. END INPUT PROGRAM. FREQ VAR=grp. COMPUTE draw=UNIFORM(1). RANK VARIABLES=draw BY grp /RANK INTO rdraw . SELECT IF rdraw<41. FREQ VAR=grp.