RJPSDISSUEDSEQGEN SAP ABAP Report - IS-M: Automatic Assignment of Default Values to Issue Sequence

RJPSDISSUEDSEQGEN is a standard Executable ABAP Report available within your SAP system (depending on your version and release level). It is used for Automatic preassignment of issue sequences You can use this report to preassign issue sequences to media products...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 RJPSDISSUEDSEQGEN into the relevant SAP transactions such as SE38 or SE80

Transaction Code(s):

Below is a list of transaction codes which are relevant to this SAP report

JPMG5 - Preassign Issue Sequences

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.

Text pool values

INCLUDES used within this REPORT RJPSDISSUEDSEQGEN

INCLUDE MJ_XFELD. "TK12022002
INCLUDE MJ_SYMSGTY. "TK12022002
INCLUDE LJPISMDC1. "TK28022002
INCLUDE LJPMSD01DC1.

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:

ENQUEUE_EJPLF
    CALL FUNCTION 'ENQUEUE_EJPLF'
      EXPORTING
        MODE_RJP_ENQ_DELIV_SEQ = 'E'
        MANDT                  = SY-MANDT
        MED_PROD               = MEDPRODUCT_FROM_ISSUESEQ-med_prod
        _SCOPE                 = '1'
      EXCEPTIONS
        FOREIGN_LOCK           = 1
        SYSTEM_FAILURE         = 2
        OTHERS                 = 3.

ISM_ISSUE_SEQUENCE_CHECK
          CALL FUNCTION 'ISM_ISSUE_SEQUENCE_CHECK'
            EXPORTING
              NEW_APPEND_TAB        = new_Append_tab
              MED_PROD              = MEDPRODUCT_FROM_ISSUESEQ-MED_PROD
            IMPORTING
              XERROR                = xerror
              ERROR_LINE            = error_line
              ERROR_FIELD           = error_field
              MSG_ERROR_TAB         = msg_error_tab
              XINFO                 = xinfo
              I_TAB                 = i_tab
              MSG_INFO_TAB          = msg_info_tab
              proved_NEW_APPEND_TAB = proved_NEW_APPEND_TAB
            EXCEPTIONS
              MED_PROD_INVALID      = 1
              OTHERS                = 2.

ISM_API_ISSUE_SEQUENCE_APPEND
          CALL FUNCTION 'ISM_API_ISSUE_SEQUENCE_APPEND'
            EXPORTING
              IN_PUBLICATION_DATE    = PLANNEDISSUE-ISMPUBLDATE
              IN_PRODUCT             = MEDPRODUCT_FROM_ISSUESEQ-MED_PROD
              IN_TEMPLATE_ISSUE      = PLANNEDISSUE-ISMMATNR_PATTERN
              IN_TEMPLATE_VARTYPE    = PLANNEDISSUE-ISMISSUETYPEST
              IN_XCREATE_ISSUE       = ' '
              IN_XACTIVATE_PLAN      = P_ACTIVE             "TK27022002
              IN_XSET_END_OF_HORIZON = p_horiz              "TK19062006
            IMPORTING
              OUT_ISSUE              = LMATNRISSUE
            TABLES
              OUT_RETURN             = RETURNTAB.

DEQUEUE_EJPLF
    CALL FUNCTION 'DEQUEUE_EJPLF'
      EXPORTING
        MODE_RJP_ENQ_DELIV_SEQ = 'E'
        MANDT                  = SY-MANDT
        MED_PROD               = MEDPRODUCT_FROM_ISSUESEQ-med_prod.

ISM_JPTBUPAASSIGN_READ_W_MATNR
      CALL FUNCTION 'ISM_JPTBUPAASSIGN_READ_W_MATNR'
        EXPORTING
          PVI_MATNR     = MEDIAPRODUCT_FROM_ISSUESEQ-MED_PROD
        TABLES
          PT_BUPAASSIGN = BUPATAB
        EXCEPTIONS
          WRONG_CALL    = 1
          NOT_FOUND     = 2
          OTHERS        = 3.

ISM_MEDPROD_GENERATE
  CALL FUNCTION 'ISM_MEDPROD_GENERATE'
    EXPORTING
      IN_MEDPROD            = LMARA
      IN_FROMDATE           = P_VONDAT
      IN_TODATE             = P_BISDAT
      IN_XREAD_GENRULE      = 'X'
      IN_XREAD_MAX_PUBLDATE = 'X'
      IN_MAX_PUBLDATE       = SY-DATUM
    IMPORTING
      OUT_INFO_LIST         = INFO_LIST
      OUT_ERROR_LIST        = ERROR_LIST
      OUT_RETURN_TAB        = RETURN_TAB                    "TK12022002
    TABLES
      OUT_MEDAUS_TAB        = MEDAUSTAB
      IN_GENRULE_TAB        = GENRULE_TAB
    EXCEPTIONS
      INTERNAL_ERROR        = 1
      OTHERS                = 2.

ISP_BUFFERED_READ_TJY00
  CALL FUNCTION 'ISP_BUFFERED_READ_TJY00'
    IMPORTING
      OUT_TJY00        = TJY00
    EXCEPTIONS
      ERROR_READ_TJY00 = 01.

ISM_BAPIRETURN_GET_TAB
    CALL FUNCTION 'ISM_BAPIRETURN_GET_TAB'
      EXPORTING
        IN_MSGTAB  = MSGerrorTAB
      IMPORTING
        out_return = RETURNtab[].