Use DataDict.pkg

Open C_Sched
Open C_System

Object oValid_DataType is a DescriptionValidationTable
    Procedure Fill_List
        Forward Send Fill_List
        Send Add_Table_Value "1" "VDF"
        Send Add_Table_Value "2" "XML"
        Send Add_Table_Value "3" "MAPI"
        Send Add_Table_Value "4" "MS Access"
    End_Procedure
End_Object

Class cC_SchedDataDictionary is a DataDictionary
    
    Procedure Construct_Object
        Forward Send Construct_Object
        Set Main_file to C_Sched.File_Number

        Set Add_System_File to C_System.File_Number DD_Lock_On_All

        Set Foreign_Field_Option DD_KEYFIELD DD_NOPUT to True
        Set Foreign_Field_Option DD_KEYFIELD DD_FINDREQ to True
        Set Foreign_Field_Option DD_INDEXFIELD DD_NOPUT to True
        Set Foreign_Field_Option DD_DEFAULT DD_DISPLAYONLY to True

        Set Field_Auto_Increment Field C_Sched.URN to File_Field C_System.L_URN_Sched

        Set Field_Value_Table Field C_Sched.DataType to oValid_DataType

    End_Procedure

End_Class