HEY
I am handling many dynpro screens, so to make the code easier
I created two include programs "PBOPGM" for storing PBOcodes
and "PAIPGM" for storing all PAI code.
Also I created one "M"(module pool) TYPE program as main program
and included both INCLUDE programs.
Now i wrote module status_100 output code at "PBOPGM"
and tried to compile, it gives error "invalid command access". why.
could you pls tell how to do this. Am i doing wrong.?
Chandra kumar.
2 Answers
-
Former MemberPosted on Jan 16, 2005 at 03:39 AMHAI
when i compile below individual programs i get "STATEMENT is in accessible"!
i want to display ALV grid using below code encapsulation
PROGRAM ZMW00M0010. * Main module program
INCLUDE ZMW0010010. * data declaration
INCLUDE ZMW0010020. * PBO module program
ZMW0010010 is include program type I for data declaration.
DATA: FIELDCATALOG TYPE LVC_T_FCAT,
FIELDCATALOG_TMP TYPE LVC_T_FCAT,
FIELDCATALOG_LINE TYPE LINE OF LVC_T_FCAT.
DATA: G_CONTAINER TYPE SCRFNAME VALUE 'GRIDLIST_STATUS',
GRID_REPORT TYPE REF TO CL_GUI_ALV_GRID,
G_CUSTOM_CONTAINER TYPE REF TO CL_GUI_CUSTOM_CONTAINER.
I tried to compile this gets error "STATEMENT is inaccessible"
ZMW00M0010 is Main program type M for coding.
CALL FUNCTION 'LVC_FIELDCATALOG_MERGE'
EXPORTING
I_STRUCTURE_NAME = 'ZMW0001'
CHANGING
CT_FIELDCAT = FIELDCATALOG_TMP
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 FIELDCATALOG_TMP INTO FIELDCATALOG_LINE.
CASE FIELDCATALOG_LINE-FIELDNAME.
WHEN 'TRKORRNUM'.
FIELDCATALOG_LINE-COL_POS = '2'.
FIELDCATALOG_LINE-KEY = SPACE.
FIELDCATALOG_LINE-EMPHASIZE = SPACE.
FIELDCATALOG_LINE-REPTEXT = '移送依頼番号'.
WHEN 'CLIENT'.
FIELDCATALOG_LINE-COL_POS = '3'.
FIELDCATALOG_LINE-KEY = SPACE.
FIELDCATALOG_LINE-EMPHASIZE = SPACE.
FIELDCATALOG_LINE-REPTEXT = 'クライアント'.
WHEN 'IMPORTDAY'.
FIELDCATALOG_LINE-COL_POS = '4'.
FIELDCATALOG_LINE-KEY = SPACE.
FIELDCATALOG_LINE-EMPHASIZE = SPACE.
FIELDCATALOG_LINE-REPTEXT = '移送反映日'.
WHEN 'CONVERTFILENAME'.
FIELDCATALOG_LINE-COL_POS = '5'.
FIELDCATALOG_LINE-KEY = SPACE.
FIELDCATALOG_LINE-EMPHASIZE = SPACE.
FIELDCATALOG_LINE-REPTEXT = '中間ファイル名'.
FIELDCATALOG_LINE-NO_OUT = 'X'.
WHEN 'TRANSNO'.
FIELDCATALOG_LINE-COL_POS = '1'.
FIELDCATALOG_LINE-REPTEXT = '移送管理No'.
WHEN 'EXETIMING'.
FIELDCATALOG_LINE-REPTEXT = '実施タイミング'.
FIELDCATALOG_LINE-COLDDICTXT = 'R'.
WHEN 'PRETRKORRNUM'.
FIELDCATALOG_LINE-REPTEXT = '先行移送依頼番号'.
WHEN 'IMPRETURNCODE'.
FIELDCATALOG_LINE-REPTEXT = 'リターンコード'.
FIELDCATALOG_LINE-COLDDICTXT = 'R'.
WHEN 'STATUS'.
FIELDCATALOG_LINE-REPTEXT = 'ステータス'.
WHEN 'HOLD'.
FIELDCATALOG_LINE-REPTEXT = '保留'.
FIELDCATALOG_LINE-COLDDICTXT = 'R'.
FIELDCATALOG_LINE-NO_OUT = 'X'.
WHEN 'MEMO'.
FIELDCATALOG_LINE-REPTEXT = '内容説明'.
WHEN 'JOBNAME'.
FIELDCATALOG_LINE-NO_OUT = 'X'.
WHEN 'JOBCOUNT'.
FIELDCATALOG_LINE-NO_OUT = 'X'.
WHEN 'UDATE'.
FIELDCATALOG_LINE-REPTEXT = '最終変更日付'.
WHEN 'UTIME'.
FIELDCATALOG_LINE-REPTEXT = '最終変更時刻'.
WHEN OTHERS.
ENDCASE.
INSERT FIELDCATALOG_LINE INTO TABLE FIELDCATALOG.
ENDLOOP.
Call screen 200.
here i call screen 200, so inside PBO i renamed
STATUS_200 Output as REPORTSTATUS and includein in
PBO include program as below.
In PBO include program ZMW0010020. below code is writen.
MODULE REPORTSTATUS_PBO200 OUTPUT.
IF G_CUSTOM_CONTAINER IS INITIAL.
CREATE OBJECT G_CUSTOM_CONTAINER
EXPORTING CONTAINER_NAME = G_CONTAINER.
CREATE OBJECT GRID_REPORT
EXPORTING I_PARENT = G_CUSTOM_CONTAINER.
SELECT * FROM ZMW0001 INTO TABLE SDYN_ITAB.
CALL METHOD GRID_REPORT->SET_TABLE_FOR_FIRST_DISPLAY
CHANGING IT_FIELDCATALOG = FIELDCATALOG
IT_OUTTAB = SDYN_ITAB.
ENDIF.
ENDMODULE. " REPORTSTATUS_PBO200 OUTPUT
this also i cant compile give same above error.
Could you please help how to structure this alv grid to display in above
coding.
i am sorry,invisible above coding are japanese codes.
Add comment
Add comment