alias mcitemstojava {
  var %out javamcitems.txt, %in mcitems.txt
  var %lines $lines(%in)
  var %readn 1
  remove %out
  while (%readn <= %lines) {
    tokenize $asc(#) $read(%in, %readn)
    var %case $1, %item $3-
    write %out case %case $+ :
    write %out return " $+ %item $+ ";
    inc %readn
  }
  run %out
}