PROBLE IN ADDING A FIELD IN STRUCTURE...PLZ CORRECT THIS CODE

[Former Member]

HI, PLZ CORRECT IT.

TYPES : BEGIN OF FS_OUTPUT .

• TEXT(20) TYPE C.

INCLUDE STRUCTURE HRPDV_EXPIRED_Q.

TYPES TEXT(20) TYPE C.

TYPES END OF FS_OUTPUT.

.

LOOP AT P_GT_FIELDCAT INTO WA_FIELDCAT.

l_tabix = sy-tabix.

CASE WA_FIELDCAT-FIELDNAME.

when 'OTYPE'.

WA_FIELDCAT-DDICTXT = 'L'.

when 'SOBID'.

WA_FIELDCAT-DDICTXT = 'L'.

WHEN 'STEXT'.

WA_FIELDCAT-DDICTXT = 'L'.

when 'PTYPE'.

WA_FIELDCAT-DDICTXT = 'L'.

when 'POBID'.

WA_FIELDCAT-DDICTXT = 'L'.

when 'PSHORT'.

WA_FIELDCAT-DDICTXT = 'L'.

WHEN 'PTEXT'.

WA_FIELDCAT-DDICTXT = 'L'.

WHEN 'QUALID'.

WA_FIELDCAT-DDICTXT = 'L'.

WHEN 'QUALSTXT'.

WA_FIELDCAT-DDICTXT = 'L'.

WHEN 'EXPBEGDA'.

WA_FIELDCAT-DDICTXT = 'L'.

WHEN 'EXPENDDA'.

WA_FIELDCAT-DDICTXT = 'L'.

WHEN 'ICON_S_EVENTS'.

IF P_H_EVENTS IS INITIAL.

WA_FIELDCAT-NO_OUT = 'X'.

else.

WA_FIELDCAT-DDICTXT = 'X'.

endif.

ENDCASE.

MODIFY P_GT_FIELDCAT FROM WA_FIELDCAT INDEX l_tabix.

ENDLOOP.

CLEAR WA_FIELDCAT.

WA_FIELDCAT-FIELDNAME = ' TEXT '.

• WA_FIELDCAT-SELTEXT_1 = hTEXT.

wa_fieldcat-tabname = ALV_OUTPUT.

APPEND WA_FIELDCAT TO P_GT_FIELDCAT.

ENDFORM.

[Former Member]

HI, PLZ CORRECT IT.

TYPES : BEGIN OF FS_OUTPUT .

• TEXT(20) TYPE C.

INCLUDE STRUCTURE HRPDV_EXPIRED_Q.

TYPES TEXT(20) TYPE C.

TYPES END OF FS_OUTPUT.

.

LOOP AT P_GT_FIELDCAT INTO WA_FIELDCAT.

l_tabix = sy-tabix.

CASE WA_FIELDCAT-FIELDNAME.

when 'OTYPE'.

WA_FIELDCAT-DDICTXT = 'L'.

when 'SOBID'.

WA_FIELDCAT-DDICTXT = 'L'.

WHEN 'STEXT'.

WA_FIELDCAT-DDICTXT = 'L'.

when 'PTYPE'.

WA_FIELDCAT-DDICTXT = 'L'.

when 'POBID'.

WA_FIELDCAT-DDICTXT = 'L'.

when 'PSHORT'.

WA_FIELDCAT-DDICTXT = 'L'.

WHEN 'PTEXT'.

WA_FIELDCAT-DDICTXT = 'L'.

WHEN 'QUALID'.

WA_FIELDCAT-DDICTXT = 'L'.

WHEN 'QUALSTXT'.

WA_FIELDCAT-DDICTXT = 'L'.

WHEN 'EXPBEGDA'.

WA_FIELDCAT-DDICTXT = 'L'.

WHEN 'EXPENDDA'.

WA_FIELDCAT-DDICTXT = 'L'.

WHEN 'ICON_S_EVENTS'.

IF P_H_EVENTS IS INITIAL.

WA_FIELDCAT-NO_OUT = 'X'.

else.

WA_FIELDCAT-DDICTXT = 'X'.

endif.

ENDCASE.

MODIFY P_GT_FIELDCAT FROM WA_FIELDCAT INDEX l_tabix.

ENDLOOP.

CLEAR WA_FIELDCAT.

WA_FIELDCAT-FIELDNAME = ' TEXT '.

• WA_FIELDCAT-SELTEXT_1 = hTEXT.

wa_fieldcat-tabname = ALV_OUTPUT.

APPEND WA_FIELDCAT TO P_GT_FIELDCAT.

ENDFORM.

[Former Member]

As you have added te fields below, add the other required fields:

when 'OTYPE'.
WA_FIELDCAT-DDICTXT = 'L'.
when 'SOBID'.
WA_FIELDCAT-DDICTXT = 'L'.
WHEN 'STEXT'.
WA_FIELDCAT-DDICTXT = 'L'.
when 'PTYPE'.
WA_FIELDCAT-DDICTXT = 'L'.
when 'POBID'.
WA_FIELDCAT-DDICTXT = 'L'.
when 'PSHORT'.
WA_FIELDCAT-DDICTXT = 'L'.
WHEN 'PTEXT'.
WA_FIELDCAT-DDICTXT = 'L'.
WHEN 'QUALID'.
WA_FIELDCAT-DDICTXT = 'L'.
WHEN 'QUALSTXT'.
WA_FIELDCAT-DDICTXT = 'L'.
WHEN 'EXPBEGDA'.
WA_FIELDCAT-DDICTXT = 'L'.
WHEN 'EXPENDDA'.
WA_FIELDCAT-DDICTXT = 'L'.

[Former Member]

Hi,

Your type declaration is perfect . there is some problem of Fieldcat declaration that you may have declared .. Hope this answers your question..

Award Points if it solves your purpose.

-Gaurang