J_1SESR1 SAP ABAP Report - IS-M/SD CH/F: Print Program for Subscription Invoices

J_1SESR1 is a standard Executable ABAP Report available within your SAP system (depending on your version and release level). It is used for This program is a print report that prints an invoice for a subscriber with a SAPscript form using output control...see full standard documentation available for this report. Also check out the submitted Comments related to this SAP report and the details below to see which OBJECTS it interacts with such as TABLES, FUNCTION MODULES, INCLUDES ETC.

If you would like to execute this report or see the full code listing simply enter J_1SESR1 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 J_1SESR1. "Basic submit
SUBMIT J_1SESR1 AND RETURN. "Return to original report after report execution complete
SUBMIT J_1SESR1 VIA SELECTION-SCREEN. "Display selection screen of submitted report to user
    See more syntax options for the ABAP SUBMIT statement

Text pool values

INCLUDES used within this REPORT J_1SESR1

INCLUDE MJ000TAL. " EC
INCLUDE MJG00T01. " EC
INCLUDE MJG00TRO. " EC
INCLUDE MJY00TPR. " EC
INCLUDE MJV00T15. " EC
INCLUDE MJV00T17. " EC
INCLUDE MJY00TKO.

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_ADDRESS_READ
  CALL FUNCTION 'ISP_ADDRESS_READ'
    EXPORTING
      adrnr_in   = tjfpa-adrnr
    IMPORTING
      sadrwa_out = *jgtsadr
    EXCEPTIONS
      not_found  = 01.

ISP_ADDRESS_INTO_PRINTFORM
  CALL FUNCTION 'ISP_ADDRESS_INTO_PRINTFORM'
    EXPORTING
      anschr_typ    = anschr_typ
      flg_namenszus = con_angekreuzt
      sadrwa_in     = *jgtsadr
      zeilenzahl    = con_zeilen_adresse
    IMPORTING
      sadrwa_out    = adrs.

CLOSE_FORM
  CALL FUNCTION 'CLOSE_FORM'
    EXCEPTIONS
      OTHERS = 1.

OPEN_FORM
  CALL FUNCTION 'OPEN_FORM'
    EXPORTING
      form     = tnapr-fonam
      language = *jgtsadr-spras
      options  = itcpo
      device   = xdevice
      dialog   = ' '
    EXCEPTIONS
      OTHERS   = 1.

RV_PRICE_PRINT_REFRESH
  CALL FUNCTION 'RV_PRICE_PRINT_REFRESH'
    TABLES
      tkomv = tkomv.

ISP_INVOICE_READ
  CALL FUNCTION 'ISP_INVOICE_READ'
    EXPORTING
      comwa             = vbco3
    IMPORTING
      kopf              = jfrk
    TABLES
      partner           = tjfpa
      pos               = tjfrp
    EXCEPTIONS
      invoice_not_found = 4.

CONTROL_FORM
    CALL FUNCTION 'CONTROL_FORM'
      EXPORTING
        command   = 'PROTECT'
      EXCEPTIONS
        unopened  = 01
        unstarted = 02.

CONTROL_FORM
    CALL FUNCTION 'CONTROL_FORM'
      EXPORTING
        command = 'ENDPROTECT'.

ISP_SELECT_SINGLE_T001
*    CALL FUNCTION 'ISP_SELECT_SINGLE_T001'
*         EXPORTING
*              BUKRS          = JFRK-BUKRS
*         IMPORTING
*              T001_I         = L_T001
*         EXCEPTIONS
*              OTHERS         = 0.

RV_PRICE_PRINT_ITEM
  CALL FUNCTION 'RV_PRICE_PRINT_ITEM'
    EXPORTING
      comm_head_i = komk
      comm_item_i = komp
      language    = *jgtsadr-spras
    IMPORTING
      comm_head_e = komk
      comm_item_e = komp
    TABLES
      tkomv       = tkomv
      tkomvd      = tkomvd.

RV_PRICE_PRINT_HEAD
*  CALL FUNCTION 'RV_PRICE_PRINT_HEAD'
*    EXPORTING
*      comm_head_i = komk
*      language    = nast-spras
*    IMPORTING
*      comm_head_e = komk
*    TABLES
*      tkomv       = tkomv
*      tkomvd      = tkomvd.

WRITE_FORM
  CALL FUNCTION 'WRITE_FORM'
    EXPORTING
      element   = p_element
      function  = 'SET'
      type      = 'BODY'
      window    = 'MAIN'
    EXCEPTIONS
      element   = 01
      function  = 02
      type      = 03
      unopened  = 04
      unstarted = 05
      window    = 06.

ISP_SELECT_SINGLE_TJAPT
    CALL FUNCTION 'ISP_SELECT_SINGLE_TJAPT'
      EXPORTING
        aktsprsl       = *jgtsadr-spras
        bassprsl       = sy-langu
        msgty1         = con_msg_extern
        msgty2         = con_msg_extern
        poart          = jfrp-isppoart
      IMPORTING
        meldung        = meldung
        tjapt_i        = tjapt
      EXCEPTIONS
        no_entry_found = 01.

CONTROL_FORM
  CALL FUNCTION 'CONTROL_FORM'
    EXPORTING
      command = 'PROTECT'.

EXIT_ESR_001
* call function 'EXIT_ESR_001'
*      exporting
*           vbelnr  = jfrk-vbeln
*           vkundnr = jfrk-kunrg
*      importing
*           refnr   = j_1sesr-vzrefn
*      exceptions
*           error   = 01
*           warning = 02.