regarding alv output

Former Member · ‎2008 Jun 23

Hi all i am working in alv report but i m unable to get proper

output.

Can anyone help me where i m making mistake

i am getting dump as " Exception condition "NO_FIELDCATALOG_AVAILABLE" raised."

below i m giving my code .

<code>

&----

*& Report ZTEST_COND

*&

&----

*&

&----

*REPORT ZTEST_COND.

&----

*& Report ZTEST_CONDITION

*&

&----

*&

&----

REPORT ZTEST_CONDITION.

TYPE-POOLS :SLIS.

TABLES : T682I. " Conditions: Access Sequences

Internal table for extracting all the conditions access sequences

*and corresponding structures

TYPES : BEGIN OF TY_CONDITION_ACCESS,

KVEWE TYPE KVEWE, " Usage of the condition table

KAPPL TYPE KAPPL, " Application

KOZGF TYPE KOZGF, " Access sequence

KOLNR TYPE KOLNR, " Access sequence - Access number

KOTABNR TYPE KOTABNR, " Condition table

KKIDX TYPE KKIDX, " Index number for 'perform constructi

KZEXL TYPE KZEXL, " Indicator: Exclusive condition access

KKMOD TYPE KKMOD, " Module pool for condition access

KOBED TYPE KOBED, " Requirement

KKOPF TYPE KKOPF, " Condition applies to header

GZUGR TYPE GZUGR, " Indicator: Processing the fields in

FIELD1(10), " Structure field from access sequence

FIELD2(10), " Structure field from access sequence

FIELD3(10), " Structure field from access sequence

FIELD4(10), " Structure field from access sequence

FIELD5(10), " Structure field from access sequence

FIELD6(10), " Structure field from access sequence

FIELD7(10), " Structure field from access sequence

FIELD8(10), " Structure field from access sequence

FIELD9(10), " Structure field from access sequence

FIELD10(10), " Structure field from access sequence

FIELD11(10), " Structure field from access sequence

FIELD12(10), " Structure field from access sequence

FIELD13(10), " Structure field from access sequence

FIELD14(10), " Structure field from access sequence

FIELD15(10), " Structure field from access sequence

FIELD16(10), " Structure field from access sequence

FIELD17(10), " Structure field from access sequence

FIELD18(10), " Structure field from access sequence

FIELD19(10), " Structure field from access sequence

FIELD20(10), " Structure field from access sequence

END OF TY_CONDITION_ACCESS.

DATA : IT_DATA TYPE STANDARD TABLE OF TY_CONDITION_ACCESS,

WA_DATA LIKE LINE OF IT_DATA.

DATA : IT_DATA_DL TYPE STANDARD TABLE OF TY_CONDITION_ACCESS,

WA_DATA_DL LIKE LINE OF IT_DATA_DL.

DATA : LV_TABLE LIKE DD02L-TABNAME,

LV_TEMP(30) TYPE C,

LV_COUNT(2) TYPE C,

LV_INDEX TYPE SY-TABIX .

DATA : LT_FIELDCAT TYPE SLIS_T_FIELDCAT_ALV,

WA_FIELDCAT LIKE LINE OF LT_FIELDCAT.

FIELD-SYMBOLS:<FS> TYPE ANY,

<FS1> TYPE ANY.

*SELECTION SCREEN CRITERIA

SELECTION-SCREEN BEGIN OF BLOCK BLK1 WITH FRAME TITLE TEXT-001.

PARAMETERS : SO_CODTY LIKE T682I-KOZGF.

SELECTION-SCREEN END OF BLOCK BLK1.

SELECTION-SCREEN BEGIN OF BLOCK BLK2 WITH FRAME TITLE TEXT-002.

PARAMETER: PS_DOWN AS CHECKBOX,

PS_PATH TYPE RLGRAP-FILENAME.

SELECTION-SCREEN END OF BLOCK BLK2.

*AT SELECTION-SCREEN

AT SELECTION-SCREEN ON VALUE-REQUEST FOR PS_PATH.

DATA: P_FILE1 TYPE STRING,

IT_FILE2 TYPE FILETABLE,

WA_FILE2 LIKE LINE OF IT_FILE2,

L_RC TYPE I.

P_FILE1 = PS_PATH.

CALL METHOD CL_GUI_FRONTEND_SERVICES=>FILE_OPEN_DIALOG

EXPORTING

WINDOW_TITLE =
DEFAULT_EXTENSION =

DEFAULT_FILENAME = P_FILE1

FILE_FILTER =
WITH_ENCODING =
INITIAL_DIRECTORY =
MULTISELECTION =

CHANGING

FILE_TABLE = IT_FILE2

RC = L_RC

USER_ACTION =
FILE_ENCODING =

EXCEPTIONS

FILE_OPEN_DIALOG_FAILED = 1

CNTL_ERROR = 2

ERROR_NO_GUI = 3

NOT_SUPPORTED_BY_GUI = 4

OTHERS = 5

.

IF SY-SUBRC <> 0.

MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

ELSE.

READ TABLE IT_FILE2 INTO WA_FILE2 INDEX 1.

PS_PATH = WA_FILE2-FILENAME.

ENDIF.

START-OF-SELECTION.

PERFORM HEADING.

*SELECT KVEWE

KAPPL
KOZGF
KOLNR
KOTABNR
KKIDX
KZEXL
KKMOD
KOBED
KKOPF
GZUGR
FROM T682I
INTO TABLE IT_DATA WHERE KOZGF = SO_CODTY.

SELECT *

FROM T682I

INTO CORRESPONDING FIELDS OF TABLE

IT_DATA WHERE KOZGF = SO_CODTY.

DATA L_REPID LIKE SY-REPID.

L_REPID = SY-REPID.

LOOP AT IT_DATA INTO WA_DATA.

LV_INDEX = SY-TABIX.

CONCATENATE 'A' WA_DATA-KOTABNR INTO LV_TABLE.

CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE'

EXPORTING

I_PROGRAM_NAME = L_REPID

I_INTERNAL_TABNAME = 'IT_DATA'

I_STRUCTURE_NAME = LV_TABLE

I_CLIENT_NEVER_DISPLAY = 'X'

I_INCLNAME = L_REPID

I_BYPASSING_BUFFER =
I_BUFFER_ACTIVE =

CHANGING

CT_FIELDCAT = LT_FIELDCAT

EXCEPTIONS

INCONSISTENT_INTERFACE = 1

PROGRAM_ERROR = 2

OTHERS = 3

.

IF SY-SUBRC <> 0.

MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

ENDIF.

LOOP AT LT_FIELDCAT INTO WA_FIELDCAT WHERE KEY = 'X'.

IF SY-TABIX NE 1.

LV_COUNT = SY-TABIX - 1.

CONCATENATE 'WA_DATA-FIELD' LV_COUNT INTO LV_TEMP.

ASSIGN (LV_TEMP) TO <FS>.

READ TABLE IT_DATA INTO WA_DATA INDEX LV_INDEX.

<FS> = WA_FIELDCAT-FIELDNAME.

CLEAR :LV_TEMP,

LV_COUNT.

ENDIF.

ENDLOOP.

MODIFY IT_DATA FROM WA_DATA .

CLEAR LV_TABLE.

REFRESH LT_FIELDCAT.

ENDLOOP.

LOOP AT IT_DATA INTO WA_DATA.

MOVE-CORRESPONDING WA_DATA TO WA_DATA_DL.

APPEND WA_DATA_DL TO IT_DATA_DL.

ENDLOOP.

IF PS_DOWN = 'X' AND PS_PATH IS NOT INITIAL.

DATA L_FILE TYPE STRING.

MOVE PS_PATH TO L_FILE.

CALL FUNCTION 'GUI_DOWNLOAD'

EXPORTING

BIN_FILESIZE =

FILENAME = L_FILE

FILETYPE = 'DAT'

APPEND = ' '
WRITE_FIELD_SEPARATOR = ' '
HEADER = '00'
TRUNC_TRAILING_BLANKS = ' '
WRITE_LF = 'X'
COL_SELECT = ' '
COL_SELECT_MASK = ' '
DAT_MODE = ' '
CONFIRM_OVERWRITE = ' '
NO_AUTH_CHECK = ' '
CODEPAGE = ' '
IGNORE_CERR = ABAP_TRUE
REPLACEMENT = '#'
WRITE_BOM = ' '
TRUNC_TRAILING_BLANKS_EOL = 'X'
WK1_N_FORMAT = ' '
WK1_N_SIZE = ' '
WK1_T_FORMAT = ' '
WK1_T_SIZE = ' '
WRITE_LF_AFTER_LAST_LINE = ABAP_TRUE
SHOW_TRANSFER_STATUS = ABAP_TRUE
IMPORTING
FILELENGTH =

TABLES

DATA_TAB = IT_DATA_DL

FIELDNAMES =

EXCEPTIONS

FILE_WRITE_ERROR = 1

NO_BATCH = 2

GUI_REFUSE_FILETRANSFER = 3

INVALID_TYPE = 4

NO_AUTHORITY = 5

UNKNOWN_ERROR = 6

HEADER_NOT_ALLOWED = 7

SEPARATOR_NOT_ALLOWED = 8

FILESIZE_NOT_ALLOWED = 9

HEADER_TOO_LONG = 10

DP_ERROR_CREATE = 11

DP_ERROR_SEND = 12

DP_ERROR_WRITE = 13

UNKNOWN_DP_ERROR = 14

ACCESS_DENIED = 15

DP_OUT_OF_MEMORY = 16

DISK_FULL = 17

DP_TIMEOUT = 18

FILE_NOT_FOUND = 19

DATAPROVIDER_EXCEPTION = 20

CONTROL_FLUSH_ERROR = 21

OTHERS = 22

.

IF SY-SUBRC <> 0.

MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

ENDIF.

ELSE.

*

*perform populate_fieldcat.

CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'

EXPORTING

I_INTERFACE_CHECK = ' '
I_BYPASSING_BUFFER =
I_BUFFER_ACTIVE = ' '

I_CALLBACK_PROGRAM = L_REPID

I_CALLBACK_PF_STATUS_SET = ' '
I_CALLBACK_USER_COMMAND = ' '
I_STRUCTURE_NAME =
IS_LAYOUT =

IT_FIELDCAT = LT_FIELDCAT

IT_EXCLUDING =
IT_SPECIAL_GROUPS =
IT_SORT =
IT_FILTER =
IS_SEL_HIDE =
I_DEFAULT = 'X'
I_SAVE = ' '
IS_VARIANT =
IT_EVENTS =
IT_EVENT_EXIT =
IS_PRINT =
IS_REPREP_ID =
I_SCREEN_START_COLUMN = 0
I_SCREEN_START_LINE = 0
I_SCREEN_END_COLUMN = 0
I_SCREEN_END_LINE = 0
IR_SALV_LIST_ADAPTER =
IT_EXCEPT_QINFO =
I_SUPPRESS_EMPTY_DATA = ABAP_FALSE
IMPORTING
E_EXIT_CAUSED_BY_CALLER =
ES_EXIT_CAUSED_BY_USER =

TABLES

T_OUTTAB = IT_DATA

EXCEPTIONS

PROGRAM_ERROR = 1

OTHERS = 2

.

IF SY-SUBRC <> 0.

MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

ENDIF.

*&----

*& Form HEADING

*&----

text

*----

--> p1 text
<-- p2 text

*----

FORM HEADING .

DATA : V_KKIDX TYPE C.

V_KKIDX = WA_DATA_DL-KKIDX.

V_KKIDX = 'KKIDX'.

LOOP AT IT_DATA_DL INTO WA_DATA_DL.

WA_DATA_DL-KVEWE = 'KVEWE'.

WA_DATA_DL-KAPPL = 'KAPPL'.

WA_DATA_DL-KOZGF = 'KOZGF'.

WA_DATA_DL-KOLNR = 'KOLNR'.

WA_DATA_DL-KOTABNR = 'KOTABNR'.

WA_DATA_DL-KZEXL = 'KZEXL'.

WA_DATA_DL-KKMOD = 'KKMOD'.

WA_DATA_DL-KOBED = 'KOBED'.

WA_DATA_DL-KKOPF = 'KKOPF'.

WA_DATA_DL-GZUGR = 'GZUGR'.

WA_DATA_DL-FIELD1 = 'FIELD1'.

WA_DATA_DL-FIELD2 = 'FIELD2'.

WA_DATA_DL-FIELD3 = 'FIELD3'.

WA_DATA_DL-FIELD4 = 'FIELD4'.

WA_DATA_DL-FIELD5 = 'FIELD5'.

WA_DATA_DL-FIELD6 = 'FIELD6'.

WA_DATA_DL-FIELD7 = 'FIELD7'.

WA_DATA_DL-FIELD8 = 'FIELD8'.

WA_DATA_DL-FIELD9 = 'FIELD9'.

WA_DATA_DL-FIELD10 = 'FIELD10'.

WA_DATA_DL-FIELD11 = 'FIELD11'.

WA_DATA_DL-FIELD12 = 'FIELD12'.

WA_DATA_DL-FIELD13 = 'FIELD13'.

WA_DATA_DL-FIELD14 = 'FIELD14'.

WA_DATA_DL-FIELD15 = 'FIELD15'.

WA_DATA_DL-FIELD16 = 'FIELD16'.

WA_DATA_DL-FIELD17 = 'FIELD17'.

WA_DATA_DL-FIELD18 = 'FIELD18'.

WA_DATA_DL-FIELD19 = 'FIELD19'.

WA_DATA_DL-FIELD20 = 'FIELD20'.

APPEND WA_DATA_DL TO IT_DATA_DL.

ENDLOOP.

ENDFORM. " HEADING

&----

*& Form POPULATE_FIELDCAT

&----

text

----

--> p1 text
<-- p2 text

----

*FORM POPULATE_FIELDCAT .

*

*WA_FIELDCAT-col_pos = .

*WA_FIELDCAT-FIELDNAME = .

*WA_FIELDCAT-outputlen = .

*

*WA_FIELDCAT-FIELDNAME.

*

KVEWE TYPE KVEWE, " Usage of the condition table
KAPPL TYPE KAPPL, " Application
KOZGF TYPE KOZGF, " Access sequence
KOLNR TYPE KOLNR, " Access sequence - Access number
KOTABNR TYPE KOTABNR, " Condition table
KKIDX TYPE KKIDX, " Index number for 'perform construction' condition key
KZEXL TYPE KZEXL, " Indicator: Exclusive condition access
KKMOD TYPE KKMOD, " Module pool for condition access
KOBED TYPE KOBED, " Requirement
KKOPF TYPE KKOPF, " Condition applies to header
GZUGR TYPE GZUGR, " Indicator: Processing the fields in accesses
FIELD1(10), " Structure field from access sequence table
FIELD2(10), " Structure field from access sequence table
FIELD3(10), " Structure field from access sequence table
FIELD4(10), " Structure field from access sequence table
FIELD5(10), " Structure field from access sequence table
FIELD6(10), " Structure field from access sequence table
FIELD7(10), " Structure field from access sequence table
FIELD8(10), " Structure field from access sequence table
FIELD9(10), " Structure field from access sequence table
FIELD10(10), " Structure field from access sequence table
FIELD11(10), " Structure field from access sequence table
FIELD12(10), " Structure field from access sequence table
FIELD13(10), " Structure field from access sequence table
FIELD14(10), " Structure field from access sequence table
FIELD15(10), " Structure field from access sequence table
FIELD16(10), " Structure field from access sequence table
FIELD17(10), " Structure field from access sequence table
FIELD18(10), " Structure field from access sequence table
FIELD19(10), " Structure field from access sequence table
FIELD20(10), " Structure field from access sequence table

*

*ENDFORM. " POPULATE_FIELDCAT

</code>

Former Member · ‎2008 Jun 23

hi

can i have the description of the whole dump.

and where you are getting it

regards

By Category

Related Content

Activity Groups

Industry Groups

Influence and Feedback Groups

Interest Groups

Location Groups

Customer Only Groups

Forums

Related Resources

Products

Learning and Support

About

My SAP Profile

My SAP Profile

regarding alv output