[archive] c$setvariant not working with thinclient

[Migrated content. Thread originally posted on 05 October 2006]

Hi,

I am currently working on a project which requirest crystal com automation from acucobol. As part of this project I need to pass a variant array to a COM component. I used c$setvariant to create array and working fine with standalone pc. When I want to run this program on Linux acuconnect server c$servariant not working and from the documentation I found that it is not supported in thin client environment. Can anyone provide me some details on alternate approach.

Here is my sample program.


01 WS-ROW.
05 WS-ROW-ARRAY OCCURS 10 TIMES .
10 WS-FLD-ARRAY OCCURS 3 TIMES.
15 WS-FLD USAGE HANDLE OF VARIANT.


PERFORM VARYING SUB-SX FROM 1 BY 1 UNTIL SUB-SX > 10
MOVE SPACES TO WS-STR
STRING "ID_"
SUB-SX DELIMITED BY SIZE
INTO WS-STR
END-STRING
CALL "C$SETVARIANT" USING WS-STR,
WS-FLD(SUB-SX,1)
GIVING SUB-X
END-CALL

MOVE SPACES TO WS-STR
STRING "NAME_"
SUB-SX DELIMITED BY SIZE INTO WS-STR
END-STRING
CALL "C$SETVARIANT" USING WS-STR,WS-FLD(SUB-SX,2)

MOVE SPACES TO WS-STR
STRING "DESIG_"
SUB-SX DELIMITED BY SIZE INTO WS-STR
END-STRING
CALL "C$SETVARIANT" USING WS-STR, WS-FLD(SUB-SX,3)
END-PERFORM.
MODIFY CROBJ,@ADDROWS = WS-ROW.


Any help from anyone would be greatly appreciated. Thanks In Advance.


Vara Prasad.
icharge.zip