str is string
sus_pcml is string =
<pcml version=="4.0">
<program name="TESTUS" >
<data name="data" type="char" length="45" usage="input"/>
</program>
</pcml>
]
str="uspc test"
IF NOT ASUserSpaceWrite(sus_pcml, "MY_LIB/MY_US", 1, str)
Error(ErrorInfo())
END