/* Please do not attemp to run this program without reading the accompanying documentation. */ version 8.0 set more off prog drop _all capture log close clear /* File: pull J (leave).do Date: July, 2005 Desc: Pull-file to create Set J Note: See acknowledgements and copyright notice in new_master.do. */ cd $log log using set_j$p.log, replace cd $tempdata /* */ macro list *********************************************** * need to pull from each wave and merge capture program drop loop08 program define loop08 cd $rawdata use $idw tage tlstwrky tfrmryr tmakmnyr emnreson/* */ etimeoff ewrk35hr eoff6mtn tnowrkfr tnowrkto eothtime/* */ ecntothr tfstyrfr tfstyrto enwresn efrstrsn using sipp08t1, clear sort $idw cd $tempdata save test, replace cd $rawdata use $idw tage tfbrthyr ebfbctwk ebfbwkpr ebfbpgft tbfbwsy1 ebfbstop /* */ ebtsit* eafbst* eafbwrk tafbwky1 eafbwk* tafblvyr /* */ tmomchl emomlivh rnmlevem rnmretwk rnmstop using sipp08t2, clear sort $idw cd $tempdata append using test sort $idw save test, replace gen byte tagelvem = . gen byte eafblvmo = . gen byte efbrthmo = . gen byte tagestop = . gen byte tagertwk = . rename tage age rename rnmlevem empdur2 rename rnmretwk mlvdur rename rnmstop plvdur *rename ebfbstop ebfbwsm1 cd $tempdata save test, replace end *gen efbrthmo = . capture program drop loop04 program define loop04 cd $rawdata use $idw tage tlstwrky tfrmryr tmakmnyr emnreson/* */ etimeoff ewrk35hr eoff6mtn tnowrkfr tnowrkto eothtime/* */ ecntothr tfstyrfr tfstyrto enwresn efrstrsn using sipp04t1, clear sort $idw cd $tempdata save test, replace cd $rawdata use $idw tage tfbrthyr ebfbctwk ebfbwkpr ebfbpgft tbfbwsy1 ebfbstop /* */ ebtsit* eafbst* eafbwrk tafbwky1 eafbwk* tafblvyr /* */ tmomchl emomlivh rnmlevem rnmretwk rnmstop using sipp04t2, clear sort $idw cd $tempdata append using test sort $idw save test, replace gen byte tagelvem = . gen byte eafblvmo = . gen byte efbrthmo = . gen byte tagestop = . gen byte tagertwk = . rename tage age rename rnmlevem empdur2 rename rnmretwk mlvdur rename rnmstop plvdur rename ebfbstop ebfbwsm1 cd $tempdata save test, replace end capture program drop loop01 program define loop01 local p = $p cd $rawdata use $idw tage tlstwrky elstwrkm eprvjbmn tfrmryr efrmrmn tmakmnyr emnreson/* */ eyrsince eyrsinc2 ewrk35hr eoff6mtn tnowrkfr tnowrkto eothtime/* */ ecntothr tfstyrfr tfstyrto enwresn efrstrsn using sipp01t1, clear cd $tempdata sort $idw save test, replace cd $rawdata use $idw tage efbrthmo tfbrthyr tagfbrth ebfbctwk ebfbwkpr ebfbpgft ebfbwsm1 tbfbwsy1 ebfbstop /* */ tagestop ebtsit* eafbst* eafbwrk tafbwky1 tagertwk eafbwk* eafblvmo tafblvyr /* */ tmomchl emomlivh tagelvem rnmlevem rnmretwk rnmstop using sipp01t2, clear cd $tempdata sort $idw append using test sort $idw save test, replace rename tage age rename rnmlevem empdur2 rename rnmretwk mlvdur rename rnmstop plvdur cd $tempdata save test, replace end capture program drop loop96 program define loop96 local p = $p cd $rawdata use $idw tage tlstwrky elstwrkm eprvjbmn tfrmryr efrmrmn tmakmnyr emnreson/* */ eyrsince eyrsinc2 ewrk35hr eoff6mtn tnowrkfr tnowrkto eothtime /* */ ecntothr tfstyrfr tfstyrto enwresn efrstrsn using sipp`p't1, clear cd $tempdata sort $idw save test, replace cd $rawdata use $idw tage efbrthmo tfbrthyr ragfbrth ebfbctwk ebfbwkpr ebfbpgft ebfbwsm1 tbfbwsy1 ebfbstop /* */ ragestop ebtsit* eafbst* eafbwrk tafbwky1 ragertwk eafbwk* eafblvmo tafblvyr /* */ tmomchl emomlivh ragelvem using sipp`p't2, clear cd $tempdata sort $idw append using test sort $idw save test, replace rename tage age end capture program drop loop93 program define loop93 local p = $p cd $rawdata use $idw age tm8242 tm8240 tm8270 tm8268/* */ tm8274 tm8276 tm8278 using sipp`p't1, clear cd $tempdata sort $idw save test, replace cd $rawdata use $idw age tm8760 tm8762 using sipp`p't2, clear cd $tempdata sort $idw append using test sort $idw rename tm8242 tlstwrky rename tm8240 elstwrkm rename tm8270 tfrmryr rename tm8268 efrmrmn rename tm8274 tmakmnyr rename tm8276 eyrsince rename tm8760 efbrthmo rename tm8762 tfbrthyr rename tm8278 eyrsinc3 save test, replace end capture program drop loop92 program define loop92 local p = $p cd $rawdata use $idw age tm8242 tm8240 tm8270 tm8268/* */ tm8274 tm8276 tm8278 using sipp`p't1, clear cd $tempdata sort $idw save test, replace cd $rawdata use $idw age tm8760 tm8762 using sipp`p't2, clear cd $tempdata sort $idw append using test sort $idw rename tm8242 tlstwrky rename tm8240 elstwrkm rename tm8270 tfrmryr rename tm8268 efrmrmn rename tm8274 tmakmnyr rename tm8276 eyrsince rename tm8760 efbrthmo rename tm8762 tfbrthyr rename tm8278 eyrsinc3 save test, replace end capture program drop loop91 program define loop91 local p = $p cd $rawdata use $idw age tm8242 tm8240 tm8270 tm8268 tm8760 tm8762/* */ tm8274 tm8276 tm8278 using sipp`p't2, clear cd $tempdata sort $idw rename tm8242 tlstwrky rename tm8240 elstwrkm rename tm8270 tfrmryr rename tm8268 efrmrmn rename tm8274 tmakmnyr rename tm8276 eyrsince rename tm8760 efbrthmo rename tm8762 tfbrthyr rename tm8278 eyrsinc3 save test, replace end capture program drop loop90 program define loop90 local p = $p cd $rawdata use $idw age tm8242 tm8240 tm8270 tm8268 tm8760 tm8762/* */ tm8274 tm8276 tm8278 using sipp`p't2, clear cd $tempdata sort $idw rename tm8242 tlstwrky rename tm8240 elstwrkm rename tm8270 tfrmryr rename tm8268 efrmrmn rename tm8274 tmakmnyr rename tm8276 eyrsince rename tm8760 efbrthmo rename tm8762 tfbrthyr rename tm8278 eyrsinc3 save test, replace end sum loop$p compress