*! torumm.ado version 1.1.2 fw 12/23/00 convert stata files to rumm format
*! syntax varlist(numeric) [, FILEname(string) FACTors(varlist numeric max=3) REVerse(varlist) IDvar(varname) ]
*! rev 1.1.0 (12/18/01): adds length of label check
/*
itemSeq Sequence of study items
testType E = extended/polytomous M = multiple choice
itemCode A maximum 5 character code describeing each item
itemState A 30 character description (label)
respType N = numeric A = alpha
respNumb The number of possible responses
scKey Scoring key: blank or R for reversed
respSeq 0 to 5 for numeric, A to E for alpha (the lowest level of response)
itemSeq testType itemCode itemState respType respNumb scKey respSeq
1 E I0001 Descriptor for Item 1 N 4 1
2 E I0002 Descriptor for Item 2 N 4 R 1
3 E I0003 Descriptor for Item 3 N 4 1
4 E I0004 Descriptor for Item 4 N 4 R 1
5 E I0005 Descriptor for Item 5 N 4 R 1
6 E I0006 Descriptor for Item 6 N 4 R 1
7 E I0007 Descriptor for Item 7 N 4 1
8 E I0008 Descriptor for Item 8 N 4 R 1
9 E I0009 Descriptor for Item 9 N 4 R 1
10 E I0010 Descriptor for Item 10 N 4 1
11 E I0011 Descriptor for Item 11 N 4 R 1
12 E I0012 Descriptor for Item 12 N 4 1
13 E I0013 Descriptor for Item 13 N 4 R 1
14 E I0014 Descriptor for Item 14 N 4 1
15 E I0015 Descriptor for Item 15 N 4 1
16 E I0016 Descriptor for Item 16 N 4 R 1
*/
program define torumm
version 6.0
syntax varlist(numeric) [, FILEname(string) FACTors(varlist numeric max=3) REVerse(varlist) IDvar(varname) ]
tokenize `varlist'
set more off
preserve
/* Process spc file items */
qui dropvars itemSeq testType itemCode itemStat respType respNumb scKey respSeq
di "Building SPC file ..."
qui gen byte itemSeq = .
qui gen str1 testType = "E"
qui gen str5 itemCode = ""
qui gen str30 itemStat = ""
qui gen str1 respType = "N"
qui gen byte respNumb = .
qui gen str1 scKey = ""
qui gen byte respSeq = .
if "`ttype'" == ""{
local ttype E
}
if "`rtype'" == ""{
local rtype N
}
local wcount: word count `varlist'
local varnum 0
while `"`1'"' != ""{
local varnum `varnum' + 1
local label : variable label `1'
local vword "`1'"
* di "`1'" " " "`label'"
* di `vanum'
qui replace itemStat = "`label'" if _n == `varnum'
qui replace itemStat = "`vword'" if itemStat == "" & _n == `varnum'
qui replace itemSeq = _n if _n == `varnum'
qui replace itemCode = "I" + string(_n) if _n == `varnum'
qui su `1'
qui replace respNumb = (r(max) - r(min)) + 1 if _n == `varnum'
qui replace respSeq = r(min) if _n == `varnum'
qui bothlist `1' \ `reverse'
if "`r(list)'" == "`1'" {
qui replace scKey = "R" if _n == `varnum'
}
mac shift
}
qui compress
listblck itemSeq - respSeq in 1 / `wcount'
qui outsheet itemSeq-respSeq using "`filename'.spc" in 1 / `wcount',noquote replace
/* Process itm file items */
qui tostring `varlist', nodecode /* convert study variables to strings */
qui dropvars blockID segID comments blockS blockW TestType RespType itemLen itemSubN missSymb
/* We convert the ID variable to a string format */
local type : type `idvar'
if substr("`type'",1,3) != "str" {qui tostring `idvar', f(%5.0f)}
recast str5 `idvar'
qui replace `idvar' = ltrim(`idvar')
qui moreobs
qui gen order = _n
qui replace `idvar' ="aaaaa" in l
qui gen blockID = _n /* Data should be in order required before running this program */
qui gen str2 segID = ""
qui gen str30 comments = ""
qui gen byte blockS = .
qui gen blockW = .
qui gen byte TestType = 0
qui gen byte RespType = 0
qui gen byte itemLen = 0
qui gen itemSubN = 0
qui gen str3 missSymb = "bsp"
/* enter blockID data *** This is for line 1*/
qui replace blockID = 1 in 1
qui replace segID = "1" in 1
qui replace comments = "ID" in 1
qui replace blockS = 1 in 1
qui replace blockW = 5 in 1
local block = 1
if "`factors'" != ""{
unab cats : `factors'
tokenize "`cats'"
local facount : word count `cats'
*di "Number of factor variables = " "`facount'"
local counter = 0
local starter = 7 /* we begin variable placement counting at 30 */
/* we have skipped a space so lets add the spacer to the output template */
sort order
qui gen str1 space1 = ""
qui replace space1 = "s" in l
/* we have to do the same for the factors - we will do do below */
while `"`1'"' != ""{
local counter = `counter' + 1
local facword : word `counter' of `cats'
qui tab `1'
*di "Variable (" `counter' ") " "`1'" " has " `r(r)' " levels"
local block = `block' + 1
qui replace blockID in `block' = `block'
/* Now we enter the factor data - the variable name goes first*/
qui replace segID = "2" in `block'
local label : variable label `1'
if length("`label'") >5 {
di
di in red "label for `1' (`label') is more than 5 characters in length"
exit 198
}
if "`label'" != "" {
qui replace comments = "`label'" in `block'
}
else {qui replace comments = "`1'" in `block'}
qui replace blockS = `starter' in `block'
qui replace blockW = 1 in `block'
local starter = `starter' + 1
/* Now we move to the labelled categories & move down a row */
local block = `block' + 1
qui replace blockID in `block' = `block'
qui tab `1' /* The number of levels is r(r) then `catlev'*/
local catlev = `r(r)'
qui vallist `1',label s(^)
local avals `r(list)'
local avals : subinstr local avals " " "_", all
local avals : subinstr local avals "^" " ", all
qui vallist `1'
local nvals `r(list)'
local vcount = 1
*di "Alpha list = " "`avals'"
*di "Numerical list = " "`nvals'"
*di
while `vcount' <= `catlev' {
local aword : word `vcount' of `avals'
local nword : word `vcount' of `nvals'
qui replace comments = "`aword'" in `block'
qui replace segID = "2`counter'" in `block'
qui replace blockS = `counter' in `block'
qui replace blockW = `nword' in `block'
qui replace missSymb = "0" in `block'
*di "`aword'" " " "`nword'"
if `vcount' != `catlev' {local block = `block' + 1 }
local vcount = `vcount' + 1
}
qui tostring `1', nod
sort order
qui replace `1' = "f" in l
mac shift
}
}
else{
di "No factor model"
qui gen str1 space1 = ""
qui replace space1 = "s" in l
local starter = 7
}
/* Now begin the placement of variables */
local block = `block' + 1
local starter = `starter' + 2
sort order
qui gen str2 space2 = ""
qui replace space2 = "ss" in l
qui replace segID = "3" in `block'
qui replace comments = "Items" in `block'
qui replace blockS = `starter' in `block'
qui replace blockW =`varnum' in `block'
qui compress comments
qui replace TestType = 1 in `block'
qui replace RespType = 1 in `block'
qui replace itemLen = 1 in `block'
qui replace itemSubN = `varnum' in `block'
/* replace varlist here with v */
tokenize `varlist'
while `"`1'"' != ""{
qui replace `1' = "v" in l
mac shift
}
listblck blockID segID comments blockS blockW TestType RespType itemLen itemSubN missSymb in 1 / `block'
qui outsheet blockID segID comments blockS blockW TestType RespType itemLen itemSubN missSymb using "`filename'.itm" in 1 / `block',noquote replace
/* We can now concatenate into a long string */
*format `idvar' %030s
if "`factors'" != ""{
local outvar "`idvar' space1 `cats' space2 `varlist'"
}
else {local outvar "`idvar' space1 space2 `varlist'"}
tokenize `outvar'
while `"`1'"' != ""{
qui replace `1' = "^^^^^^^^^^^^^^^^^^^^" if `1' == "",nop
mac shift
}
local outvar : subinstr local outvar " " "+" , all
*di "`outvar'"
gen str80 outvar = `outvar'
sort order
local lcount = 0
while `lcount' < _N {
local lcount = `lcount' + 1
local tempout = outvar in `lcount'
local sub : subinstr local tempout "^" " " , all
qui replace outvar = "`sub'" in `lcount'
}
qui compress outvar
qui drop in l
di "`file'"
*format outvar %-080s
outfile outvar using `filename'.dat, wide replace noq
l outvar
restore
di
su `varlist'
di
di "Files Created: (1) `filename'.scr (2) `filename'.itm (3) `filename'.dat"
end