Download Digital Cobol Reference Manual

COPY Statement
$ REPOSITORY
CDO>@FILENAME.CDO
Example 8–10 Command File That Creates Oracle CDD/Repository Directories
and Objects in Figure 8-2 (OpenVMS)
DEFINE DICTIONARY DEVICE:[DIRECTORY.ANCHOR].
SET DEFAULT DEVICE:[DIRECTORY.ANCHOR]
DEFINE DIRECTORY EMPLOYEE.
DEFINE DIRECTORY CUSTOMER.
DEFINE DIRECTORY INVENTORY.
DEFINE DIRECTORY COMMON_FIELD_DEFINITIONS.
SET DEFAULT DEVICE:[DIRECTORY.ANCHOR]COMMON_FIELD_DEFINITIONS
DEFINE FIELD NAME DATATYPE IS TEXT SIZE IS 25 CHARACTERS.
DEFINE FIELD ADDRESS DATATYPE IS TEXT SIZE IS 47 CHARACTERS.
SET DEFAULT DEVICE:[DIRECTORY.ANCHOR]EMPLOYEE
DEFINE FIELD DATE_OF_HIRE DATATYPE IS UNSIGNED NUMERIC SIZE IS 8 DIGITS.
DEFINE FIELD SEX DATATYPE IS TEXT SIZE IS 1 CHARACTER.
DEFINE FIELD DEPENDENTS DATATYPE IS UNSIGNED NUMERIC SIZE IS 2 DIGITS.
DEFINE RECORD EMPLOYEE_RECORD.
[DIRECTORY.ANCHOR]COMMON_FIELD_DEFINITIONS.NAME.
[DIRECTORY.ANCHOR]COMMON_FIELD_DEFINITIONS.ADDRESS.
DATE_OF_HIRE.
SEX.
DEPENDENTS.
END RECORD.
SET DEFAULT DEVICE:[DIRECTORY.ANCHOR]CUSTOMER
DEFINE FIELD BUSINESS_TYPE DATATYPE IS TEXT SIZE IS 25 CHARACTERS.
DEFINE FIELD CONTACT_PERSON DATATYPE IS TEXT SIZE IS 25 CHARACTERS.
DEFINE RECORD CUSTOMER_RECORD.
[DIRECTORY.ANCHOR]COMMON_FIELD_DEFINITIONS.NAME.
[DIRECTORY.ANCHOR]COMMON_FIELD_DEFINITIONS.ADDRESS.
BUSINESS_TYPE.
CONTACT_PERSON.
END RECORD.
SET DEFAULT DEVICE:[DIRECTORY.ANCHOR]INVENTORY
DEFINE FIELD PART DATATYPE IS TEXT SIZE IS 25 CHARACTERS.
DEFINE FIELD PART_NUMBER DATATYPE IS TEXT SIZE IS 10 CHARACTERS.
DEFINE RECORD INVENTORY_RECORD.
PART.
PART_NUMBER.
♦
END RECORD.
8–20 Source Text Manipulation