MOICJ200 is a standard ABAP INCLUDE available within your SAP system (depending on your version and release level). Below is the basic information available for this SAP report including which OBJECTS it interacts with such as TABLES, FUNCTION MODULES, INCLUDES ETC. Also check out the submitted Comments related to this SAP report or see any standard documentation available.
If you would like to execute this report or see the full code listing simply enter MOICJ200 into the relevant SAP transactions such as SE38 or SE80
This report can be called from another progam/report simply by using the ABAP SUBMIT statement, see below for example ABAP code snipts of how to do this.
Text Symbol: 001 = Data rec.
FORM XD0200_INCLUDE_NAMEN_SETZEN USING VALUE(XI_GRPNO)
FORM XD0200_INCLUDE_REPORT_ANLEGEN.
INSERT REPORT INCLUDE_REPORT_NAME FROM INCLUDE_REPORT.
DELETE REPORT INCLUDE_REPORT_NAME.
FORM XD0200_INCLUDE_REPORT_EDIT.
EDITOR-CALL FOR REPORT INCLUDE_REPORT_NAME DISPLAY-MODE.
EDITOR-CALL FOR REPORT INCLUDE_REPORT_NAME.
FORM XD0200_INCLUDE_REPORT_LESEN USING XI_SUBRC.
READ REPORT INCLUDE_REPORT_NAME INTO INCLUDE_REPORT.
DELETE REPORT INCLUDE_REPORT_NAME.
No SAP DATABASE tables are accessed within this REPORT code!
SYSTEM_STATUS CALL FUNCTION 'SYSTEM_STATUS' IMPORTING STATUS = XA_STATUS.
DOCU_CALL CALL FUNCTION 'DOCU_CALL' EXPORTING DISPL = XD_DISPL DISPL_MODE = XD_DISPL_MODE ID = 'RE' LANGU = SY-LANGU OBJECT = XD_OBJECT.
TR_CHECK_TYPE * CALL FUNCTION 'TR_CHECK_TYPE' * EXPORTING * WI_E071 = XI_E071 * IMPORTING * PE_NAME_TOO_LONG = XI_NAME_TOO_LONG * PE_RESULT = XI_RESULT * WE_E071 = XI_E071 * WE_LOCK_KEY = XI_LOCK_KEY * WE_TADIR = XI_TADIR * WE_COMPLETE_ONLY = XI_COMPLETE_ONLY.
SYSTEM_STATUS CALL FUNCTION 'SYSTEM_STATUS' IMPORTING STATUS = XI_STATUS.
TR_TADIR_INTERFACE * CALL FUNCTION 'TR_TADIR_INTERFACE' * EXPORTING * WI_DELETE_TADIR_ENTRY = ' ' * WI_REMOVE_REPAIR_FLAG = ' ' * WI_SET_REPAIR_FLAG = ' ' * WI_TEST_MODUS = ' ' * WI_TADIR_PGMID = TADIR-PGMID * WI_TADIR_OBJECT = TADIR-OBJECT * WI_TADIR_OBJ_NAME = TADIR-OBJ_NAME * WI_TADIR_KORRNUM = ' ' * WI_TADIR_SRCSYSTEM = TADIR-SRCSYSTEM * WI_TADIR_AUTHOR = TADIR-AUTHOR * WI_TADIR_DEVCLASS = TADIR-DEVCLASS * WI_TADIR_MASTERLANG = ' ' * WI_REMOVE_GENFLAG = ' ' * WI_SET_GENFLAG = TADIR-GENFLAG * WI_READ_ONLY = ' ' * IMPORTING * NEW_TADIR_ENTRY = XI_NEW_TADIR_ENTRY *del error_text = xi_error_text SO4K000371 CM * EXCEPTIONS * ALL (substitute single exception by OTHERS) "SO5K000056del * OTHERS = 01. "SO5K000056 KH
TR_TADIR_INTERFACE call function 'TR_TADIR_INTERFACE' exporting wi_delete_tadir_entry = ' ' wi_remove_repair_flag = ' ' wi_set_repair_flag = ' ' * SOGK000849 SKA Insert *KH PERFORM FCOMMEDITCHECK(RDDINSYS) USING XI_E071 *KH XI_NEW_TADIR_ENTRY *KH XI_DDERR.
TR_TADIR_INTERFACE call function 'TR_TADIR_INTERFACE' exporting wi_delete_tadir_entry = 'X' wi_test_modus = ' ' wi_tadir_pgmid = tadir-pgmid wi_tadir_object = tadir-object wi_tadir_obj_name = tadir-obj_name exceptions others = 1.
TR_TADIR_INTERFACE call function 'TR_TADIR_INTERFACE' exporting wi_delete_tadir_entry = 'X' wi_test_modus = ' ' wi_tadir_pgmid = tadir-pgmid wi_tadir_object = tadir-object wi_tadir_obj_name = tadir-obj_name exceptions others = 1.
INIT_TEXT CALL FUNCTION 'INIT_TEXT' EXPORTING ID = 'SDFO' LANGUAGE = SY-LANGU NAME = ACT_TEXTNAME OBJECT = 'TEXT' IMPORTING HEADER = ACT_THEAD TABLES LINES = TLINETAB EXCEPTIONS ID = 01 LANGUAGE = 02 NAME = 03 OBJECT = 04.
COMMIT_TEXT CALL FUNCTION 'COMMIT_TEXT'.
EDIT_TEXT CALL FUNCTION 'EDIT_TEXT' EXPORTING DISPLAY = TXTDISPLAY HEADER = ACT_THEAD SAVE = CHARX IMPORTING FUNCTION = TXTFUNCTION NEWHEADER = ACT_THEAD TABLES LINES = TLINETAB EXCEPTIONS ID = 01 LANGUAGE = 02 LINESIZE = 03 NAME = 04 OBJECT = 05.
COMMIT_TEXT CALL FUNCTION 'COMMIT_TEXT'.
READ_TEXT CALL FUNCTION 'READ_TEXT' EXPORTING ID = 'SDFO' LANGUAGE = SY-LANGU NAME = ACT_TEXTNAME OBJECT = 'TEXT' IMPORTING HEADER = ACT_THEAD TABLES LINES = TLINETAB EXCEPTIONS ID = 01 LANGUAGE = 02 NAME = 03 NOT_FOUND = 04 OBJECT = 05 REFERENCE_CHECK = 06.
SCROLLING_IN_TABLE CALL FUNCTION 'SCROLLING_IN_TABLE' EXPORTING entry_act = tctrl_formulas-top_line entry_to = xb_tfill loops = id0200_loopc ok_code = fcode * PAGE_GO = DUMMY * PAGE_ACT = DUMMY overlapping = space last_page_full = 'X' IMPORTING entry_new = tctrl_formulas-top_line.
POPUP_GET_VALUES CALL FUNCTION 'POPUP_GET_VALUES' EXPORTING * NO_VALUE_CHECK = ' ' popup_title = text-173 * START_COLUMN = '5' * START_ROW = '5' * IMPORTING * RETURNCODE = TABLES fields = fields * EXCEPTIONS * ERROR_IN_FIELDS = 1 * OTHERS = 2 EXCEPTIONS "SO5K001211 ERROR_IN_FIELDS = 1 "SO5K001211 OTHERS = 2 "SO5K001211 .
Although this basic information may have limited use it does provide an easy to find location to store any knowledge about this program/report.