Application Development Discussions
Join the discussions or start your own on all things application development, including tools and APIs, programming models, and keeping your skills sharp.
cancel
Showing results for 
Search instead for 
Did you mean: 

dump error GETWA_NOT_ASSIGNED while using set_table_for_first_display

0 Kudos

hi gurus.,

this is my code.,

**&----


*

*& Report ZERUM_EMP_TIMS

*&

*&----


*

*&

*&

*&----


*

REPORT ZERUM_EMP_TIMS.

TABLES: ZERNUM_TSHT_ID .

TYPES: BEGIN OF IT_TYPES.

TYPES: TSHT_ID TYPE ZERNUM_TSHT_ID,

    • INCLUDE TYPE ZERNUM_TSHT_ID,*

    • EMPID TYPE ZERNUM_TSHT_ID-EMPID,*

ENAM TYPE ZEMAST-ENAM,

    • TDATE TYPE ZERNUM_TSHT_ID-TDATE,*

    • PJCOD TYPE ZERNUM_TSHT_ID-PJCOD,*

PJNAM TYPE ZPROJDTL-PJNAM,

    • REFTY TYPE ZERNUM_TSHT_ID-REFTY,*

    • REFMD TYPE ZERNUM_TSHT_ID-REFMD,*

    • ACTCD TYPE ZERNUM_TSHT_ID-ACTCD,*

ACTVY TYPE ZERNUM_ACTVY_MAS-ACTVY,

    • HURWK TYPE ZERNUM_TSHT_ID-HURWK,*

    • REMAK TYPE ZERNUM_TSHT_ID-REMAK,*

END OF IT_TYPES.

DATA: OK_CODE LIKE SY-UCOMM,

    • IT_TSHT_ID TYPE TABLE OF IT_TYPES,"ZERNUM_TSHT_ID,*

IT_TSHT_ID TYPE IT_TYPES OCCURS 0 WITH HEADER LINE ,

G_CONTAINER TYPE SCRFNAME VALUE 'SCR_100_CONTAINER',

GRID TYPE REF TO CL_GUI_ALV_GRID,

G_CUSTOM_CONTAINER TYPE REF TO CL_GUI_CUSTOM_CONTAINER.

*DATA: BEGIN OF IT_TSHT_ID OCCURS 0,

    • INCLUDE TYPE ZERNUM_TSHT_ID,*

    • INDEX TYPE I,*

    • END OF IT_TSHT_ID .*

DATA : GS_LAYOUT TYPE LVC_S_LAYO,

IT_TOOLBAR TYPE UI_FUNCTIONS,

GT_FIELDCAT TYPE LVC_T_FCAT WITH HEADER LINE,

IT_SORT TYPE LVC_T_SORT.

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

PARAMETERS PA_EMPID LIKE ZERNUM_TSHT_ID-EMPID MATCHCODE OBJECT ZSH_EID OBLIGATORY.

SELECT-OPTIONS SO_TDATE FOR ZERNUM_TSHT_ID-TDATE.

SELECTION-SCREEN END OF BLOCK BLK.

START-OF-SELECTION.

PERFORM GET_DATA.

CALL SCREEN 100.

*&----


*

*& Module INITIALIZE_ALV OUTPUT

*&----


*

    • text*

*----


*

MODULE INITIALIZE_ALV OUTPUT.

DATA: ET_TOOLBAR_EXCLUDING TYPE UI_FUNCTIONS .

    • SELECT * FROM ZERNUM_TSHT_ID INTO TSHT_ID WHERE CARRID = 'LH'.*

    • CLEAR ET_TOOLBAR_EXCLUDING.*

    • APPEND CL_GUI_ALV_GRID=>MC_FC_SORT_ASC TO ET_TOOLBAR_EXCLUDING .*

    • APPEND CL_GUI_ALV_GRID=>MC_FC_SORT_DSC TO ET_TOOLBAR_EXCLUDING.*

    • APPEND CL_GUI_ALV_GRID=>MC_FC_SUBTOT TO ET_TOOLBAR_EXCLUDING.*

    • APPEND CL_GUI_ALV_GRID=>MC_FC_SUM TO ET_TOOLBAR_EXCLUDING.*

    • APPEND CL_GUI_ALV_GRID=>MC_FC_VIEWS TO ET_TOOLBAR_EXCLUDING.*

    • APPEND CL_GUI_ALV_GRID=>MC_FC_FILTER TO ET_TOOLBAR_EXCLUDING .*

    • APPEND CL_GUI_ALV_GRID=>MC_FC_GRAPH TO ET_TOOLBAR_EXCLUDING.*

    • APPEND CL_GUI_ALV_GRID=>MC_FC_INFO TO ET_TOOLBAR_EXCLUDING.*

    • APPEND CL_GUI_ALV_GRID=>MC_FC_FIND TO ET_TOOLBAR_EXCLUDING.*

    • APPEND CL_GUI_ALV_GRID=>MC_FC_DETAIL TO ET_TOOLBAR_EXCLUDING.*

    • APPEND CL_GUI_ALV_GRID=>MC_FC_DESELECT_ALL TO ET_TOOLBAR_EXCLUDING.*

    • APPEND CL_GUI_ALV_GRID=>MC_FC_EXCL_ALL TO ET_TOOLBAR_EXCLUDING.*

IF G_CUSTOM_CONTAINER IS INITIAL.

CREATE OBJECT G_CUSTOM_CONTAINER

EXPORTING

CONTAINER_NAME = 'SCR_100_CONTAINER'.

CREATE OBJECT GRID

EXPORTING

I_PARENT = G_CUSTOM_CONTAINER.

ENDIF.

GS_LAYOUT-GRID_TITLE = 'Employee Status Report'(100).

PERFORM MASK_COLUMNS TABLES GT_FIELDCAT.

CALL METHOD GRID->SET_TABLE_FOR_FIRST_DISPLAY

EXPORTING

    • I_STRUCTURE_NAME = 'IT_TYPES'*

    • I_SAVE = 'A'*

IT_TOOLBAR_EXCLUDING = ET_TOOLBAR_EXCLUDING

IS_LAYOUT = GS_LAYOUT

CHANGING

IT_FIELDCATALOG = GT_FIELDCAT[]

IT_OUTTAB = IT_TSHT_ID[].

ENDMODULE. " INITIALIZE_ALV OUTPUT

*&----


*

*& Form MASK_COLUMNS

*&----


*

    • text*

*----


*

    • -->P_GT_FIELDCAT text*

*----


*

FORM MASK_COLUMNS TABLES P_GT_FIELDCAT TYPE LVC_T_FCAT.

CALL FUNCTION 'LVC_FIELDCATALOG_MERGE'

EXPORTING

I_STRUCTURE_NAME = 'ZERNUM_TSHT_ID'

CHANGING

CT_FIELDCAT = P_GT_FIELDCAT[].

CLEAR P_GT_FIELDCAT.

P_GT_FIELDCAT-COL_POS = 12 .

    • P_GT_FIELDCAT-TABNAME = 'ZEMAST'.*

P_GT_FIELDCAT-FIELDNAME = 'ENAM'.

P_GT_FIELDCAT-OUTPUTLEN = 10.

P_GT_FIELDCAT-SCRTEXT_S = 'EMP NAME'. "#EC NOTEXT

P_GT_FIELDCAT-SCRTEXT_M = 'EMPLOYEE NAME'.

P_GT_FIELDCAT-SCRTEXT_L = 'EMPLOYEE NAME'.

P_GT_FIELDCAT-DATATYPE = 'CHAR'.

P_GT_FIELDCAT-EMPHASIZE = ''.

APPEND P_GT_FIELDCAT.

CLEAR P_GT_FIELDCAT.

P_GT_FIELDCAT-COL_POS = 13 .

    • P_GT_FIELDCAT-TABNAME = 'ZPROJDTL'.*

P_GT_FIELDCAT-FIELDNAME = 'PJNAM'.

P_GT_FIELDCAT-OUTPUTLEN = 10.

P_GT_FIELDCAT-SCRTEXT_S = 'EMP NAME'. "#EC NOTEXT

P_GT_FIELDCAT-SCRTEXT_M = 'EMPLOYEE NAME'.

P_GT_FIELDCAT-SCRTEXT_L = 'EMPLOYEE NAME'.

P_GT_FIELDCAT-DATATYPE = 'CHAR'.

P_GT_FIELDCAT-EMPHASIZE = ''.

APPEND P_GT_FIELDCAT.

CLEAR P_GT_FIELDCAT.

P_GT_FIELDCAT-COL_POS = 14 .

    • P_GT_FIELDCAT-TABNAME = 'ZERNUM_ACTVY_MAS'.*

P_GT_FIELDCAT-FIELDNAME = 'ACTVY'.

P_GT_FIELDCAT-OUTPUTLEN = 10.

P_GT_FIELDCAT-SCRTEXT_S = 'EMP NAME'. "#EC NOTEXT

P_GT_FIELDCAT-SCRTEXT_M = 'EMPLOYEE NAME'.

P_GT_FIELDCAT-SCRTEXT_L = 'EMPLOYEE NAME'.

P_GT_FIELDCAT-DATATYPE = 'CHAR'.

P_GT_FIELDCAT-EMPHASIZE = ''.

APPEND P_GT_FIELDCAT.

LOOP AT P_GT_FIELDCAT.

P_GT_FIELDCAT-NO_OUT = 'X'.

MODIFY P_GT_FIELDCAT.

ENDLOOP.

LOOP AT P_GT_FIELDCAT.

IF P_GT_FIELDCAT-FIELDNAME = 'EMPID'

OR P_GT_FIELDCAT-FIELDNAME = 'TDATE'

OR P_GT_FIELDCAT-FIELDNAME = 'PJCOD'

OR P_GT_FIELDCAT-FIELDNAME = 'REFTY'

OR P_GT_FIELDCAT-FIELDNAME = 'REFMD'

OR P_GT_FIELDCAT-FIELDNAME = 'ACTCD'

OR P_GT_FIELDCAT-FIELDNAME = 'HURWK'

OR P_GT_FIELDCAT-FIELDNAME = 'REMAK'

OR P_GT_FIELDCAT-FIELDNAME = 'ENAM'.

P_GT_FIELDCAT-KEY_SEL = ''.

P_GT_FIELDCAT-NO_OUT = ''.

P_GT_FIELDCAT-COLDDICTXT = 'L'.

MODIFY P_GT_FIELDCAT.

ENDIF.

ENDLOOP.

ENDFORM. " MASK_COLUMNS

*&----


*

*& Form GET_DATA

*&----


*

    • text*

*----


*

    • --> p1 text*

    • <-- p2 text*

*----


*

FORM GET_DATA .

*SELECT * INTO CORRESPONDING FIELDS OF TABLE IT_TSHT_ID FROM ZERNUM_TSHT_ID*

WHERE EMPID = PA_EMPID

AND TDATE IN SO_TDATE.

IF SY-SUBRC NE 0 .

MESSAGE S000(ZERUM_MSG) WITH 'No records found' .

EXIT.

ENDIF.

ENDFORM. " GET_DATA

*&----


*

*& Module STATUS_0100 OUTPUT

*&----


*

    • text*

*----


*

MODULE STATUS_0100 OUTPUT.

SET PF-STATUS 'MENU'.

    • SET TITLEBAR 'xxx'.*

ENDMODULE. " STATUS_0100 OUTPUT

*&----


*

*& Module EXIT INPUT

*&----


*

    • text*

*----


*

MODULE EXIT INPUT.

LEAVE PROGRAM.

ENDMODULE. " EXIT INPUT

while excuting this i am getting dump error GETWA_NOT_ASSIGNED ...plz tell me how to rectify this .. its urgent

4 REPLIES 4

Former Member
0 Kudos

check whether ur assignments are correct.

or parameters not assigned

0 Kudos

EVERYTHING I CHECKED .. I DONT KNOW WHERE ITS GETTING THE DUMP .... PLZ GUIDE ME

0 Kudos

Hi Shiva Kumar..

I Think you are not assigned Propoerly...check your view

ZERNUM_TSHT_ID all the fields are cover or not in that view...

Regards,

Rahul

0 Kudos

Hi Shiva Kumar..

I Think you are not assigned Propoerly...check your view

ZERNUM_TSHT_ID all the fields are cover or not in that view...

Regards,

Rahul