Welcome Serena Central users! CLICK HERE
The migration of the Serena Central community is currently underway. Be sure to read THIS MESSAGE to get your new login set up to access your account.
Former Member Absent Member.
Absent Member.
277 views

[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.
0 Likes
The opinions expressed above are the personal opinions of the authors, not of Micro Focus. By using this site, you accept the Terms of Use and Rules of Participation. Certain versions of content ("Material") accessible here may contain branding from Hewlett-Packard Company (now HP Inc.) and Hewlett Packard Enterprise Company. As of September 1, 2017, the Material is now offered by Micro Focus, a separately owned and operated company. Any reference to the HP and Hewlett Packard Enterprise/HPE marks is historical in nature, and the HP and Hewlett Packard Enterprise/HPE marks are the property of their respective owners.