you can generater sql by classdefinition,  to get parameter maxlen  value such as :

s  maxlen=  $g(^oddDEF(ClsName,"a",Peoperty,"P","MAXLEN"))
s  truncate=  $g(^oddDEF(ClsName,"a",Peoperty,"P","TRUNCATE"))

i (truncate=1) && ($l(originalVal)>maxlen){

     s originalVal =$e(originalVal,1,maxlen)

}

Maybe it can help you!

you can use as following:   s clsName = "MyClass"    $System. s obj= $System.OBJ.New(clsName)