SQL> SQL> prompt SQL> prompt ****** Welcome to the Order Processing Program ****** ****** Welcome to the Order Processing Program ****** SQL> prompt SQL> SQL> select ' Today''s Date: ' ||rtrim(sysdate)||'' from dual; Today's Date: 15-5ды -07 1 row selected. SQL> SQL> accept vEmnum prompt 'Enter the Employee Number: '; Enter the Employee Number: E1 SQL> select ' Employee Name: ' ||initcap(rtrim(Elast))||', ' ||initcap(rtrim(Efirst))||'' from Employee where Emnum='&vEmnum'; old 1: select ' Employee Name: ' ||initcap(rtrim(Elast))||', ' ||initcap(rtrim(Efirst))||'' from Employee where Emnum='&vEmnum' new 1: select ' Employee Name: ' ||initcap(rtrim(Elast))||', ' ||initcap(rtrim(Efirst))||'' from Employee where Emnum='E1' Employee Name: Chang, Susan 1 row selected. SQL> select ' Employee Job Title: ' ||initcap(rtrim(Title))||'' from Employee where Emnum='&vEmnum'; old 1: select ' Employee Job Title: ' ||initcap(rtrim(Title))||'' from Employee where Emnum='&vEmnum' new 1: select ' Employee Job Title: ' ||initcap(rtrim(Title))||'' from Employee where Emnum='E1' Employee Job Title: Manager 1 row selected. SQL> SQL> accept vInum prompt 'Enter the Item Number: '; Enter the Item Number: 101 SQL> select ' Item Description: ' ||initcap(rtrim(Itemname))||'' from Product where Product.Inum='&vInum'; old 1: select ' Item Description: ' ||initcap(rtrim(Itemname))||'' from Product where Product.Inum='&vInum' new 1: select ' Item Description: ' ||initcap(rtrim(Itemname))||'' from Product where Product.Inum='101' Item Description: Pencil 1 row selected. SQL> select ' Quantity In Stock: ' ||rtrim(Stockqty)||'' from Product where Product.Inum='&vInum'; old 1: select ' Quantity In Stock: ' ||rtrim(Stockqty)||'' from Product where Product.Inum='&vInum' new 1: select ' Quantity In Stock: ' ||rtrim(Stockqty)||'' from Product where Product.Inum='101' Quantity In Stock: 260 1 row selected. SQL> SQL> accept vSpnum prompt 'Enter the Supplier Number: '; Enter the Supplier Number: 099 SQL> select ' Supplier Name: ' ||initcap(rtrim(Sname))||'' from SupplierDetails where Spnum='&vSpnum'; old 1: select ' Supplier Name: ' ||initcap(rtrim(Sname))||'' from SupplierDetails where Spnum='&vSpnum' new 1: select ' Supplier Name: ' ||initcap(rtrim(Sname))||'' from SupplierDetails where Spnum='099' Supplier Name: Office Depot 1 row selected. SQL> select ' Address: ' ||initcap(rtrim(Address))||'' from SupplierDetails where Spnum='&vSpnum'; old 1: select ' Address: ' ||initcap(rtrim(Address))||'' from SupplierDetails where Spnum='&vSpnum' new 1: select ' Address: ' ||initcap(rtrim(Address))||'' from SupplierDetails where Spnum='099' Address: 123 Main Street 1 row selected. SQL> select ' City: ' ||initcap(rtrim(City))||'' from SupplierDetails where Spnum='&vSpnum'; old 1: select ' City: ' ||initcap(rtrim(City))||'' from SupplierDetails where Spnum='&vSpnum' new 1: select ' City: ' ||initcap(rtrim(City))||'' from SupplierDetails where Spnum='099' City: Long Beach 1 row selected. SQL> select ' State: ' ||upper(rtrim(State))||'' from SupplierDetails where Spnum='&vSpnum'; old 1: select ' State: ' ||upper(rtrim(State))||'' from SupplierDetails where Spnum='&vSpnum' new 1: select ' State: ' ||upper(rtrim(State))||'' from SupplierDetails where Spnum='099' State: CA 1 row selected. SQL> select ' Zip: ' ||rtrim(Zip)||'' from SupplierDetails where Spnum='&vSpnum'; old 1: select ' Zip: ' ||rtrim(Zip)||'' from SupplierDetails where Spnum='&vSpnum' new 1: select ' Zip: ' ||rtrim(Zip)||'' from SupplierDetails where Spnum='099' Zip: 90807 1 row selected. SQL> select ' Phone: ' || '(' ||rtrim(substr(Phone,1,3))|| ')' ||substr(Phone,4,3)|| '-' ||substr(Phone,7,4)||'' from SupplierDetails where Spnum='&vSpnum'; old 1: select ' Phone: ' || '(' ||rtrim(substr(Phone,1,3))|| ')' ||substr(Phone,4,3)|| '-' ||substr(Phone,7,4)||'' from SupplierDetails where Spnum='&vSpnum' new 1: select ' Phone: ' || '(' ||rtrim(substr(Phone,1,3))|| ')' ||substr(Phone,4,3)|| '-' ||substr(Phone,7,4)||'' from SupplierDetails where Spnum='099' Phone: (562)985-1111 1 row selected. SQL> SQL> accept vOrderqty prompt ' Enter the Quantity to be Ordered: '; Enter the Quantity to be Ordered: 30 SQL> select ' Unit Price: ' ||rtrim(Unitprice) ||'' from Price where Price.Inum='&vInum'; old 1: select ' Unit Price: ' ||rtrim(Unitprice) ||'' from Price where Price.Inum='&vInum' new 1: select ' Unit Price: ' ||rtrim(Unitprice) ||'' from Price where Price.Inum='101' Unit Price: 2 1 row selected. SQL> select ' Amount Due: ' ||rtrim(Unitprice*'&vOrderqty')||'' from Price where Price.Inum='&vInum'; old 1: select ' Amount Due: ' ||rtrim(Unitprice*'&vOrderqty')||'' from Price where Price.Inum='&vInum' new 1: select ' Amount Due: ' ||rtrim(Unitprice*'30')||'' from Price where Price.Inum='101' Amount Due: 60 1 row selected. SQL> prompt SQL> prompt ***** Order Status: Open ***** Order Status: Open SQL> prompt SQL> select '***** Order number is ----->' ||rtrim(Onum.Nextval)||'' from dual; ***** Order number is ----->1000 1 row selected. SQL> commit; Commit complete. SQL> SQL> insert into OrderDetail (Onum, Odate, Eonum, Inum, Spnum, Orderqty, Unitprice, Amtdue, Orderstatus) 2 select (Onum.Currval), sysdate, '&vEmnum', Price.Inum, Price.Spnum, '&vOrderqty', Price.Unitprice, (Price.Unitprice*'&vOrderqty'), 'Open' from dual, Price; old 2: select (Onum.Currval), sysdate, '&vEmnum', Price.Inum, Price.Spnum, '&vOrderqty', Price.Unitprice, (Price.Unitprice*'&vOrderqty'), 'Open' from dual, Price new 2: select (Onum.Currval), sysdate, 'E1', Price.Inum, Price.Spnum, '30', Price.Unitprice, (Price.Unitprice*'30'), 'Open' from dual, Price insert into OrderDetail (Onum, Odate, Eonum, Inum, Spnum, Orderqty, Unitprice, Amtdue, Orderstatus) * ERROR at line 1: ORA-00001: unique constraint (SYSTEM.SYS_C006386) violated SQL> commit; Commit complete. SQL> SQL> /*insert into OrderDetail (Onum) select (Onum.Currval) from dual;*/ Commit complete. SQL> /*commit;*/ Commit complete. SQL> /*update OrderDetail set Odate=sysdate where Onum=Onum;*/ Commit complete. SQL> /*commit;*/ Commit complete. SQL> /*update OrderDetail set OrderQty='&vOrderqty' where Onum=Onum;*/ Commit complete. SQL> /*commit;*/ Commit complete. SQL> /*update OrderDetail set (Inum,Spnum,Unitprice) = (select Price.Inum,Price.Spnum,Price.Unitprice from Price where Price.Inum='&vInum' and Price.Spnum='&vSpnum') where Onum=Onum; */ Commit complete. SQL> /*commit;*/ Commit complete. SQL> /*update OrderDetail set Eonum='&vEmnum' where Onum=Onum;*/ Commit complete. SQL> /*commit;*/ Commit complete. SQL> /*update OrderDetail set Amtdue=Unitprice*'&vOrderqty' where Onum=Onum;*/ Commit complete. SQL> /*commit;*/ Commit complete. SQL> /*update OrderDetail set Orderstatus='Open' where Onum=Onum;*/ Commit complete. SQL> /*commit;*/ Commit complete. SQL> SQL> spool off