Hi Brian,
Could you please with below code.
----------------------------------------------------
Class Sample.TempUtil Extends %RegisteredObject
{
ClassMethod GetSecondUpperCase(pInput As %String) As %String
{
;w ##class(Sample.TempUtil).GetSecondUpperCase("GetSecondUpperCase")
SET stsrtpos=$LOCATE(pInput,"[[:upper:]]{1}",2)
SET endpos=$LOCATE(pInput,"[[:upper:]]{1}",(stsrtpos+1))
SET result=$EXTRACT(pInput,stsrtpos,(endpos-1))
quit result
}
}
----------------------------------------------------------------
Regards,
Muni Ganesh
- Log in to post comments
.png)