Museum

Home

Lab Overview

Retrotechnology Articles

⇒ Online Manual

Media Vault

Software Library

Restoration Projects

Artifacts Sought

Related Articles

object-name

Examples

CDD/Plus CDO EXTRACT — VMS CDD+_4.1A

 Displays one or more dictionary objects in the format of the DEFINE
 command.  By displaying a definition in its DEFINE command format, the
 EXTRACT command makes it easier for you to create new versions of a
 definition.

 EXTRACT ───┬> 
F

I

E

L

D
──┬─────┬─> object-name ─┬─> └> 
R

E

C

O

R

D
─┘ └─────── , <─────┘

Additional information available:

object-nameExamples

object-name

 Specifies the field or record definition that you want to display in
 the DEFINE command format.

Examples

 The following command displays the field LAST_NAME in DEFINE format.

 CDO> EXTRACT FIELD LAST_NAME
 Define field MYDISK:[JONES.DICT]PERSONNEL.LAST_NAME
     Datatype                 text size is 20 characters
     .
 CDO>

 The following command displays all the fields in the current directory
 in DEFINE format:

 CDO> EXTRACT FIELD *
 Define field MYDISK:[JONES.DICT]PERSONNEL.FIRST_NAME
     Datatype                 text size is 15 characters
     .

 Define field MYDISK:[JONES.DICT]PERSONNEL.LAST_NAME
     Datatype                 text size is 20 characters
     .

 Define field MYDISK:[JONES.DICT]PERSONNEL.MIDDLE_INITIAL
     Datatype                 text size is 1 characters
     .

 Define field MYDISK:[JONES.DICT]PERSONNEL.ZIP_CODE
     Description              ' a 5 digit postal code '
     Datatype                 unsigned numeric 5 digits
     .
 CDO>


 The following command displays in the DEFINE command format all the
 record definitions in the current directory:

 CDO> EXTRACT RECORD *
 Define record MYDISK:[JONES.DICT]PERSONNEL.ADDRESS
     .
 MYDISK:[JONES.DICT]PERSONNEL.STREET.
 MYDISK:[JONES.DICT]PERSONNEL.CITY.
 MYDISK:[JONES.DICT]PERSONNEL.STATE.
 MYDISK:[JONES.DICT]PERSONNEL.ZIP_CODE.
 End record.

 Define record MYDISK:[JONES.DICT]PERSONNEL.FULL_NAME
     .
 MYDISK:[JONES.DICT]PERSONNEL.LAST_NAME.
 MYDISK:[JONES.DICT]PERSONNEL.FIRST_NAME.
 MYDISK:[JONES.DICT]PERSONNEL.MIDDLE_INITIAL.
 End record.
 CDO>

Typewritten Software • bear@typewritten.org • Edmonds, WA 98026