3GL system variable not supported

[angelo]

Has anyone ever received this error?

I'm trying to get the date and job from the server, via a CALL_SERVER_FUNCTION exchangeing *DATETIMEC , *JOBNAME

Thanks in advance




Process : *SSERVER
S/SERVER SERVICE
Function : FIINI01
Statement : 0
Message : (0158) - 3GL system variable evaluation programs are not currently supported.
Routine : X_Vec_Set_from_SysVar

[Dino]

probably an error with your system variables, not really a call_server_function error, as you send fields, no system variables.

test your system variables with a simple program like assigning a value to a field, showing the value in the field, check what program is your system variable calling, if that does not help, create a case with lansa support to review the issue.

[angelo]

Ciao Dino,

is a very simple function, there is error only when *SSERVER_CONNECTED otherwise it works.

But i have the same identical function in another partition under the same ..\X_WIN95\X_LANSA and there it works

i will try to recompile...

if you come up with any ideas let me know
thank you




Function Options(*DIRECT *HEAVYUSAGE)

Define Field(£JOBNMBA) Type(*CHAR) Length(10)
Define Field(£CDUTEBA) Type(*CHAR) Length(10)
Define Field(£JOBNRBA) Type(*CHAR) Length(6)
Define Field(£JOBDATTIM) Type(*CHAR) Length(014)

Group_By Name(£PARAMETRI) Fields(£JOBNMBA £CDUTEBA £JOBNRBA £JOBDATTIM)

* Se collegato sottomette la routine sull'as
If Cond('(*ON_CLIENT_SYSTEM *EQ Y) *AND (*SSERVER_CONNECTED *EQ Y)')
Use Builtin(CALL_SERVER_FUNCTION) With_Args(*SSERVER_SSN *FUNCTION Y Y) To_Get(£RET_CODE)
Else
Change Field(£JOBDATTIM) To(*DATETIMEC)
Change Field(£JOBNMBA) To(*JOBNAME)
Change Field(£CDUTEBA) To(*USER)
Change Field(£JOBNRBA) To(*JOBNBR)
Endif

Exchange Fields(£PARAMETRI)

Return