Oracle Apps : Key Flex Fields

set arraysize 1
set heading off
set feedback off
set verify off
set lines 100
set pages 10000
set termout off
SET LINESIZE 200
column ID_FLEX_NAME Heading 'Flex Field Name'
column APPLICATION_TABLE_NAME Heading 'App Table Name'
column ID_FLEX_STRUCTURE_NAME Heading 'Flex Structure Name'
column APPLICATION_COLUMN_NAME Heading 'App Column Name'
column SEGMENT_NAME Heading 'Segment Name'

column ID_FLEX_NAME FORMAT A30
column APPLICATION_TABLE_NAME FORMAT A30
column ID_FLEX_STRUCTURE_NAME FORMAT A30
column APPLICATION_COLUMN_NAME FORMAT A30
column SEGMENT_NAME FORMAT A30

def keyflexoutfile = "keyflexfields.lst"
spool &keyflexoutfile

Select
I.ID_FLEX_NAME,
I.APPLICATION_TABLE_NAME,
J.ID_FLEX_STRUCTURE_NAME,
K.APPLICATION_COLUMN_NAME,
K.SEGMENT_NAME
from
FND_ID_FLEXS I,
FND_ID_FLEX_STRUCTURES_VL J,
FND_ID_FLEX_SEGMENTS K
Where
I.Application_Id = J.Application_Id
And I.Id_Flex_Code = J.Id_Flex_Code
And I.application_id = K.application_id
And I.Id_flex_code = K.Id_Flex_Code
And J.Id_flex_num = K.id_flex_num
And (K.Enabled_Flag = 'Y' and J.Enabled_Flag = 'Y')
order by I.Id_flex_code,k.APPLICATION_COLUMN_NAME;

spool off
set heading on
set feedback on
set termout on
set verify on