SAP Reports / Programs | Periodical Sales and Distribution | SAP Media | Periodical Sales and Distribution(IS-M-SD-PS) SAP IS
MJD37FOB SAP ABAP INCLUDE - IS-M: CUA Forms (Sample PGM)
MJD37FOB 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 MJD37FOB 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 MJD37FOB. "Basic submit
SUBMIT MJD37FOB AND RETURN. "Return to original report after report execution complete
SUBMIT MJD37FOB 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 MJD37FOB
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:
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.
ISP_VAS_CHECK_XVERSVORL CALL FUNCTION 'ISP_VAS_CHECK_XVERSVORL' EXPORTING DRERZ = JDTVAUSGB-DRERZ GUEBIS = JDTVAUSGB-ERSCHDAT GUEVON = JDTVAUSGB-ERSCHDAT PVA = JDTVAUSGB-PVA IMPORTING XVERSVORLF = FLG_DISPONIERT "hier: Beil. vorh.
POPUP_GET_VALUES_USER_CHECKED CALL FUNCTION 'POPUP_GET_VALUES_USER_CHECKED' * EXPORTING CHECK_EXISTENCE = CON_ANGEKREUZT "für DB_CHECK EXPORTING FORMNAME = 'BZUS_NEU_PRUEFEN' PROGRAMNAME = 'SAPMJD37' "für USER_CHE POPUP_TITLE = TEXT-510 START_COLUMN = 20 START_ROW = 5 IMPORTING RETURNCODE = RETURNCODE TABLES FIELDS = DIALTAB EXCEPTIONS ERROR_IN_FIELDS = 1.
ISP_VA_GET_ALL_CARRIERS CALL FUNCTION 'ISP_VA_GET_ALL_CARRIERS' EXPORTING BZTYP_traeger = RJD37BZ-BZTYP "Traeger drertr = jdtvausgb-drerz "Traeger pvatra = jdtvausgb-pva "Traeger VA_beilage = *JDTVAUSGB-VAUSGB "Beilage TGBZ_FROM_DB = CON_ANGEKREUZT TABLES CARRIER = VATRATAB TGBZ = DUMMYTGBZ EXCEPTIONS BZTYP_NOT_FOUND = 01 VA_NOT_FOUND = 02.
ISP_VA_GET_PLANNED_INSETS CALL FUNCTION 'ISP_VA_GET_PLANNED_INSETS' EXPORTING BZTYP = RJD37BZ-BZTYP VA = JDTVAUSGB-VAUSGB X_KDGRP_WILDCARD = CON_ANGEKREUZT * initiale Kundengruppe ist hier eine Wildcard: * Bsp.: Kundengruppe wird nicht selektiert und immer
SCROLLING_IN_TABLE CALL FUNCTION 'SCROLLING_IN_TABLE' EXPORTING ENTRY_ACT = GV_PAGEBEGIN_D0500 " Alter Aufstzind ENTRY_FROM = 1 " Anfang Tab. Teilstr.
ISP_VAS_CHECK_XVERSVORL CALL FUNCTION 'ISP_VAS_CHECK_XVERSVORL' EXPORTING DRERZ = JDTVAUSGB-DRERZ GUEBIS = JDTVAUSGB-ERSCHDAT GUEVON = JDTVAUSGB-ERSCHDAT PVA = JDTVAUSGB-PVA IMPORTING XVERSVORLF = FLG_DISPONIERT "hier: Beil. vorh.
POPUP_TO_CONFIRM_STEP CALL FUNCTION 'POPUP_TO_CONFIRM_STEP' EXPORTING TITEL = TEXT-183 TEXTLINE1 = TEXT1 TEXTLINE2 = TEXT2 * defaultoption = IMPORTING ANSWER = RETURNCODE .
ISP_POPUP_USERDATA CALL FUNCTION 'ISP_POPUP_USERDATA' EXPORTING TABNAME = 'JDTVAUSGB' ERFUSER = JDTVAUSGB-ERFUSER ERFDATE = JDTVAUSGB-ERFDATE ERFTIME = JDTVAUSGB-ERFTIME ERFPROG = JDTVAUSGB-ERFPROG AENUSER = JDTVAUSGB-AENUSER AENDATE = JDTVAUSGB-AENDATE AENTIME = JDTVAUSGB-AENTIME AENPROG = JDTVAUSGB-AENPROG.
ISP_SELECT_SINGLE_JDTVAUSGB CALL FUNCTION 'ISP_SELECT_SINGLE_JDTVAUSGB' EXPORTING VAUSGB = JVTBLGZUS-VAUSGBBEI MSGTY = CON_INFORMATION IMPORTING JDTVAUSGB_I = *JDTVAUSGB * MELDUNG = EXCEPTIONS NO_ENTRY_FOUND = 1.
ISP_VA_MAKE_HEFTNUMMER CALL FUNCTION 'ISP_VA_MAKE_HEFTNUMMER' EXPORTING NRIMJAHR = JDTVAUSGB-NRIMJAHR JAHRGANG = JDTVAUSGB-JAHRGANG * IMPORTING HEFTNUMMER = JDTVAUSGB-HEFTNUMMER. "TK01031999
SCROLLING_IN_TABLE CALL FUNCTION 'SCROLLING_IN_TABLE' " 4.01
SI_UNIT_GET CALL FUNCTION 'SI_UNIT_GET' EXPORTING DIMENSION = CON_MASSE_DIMENSION IMPORTING SI_UNIT = LV_SPLITTAB-MEINHGEWPLSPLIT EXCEPTIONS DIMENSION_NOT_FOUND = 1 UNIT_NOT_FOUND = 2 OTHERS = 3.
POPUP_TO_CONFIRM CALL FUNCTION 'POPUP_TO_CONFIRM' EXPORTING TITLEBAR = LV_TITEL DIAGNOSE_OBJECT = 'ISM_SAPMJD37_WEIGHT_OVERWRIT' TEXT_QUESTION = TEXT-243 TEXT_BUTTON_1 = TEXT-244 ICON_BUTTON_1 = 'ICON_OKAY' TEXT_BUTTON_2 = TEXT-245 ICON_BUTTON_2 = 'ICON_CANCEL' DEFAULT_BUTTON = '2' DISPLAY_CANCEL_BUTTON = ' ' * USERDEFINED_F1_HELP = ' ' * START_COLUMN = 25 * START_ROW = 6 * POPUP_TYPE = IMPORTING ANSWER = LV_ANSWER TABLES PARAMETER = POPUP_PARAMETERS.
POPUP_TO_CONFIRM CALL FUNCTION 'POPUP_TO_CONFIRM' EXPORTING TITLEBAR = LV_TITEL DIAGNOSE_OBJECT = 'ISM_SAPMJD37_WEIGHT_OVERWRIT' TEXT_QUESTION = TEXT-243 TEXT_BUTTON_1 = TEXT-244 ICON_BUTTON_1 = 'ICON_OKAY' TEXT_BUTTON_2 = TEXT-245 ICON_BUTTON_2 = 'ICON_CANCEL' DEFAULT_BUTTON = '2' DISPLAY_CANCEL_BUTTON = ' ' * USERDEFINED_F1_HELP = ' ' * START_COLUMN = 25 * START_ROW = 6 * POPUP_TYPE = IMPORTING ANSWER = LV_ANSWER TABLES PARAMETER = POPUP_PARAMETERS.
UNIT_CONVERSION CALL FUNCTION 'UNIT_CONVERSION' EXPORTING MEINS = I_VA-MEINHGEWP " Ausgangseinheit MGLME = I_VA-VAGEWPLAN " Ausgangsgewicht MEINH = I_MEINPLAN " Zieleinheit IMPORTING O_MGAME = E_GEWPLAN. " errechn. Zielgewicht
UNIT_CONVERSION CALL FUNCTION 'UNIT_CONVERSION' EXPORTING MEINS = I_VA-MEINHGEW " Ausgangseinheit MGLME = I_VA-VAGEWICHT " Ausgangsgewicht MEINH = I_MEINPLAN " Zieleinheit IMPORTING O_MGAME = E_GEWPLAN. " errechn. Zielgewicht
UNIT_CONVERSION CALL FUNCTION 'UNIT_CONVERSION' EXPORTING MEINS = I_VA-MEINHGEWI " Ausgangseinheit MGLME = I_VA-VAGEWIST " Ausgangsgewicht MEINH = I_MEINIST " Zieleinheit IMPORTING O_MGAME = E_GEWIST. " errechn. Zielgewicht
CALL FUNCTION 'ISP_ISSUE_WEIGHT_CALCULATION' EXPORTING NR_OF_PAGES = SEITENANZAHL OUTERSHEETWEIGHT = MANTELBLATTGEW OUTERSHEETWEIGHT_UNIT = MANTELBLATTEINH SHEETWEIGHT = BLATTGEWICHT SHEETWEIGHT_UNIT = BLATTEINHEIT ISSUEWEIGHT_UNIT_I = VAGEWEINHEIT IMPORTING ISSUEWEIGHT = VAGEWICHT ISSUEWEIGHT_UNIT_O = VAGEWEINHEIT EXCEPTIONS CONVERSION_NOT_FOUND = 01 DIVISION_BY_ZERO = 02 INVALID_DIMENSION = 03 INVALID_NR_OF_PAGES = 04 OVERFLOW = 05 T006D_ENTRY_MISSING = 06 T006_ENTRY_MISSING = 07.
POPUP_GET_VALUES_USER_CHECKED CALL FUNCTION 'POPUP_GET_VALUES_USER_CHECKED' * EXPORTING CHECK_EXISTENCE = CON_ANGEKREUZT "für DB_CHECK EXPORTING FORMNAME = 'WERK_NEU_PRUEFEN' PROGRAMNAME = REPID "für USER_CHE POPUP_TITLE = TEXT-710 START_COLUMN = 20 START_ROW = 5 IMPORTING RETURNCODE = RETURNCODE TABLES FIELDS = DIALTAB EXCEPTIONS ERROR_IN_FIELDS = 1.
SCROLLING_IN_TABLE CALL FUNCTION 'SCROLLING_IN_TABLE' EXPORTING ENTRY_ACT = GV_PAGEBEGIN_D0700 " Alter Aufstzind ENTRY_FROM = 1 " Anfang Tab. Teilstr.
ISP_VAS_CHECK_DSPTR CALL FUNCTION 'ISP_VAS_CHECK_DSPTR' EXPORTING DRERZ = JDTVAUSGB-DRERZ GUEBIS = JDTVAUSGB-ERSCHDAT GUEVON = JDTVAUSGB-ERSCHDAT PVA = JDTVAUSGB-PVA INCL_JDTBZUS = CON_ANGEKREUZT INCL_LAST_DISPO_DATE = CON_BLANK "TK02021996 IMPORTING XDISPO = FLG_VA_DISPONIERT LAST_DISPO_DATE = DUMMY_DATE "TK02021996 EXCEPTIONS INTERVALL_ERROR = 01.
ISP_ISSUE_CHECK_DISPOSITION CALL FUNCTION 'ISP_ISSUE_CHECK_DISPOSITION' EXPORTING ISSUE_ID = JDTVAUSGB-VAUSGB IMPORTING XDISPO = FLG_VA_DISPONIERT.
POPUP_TO_CONFIRM_STEP CALL FUNCTION 'POPUP_TO_CONFIRM_STEP' EXPORTING TITEL = TEXT-186 TEXTLINE1 = TEXT1 TEXTLINE2 = TEXT2 * defaultoption = IMPORTING ANSWER = RETURNCODE .
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 MJD37FOB or its description.