TurboIMAGE/XL Database Management System Reference Manual MPE/iX V6.5 (30391-90011)

268 Chapter6
Host Language Access
COBOL II
05 ACCOUNT-NUMBER PIC S9(9) COMP.
05 STOCK-NUMBER PIC X(8).
05 QUANTITY PIC S9(4) COMP.
05 PRICE PIC S9(9) COMP.
05 TAX PIC S9(9) COMP.
05 TOTAL PIC S9(9) COMP.
05 PURCH-DATE PIC X(6).
05 DELIV-DATE PIC X(6).
01 SALES-BUFFER-OUT.
05 ACCOUNT-NUMBER-OUT PIC Z(9)9.
05 STOCK-NUMBER-OUT PIC B(7)X(8).
05 QUANTITY-OUT PIC Z(5)9.
05 PRICE-OUT PIC Z(6)9.
05 TAX-OUT PIC Z(4)9.
05 TOTAL-OUT PIC Z(6)9.
05 PURCH-DATE-OUT PIC B(6)X(6).
05 DELIV-DATE-OUT PIC B(6)X(6).
01 SALES-BUFFER-HEADER.
05 ACCOUNT-NUMBER-HEAD PIC X(13)
VALUE "Acct-Number ".
05 STOCK-NUMBER-HEAD PIC X(15)
VALUE "Stock-Number ".
05 QUANTITY-HEAD PIC X(05)
VALUE "QTY ".
05 PRICE-HEAD PIC X(07)
VALUE "Price ".
05 TAX-HEAD PIC X(06)
VALUE "Tax ".
05 TOTAL-HEAD PIC X(07)
VALUE "Total ".
05 PURCH-DATE-HEAD PIC X(13)
VALUE "Purch-Date ".
05 DELIV-DATE-HEAD PIC X(14)
VALUE "Delive-Date ".
01 LINE-HEADER.
05 PIC X(40)
VALUE "----------------------------------------".
05 PIC X(38)
VALUE "--------------------------------------".
01 NOT-USED-PARM-16 PIC S9(4) COMP.
01 NOT-USED-PARM-32 PIC S9(9) COMP.
01 FOUND-VALUE PIC S9(4) COMP.
88 NOT-FOUND VALUE 0.
88 FOUND VALUE 1.
01 CUSTOMER-MASTER PIC X(16).
01 CUSTOMER-BUFFER.
05 ACCOUNT-NUMBER PIC S9(9) COMP.
05 LAST-NAME PIC X(16).
05 FIRST-NAME PIC X(10).
05 INITIAL1 PIC X(02).
05 STREET-ADDRESS PIC X(26).
05 CITY PIC X(12).
05 STATE PIC X(02).
05 ZIP PIC X(06).
05 CREDIT-RATING PIC X(08).
01 CUSTOMER-BUFFER-OUT.
05 ACCOUNT-NUMBER-CUST-OUT PIC 9(6).
05 FIRST-NAME-CUST-OUT PIC X(15) JUST RIGHT.