DEFINE SIM (!POS !TOKENS(1)).
MATRIX.
SAVE UNIFORM(!1,1) /OUTFILE * .
END MATRIX.
!ENDDEFINE .

DEFINE Boot (!POS !TOKENS(1) ).
SET MXLOOPS 1000000.
MATRIX.
GET Data / FILE * / VAR ALL.
COMPUTE SIndex=MAKE(NROW(DATA) *!1,3,0).
LOOP #=1 TO !1.
COMPUTE Offset=(#-1)*NROW(DATA) .
+  LOOP ##=1 TO 1000.
+    COMPUTE SIndex(Offset + ##,1)=#.
+    COMPUTE SIndex(Offset + ##,2)=##.
+  END LOOP.
END LOOP.
COMPUTE CaseInd=TRUNC(UNIFORM(NROW(DATA) *!1,1)*NROW(DATA)  + 1).
LOOP #=1 TO NROW(SIndex).
+  COMPUTE SIndex(#,3)=Data(CaseInd(#)).
END LOOP.
SAVE ({SIndex,CaseInd})/ OUTFILE * /VARIABLES Sample Index DataY OrigCase.
END MATRIX.
!ENDDEFINE .
NEW FILE.
** Call as follows ** .
* Simulates 1000 draws from Uniform *.
SIM 1000.

**Bootstrap 100 samples of Size (N: NROWS in data )from whatever active
file.
Boot 100.
----
SPLIT FILE BY Sample .
Blah Blah Blah....

David Marso

How much experience/expertise does it take to understand what is going on?    Most people would have to take it on faith.
Probably very machine efficient.  But I'm a curmudgeon about readability.

In the 60's the saying was "Machines are expensive, people are cheap."

Nowadays machines are cheap.

However, I do have to admit the I learn from the eloquence of your solutions.

Of course once SPSS lets one save to a dataset rather than a file none of of solutions will have to write to the disk.

it would be interesting to hear from list members how long it took them to understand my syntax and your syntax.

Perhaps this simplified version will bust through some of the cranial blockage ;-) Experience/Expertise is earned through experience and sometimes hard knocks and faith is highly over-rated when it comes to 'programming'.

Caveat: I post my code for free.  I don't take responsibility for others use of it.  Whether they experience an epiphany, a craniogasm or relative frustration is not part of the equation.

--

DEFINE SIM (!POS !TOKENS(1)).
MATRIX.
SAVE UNIFORM(!1,1) /OUTFILE * .
END MATRIX.
!ENDDEFINE .


DEFINE Boot (!POS !TOKENS(1) /!POS !TOKENS(1)).

SET MXLOOPS 1000000.
MATRIX.
+  GET Data / FILE * / VAR ALL.
+  COMPUTE p=NROW(DATA).

+  COMPUTE nrepXp=!1*p.
+  COMPUTE SIndex=MAKE(nrepXp,1,0).
+  COMPUTE CaseInd=TRUNC(UNIFORM(nrepXp,1)* p  + 1).
+  LOOP #=1 TO nrepXp.
+    COMPUTE SIndex(#)=Data(CaseInd(#)).
+  END LOOP.
+  SAVE ({CaseInd,SIndex}) / OUTFILE * /VARIABLES OrigCase DataY .
END MATRIX.
COMPUTE samplenum=TRUNC(($CASENUM-1)/!2)+1 .
EXECUTE /*Optional */.

!ENDDEFINE .

NEW FILE.
SIM 1000.

Boot 100 1000.

David Marso