변수 첫행에 있는 값을 변수명으로 전환

  ** 첫행의 값 받아서 목록으로 만들기
    loc mystrz ""
  foreach myvar of varlist D-AE {
    loc mystr = `myvar'[1]                // 첫행의 값 받기
    loc mystrz: list mystrz | mystr     // 받은 값들을 목록으로 만들기
  }

  ** 목록 내 한글을 영문으로 바꾸기: 한글은 변수명으로 사용할 수 없자나~~ ㅠ.ㅠ
  local mystrz: subinstr local mystrz "사업장" "wp", all
  local mystrz: subinstr local mystrz "지역" "lp", all
  local mystrz: subinstr local mystrz "임의계속" "vcp", all
  local mystrz: subinstr local mystrz "임의" "vp", all

  ** 목록을 변수이름으로 전환하기
    loc ii 0
  foreach myvar of varlist D-AE {
    loc ++ii
    loc mystr: word `ii' of `mystrz'
    gen `mystr' = real(`myvar')

  }
  drop D-AE