Previous Topic: Non-SQL Database Implementation for the Commonweather CorporationNext Topic: Zoned and Packed Decimal Fields as IDMS Keys


Logical Database Definition Listing for the Commonweather Database

Below is the complete non-SQL defined schema listing for the Commonweather Corporation database design shown.

Note: Once the system has assigned an ID number to each record, you should indicate this number on the data structure diagram.

Schema Statement

ADD
SCHEMA NAME IS EMPSCHM VERSION IS 1
    SCHEMA DESCRIPTION IS 'EMPLOYEE DEMO DATABASE'
    ASSIGN RECORD IDS FROM 1001
    PUBLIC ACCESS IS ALLOWED FOR ALL
.

Area Statements

ADD
AREA NAME IS EMP-DEMO-REGION
.
 ADD
AREA NAME IS ORG-DEMO-REGION
.
 ADD
AREA NAME IS INS-DEMO-REGION
.

Record Statements

     ADD
     RECORD NAME IS COVERAGE
         SHARE STRUCTURE OF RECORD COVERAGE VERSION 1
         LOCATION MODE IS VIA EMP-COVERAGE SET
         WITHIN AREA INS-DEMO-REGION.
 
     ADD
     RECORD NAME IS DENTAL-CLAIM
         SHARE STRUCTURE OF RECORD DENTAL-CLAIM VERSION 1
         LOCATION MODE IS VIA COVERAGE-CLAIMS SET
         MINIMUM ROOT LENGTH IS 132 CHARACTERS
         MINIMUM FRAGMENT LENGTH IS 930 CHARACTERS
         WITHIN AREA INS-DEMO-REGION
         .
     ADD
     RECORD NAME IS DEPARTMENT
         SHARE STRUCTURE OF RECORD DEPARTMENT VERSION 1
         LOCATION MODE IS CALC USING ( DEPT-ID ) DUPLICATES ARE
               NOT ALLOWED
         WITHIN AREA ORG-DEMO-REGION
         .
     ADD
     RECORD NAME IS EMPLOYEE
         SHARE STRUCTURE OF RECORD EMPLOYEE VERSION 1
         LOCATION MODE IS CALC USING ( EMP-ID ) DUPLICATES ARE NOT ALLOWED
         WITHIN AREA EMP-DEMO-REGION
         .
     ADD
     RECORD NAME IS EMPOSITION
         SHARE STRUCTURE OF RECORD EMPOSITION VERSION 1
         LOCATION MODE IS VIA EMP-EMPOSITION SET
         WITHIN AREA EMP-DEMO-REGION
         .
     ADD
     RECORD NAME IS EXPERTISE
         SHARE STRUCTURE OF RECORD EXPERTISE VERSION 1
         LOCATION MODE IS VIA EMP-EXPERTISE SET
         WITHIN AREA EMP-DEMO-REGION
         .
ADD
RECORD NAME IS HOSPITAL-CLAIM
    SHARE STRUCTURE OF RECORD HOSPITAL-CLAIM VERSION 1
    LOCATION MODE IS VIA COVERAGE-CLAIMS SET
    WITHIN AREA INS-DEMO-REGION
    .
 ADD
RECORD NAME IS INSURANCE-PLAN
    SHARE STRUCTURE OF RECORD INSURANCE-PLAN VERSION 1
    LOCATION MODE IS CALC USING ( PLAN-CODE ) DUPLICATES ARE
          NOT ALLOWED
    CALL IDMSCOMP BEFORE STORE
    CALL IDMSCOMP BEFORE MODIFY
    CALL IDMSDCOM AFTER GET
    WITHIN AREA INS-DEMO-REGION
    .
 ADD
RECORD NAME IS JOB
    SHARE STRUCTURE OF RECORD JOB VERSION 1
    LOCATION MODE IS CALC USING ( JOB-ID ) DUPLICATES ARE NOT ALLOWED
    MINIMUM ROOT LENGTH IS 24 CHARACTERS
    MINIMUM FRAGMENT LENGTH IS 296 CHARACTERS
    CALL IDMSCOMP BEFORE STORE
    CALL IDMSCOMP BEFORE MODIFY
    CALL IDMSDCOM AFTER GET
    WITHIN AREA ORG-DEMO-REGION
    .
 ADD
RECORD NAME IS NON-HOSP-CLAIM
    SHARE STRUCTURE OF RECORD NON-HOSP-CLAIM VERSION 1
    LOCATION MODE IS VIA COVERAGE-CLAIMS SET
    MINIMUM ROOT LENGTH IS 248 CHARACTERS
    MINIMUM FRAGMENT LENGTH IS 1008 CHARACTERS
    WITHIN AREA INS-DEMO-REGION
    .
 ADD
RECORD NAME IS OFFICE
    SHARE STRUCTURE OF RECORD OFFICE VERSION 1
    LOCATION MODE IS CALC USING ( OFFICE-CODE ) DUPLICATES ARE
          NOT ALLOWED
    WITHIN AREA ORG-DEMO-REGION
    .
 ADD
RECORD NAME IS SKILL
    SHARE STRUCTURE OF RECORD SKILL VERSION 1
    LOCATION MODE IS CALC USING ( SKILL-CODE ) DUPLICATES ARE
          NOT ALLOWED
    WITHIN AREA ORG-DEMO-REGION
    .
 ADD
RECORD NAME IS STRUCTURE
    SHARE STRUCTURE OF RECORD STRUCTURE VERSION 1
    LOCATION MODE IS VIA MANAGES SET
    WITHIN AREA EMP-DEMO-REGION
    .
 ADD
RECORD NAME IS PROJECT
    SHARE STRUCTURE OF RECORD PROJECT VERSION 1
    LOCATION MODE IS CALC USING ( PROJECT-CODE ) DUPLICATES ARE
          NOT ALLOWED
    WITHIN AREA EMP-DEMO-REGION
    .
 ADD
RECORD NAME IS WORKER
    SHARE STRUCTURE OF RECORD WORKER VERSION 1
    LOCATION MODE IS VIA PROJECT-WORKER SET
    WITHIN AREA EMP-DEMO-REGION
    .

Set Statements

ADD
SET NAME IS COVERAGE-CLAIMS
    ORDER IS LAST
    MODE IS CHAIN LINKED TO PRIOR
    OWNER IS COVERAGE
    MEMBER IS HOSPITAL-CLAIM
        MANDATORY AUTOMATIC
    MEMBER IS NON-HOSP-CLAIM
        PRIOR DBKEY POSITION IS AUTO
        MANDATORY AUTOMATIC
    MEMBER IS DENTAL-CLAIM
        NEXT DBKEY POSITION IS AUTO
        PRIOR DBKEY POSITION IS AUTO
        MANDATORY AUTOMATIC
    .
 ADD
SET NAME IS DEPT-EMPLOYEE
    ORDER IS SORTED
    MODE IS INDEX BLOCK CONTAINS 30 KEYS
    OWNER IS DEPARTMENT
        NEXT DBKEY POSITION IS AUTO
        PRIOR DBKEY POSITION IS AUTO
    MEMBER IS EMPLOYEE
        INDEX DBKEY POSITION IS AUTO
        PRIOR DBKEY POSITION IS AUTO
        LINKED TO OWNER
            OWNER DBKEY POSITION IS AUTO
        OPTIONAL AUTOMATIC
        ASCENDING KEY IS ( EMP-LAST-NAME EMP-FIRST-NAME )
            COMPRESSED
            DUPLICATES ARE LAST
    .
 ADD
SET NAME IS EMP-COVERAGE
    ORDER IS SORTED
    MODE IS INDEX BLOCK CONTAINS 30 KEYS
    OWNER IS EMPLOYEE
        NEXT DBKEY POSITION IS AUTO
        PRIOR DBKEY POSITION IS AUTO
    MEMBER IS COVERAGE
        INDEX DBKEY POSITION IS AUTO
        LINKED TO OWNER
            OWNER DBKEY POSITION IS AUTO
        MANDATORY AUTOMATIC
    ASCENDING KEY IS ( PLAN-CODE COVERAGE-TYPE )
        DUPLICATES NOT ALLOWED
    .
ADD
SET NAME IS EMP-EMPOSITION
    ORDER IS SORTED
    MODE IS CHAIN LINKED TO PRIOR
    OWNER IS EMPLOYEE
        NEXT DBKEY POSITION IS AUTO
        PRIOR DBKEY POSITION IS AUTO
    MEMBER IS EMPOSITION
        NEXT DBKEY POSITION IS AUTO
        PRIOR DBKEY POSITION IS AUTO
        LINKED TO OWNER
            OWNER DBKEY POSITION IS AUTO
        MANDATORY AUTOMATIC
    DESCENDING KEY IS ( START-DATE )
        DUPLICATES NOT ALLOWED
    .
 ADD
SET NAME IS EMP-EXPERTISE
    ORDER IS SORTED
    MODE IS CHAIN LINKED TO PRIOR
    OWNER IS EMPLOYEE
        NEXT DBKEY POSITION IS AUTO
        PRIOR DBKEY POSITION IS AUTO
    MEMBER IS EXPERTISE
        NEXT DBKEY POSITION IS AUTO
        PRIOR DBKEY POSITION IS AUTO
        LINKED TO OWNER
            OWNER DBKEY POSITION IS AUTO
        MANDATORY AUTOMATIC
        DESCENDING KEY IS ( SKILL-CODE )
            DUPLICATES ARE NOT ALLOWED
    .
 ADD
SET NAME IS LNAME-NDX
    ORDER IS SORTED
    MODE IS INDEX BLOCK CONTAINS 40 KEYS
    OWNER IS SYSTEM
    MEMBER IS EMPLOYEE
        INDEX DBKEY POSITION IS AUTO
        OPTIONAL AUTOMATIC
        ASCENDING KEY IS ( EMP-LAST-NAME EMP-FIRST-NAME )
              COMPRESSED
            DUPLICATES ARE LAST
    .
ADD
SET NAME IS JOB-EMPOSITION
    ORDER IS NEXT
    MODE IS CHAIN LINKED TO PRIOR
    OWNER IS JOB
        NEXT DBKEY POSITION IS AUTO
        PRIOR DBKEY POSITION IS AUTO
    MEMBER IS EMPOSITION
        NEXT DBKEY POSITION IS AUTO
        PRIOR DBKEY POSITION IS AUTO
        LINKED TO OWNER
            OWNER DBKEY POSITION IS AUTO
        OPTIONAL MANUAL
    .
 ADD
SET NAME IS JOB-TITLE-NDX
    ORDER IS SORTED
    MODE IS INDEX BLOCK CONTAINS 30 KEYS
    OWNER IS SYSTEM
    MEMBER IS JOB
        INDEX DBKEY POSITION IS AUTO
        OPTIONAL AUTOMATIC
        ASCENDING KEY IS ( JOB-TITLE ) UNCOMPRESSED
            DUPLICATES ARE NOT ALLOWED
    .
 ADD
SET NAME IS MANAGES
    ORDER IS SORTED
    MODE IS CHAIN LINKED TO PRIOR
    OWNER IS EMPLOYEE
        NEXT DBKEY POSITION IS AUTO
        PRIOR DBKEY POSITION IS AUTO
    MEMBER IS STRUCTURE
        NEXT DBKEY POSITION IS AUTO
        PRIOR DBKEY POSITION IS AUTO
        LINKED TO OWNER
            OWNER DBKEY POSITION IS AUTO
        MANDATORY AUTOMATIC
     ASCENDING KEY IS ( WKRK-EMP-ID ) UNCOMPRESSED
            DUPLICATES ARE NOT ALLOWED
    .
 ADD
SET NAME IS OFFICE-EMPLOYEE
    ORDER IS SORTED
    MODE IS INDEX BLOCK CONTAINS 30 KEYS
    OWNER IS OFFICE
        NEXT DBKEY POSITION IS AUTO
        PRIOR DBKEY POSITION IS AUTO
    MEMBER IS EMPLOYEE
        INDEX DBKEY POSITION IS AUTO
        LINKED TO OWNER
            OWNER DBKEY POSITION IS AUTO
        OPTIONAL AUTOMATIC
        ASCENDING KEY IS ( EMP-LAST-NAME EMP-FIRST-NAME )
              COMPRESSED
            DUPLICATES ARE LAST
    .
 ADD
SET NAME IS REPORTS-TO
    ORDER IS SORTED
    MODE IS INDEX BLOCK CONTAINS 30 KEYS
    OWNER IS EMPLOYEE
        NEXT DBKEY POSITION IS AUTO
        PRIOR DBKEY POSITION IS AUTO
    MEMBER IS STRUCTURE
        INDEX DBKEY POSITION IS AUTO
        PRIOR DBKEY POSITION IS AUTO
        LINKED TO OWNER
            OWNER DBKEY POSITION IS AUTO
        OPTIONAL MANUAL
    ASCENDING KEY IS ( SUPR-EMP-ID ) UNCOMPRESSED
        DUPLICATES ARE FIRST
    .
 ADD
SET NAME IS EMP-PROJECT
    ORDER IS NEXT
    MODE IS CHAIN LINKED TO PRIOR
    OWNER IS EMPLOYEE
        NEXT DBKEY POSITION IS AUTO
        PRIOR DBKEY POSITION IS AUTO
    MEMBER IS PROJECT
        INDEX DBKEY POSITION IS AUTO
        LINKED TO OWNER
            OWNER DBKEY POSITION IS AUTO
        OPTIONAL AUTOMATIC
    .
 ADD
SET NAME IS PROJECT-WORKER
    ORDER IS NEXT
    MODE IS CHAIN LINKED TO PRIOR
    OWNER IS PROJECT
        NEXT DBKEY POSITION IS AUTO
        PRIOR DBKEY POSITION IS AUTO
    MEMBER IS WORKER
        INDEX DBKEY POSITION IS AUTO
        LINKED TO OWNER
            OWNER DBKEY POSITION IS AUTO
        OPTIONAL MANUAL
    .
ADD
SET NAME IS EMP-WORKER
    ORDER IS FIRST
    MODE IS CHAIN LINKED TO PRIOR
    OWNER IS EMPLOYEE
        NEXT DBKEY POSITION IS AUTO
        PRIOR DBKEY POSITION IS AUTO
    MEMBER IS WORKER
        INDEX DBKEY POSITION IS AUTO
        LINKED TO OWNER
            OWNER DBKEY POSITION IS AUTO
        MANDATORY AUTOMATIC
    .
 ADD
SET NAME IS SKILL-EXPERTISE
    ORDER IS SORTED
    MODE IS INDEX BLOCK CONTAINS 30 KEYS
    OWNER IS SKILL
        NEXT DBKEY POSITION IS AUTO
        PRIOR DBKEY POSITION IS AUTO
    MEMBER IS EXPERTISE
        INDEX DBKEY POSITION IS AUTO
        LINKED TO OWNER
            OWNER DBKEY POSITION IS AUTO
        MANDATORY AUTOMATIC
        DESCENDING KEY IS ( SKILL-LEVEL ) UNCOMPRESSED
            DUPLICATES ARE FIRST
    .