Figure 2: Running DBSCHEMA

---

:RUN DBSCHEMA.PUB.SYS;STDIN=SCHEMA



PAGE 1      HEWLETT-PACKARD 30391C.07.04  TurboIMAGE/3000: DBSCHEMA

BEGIN DATA BASE ORDERS;  << CUSTOMER ORDERS >> 



PASSWORDS: 

4 CLERK;        << SALES CLERK >> 

8 SUPER;        << SUPERVISOR OF CUSTOMER ORDERS DEPARTMENT >> 

15 DO-ALL;      << PROGRAMMER/ANALYST - CREATOR OF DATA BASE>> 



ITEMS:               << (READ / WRITE) >> 

ACCOUNT,        X6   (4,8,15/8,15);    << CUSTOMER ACCT=AA-NNN  >> 

CITY,           X14  (4,8,15/8,15);    << CUSTOMER CITY         >> 

DATE,           X6   (4,8,15/8,15);    << DATE = DDMMYY         >> 

DELIV-DATE,     X6   (4,8,15/8,15);    << DEL. DATE = DDMMYY    >> 

FIRSTNAME,      X10  (4,8,15/8,15);    << CUSTOMER NAME         >> 

LASTNAME,       X16  (4,8,15/8,15);    << CUSTOMER NAME         >> 

PRICE,          J2   (4,8,15/8,15);    << PRODUCT UNIT PRICE    >> 

QTY,            J2   (4,8,15/8,15);    << QUANTITY OF ITEMS     >> 

PART-NO,        X8   (4,8,15/8,15);    << PRODUCT PART NUMBER   >> 

PART-NAME,      X14  (4,8,15/8,15);    << PRODUCT DESCRIPTION   >> 

STREET,         X26  (4,8,15/8,15);    << CUSTOMER STREET ADDR  >> 

TOTAL,          J2   (4,8,15/8,15);    << TOTAL OF PURCHASES    >> 

ZIPCODE,        X6   (4,8,15/8,15);    << CUSTOMER ZIPCODE      >> 

 

SETS: 

NAME:             CUSTOMER,MANUAL(4,8,15/8,15); 

ENTRY:            ACCOUNT(1), 

                        LASTNAME, 

                        FIRSTNAME, 

                        STREET, 

                        CITY, 

                        ZIPCODE; 

CAPACITY:         201; 

 

NAME:             DATE-MASTER,AUTOMATIC; 

ENTRY:              DATE(1); 

CAPACITY:         211; 

 

NAME:             SALES,DETAIL(4,8,15/8,15); 

ENTRY:              ACCOUNT(CUSTOMER), 

                                DATE(DATE-MASTER), 

                                PART-NO, 

                                PART-NAME, 

                                QTY, 

                                PRICE, 

                                TOTAL, 

                                DELIV-DATE; 

CAPACITY:         1231; 

 

END. 

 DATA SET    TYPE  FLD  PT  ENTR  MED  MAXIMUM    BLK  BLK  DISC  

   NAME           CNT  CT  LGTH  REC  CAPACITY   FAC  LGTH SPACE  

CUSTOMER        M  6    1  39    50   201        10   501  96       

DATE-MASTER     A  1    1  3     14   211        36   507  32       

SALES           D  8    2  26    34   1245       15   511  336      

                        TOTAL DISC SECTORS INCLUDING ROOT: 480      

 

NUMBER OF ERROR MESSAGES: 0     

ITEM NAME COUNT: 13      DATA SET COUNT: 3     

ROOT LENGTH: 908         BUFFER LENGTH: 511     TRAILER LENGTH: 256    

 

ROOT FILE ORDERS CREATED.

END OF PROGRAM

: