DEFINE FIELD BEGA_CDD_PATH.FIELDS.MY_DATE
    DESCRIPTION IS /*Example of VMS Timestamp field*/
    DATATYPE IS DATE VMS.

DEFINE FIELD BEGA_CDD_PATH.FIELDS.MY_DATE_QUAD
    DESCRIPTION IS /*quadword overlay for vms timestamp field*/
    DATATYPE IS QUADWORD.

DEFINE FIELD BEGA_CDD_PATH.FIELDS.YYYY_STR
    DESCRIPTION IS /*year of a date string*/
    DATATYPE IS TEXT SIZE IS 4 CHARACTERS.

DEFINE FIELD BEGA_CDD_PATH.FIELDS.MM_STR
    DESCRIPTION IS /*month of a date string*/
    DATATYPE IS TEXT SIZE IS 2 CHARACTERS.

DEFINE FIELD BEGA_CDD_PATH.FIELDS.DD_STR
    DESCRIPTION IS /*day of a date string*/
    DATATYPE IS TEXT SIZE IS 2 CHARACTERS.

DEFINE FIELD BEGA_CDD_PATH.FIELDS.INVOICE_DATE
    DESCRIPTION IS /*Date invoice was created, format YYYYMMDD*/
    DATATYPE IS TEXT SIZE IS 8 CHARACTERS.

COMMIT