SAP Reports / Programs | Periodical Sales and Distribution | SAP Media | Periodical Sales and Distribution(IS-M-SD-PS) SAP IS

MJ60AF0B SAP ABAP INCLUDE - Form Routines for Billing Document - 'B'







MJ60AF0B 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 MJ60AF0B 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 MJ60AF0B. "Basic submit
SUBMIT MJ60AF0B AND RETURN. "Return to original report after report execution complete
SUBMIT MJ60AF0B VIA SELECTION-SCREEN. "Display selection screen of submitted report to user
    See more syntax options for the ABAP SUBMIT statement


Text pool values


Title: Form Routines for Billing Document - 'B'


INCLUDES used within this REPORT MJ60AF0B

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_INVOICE_REFRESH CALL FUNCTION 'ISP_INVOICE_REFRESH' TABLES XKOMV = XKOMV XTHEAD = XTHEAD XJFFS = XJFFS * xvbss = xvbss "3.04

ISP_INVOICE_DOCUMENT_READ CALL FUNCTION 'ISP_INVOICE_DOCUMENT_READ' EXPORTING JFRK_I = JFRK ACTIVITY = DA_ACTVT MSGTY = CON_ERROR KONV_READ = CON_ANGEKREUZT IMPORTING JFRK_E = JFRK ACTIV_E = DA_ACTVT TABLES XJFRK = XJFRK XJFRP = XJFRP XJFPA = XJFPA XJFFS = XJFFS XKOMV = XKOMV XKOMFK = XKOMFK XJFRKCC = XJFRKCC . "CC 4.01

DEQUEUE_ALL CALL FUNCTION 'DEQUEUE_ALL'.

ISM_BILLING_INDEX_CANCEL_CHECK CALL FUNCTION 'ISM_BILLING_INDEX_CANCEL_CHECK' EXPORTING * I_VBELN = XJFRK-VBELN "note 1570181 I_VBELN = XJFRK-ISPSFAKT "note 1570181 I_AMORTN = XJFRK-AMORTN I_XTRANSFER = XJFRK-XTRANSFER "note 1441469 I_JFRP_TAB = LT_JFRP IMPORTING E_BILLING_INDEX_OPTION = LOC_BILLING_INDEX_OPTION EXCEPTIONS WRONG_PARAMETER = 1 OTHERS = 2 .

ISP_INVOICE_DOCUMENT_ADD CALL FUNCTION 'ISP_INVOICE_DOCUMENT_ADD' EXPORTING JFSK_I = JFSK WITH_POSTING = CON_FAKTURA_BUCHEN_ONLINE TRTYP = T180-TRTYP VKORG = GV_VKORG_SAMMG "3.04

STACK_RESET CALL FUNCTION 'STACK_RESET'.

ENQUEUE_EVJFRKE CALL FUNCTION 'ENQUEUE_EVJFRKE' EXPORTING MANDT = SY-MANDT VBELN = US_VBELN EXCEPTIONS FOREIGN_LOCK = 2 SYSTEM_FAILURE = 3.

ENQUEUE_EJVBRKS CALL FUNCTION 'ENQUEUE_EJVBRKS' EXPORTING MODE_RJFENQ = CON_ENQUEUE_SHARED "Rel3.03

DEQUEUE_EVJFRKE CALL FUNCTION 'DEQUEUE_EVJFRKE' EXPORTING MANDT = SY-MANDT VBELN = US_VBELN.

SCROLLING_IN_TABLE CALL FUNCTION 'SCROLLING_IN_TABLE' EXPORTING ENTRY_ACT = B_TABIX_ZEILE_1 ENTRY_TO = B_TFILL LOOPS = B_LOOPC OK_CODE = FCODE OVERLAPPING = SPACE LAST_PAGE_FULL = 'X' IMPORTING ENTRY_NEW = B_TABIX_ZEILE_1.

BUPA_ENQUEUE CALL FUNCTION 'BUPA_ENQUEUE' EXPORTING IV_PARTNER = JFRK-KUNRG TABLES ET_RETURN = LT_RETURN.

ENQUEUE_EJGKNA1 CALL FUNCTION 'ENQUEUE_EJGKNA1' EXPORTING KUNNR = JFRK-KUNRG EXCEPTIONS FOREIGN_LOCK = 01 .

BUP_BUT0BK_SELECT_WITH_PARTNER CALL FUNCTION 'BUP_BUT0BK_SELECT_WITH_PARTNER' EXPORTING I_PARTNER = JFRK-KUNRG TABLES T_BUT0BK = XBUT0BK EXCEPTIONS OTHERS = 4.

ISP_SELECT_SINGLE_TVTA CALL FUNCTION 'ISP_SELECT_SINGLE_TVTA' EXPORTING MSGTY = CON_ERROR SPART = JFRK-SPART VKORG = JFRK-VKORG VTWEG = JFRK-VTWEG IMPORTING TVTA_I = LS_TVTA EXCEPTIONS OTHERS = 4.

ISP_BANK_ADDRESS_CHECK CALL FUNCTION 'ISP_BANK_ADDRESS_CHECK' EXPORTING BANKL = JFRK-ISPBANKL BANKN = JFRK-ISPBANKN BANKS = JFRK-ISPBANKS BKONT = JFRK-ISPBKONT IMPORTING XLOEVM = BANK_LOEVM EXCEPTIONS CHECK_FAILED = 01 WRONG_INPUT = 02 .

ISP_BANK_ADDRESS_CHECK CALL FUNCTION 'ISP_BANK_ADDRESS_CHECK' EXPORTING BANKL = JFRK-ISPBANKL BANKN = JFRK-ISPBANKN BANKS = JFRK-ISPBANKS BKONT = JFRK-ISPBKONT IMPORTING XLOEVM = BANK_LOEVM "Rel.4.02/3

ISM_BANK_PAYMENT_CHECK CALL FUNCTION 'ISM_BANK_PAYMENT_CHECK' EXPORTING BANKL = JFRK-ISPBANKL XEZER = JFRK-ISPXEZER T042Z_IN = T042Z bankn = jfrk-ispbankn "SEPA2013 EXCEPTIONS BANK_CODE_MISSING = 1 collection_auth_missing = 2 bank_number_missing = 3. "SEPA2013

ISP_SELECT_SINGLE_TVTA CALL FUNCTION 'ISP_SELECT_SINGLE_TVTA' EXPORTING SPART = JFRK-SPART VKORG = JFRK-VKORG VTWEG = JFRK-VTWEG IMPORTING TVTA_I = LOC_TVTA EXCEPTIONS NO_ENTRY_FOUND = 01.

ISM_BUPA_BK_MAINTAIN





CALL FUNCTION 'ISM_BUPA_BK_MAINTAIN' EXPORTING I_PARTNER = JFRK-KUNRG I_AKTYP = LOC_AKTYP I_VKORG = LOC_TVTA-VKORG I_VTWEG = LOC_TVTA-VTWKU I_SPART = LOC_TVTA-SPAKU i_check_xezer = t042z-xezer IMPORTING E_BUT0BK = LOC_SELECTED_BANK_SAPGP TABLES T_BUT0BK = LT_XBUT0BK EXCEPTIONS OTHERS = 1.

ISM_SEPA_MANDATE_DETERMINE CALL FUNCTION 'ISM_SEPA_MANDATE_DETERMINE' EXPORTING iv_bukrs = t001-bukrs "tvko-bukrs iv_gpnr = jfrk-kunrg iv_iban = jfrk-iban iv_sepa_anwnd = lv_sepa_anwnd iv_objtype = cl_ism_bp_sepa_check=>cv_objtype_billing iv_vkorg = jfrk-vkorg iv_vtweg = jfrk-vtweg iv_spart = jfrk-spart iv_sepa_status = cl_ism_bp_sepa_check=>cv_sepa_status_tobeconfirmed iv_update_task = con_angekreuzt iv_with_bnk_check_crt = con_angekreuzt IMPORTING ev_mndid = lv_mndid EXCEPTIONS error = 1 OTHERS = 2.

ISP_LOG_APPL_FOR_FIBU_GET CALL FUNCTION 'ISP_LOG_APPL_FOR_FIBU_GET' EXPORTING BUKRS = T001-BUKRS IMPORTING RFCTYPE = LOC_RFCTYPE EXCEPTIONS OTHERS = 0.

LOCATION_EXTRACT CALL FUNCTION 'LOCATION_EXTRACT' IMPORTING PROGRAMM = LOC_PROGRAM STACKSTUFE = T185-STNEU TRTYP = T185F-TRTYP T185_EXP = T185 EXCEPTIONS OTHERS = 1.

ISP_GP_BANK_SELECT CALL FUNCTION 'ISP_GP_BANK_SELECT' EXPORTING IN_ZUGRIFFSART = JG000_ZUGRIFFSART_OPTIMIERT "n. 590049

LOCATION_CORRECT CALL FUNCTION 'LOCATION_CORRECT' EXPORTING BILD = T185-PANEL BILDGRUPPE = T185-BLDGR KOPFGRUPPE = TJFK-KOPGR POSITIONSGRUPPE = ' ' PROGRAMM = LOC_PROGRAM STACKSTUFE = T185-STNEU TRTYP = T185F-TRTYP TABELLEN_LESEN = CON_ANGEKREUZT FUNKTION = T185-FCODE CLR_FLAG_ENDE = CON_ANGEKREUZT T185_IMP = T185 EXCEPTIONS OTHERS = 1.



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 MJ60AF0B or its description.