Returns the position of the Data Segment in a message (or Transaction Set).
Syntax:
Returns:
A number indicating the position number of the data segment in a message as specified in the implementation guideline.
Example:
Dim oEdiDoc As Fredi.ediDocument
Dim oSegment As Fredi.ediDataSegment
...Set oSegment = oEdiDoc.FirstDataSegment
Do While Not oSegment Is Nothing
sSegmentId = oSegment.ID
nSegmentPos = oSegment.Position
MsgBox sSegmentId & " " & Str(nSegmentPos)
Set oSegment = oSegment.Next
Loop
Sample