*! version 1.6.0b 2/27/1999 - remove _peife and all  (STB-57: stg152)
*! version 1.6.0a 2/7/1999 - jsl: V6
* 10/24/99 turned over to jf

capture program drop _pedum
program define _pedum, rclass
    version 6
    syntax varlist(max=1) [if] [in]
    capture assert `varlist' == 0 | `varlist' == 1 | `varlist' == . `if' `in'
    return scalar dummy = _rc==0
end