SELECT R.RECNAME AS RECORD_NAME,
( CASEWHEN R.RECTYPE = 0 THEN 'Table'
WHEN R.RECTYPE = 1 THEN 'View'
WHEN R.RECTYPE = 2 THEN 'Derived'
WHEN R.RECTYPE = 3 THEN 'Sub Record'
WHEN R.RECTYPE = 5 THEN 'Dynamic View'
WHEN R.RECTYPE = 6 THEN 'Query View'
WHEN R.RECTYPE = 7 THEN 'Temporary Table'
ELSE 'Unknown'
END ) AS RECORD_TYPE
FROM PSRECDEFN R
WHERE R.RECNAME IN (SELECT DISTINCT RECNAME
FROM PSPNLFIELD
WHERE PNLNAME IN (SELECT DISTINCT B.PNLNAME
FROM PSPNLGROUP A,
PSPNLFIELD B
WHERE ( A.PNLNAME = B.PNLNAME
OR A.PNLNAME = B.SUBPNLNAME )
AND A.PNLGRPNAME=:1 --Comp Name
AND RECNAME <> ' ')
UNION
SELECT DISTINCT RECNAME
FROM PSPNLFIELD
WHERE PNLNAME IN (SELECT DISTINCT B.SUBPNLNAME
FROM PSPNLGROUP A,
PSPNLFIELD B
WHERE ( A.PNLNAME = B.PNLNAME
OR A.PNLNAME = B.SUBPNLNAME )
AND A.PNLGRPNAME=:1--Comp Name))
AND R.RECNAME <> ' '
ORDER BY R.RECTYPE ;
No comments:
Post a Comment