I am trying to assign an value to an Integer type variable in PCDMIS program, from within a PCDMIS Basic script.
In the .PGM I have:
ASSIGN/MY_INT=INT(1)
Then, in the Basic script I am trying:
Dim App As Object
Set App = CreateObject("PCDLRN.Application")
Dim Part As Object
Set Part = App.ActivePartProgram
Dim SNVar As Object
Set SNVar = Part.GetVariableValue("SERNUMBER")
Dim PPVar As Object
Set PPVar = Part.GetVariableValue("MY_INT")
MsgBox PPVar.StringValue '[B]HERE GETTING A BLANK MSBOX[/B]
. . .
Dim kSUBRPP125 As Integer
kSUBRPP125 = 0
PPVar.StringValue = kSUBRPP125
MsgBox PPVar.StringValue 'HERE MSDBOX IS OK
Part.SetVariableValue "MY_INT", PPVar
And finally back in .PGM I am casing out the new value of MY_INT that is supposed to be assigned in the above script, and the case doesn't execute:
SELECT/MY_INT CASE/0 CS3 =CALLSUB/SUBR_125MM,C:\Users\Public\Documents\Hexagon\PC-DMIS\2021.2\Subroutines\Iprogname.PRG :, END_CASE/ END_SELECT/
I have other script code that successfully assigns string variable value. What am I doing wrong for integer variable setting?
Thx, z
