tim laqua dot com Thoughts and Code from Tim Laqua

SELECT
       RTRIM(TDOBNM)   AS TABLE_NAME,
       RTRIM(d.SIMD)   AS Table_Description,
       RTRIM(d.SIPFX)  AS Table_Prefix,
       RTRIM(TDOBND)   AS Data_Dictionary_Object_Name,
       RTRIM(TDSQLC)   AS SQL_Column_Name,
       RTRIM(b.FRDSCR) AS Column_Description,
       RTRIM(e.DRDL01) AS Field_Type,
       RTRIM(c.FRDTAS) AS Field_Length,
       RTRIM(c.FRDTAD) AS Field_Decimals,
       --RTRIM(c.FROWDI) as DD_Item,
	CASE 
		WHEN RTRIM(c.FROWER) = 'UDC' THEN 'UDC: RTRIM(DRSY)=''' || RTRIM(c.FROER1) || ''' AND RTRIM(DRRT)=''' || RTRIM(c.FROER2) || ''''
		ELSE 'Generic Edit'
	END AS Edit_Type,
       --RTRIM(c.FROWER) as Edit_Rule,
       --RTRIM(c.FROER1) as Edit_Rule_Parm1,
       --RTRIM(c.FROER2) as Edit_Rule_Parm2,
       RTRIM(TDPSEQ)   AS Program_Sequence_Number
FROM
        COPD910.F98711 a
        LEFT OUTER JOIN DD910.F9202 b
                ON a.TDOBND = b.FRDTAI
                   AND FRLNGP = '  '
                   AND FRSYR = '    '
        LEFT OUTER JOIN DD910.F9210 c
                ON a.TDOBND = c.FRDTAI
        LEFT OUTER JOIN OL910.F9860 d
                ON a.TDOBNM = d.SIOBNM
                   AND d.SIFUNO = 'TBLE'
        LEFT OUTER JOIN PRODCTL.F0005 e
                ON LTRIM(RTRIM(c.FROWTP)) = LTRIM(RTRIM(e.DRKY))
                   AND e.DRSY = 'H98'
                   AND e.DRRT = 'DT'
WHERE
        RTRIM(TDOBNM) LIKE ?
ORDER BY
        TDOBNM,
        TDPSEQ

SELECT RTRIM(TDOBNM) as Table_Name, RTRIM(d.SIMD) as Table_Description, RTRIM(d.SIPFX) as Table_Prefix, RTRIM(TDOBND) as Data_Dictionary_Object_Name, RTRIM(TDSQLC) as SQL_Column_Name, RTRIM(b.FRDSCR) as Column_Description, RTRIM(e.DRDL01) as Field_Type, RTRIM(c.FRDTAS) as Field_Length, RTRIM(c.FRDTAD) as Field_Decimals, --RTRIM(c.FROWDI) as DD_Item, CASE WHEN RTRIM(c.FROWER) = 'UDC' THEN 'UDC: RTRIM(DRSY)=''' || RTRIM(c.FROER1) || ''' AND RTRIM(DRRT)=''' || RTRIM(c.FROER2) || '''' ELSE 'Generic Edit' END as Edit_Type, --RTRIM(c.FROWER) as Edit_Rule, --RTRIM(c.FROER1) as Edit_Rule_Parm1, --RTRIM(c.FROER2) as Edit_Rule_Parm2, RTRIM(TDPSEQ) as Program_Sequence_Number FROM COPD910.F98711 a LEFT OUTER JOIN DD910.F9202 b ON a.TDOBND = b.FRDTAI AND FRLNGP = ' ' AND FRSYR = ' ' LEFT OUTER JOIN DD910.F9210 c ON a.TDOBND = c.FRDTAI LEFT OUTER JOIN OL910.F9860 d ON a.TDOBNM = d.SIOBNM AND d.SIFUNO = 'TBLE' LEFT OUTER JOIN PRODCTL.F0005 e ON LTRIM(RTRIM(c.FROWTP)) = LTRIM(RTRIM(e.DRKY)) AND e.DRSY = 'H98' AND e.DRRT = 'DT' WHERE RTRIM(TDOBNM) Like ? ORDER BY TDOBNM, TDPSEQ