SAP Reports / Programs | Periodical Sales and Distribution | SAP Media | Periodical Sales and Distribution(IS-M-SD-PS) SAP IS
MJD34FOB SAP ABAP INCLUDE - IS-M: CUA Forms (Sample PGM)
MJD34FOB 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 MJD34FOB into the relevant SAP transactions such as SE38 or SE80
ABAP code to call this SAP report using the submit statement
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.
SUBMIT MJD34FOB. "Basic submit
SUBMIT MJD34FOB AND RETURN. "Return to original report after report execution complete
SUBMIT MJD34FOB VIA SELECTION-SCREEN. "Display selection screen of submitted report to user
See more syntax options for the ABAP SUBMIT statement
Text pool values
Title: IS-M: CUA Forms (Sample PGM)
INCLUDES used within this REPORT MJD34FOB
No INCLUDES are used within this REPORT code!
TABLES used within REPORT and the associated SELECT statement:
No SAP DATABASE tables are accessed within this REPORT code!
Function Modules used within report and the associated call statement:
POPUP_GET_VALUES_USER_CHECKED CALL FUNCTION 'POPUP_GET_VALUES_USER_CHECKED' * EXPORTING CHECK_EXISTENCE = CON_ANGEKREUZT "für DB_CHECK EXPORTING FORMNAME = 'BEZANG_NEU_PRUEFEN' PROGRAMNAME = 'SAPMJD34' "für USER_CHE POPUP_TITLE = TEXT-BAN START_COLUMN = 20 START_ROW = 10 IMPORTING RETURNCODE = RETURNCODE TABLES FIELDS = FELDTAB EXCEPTIONS ERROR_IN_FIELDS = 1.
ISP_NEW_JDTBZANG_CHECK CALL FUNCTION 'ISP_NEW_JDTBZANG_CHECK' EXPORTING EX_BZANG_FROM_DATABASE = ' ' EX_BZUS_FROM_DATABASE = ' ' NEW_JDTBZANG = NEU_BZANG IMPORTING ERRORMESSAGE = MELDUNG RETURNCODE = RETURNCODE ERRORTABLE = ERROR-ERRORTAB ERRORFIELD = ERROR-ERRORFIELD TABLES EX_BZANG_TAB = BEZANGTAB EX_BZUS_TAB = BZUSTAB.
SCROLLING_IN_TABLE CALL FUNCTION 'SCROLLING_IN_TABLE' EXPORTING ENTRY_ACT = GV_PAGEBEGIN_D1200 " Alter Aufstzind ENTRY_FROM = 1 " Anfang Tab. Teilstr.
POPUP_TO_CONFIRM_STEP * CALL FUNCTION 'POPUP_TO_CONFIRM_STEP' * EXPORTING TITEL = TEXT-179 * TEXTLINE1 = TEXT1 * TEXTLINE2 = TEXT2 * IMPORTING ANSWER = RETURNCODE .
ISP_SHEET_WEIGHT_CALCULATION CALL FUNCTION 'ISP_SHEET_WEIGHT_CALCULATION' EXPORTING SHEETWEIGHT_UNIT_I = MASSBLATTGEWICHT PAPERHEIGHT = HOEHE PAPERHEIGHT_UNIT = MASSHOEHE PAPERWIDTH = BREITE PAPERWIDTH_UNIT = MASSBREITE PAPERWEIGHT = PAGEW PAPERWEIGHT_UNIT = MASSPAGEW IMPORTING SHEETWEIGHT = BLATTGEWICHT SHEETWEIGHT_UNIT_O = MASSBLATTGEWICHT EXCEPTIONS CONVERSION_NOT_FOUND = 01 DIVISION_BY_ZERO = 02 INVALID_DIMENSION = 03 OVERFLOW = 04 T006D_ENTRY_MISSING = 05 T006_ENTRY_MISSING = 06.
POPUP_GET_VALUES_USER_CHECKED CALL FUNCTION 'POPUP_GET_VALUES_USER_CHECKED' * EXPORTING CHECK_EXISTENCE = CON_ANGEKREUZT "für DB_CHECK EXPORTING FORMNAME = 'DRUCKEREI_NEU_PRUEFEN' PROGRAMNAME = 'SAPMJD34' "für USER_CHE POPUP_TITLE = TEXT-DAN START_COLUMN = 20 START_ROW = 10 IMPORTING RETURNCODE = RETURNCODE TABLES FIELDS = FELDTAB EXCEPTIONS ERROR_IN_FIELDS = 1.
ISP_NEW_JDTPVAWERK_CHECK CALL FUNCTION 'ISP_NEW_JDTPVAWERK_CHECK' EXPORTING EX_PVAWERK_FROM_DATABASE = ' ' NEW_PVAWERK = WERKSDATEN VERSVLEVS_PVA = JDTPVA-VERSVLEVS IMPORTING ERRORMESSAGE = MELDUNG RETURNCODE = RETURNCODE TABLES EX_PVAWERK_TAB = WERKSTAB.
SCROLLING_IN_TABLE CALL FUNCTION 'SCROLLING_IN_TABLE' EXPORTING ENTRY_ACT = GV_PAGEBEGIN_D1400 " Alter Aufstzind ENTRY_FROM = 1 " Anfang Tab. Teilstr.
ISP_POPUP_USERDATA CALL FUNCTION 'ISP_POPUP_USERDATA' EXPORTING TABNAME = 'JDTDRER' ERFUSER = JDTPVA-ERFUSER ERFDATE = JDTPVA-ERFDATE ERFTIME = JDTPVA-ERFTIME * ERFPROG = ' ' AENUSER = JDTPVA-AENUSER AENDATE = JDTPVA-AENDATE AENTIME = JDTPVA-AENTIME.
POPUP_GET_VALUES_USER_CHECKED CALL FUNCTION 'POPUP_GET_VALUES_USER_CHECKED' EXPORTING POPUP_TITLE = TEXT-COP START_COLUMN = 20 START_ROW = 10 FORMNAME = 'COPY_DIALTAB_CHECK' PROGRAMNAME = 'SAPMJD34' IMPORTING RETURNCODE = RETURNCODE TABLES FIELDS = FELDTAB EXCEPTIONS ERROR_IN_FIELDS = 1.
ISP_NEW_JDTPVAVTR_CHECK CALL FUNCTION 'ISP_NEW_JDTPVAVTR_CHECK' EXPORTING EX_PVAVTR_FROM_DATABASE = ' ' NEW_PVAVTR = VLJDTPVAVTR IMPORTING ERRORMESSAGE = MELDUNG RETURNCODE = CALLRETURN TABLES EX_PVAVTR_TAB = VERTRIEBSTAB.
ISP_NEW_JDTPVAWERK_CHECK CALL FUNCTION 'ISP_NEW_JDTPVAWERK_CHECK' EXPORTING EX_PVAWERK_FROM_DATABASE = ' ' NEW_PVAWERK = VLJDTPVAWERK VERSVLEVS_PVA = JDTPVA-VERSVLEVS IMPORTING ERRORMESSAGE = MELDUNG RETURNCODE = CALLRETURN TABLES EX_PVAWERK_TAB = WERKSTAB.
ISP_NEW_JDTBZUS_PROSP_CHECK CALL FUNCTION 'ISP_NEW_JDTBZUS_PROSP_CHECK' EXPORTING EX_PVABZUS_FROM_DATABASE = ' ' NEW_PVABZUS = VLJDTBZUS IMPORTING ERRORMESSAGE = MELDUNG RETURNCODE = CALLRETURN TABLES EX_PVABZUS_TAB = BZUSTAB.
ISP_NEW_JDTBZUS_INSERT_CHECK CALL FUNCTION 'ISP_NEW_JDTBZUS_INSERT_CHECK' EXPORTING EX_PVABZUS_FROM_DATABASE = ' ' NEW_PVABZUS = VLJDTBZUS IMPORTING RETURNCODE = CALLRETURN ERRORMESSAGE = MELDUNG ERRORFIELD = ERRORFIELD ERRORTABLE = ERRORTABLE TABLES EX_PVABZUS_TAB = BZUSTAB.
ISP_NEW_JDTBZUS_INCLSUBS_CHECK CALL FUNCTION 'ISP_NEW_JDTBZUS_INCLSUBS_CHECK' EXPORTING EX_PVABZUS_FROM_DATABASE = ' ' NEW_PVABZUS = VLJDTBZUS IMPORTING RETURNCODE = CALLRETURN ERRORMESSAGE = MELDUNG ERRORFIELD = ERRORFIELD ERRORTABLE = ERRORTABLE TABLES EX_PVABZUS_TAB = BZUSTAB.
ISP_NEW_JDTBZUS_REPLACEM_CHECK CALL FUNCTION 'ISP_NEW_JDTBZUS_REPLACEM_CHECK' EXPORTING EX_PVABZUS_FROM_DATABASE = ' ' NEW_PVABZUS = VLJDTBZUS IMPORTING RETURNCODE = CALLRETURN ERRORMESSAGE = MELDUNG ERRORFIELD = ERRORFIELD ERRORTABLE = ERRORTABLE TABLES EX_PVABZUS_TAB = BZUSTAB.
ISP_NEW_JDTBZANG_CHECK CALL FUNCTION 'ISP_NEW_JDTBZANG_CHECK' EXPORTING EX_BZANG_FROM_DATABASE = ' ' EX_BZUS_FROM_DATABASE = ' ' NEW_JDTBZANG = VLJDTBZANG IMPORTING RETURNCODE = CALLRETURN ERRORMESSAGE = MELDUNG ERRORFIELD = ERRORFIELD ERRORTABLE = ERRORTABLE TABLES EX_BZANG_TAB = BEZANGTAB EX_BZUS_TAB = BZUSTAB.
ISP_NEW_JDTPVAVTR_CHECK CALL FUNCTION 'ISP_NEW_JDTPVAVTR_CHECK' EXPORTING EX_PVAVTR_FROM_DATABASE = ' ' NEW_PVAVTR = NEW_VTRSEG IMPORTING ERRORMESSAGE = MELDUNG RETURNCODE = RETURNCODE TABLES EX_PVAVTR_TAB = VERTRIEBSTAB.
* CALL FUNCTION 'ISP_NEW_JDTPVAVTR_CHECK' "TK17061997 * EXPORTING EX_PVAVTR_FROM_DATABASE = ' ' "TK17061997 * NEW_PVAVTR = NEW_VTRSEG "TK17061997 * IMPORTING ERRORMESSAGE = MELDUNG "TK17061997 * RETURNCODE = RETURNCODE "TK17061997 * TABLES EX_PVAVTR_TAB = VERTRIEBSTAB. "TK17061997
POPUP_GET_VALUES_USER_CHECKED CALL FUNCTION 'POPUP_GET_VALUES_USER_CHECKED' * EXPORTING CHECK_EXISTENCE = CON_ANGEKREUZT "für DB_CHECK EXPORTING FORMNAME = 'PVAVTR_NEU_PRUEFEN' PROGRAMNAME = 'SAPMJD34' "für USER_CHE POPUP_TITLE = TEXT-VAN START_COLUMN = 20 START_ROW = 10 IMPORTING RETURNCODE = RETURNCODE_C TABLES FIELDS = FELDTAB EXCEPTIONS ERROR_IN_FIELDS = 1.
HELP_VALUES_GET_WITH_TABLE_EXT
HELP_VALUES_GET_WITH_TABLE * CALL FUNCTION 'HELP_VALUES_GET_WITH_TABLE_EXT' ** CALL FUNCTION 'HELP_VALUES_GET_WITH_TABLE' * EXPORTING CUCOL = SPALTE * CUROW = ZEILE * DISPLAY = ' ' " Übernahme Pickup * FIELDNAME = FELDNAME " wg POPUP- * TABNAME = TABNAME " Titel nötig * IMPORTING INDEX = INDEX * SELECT_VALUE = ERGEBNIS * TABLES FIELDS = FELDTAB * SELECT_VALUES = ERGTAB * VALUETAB = WERTETAB * EXCEPTIONS FIELD_NOT_IN_DDIC = 01 * MORE_THEN_ONE_SELECTFIELD = 02 * NO_SELECTFIELD = 03.
F4IF_INT_TABLE_VALUE_REQUEST CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST' EXPORTING RETFIELD = 'VKORG' * VALUE_ORG = 'S' CALLBACK_PROGRAM = 'SAPMJD34' CALLBACK_FORM = 'F4CALLBACK' TABLES * VALUE_TAB = lt_value_tab VALUE_TAB = loc_tab FIELD_TAB = lt_field_tab RETURN_TAB = lt_return_tab EXCEPTIONS PARAMETER_ERROR = 1 NO_VALUES_FOUND = 2.
SCROLLING_IN_TABLE CALL FUNCTION 'SCROLLING_IN_TABLE' EXPORTING ENTRY_ACT = GV_PAGEBEGIN_D1100 " Alter Aufstzind ENTRY_FROM = 1 " Anfang Tab. Teilstr.
ISP_NEW_JDTPVAVTR_CHECK CALL FUNCTION 'ISP_NEW_JDTPVAVTR_CHECK' EXPORTING EX_PVAVTR_FROM_DATABASE = ' ' NEW_PVAVTR = NEU_VTR IMPORTING ERRORMESSAGE = MELDUNG RETURNCODE = RETURNCODE TABLES EX_PVAVTR_TAB = VERTRIEBSTAB.
POPUP_TO_CONFIRM_STEP CALL FUNCTION 'POPUP_TO_CONFIRM_STEP' EXPORTING TITEL = TEXT-173 TEXTLINE1 = TEXT1 TEXTLINE2 = TEXT2 * defaultoption = IMPORTING ANSWER = RETURNCODE .
POPUP_TO_CONFIRM_STEP CALL FUNCTION 'POPUP_TO_CONFIRM_STEP' EXPORTING TITEL = TEXT-176 TEXTLINE1 = TEXT1 TEXTLINE2 = TEXT2 * defaultoption = IMPORTING ANSWER = RETURNCODE .
F4IF_FIELD_VALUE_REQUEST CALL FUNCTION 'F4IF_FIELD_VALUE_REQUEST' EXPORTING TABNAME = 'JDTDRER' FIELDNAME = 'GPNR' SEARCHHELP = 'MJG0L' SHLPPARAM = 'GP_REF' DYNPPROG = SY-CPROG DYNPNR = SY-DYNNR DYNPROFIELD = 'JDTDRER-GPNR' * STEPL = 0 VALUE = LV_FLDVALUE * MULTIPLE_CHOICE = ' ' * DISPLAY = ' ' * TABLES RETURN_TAB = LV_RETURN_TAB * EXCEPTIONS FIELD_NOT_FOUND = 1 * NO_HELP_FOR_FIELD = 2 * INCONSISTENT_HELP = 3 EXCEPTIONS NO_VALUES_FOUND = 4.
Contribute (Add Comments)
Although this basic information may have limited use it does provide an easy to find location to store any knowledge about this program/report.
The contribute/comments section below therefore offer's an opportunity for anyone to add additional information. This can be anything from useful hints, tips and screen shots to relevant SAP notes or anything else you feel is relevant to this report.
This will then be available for everyone to easily find by simply searching on the report name MJD34FOB or its description.