Open Work Orders by Order Type in each Branch Plant

--OPEN WORK ORDER HEADER RECORDS THAT HAD ACTIVITY (STATUS <> 99)--
SELECT WADCTO,
       WADOCO,
       WACO,
       WAMCU,
       WASRST,
       WAPPFG,
       WADRQJ,
       WAUORG,
       WASOQS,
       (WAUORG - WASOQS) " QTY INCOMPLETE",
       WASOCN
  FROM PRODDTA.F4801
 WHERE WASRST <> '99'
   AND (WASOQS <> 0 OR WASOCN <> 0 OR EXISTS
        (SELECT *
           FROM PRODDTA.F3111
          WHERE WADOCO = WMDOCO
            AND WADCTO = WMDCTO
            AND WMTRQT <> 0) OR EXISTS
        (SELECT *
           FROM PRODDTA.F3112
          WHERE WADOCO = WLDOCO
            AND WADCTO = WLDCTO
            AND (WLLABA <> 0 OR WLSETA <> 0 OR WLMACA <> 0)))
 ORDER BY WADCTO, WACO, WAMCU, WASRST, WAPPFG

----------------------------------------------------------------------------------------
--WORK ORDERS THAT HAD ACTIVITY--



SELECT WADCTO,
       WADOCO,
       WACO,
       WAMCU,
       WASRST,
       WAPPFG,
       WASOQS,
       WASOCN,
       WMTRQT,
       WLLABA,
       WLSETA,
       WLMACA
  FROM PRODDTA.F4801, PRODDTA.F3111, PRODDTA.F3112
 WHERE WADOCO = WMDOCO
   AND WADCTO = WMDCTO
   AND WADOCO = WLDOCO
   AND WADCTO = WLDCTO AND (WASOQS <> 0 OR
       WASOCN <> 0 OR
       WMTRQT <> 0 OR
       WLLABA <> 0 OR
       WLSETA <> 0 OR
       WLMACA <> 0)
 ORDER BY WADCTO, WACO, WAMCU, WASRST, WAPPFG

_____________________________________________________________________
--WORK ORDER HEADER RECORDS THAT HAD ACTIVITY--

SELECT WADCTO,
       WADOCO,
       WACO,
       WAMCU,
       WASRST,
       WAPPFG,
       WADRQJ,
       WAUORG,
       WASOQS,
       (WAUORG - WASOQS) " QTY INCOMPLETE",
       WASOCN
  FROM PRODDTA.F4801
 WHERE WASOQS <> 0
    OR WASOCN <> 0
    OR EXISTS (SELECT *
          FROM PRODDTA.F3111
         WHERE WADOCO = WMDOCO
           AND WADCTO = WMDCTO
           AND WMTRQT <> 0)
    OR EXISTS
 (SELECT *
          FROM PRODDTA.F3112
         WHERE WADOCO = WLDOCO
           AND WADCTO = WLDCTO
           AND (WLLABA <> 0 OR WLSETA <> 0 OR WLMACA <> 0))
 ORDER BY WADCTO, WACO, WAMCU, WASRST, WAPPFG