TCL Script for base64 encoding – Need Help

Not sure what i am doing wrong here. Getting error “Unable to handle request without a valid action parameter. Please supply a valid soap action”

Script i am using:

proc tps_abc_soap_message { args } {

   set module “tps_abc_soap_message”

   package require base64

   keylget args MODE mode

   set dispList {}

   switch -exact — $mode {

       start {}

       run {

           keylget args MSGID mh

           set msg [msgget $mh]

           set Message [base64::encode $msg]

           msgset $mh [subst {xmlns:tem=”http://tempuri.org/”>xyzxyz>

           lappend dispList “CONTINUE $mh”

       }

       time {}

       shutdown {}

       default {}

   }

   return $dispList

}

****************************

However this works in SOAP UI:

SOAP UI (WORKING):

http://www.w3.org/2003/05/soap-envelope” xmlns:tem=”http://tempuri.org/“>

        xyz

        xyz