SET PAUSE OFF
SET PAGESIZE 60
SET LINESIZE 80
CLEAR COLUMNS
CLEAR BREAKS
CLEAR SCREEN
PROMPT "Enter shipper ID as a 5 digit number in single quotes.
ACCEPT INPUT_SHIP_ID CHAR PROMPT  "Shipper Id: "
COLUMN IN_SHIPNAME   NOPRINT NEW_VALUE   SHIP_NAME
COLUMN IN_SHIPADDR   NOPRINT NEW_VALUE   ADDR
COLUMN IN_SHIPCITY   NOPRINT NEW_VALUE   CITY
COLUMN IN_SHIPSTATE  NOPRINT NEW_VALUE   STATE
COLUMN IN_SHIPZIP    NOPRINT NEW_VALUE   ZIP
COLUMN TODAY         NOPRINT NEW_VALUE   REPORT_DATE
TTITLE LEFT 'Shippers Name: ' SHIP_NAME SKIP 1 -
       LEFT '      Address: ' ADDR      SKIP 1 -
       LEFT '               ' CITY ', ' STATE ' ' ZIP    SKIP 1 -              
       LEFT ' ' SKIP 1 
BREAK ON C_CUST_ID NODUP SKIP PAGE ON IN_SHIP_ID SKIP 1
COMPUTE SUM OF LI_QTY ON C_CUST_ID
COLUMN C_CUST_ID         HEADING 'Cust #'   FOR 99999
COLUMN C_COMPANY         HEADING 'Company'  FOR A20
COLUMN IN_ORDER_ID       HEADING 'Order id' FOR 999999
COLUMN IN_SHIPPED_DATE   HEADING 'Sh Date'  FOR A10
COLUMN LI_QTY            HEADING 'Qty'      FOR 999999
SELECT IN_SHIPNAME, IN_SHIPADDR,
       IN_SHIPCITY, IN_SHIPSTATE, IN_SHIPZIP,
       TO_CHAR(SYSDATE) TODAY, C_CUST_ID,
       C_COMPANY, IN_ORDER_ID, IN_SHIPPED_DATE, LI_QTY
FROM MROBBERT.OR_INVOICE, MROBBERT.OR_CUST,
     MROBBERT.OR_ORDER, MROBBERT.OR_LINE_ITEM
WHERE C_CUST_ID = OR_CUST_ID AND
      IN_SHIPPED_DATE LIKE '%-95' AND
      IN_ORDER_ID = OR_ORDER_ID AND
      LI_ORDER_ID = OR_ORDER_ID AND
      IN_SHIP_ID = '&INPUT_SHIP_ID'
ORDER BY C_CUST_ID, OR_ORDER_ID;
TTITLE OFF