capture log close
log using wf4-loops-error1c, replace text

//  program:    wf4-loops-error1c.do \ for stata 9
//  task:       error in a loop command
//                -
//  project:    workflow chapter 4
//  author:     scott long \ 2008-10-24

//  #0
//  setup

version 9.2
set linesize 80
clear // changed to clear all in stata 10
macro drop _all

//  #1
//  load data

use wf-loops, clear

//  #2
//  loop command

set trace on
foreach varname in "sdneighb sdsocial sdchild sdfriend sdwork sdmarry" {
    gen B`varname' = `varname'
    replace  B`varname' = 0 if `varname'==1 | `varname'==2
    replace  B`varname' = 1 if `varname'==3 | `varname'==4
}

log close
exit

2008-10-24 \ initial version for wf09-part#.pkg