Procedure to get the Concurrent program

DECLARE
CP VARCHAR2(250);
SHORT_NAME VARCHAR2(150);
CP_DESC VARCHAR2(250);
APPL_ID NUMBER(10);
OUTPUT_TYPE VARCHAR2(25);
STATUS VARCHAR2(15);
EX_METHOD VARCHAR2(150);
APPLICATION_NAME VARCHAR2(50);
EX_DESC VARCHAR2(150);
EX_FILE_NAME VARCHAR2(200);
PARAMETER VARCHAR2(200);
PROMPT VARCHAR2(150);
VALUE_SET VARCHAR2(250);
CURSOR REP_CUR IS SELECT USER_CONCURRENT_PROGRAM_NAME FROM FND_CONCURRENT_PROGRAMS_VL
                         WHERE USER_CONCURRENT_PROGRAM_NAME LIKE  'ITW_EX_INVOICE_BR_NEW_CESS'
AND ENABLED_FLAG='Y'
;
  -- ORDER BY CONCURRENT_PROGRAM_ID;
BEGIN
FOR I IN REP_CUR LOOP
--DBMS_OUTPUT.PUT_LINE(I.USER_CONCURRENT_PROGRAM_NAME);
--END LOOP;
--END;
SELECT DISTINCT FCPT.USER_CONCURRENT_PROGRAM_NAME
,FCPT.CONCURRENT_PROGRAM_NAME CP_SHORT_NAME
,FCPT.DESCRIPTION CP_DESC
,FCPT.APPLICATION_ID
--,FCP.CONCURRENT_PROGRAM_NAME SHORT_NAME
,FCP.OUTPUT_FILE_TYPE
,DECODE(FCP.ENABLED_FLAG,'Y','ACTIVE','N','INACTIVE')STATUS
,DECODE(FEX.EXECUTION_METHOD_CODE,'I','PL/SQL Stored Procedure','H','Host','P','Oracle Reports',
                                 'K','Java Concurrernt Program','Q','SQL*Plus','M','Multi Lanuage Function',
'A','Spawned','J','Java Stored Procedure','B','Request Set Stage Function',
'S','Immediate','L','SQL*Loader','P','Perl Concurrent Program')EXECUTION_METHOD
,FEX.APPLICATION_NAME
,FEX.DESCRIPTION EX_DESC
,FEX.EXECUTION_FILE_NAME
,FDP.SRW_PARAM
/*,FORM_LEFT_PROMPT PROMPT
,FFVS.FLEX_VALUE_SET_NAME*/
---
INTO
CP
,SHORT_NAME
,CP_DESC
,APPL_ID
,OUTPUT_TYPE
,STATUS
,EX_METHOD
,APPLICATION_NAME
,EX_DESC
,EX_FILE_NAME
,PARAMETER
/*,PROMPT
,VALUE_SET*/
FROM
--FND_CONCURRENT_PROGRAMS_TL FCPT,
FND_CONCURRENT_PROGRAMS_VL FCPT
,FND_CONCURRENT_PROGRAMS FCP
,FND_EXECUTABLES_FORM_V FEX
,FND_DESCR_FLEX_COL_USAGE_VL FDP
,FND_FLEX_VALUE_SETS FFVS
WHERE
FCPT.CONCURRENT_PROGRAM_ID = FCP.CONCURRENT_PROGRAM_ID
AND FCP.EXECUTABLE_ID = FEX.EXECUTABLE_ID
AND FCPT.APPLICATION_ID = FDP.APPLICATION_ID
AND FCPT.CONCURRENT_PROGRAM_NAME = SUBSTR(FDP.DESCRIPTIVE_FLEXFIELD_NAME,7)    --or FDP.DESCRIPTIVE_FLEXFIELD_NAME = '$SRS$.'||FCPT.CONCURRENT_PROGRAM_NAME)
AND FDP.FLEX_VALUE_SET_ID=FFVS.FLEX_VALUE_SET_ID
AND FCP.ENABLED_FLAG='Y'
AND FCPT.CONCURRENT_PROGRAM_NAME=I.USER_CONCURRENT_PROGRAM_NAME;
--AND FCPT.USER_CONCURRENT_PROGRAM_NAME like 'ITW_EX_INVOICE_BR_NEW_CESS'
--AND FCPT.CONCURRENT_PROGRAM_ID <> 0
DBMS_OUTPUT.PUT_LINE(CP
                     ||CHR(9)||SHORT_NAME||CHR(9)||
          CP_DESC||CHR(9)||
  APPL_ID||CHR(9)||
  OUTPUT_TYPE||CHR(9)||
  STATUS||CHR(9)||
  EX_METHOD||CHR(9)||
  APPLICATION_NAME||CHR(9)||
  EX_DESC||CHR(9)||
  EX_FILE_NAME||CHR(9)||
  PARAMETER||CHR(9)/*||
  PROMPT||CHR(9)||
  VALUE_SET||CHR(9)*/
  );
END LOOP;
--DBMS_OUTPUT.PUT_LINE('HAI'||CP_NAME);
END;