Private Sub Get_Coverage_Fields()

' Get requirement and test coverage fields

Dim oList As List
Dim FieldProp As FieldProperty
Dim oField As TDField

Set oList = tdc.Fields("REQ_COVERAGE_TYPE")

Dim Item
For Each Item In oList
    Set oField = Item
    Set FieldProp = oField.Property
    Debug.Print FieldProp.DBColumnName & " " & FieldProp.DBTableName
    Debug.Print FieldProp.DBColumnName & " " & FieldProp.UserLabel
Next


Set oList = tdc.Fields("TEST_COVERAGE_TYPE")

For Each Item In oList
    Set oField = Item
    Set FieldProp = oField.Property
    'Debug.Print fieldprop.DBColumnName & " " & fieldprop.UserLabel
    Debug.Print FieldProp.DBColumnName & " " & FieldProp.DBTableName
Next

''''''''''''''''''''''''''''''''''''''''
'Output for TEST_COVERAGE_TYPE
'        RC_ENTITY_TYPE Coverage Type
'        RC_ENTITY_ID Covering Entity ID
'        TS_CREATION_DATE Plan: Creation Date
'        TS_DESCRIPTION Plan: Description
'        TS_RESPONSIBLE Plan: Designer
'        RC_ENTITY_NAME Entity Name
'        RC_ENTITY_STATUS Entity Status
'        TS_ESTIMATE_DEVTIME Plan: Estimated DevTime
'        TS_EXEC_STATUS Plan: Execution Status
'        TS_VTS Plan: Modified
'        TS_PATH Plan: Path
'        RC_REQ_ID Requirement
'        TS_STATUS Plan: Status
'        TS_STEP_PARAM Plan: Step Param
'        TS_STEPS Plan: Steps
'        TS_SUBJECT Plan: Subject
'        TS_TEMPLATE Plan: Template
'        TS_VC_CUR_VER Plan: Test Current Version
'        TS_NAME Plan: Test Name
'        TS_RUNTIME_DATA Plan: Test Runtime Data
'        TS_USER_01 Plan: TS_USER_01
'        TS_TYPE Plan: Type
'        RC_ITEM_ID Unique Coverage Item ID
'        TS_TIMEOUT Plan:
'        RC_STEP_ID
'        RC_ORDER_ID
'        TS_TEXT_SYNC Plan:

End Sub