Ablauf von BPSQLSIA
/ADD-FILE-LINK LINK-NAME=DATABASE,FILE-NAME=PERSONAL.DBDIR
/SELECT-PRODUCT-VERSION PRODUCT-NAME=UDS-SQL, VERSION=02.9A00
/START-UDS-BPSQLSIA
***** START BPSQLSIA (UDS/SQL V2.9 0000 ) 2017-06-28 11:26:05
//PRINT-RELATIONAL-SCHEMAINFO SUBSCHEMA-NAME=PERSONAL-DB
//END
***** DIAGNOSTIC SUMMARY FOR SUBSCHEMA PERSONAL-DB
NO ERRORS
+++++ 4 WARNINGS
***** END OF DIAGNOSTIC SUMMARY
***** NR OF DATABASE ACCESSES : 11
***** NORMAL END BPSQLSIA (UDS/SQL V2.9 0000 ) 2017-06-28 11:26:05
DDL des CODASYL-Subschemas
Die Nummern sind die Nummern der Umsetzregeln und verweisen auf die entsprechenden Teile in der relationalen Schemainformation.
SCHEMA PERS-DB.
AREA PERS-DB-REALM.
AREA TEMPO TEMPORARY.
1/2) --- RECORD NAME IS ABTEILUNG WITHIN PERS-DB-REALM.
3) -------- 02 BEZEICHNUNG PIC X(30).
02 STANDORT PIC X(30).
02 EXTERN PIC X.
02 ABTEILUNG-MGR TYPE IS BIN 31.
RECORD NAME IS MITARBEITER
15) --------- LOCATION MODE IS CALC USING PERSONAL-NR
DUPLICATES ARE NOT ALLOWED
WITHIN PERS-DB-REALM
14) --------- SEARCH KEY IS M-NAME
USING CALC
DUPLICATES ARE ALLOWED
17) --------- SEARCH KEY IS PLZ,STADT,STRASSE
USING INDEX
DUPLICATES ARE NOT ALLOWED.
03 M-NAME PIC X(30).
5) -------- 03 VORNAME PIC X(30) OCCURS 5.
03 M-ALTER TYPE IS BIN 15.
03 FAM-STAND PIC X.
4) -------- 03 KINDER OCCURS 10.
04 K-NAME PIC X(30).
04 K-ALTER TYPE IS BIN 15.
03 ADRESSE OCCURS 2.
04 PLZ PIC X(5).
04 STADT PIC X(15).
04 STRASSE PIC X(30).
03 PERSONAL-NR TYPE IS BIN 31.
03 TAETIGKEIT PIC X(10).
03 GEHALT PIC S9(8)V9(2).
03 ZUSCHLAEGE PIC S9(8)V9(2).
03 MGR-NR TYPE IS BIN 31.
RECORD NAME IS PROJEKT WITHIN PERS-DB-REALM.
02 PROJ-BEZ PIC X(30).
02 BUDGET PIC S9(10)V9(2).
02 PROJ-MGR TYPE IS BIN 31.
9) ------ SET NAME IS ABT-MIT
ORDER IS FIRST
OWNER IS ABTEILUNG.
10) ---- MEMBER IS MITARBEITER
MANDATORY AUTOMATIC
SEARCH KEY IS MGR-NR
USING INDEX DUPLICATES NOT ALLOWED
19) ----------- SEARCH KEY IS TAETIGKEIT,GEHALT
USING INDEX DUPLICATES NOT ALLOWED
SELECTION CURRENT.
SET NAME IS PROJ-MIT
ORDER IS FIRST
OWNER IS PROJEKT.
MEMBER IS MITARBEITER
13) ----------- OPTIONAL MANUAL
SELECTION CURRENT.
8) ------- SET NAME IS INT-FUND
ORDER IS FIRST
OWNER IS SYSTEM.
MEMBER IS PROJEKT
12) ----------- OPTIONAL AUTOMATIC
SEARCH KEY IS PROJ-BEZ
USING CALC DUPLICATES NOT ALLOWED.
SET NAME IS PROJ-MIT-2
ORDER IS FIRST
OWNER IS PROJEKT.
MEMBER IS MITARBEITER
11) ----------- MANDATORY MANUAL
SELECTION CURRENT.
SET NAME IS EXT-FUND
ORDER IS FIRST
OWNER IS SYSTEM.
MEMBER IS PROJEKT
OPTIONAL MANUAL.
SET NAME IS SYS-MIT
ORDER IS FIRST
OWNER IS SYSTEM.
MEMBER IS MITARBEITER
MANDATORY AUTOMATIC
16) ----------- SEARCH KEY GEHALT
USING CALC DUPLICATES NOT ALLOWED
18) ----------- SEARCH KEY M-ALTER,FAM-STAND
USING INDEX DUPLICATES NOT ALLOWED.
Ausgabe von BPSQLSIA auf SYSLST
Die Nummern sind die Nummern der Umsetzregeln und verweisen auf die entsprechenden Teile in der DDL.
INFORMATION ABOUT RELATIONAL SCHEMA PERSONAL_DB 1) --- TABLE ABTEILUNG ATTRIBUTE TYPE NOT NULL DEFAULT ___________________________________________________________________________________2) --- ABTEILUNG_ INTEGER NOT NULL PRIMARY KEY SYSTEMDEFINED 3) --- BEZEICHNUNG CHARACTER ( 30) NOT NULL ' ' STANDORT CHARACTER ( 30) NOT NULL ' ' EXTERN CHARACTER ( 1) NOT NULL ' ' ABTEILUNG_MGR INTEGER NOT NULL 0 ___________________________________________________________________________________ TABLE MITARBEITER ATTRIBUTE TYPE NOT NULL DEFAULT ___________________________________________________________________________________ M_NAME CHARACTER ( 30) NOT NULL ' ' 5) --- VORNAME ( 5) CHARACTER ( 30) NOT NULL ' ' M_ALTER SMALLINT NOT NULL 0 FAM_STAND CHARACTER ( 1) NOT NULL ' ' 4) --- KINDER ( 10) STRUCTURE K_NAME CHARACTER ( 30) NOT NULL ' ' K_ALTER SMALLINT NOT NULL 0 ADRESSE ( 2) STRUCTURE PLZ CHARACTER ( 5) NOT NULL ' ' STADT CHARACTER ( 15) NOT NULL ' ' STRASSE CHARACTER ( 30) NOT NULL ' ' PERSONAL_NR INTEGER NOT NULL 0 UNIQUE TAETIGKEIT CHARACTER ( 10) NOT NULL ' ' 16) --- GEHALT NUMERIC (10, 2) NOT NULL 0 UNIQUE ZUSCHLAEGE NUMERIC (10, 2) NOT NULL 0 MGR_NR INTEGER NOT NULL 0 9/10) --- ABT_MIT_ INTEGER NOT NULL REFERENCES ABTEILUNG 13) --- PROJ_MIT_ INTEGER NULL REFERENCES PROJEKT 11) --- PROJ_MIT_2_ INTEGER NOT NULL ON UPDATE NULL REFERENCES PROJEKT ___________________________________________________________________________________17) --- UNIQUE (PLZ, STADT, STRASSE) UNIQUE (ABT_MIT_, MGR_NR) 19) --- UNIQUE (ABT_MIT_, TAETIGKEIT, GEHALT) 18) --- UNIQUE (M_ALTER, FAM_STAND) INDEX TO BE USED BY SQL INDEX DEFINITION IN UDS ___________________________________________________________________________________ INDEX (PERSONAL_NR) WARNING 4018 *** INDEX CAN BE USED ONLY WITHIN 'IN PREDICATE' OR WITHIN 'COMPARISON PREDICATE' WITH 'EQUALS OPERATOR' 14) --- INDEX (M_NAME) WARNING 4018 *** INDEX CAN BE USED ONLY WITHIN 'IN PREDICATE' OR WITHIN 'COMPARISON PREDICATE' WITH 'EQUALS OPERATOR' INDEX (ADRESSE) INDEX (PLZ, STADT, STRASSE) INDEX (ABT_MIT_, MGR_NR) INDEX (ABT_MIT_, TAETIGKEIT, GEHALT) INDEX (GEHALT) WARNING 4018 *** INDEX CAN BE USED ONLY WITHIN 'IN PREDICATE' OR WITHIN 'COMPARISON PREDICATE' WITH 'EQUALS OPERATOR' INDEX (M_ALTER, FAM_STAND) TABLE PROJEKT ATTRIBUTE TYPE NOT NULL DEFAULT ___________________________________________________________________________________ PROJEKT_ INTEGER NOT NULL PRIMARY KEY SYSTEMDEFINED PROJ_BEZ CHARACTER ( 30) NOT NULL ' ' BUDGET NUMERIC (12, 2) NOT NULL 0 PROJ_MGR INTEGER NOT NULL 0 12) --- INT_FUND_ INTEGER NOT NULL ON INSERT REFERENCES SYSTEM EXT_FUND_ INTEGER NULL REFERENCES SYSTEM ___________________________________________________________________________________ UNIQUE (INT_FUND_, PROJ_BEZ) INDEX TO BE USED BY SQL INDEX DEFINITION IN UDS ___________________________________________________________________________________ INDEX (INT_FUND_, PROJ_BEZ) WARNING 4018 *** INDEX CAN BE USED ONLY WITHIN 'IN PREDICATE' OR WITHIN 'COMPARISON PREDICATE' WITH 'EQUALS OPERATOR' TABLE SYSTEM ATTRIBUTE TYPE NOT NULL DEFAULT ___________________________________________________________________________________8) --- SYSTEM_ INTEGER NOT NULL 0 PRIMARY KEY SYSTEMDEFINED ___________________________________________________________________________________ *** SHORT INFORMATION ABOUT RELATIONAL SCHEMA RELATIONAL SCHEMA CAN BE PROCESSED WITH SQL *** SHORT INFORMATION ABOUT TABLES RET = Y : TABLE CAN BE PROCESSED WITH SQL = N : TABLE CANNOT BE PROCESSED WITH SQL INS = N : NO INSERT ALLOWED ON TABLE UPD = N : NO UPDATE ALLOWED ON TABLE ATR = Y : ALL ATTRIBUTES CAN BE PROCESSED WITH SQL TABLE RET INS UPD ATR _____________________________________________ ABTEILUNG Y Y Y Y MITARBEITER Y Y Y Y PROJEKT Y Y Y Y ***** DIAGNOSTIC SUMMARY FOR SUBSCHEMA PERSONAL-DB NO ERRORS +++++ 4 WARNINGS ***** END OF DIAGNOSTIC SUMMARY