TurboIMAGE/XL Database Management System Reference Manual (30391-90012)

Chapter 6 247
Host Language Access
Model Program
ITEMS: << IN ALPHABETICAL ORDER FOR CONVENIENCE >>
ACCOUNT, J2 ; << CUSTOMER ACCOUNT NUMBER>>
BINNUM, Z2 (/13); << STORAGE LOCATION OF PROD>>
CITY, X12 (12,13,14/11); << CITY>>
CREDIT-RATING, R2 (/14); << CUSTOMER CREDIT RATING>>
DATE, X6 ; << DATE (YYMMDD)>>
DELIV-DATE, X6 (/14); << DELIVERY DATE (YYMMDD)>>
DESCRIPTION, X20 ; << PRODUCT DESCRIPTION>>
FIRST-NAME, X10 (14/11); << CUSTOMER GIVEN NAME>>
INITIAL, U2 (14/11); << CUSTOMER MIDDLE INITIAL>>
LAST-NAME, X16 (14/11); << CUSTOMER SURNAME>>
LASTSHIPDATE, X6 (12/ ); << DATE LAST REC D(YYMMDD)>>
ONHANDQTY, J2 (14/12); << TOTAL PRODUCT INVENTORY>>
PRICE, J2 (14/); << SELLING PRICE (PENNIES)>>
PURCH-DATE, X6 (11/14); << PURCHASE DATE (YYMMDD)>>
QUANTITY, I (/14); << SALES PURCHASE QUANTITY>>
STATE, X2 (12,13,14/11); << STATE -- 2 LETTER ABB>>
STOCK#, U8 ; << PRODUCT STOCK NUMBER>>
STREET-ADDRESS, X26 (12,13,14/11); << NUMBER AND STREET ADDRESS>>
SUPPLIER, X16 (12,13/); << SUPPLYING COMPANY NAME>>
TAX, J2 (14/); << SALES TAX (PENNIES)>>
TOTAL, J2 (11,14/); << TOTAL AMOUNT OF SALE (PENNIES)>>
UNIT-COST, P8 (/12); << UNIT COST OF PRODUCT>>
ZIP, X6 (12,13,14/11); << ZIP CODE>>
SETS:
NAME: DATE-MASTER,AUTOMATIC,DISC1; <<DATE MASTER>>
ENTRY: DATE(3);
CAPACITY: 365;
NAME: CUSTOMER,MANUAL(14/11,18),DISC1; <<CUSTOMER MASTER>>
ENTRY: ACCOUNT(1),
LAST-NAME,
FIRST-NAME,
INITIAL,
STREET-ADDRESS,
CITY,
STATE,
ZIP,
CREDIT-RATING;
CAPACITY: 201;
PAGE 2 SCHEMA FOR DATABASE ORDERS
NAME: PRODUCT,MANUAL(13,14/12,18),DISC1;<<PRODUCT MASTER>>
ENTRY: STOCK#(2),
DESCRIPTION;
CAPACITY: 300;
NAME: SUP-MASTER,MANUAL(13/12,18),DISC1; <<SUPPLIER MASTER>>
ENTRY: SUPPLIER(1),
STREET-ADDRESS,
CITY,
STATE,
ZIP;
CAPACITY: 201;