Use DataDict.pkg

Open Graphic

Class cGraphicDataDictionary is a DataDictionary
    
    Procedure Construct_Object
        Forward Send Construct_Object
        Set Main_file to Graphic.File_Number

        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_Option Field Graphic.No DD_DISPLAYONLY to True

        Set Field_Option Field Graphic.Description DD_DISPLAYONLY to True

        Set Field_Option Field Graphic.Value DD_DISPLAYONLY to True

    End_Procedure

End_Class