Highlighted
Absent Member.
Absent Member.
1329 views

Convert To Cobol

Jump to solution

Hi,

Can any one advise how to convert the following code to Visual Cobol, thanks.

(Please see attached file for the full code)

Private FmdToVerify As List(Of Fmd) = New List(Of Fmd)

 vResult = Comparison.Identify(result3.Data, 0, getFmdToVerify, 21474, 5)

Public ReadOnly Property getFmdToVerify() As List(Of Fmd)
Get
Return FmdToVerify
End Get

End Property

0 Likes
1 Solution

Accepted Solutions
Highlighted
Outstanding Contributor.
Outstanding Contributor.

RE: Convert To Cobol

Jump to solution

Can you try this:

      property-id getFmdToVerify type System.Collections.Generic.List[type DPUruNet.Fmd].

      getter.

          set property-value to FmdToVerify

      end property.

Freundliche Grüsse

Werner Lanter

View solution in original post

0 Likes
3 Replies
Highlighted
Absent Member.
Absent Member.

RE: Convert To Cobol

Jump to solution

Specifically I need to know how to convert this section?

Public ReadOnly Property getFmdToVerify() As List(Of Fmd)

Get

   Return FmdToVerify

End Get

So this line of code works:-

vResult = Comparison.Identify(result3.Data, 0, getFmdToVerify, 21474, 5)

I have already converted this line:-

Private FmdToVerify As List(Of Fmd) = New List(Of Fmd)

to

01 FmdToVerify type System.Collections.Generic.List[type DPUruNet.Fmd].

And this line:-

vResult = Comparison.Identify(result3.Data, 0, getFmdToVerify, 21474, 5)

to

set vResult = type DPUruNet.Comparison::Identify(result3::Data, 0, getFmdToVerify, 21474, 5)

But I dont know how to convert "getFmdToVerify" bit.

Is there any one that can assist pls.

0 Likes
Highlighted
Outstanding Contributor.
Outstanding Contributor.

RE: Convert To Cobol

Jump to solution

Can you try this:

      property-id getFmdToVerify type System.Collections.Generic.List[type DPUruNet.Fmd].

      getter.

          set property-value to FmdToVerify

      end property.

Freundliche Grüsse

Werner Lanter

View solution in original post

0 Likes
Highlighted
Absent Member.
Absent Member.

RE: Convert To Cobol

Jump to solution

Thanks Werner thats worked a treat.

Could you pls advise how to terminate a background thread and also close the form so it doesnt error?

Ive used

                  invoke ws-nThread::Abort()

                  invoke self::Close()

But I get an IDE error:-

"Cross-thread operation not valid: Control 'frmVerify' accessed from a thread other than the thread it was created on."

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.