Retrieve Form Fields with Labels

forms-w-labels.sql

WITH MY_VIEW AS (
                SELECT FIELDNAME,LABEL18,ROWNUM AS ROWNUMBER
                FROM (
                    SELECT A.FIELDNAME,A.LABEL18
                    FROM PS_FS_SD_RECFLD A
                    ,PS_FS_SD_GRPFLD B
                    WHERE B.SD_GRP_NAME = 'VNDR_AUTH'
                    AND A.SD_RECNAME = 'VNDR_AUTH'
                    AND B.SD_RECNAME = A.SD_RECNAME
                    AND B.SD_FLDNAME = A.SD_FLDNAME
                    AND A.FIELDNAME <> ' '
                    ORDER BY B.SEQ_NUM
                    )
                )
SELECT STMT
FROM (
        SELECT 'SELECT ' || FIELDNAME || ' AS "' || LABEL18 || '"' AS STMT,ROWNUMBER
        FROM MY_VIEW
        WHERE ROWNUMBER = 1
        UNION
        SELECT ',' || FIELDNAME || ' AS "' || LABEL18 || '"',ROWNUMBER
        FROM MY_VIEW
        WHERE ROWNUMBER <> 1
        UNION
        SELECT 'FROM PS_FORM_SD',9998 FROM DUAL
        UNION
        SELECT 'WHERE SD_RECNAME = ''VNDR_AUTH''',9999 FROM DUAL
    )
ORDER BY ROWNUMBER