Convert To Cobol

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

Verify.zip
  • 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.

  • Verified Answer

    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

  • 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."