SAP Reports / Programs | Cross-Application Components | Cross-Application Components | Visual Enterprise Planner integration with ERP(CA-VE-VEP-INT) SAP CA

comments icon Comments

VMP_P_COCKPIT_I01 SAP ABAP INCLUDE - Include VMP_P_COCKPIT_I01







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


Text pool values


Title: Include VMP_P_COCKPIT_I01


INCLUDES used within this REPORT VMP_P_COCKPIT_I01

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:

DEQUEUE_ALL
      CALL FUNCTION 'DEQUEUE_ALL'
*       EXPORTING
*         _SYNCHRON       = ' '
        .

DEQUEUE_ALL
      CALL FUNCTION 'DEQUEUE_ALL'
*       EXPORTING
*         _SYNCHRON       = ' '
        .

DEQUEUE_ALL
      CALL FUNCTION 'DEQUEUE_ALL'
*       EXPORTING
*         _SYNCHRON       = ' '
        .

POPUP_TO_CONFIRM
          CALL FUNCTION 'POPUP_TO_CONFIRM'
            EXPORTING
              titlebar              = text-017
*             DIAGNOSE_OBJECT       = ' '
              text_question         = text-026
              text_button_1         = text-019
*             ICON_BUTTON_1         = ' '
              text_button_2         = text-020
*             ICON_BUTTON_2         = ' '
              default_button        = '1'
              display_cancel_button = ' '
*             USERDEFINED_F1_HELP   = ' '
*             START_COLUMN          = 25
*             START_ROW             = 6
*             POPUP_TYPE            =
*             IV_QUICKINFO_BUTTON_1 = ' '
*             IV_QUICKINFO_BUTTON_2 = ' '
            IMPORTING
              answer                = gv_answer
*       TABLES
*             PARAMETER             =
            EXCEPTIONS
              text_not_found        = 1
              OTHERS                = 2.

DEQUEUE_ALL
                  CALL FUNCTION 'DEQUEUE_ALL'
                    EXPORTING
                      _synchron = 'X'.

DEQUEUE_ALL
        CALL FUNCTION 'DEQUEUE_ALL'
          EXPORTING
            _synchron = 'X'.

DEQUEUE_ALL
          CALL FUNCTION 'DEQUEUE_ALL'
            EXPORTING
              _synchron = 'X'.

GET_DYNP_VALUE
    CALL FUNCTION 'GET_DYNP_VALUE'
      EXPORTING
        i_field = 'DRAW-DOKNR'
        i_repid = sy-repid
        i_dynnr = '0100'
*       i_conv_input  = 'X'
*       i_conv_output = 'ALPHA'
      CHANGING
        o_value = p_doknr.

CONVERSION_EXIT_ALPHA_INPUT
      CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
        EXPORTING
          input  = p_doknr
        IMPORTING
          output = p_doknr.

GET_DYNP_VALUE
    CALL FUNCTION 'GET_DYNP_VALUE'
      EXPORTING
        i_field = 'DRAW-DOKAR'
        i_repid = sy-repid
        i_dynnr = '0100'
*       i_conv_input  = 'X'
*       i_conv_output = 'ALPHA'
      CHANGING
        o_value = p_dokar.

GET_DYNP_VALUE
    CALL FUNCTION 'GET_DYNP_VALUE'
      EXPORTING
        i_field = 'DRAW-DOKTL'
        i_repid = sy-repid
        i_dynnr = '0100'
*       i_conv_input  = 'X'
*       i_conv_output = 'ALPHA'
      CHANGING
        o_value = p_doktl.

GET_DYNP_VALUE
    CALL FUNCTION 'GET_DYNP_VALUE'
      EXPORTING
        i_field = 'DRAW-DOKVR'
        i_repid = sy-repid
        i_dynnr = '0100'
*       i_conv_input  = 'X'
*       i_conv_output = 'ALPHA'
      CHANGING
        o_value = p_dokvr.

VMP_CRT_CHANGE_NUMBER
        CALL FUNCTION 'VMP_CRT_CHANGE_NUMBER'
          DESTINATION ps_details-rfcdest
          IMPORTING
            ev_change_number      = ps_details-aennr
          EXCEPTIONS
            communication_failure = 1
            system_failure        = 2.

VMP_CRT_CHANGE_NUMBER
        CALL FUNCTION 'VMP_CRT_CHANGE_NUMBER'
          IMPORTING
            ev_change_number = ps_details-aennr.

GET_DYNP_VALUE
    CALL FUNCTION 'GET_DYNP_VALUE'
      EXPORTING
        i_field = 'R_PS_PURC'
        i_repid = sy-repid
        i_dynnr = '0600'
*       I_CONV_INPUT  = ' '
*       I_CONV_OUTPUT = ' '
      CHANGING
        o_value = r_ps_purc.

GET_DYNP_VALUE
    CALL FUNCTION 'GET_DYNP_VALUE'
      EXPORTING
        i_field = 'R_PS_ASSL'
        i_repid = sy-repid
        i_dynnr = '0600'
*       I_CONV_INPUT  = ' '
*       I_CONV_OUTPUT = ' '
      CHANGING
        o_value = r_ps_assl.

GET_DYNP_VALUE
    CALL FUNCTION 'GET_DYNP_VALUE'
      EXPORTING
        i_field = 'CB_LEGACY'
        i_repid = sy-repid
        i_dynnr = '0600'
*       I_CONV_INPUT  = ' '
*       I_CONV_OUTPUT = ' '
      CHANGING
        o_value = cb_legacy.

GET_DYNP_VALUE
    CALL FUNCTION 'GET_DYNP_VALUE'
      EXPORTING
        i_field = 'PS_DETAILS-MATNR'
        i_repid = sy-repid
        i_dynnr = '0600'
*       i_conv_input = 'X'
*       i_conv_output = 'MATN1'
      CHANGING
        o_value = ps_details-matnr.

CONVERSION_EXIT_MATN1_INPUT
















    CALL FUNCTION 'CONVERSION_EXIT_MATN1_INPUT'
      EXPORTING
        input  = ps_details-matnr
      IMPORTING
        output = ps_details-matnr.

GET_DYNP_VALUE
      CALL FUNCTION 'GET_DYNP_VALUE'
        EXPORTING
          i_field = 'PS_DETAILS-WERKS'
          i_repid = sy-repid
          i_dynnr = '0600'
*         I_CONV_INPUT  = ' '
*         I_CONV_OUTPUT = ' '
        CHANGING
          o_value = ps_details-werks.

GET_DYNP_VALUE
      CALL FUNCTION 'GET_DYNP_VALUE'
        EXPORTING
          i_field = 'PS_DETAILS-STLAN'
          i_repid = sy-repid
          i_dynnr = '0600'
*         I_CONV_INPUT  = ' '
*         I_CONV_OUTPUT = ' '
        CHANGING
          o_value = ps_details-stlan.

GET_DYNP_VALUE
      CALL FUNCTION 'GET_DYNP_VALUE'
        EXPORTING
          i_field = 'PS_DETAILS-RFCDEST'
          i_repid = sy-repid
          i_dynnr = '0600'
*         I_CONV_INPUT  = ' '
*         I_CONV_OUTPUT = ' '
        CHANGING
          o_value = ps_details-rfcdest.

GET_DYNP_VALUE
      CALL FUNCTION 'GET_DYNP_VALUE'
        EXPORTING
          i_field = 'PS_DETAILS-AENNR'
          i_repid = sy-repid
          i_dynnr = '0600'
*         i_conv_input = 'X'
*         i_conv_output = 'AENNR'
        CHANGING
          o_value = gv_aennr.

CONVERSION_EXIT_AENNR_INPUT
      CALL FUNCTION 'CONVERSION_EXIT_AENNR_INPUT'
        EXPORTING
          input  = gv_aennr
        IMPORTING
          output = gv_aennr.

GET_DYNP_VALUE
    CALL FUNCTION 'GET_DYNP_VALUE'
      EXPORTING
        i_field = 'PS_DETAILS-DOKAR'
        i_repid = sy-repid
        i_dynnr = '0600'
*       i_conv_input = 'X'
*       i_conv_output = 'ALPHA'
      CHANGING
        o_value = ps_details-dokar.

GET_DYNP_VALUE
    CALL FUNCTION 'GET_DYNP_VALUE'
      EXPORTING
        i_field = 'PS_DETAILS-DOKNR'
        i_repid = sy-repid
        i_dynnr = '0600'
*       i_conv_input = 'X'
*       i_conv_output = 'ALPHA'
      CHANGING
        o_value = ps_details-doknr.

CONVERSION_EXIT_ALPHA_INPUT
      CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
        EXPORTING
          input  = ps_details-doknr
        IMPORTING
          output = ps_details-doknr.

GET_DYNP_VALUE
    CALL FUNCTION 'GET_DYNP_VALUE'
      EXPORTING
        i_field = 'PS_DETAILS-DOKTL'
        i_repid = sy-repid
        i_dynnr = '0600'
*       i_conv_input = 'X'
*       i_conv_output = 'ALPHA'
      CHANGING
        o_value = ps_details-doktl.

GET_DYNP_VALUE
    CALL FUNCTION 'GET_DYNP_VALUE'
      EXPORTING
        i_field = 'PS_DETAILS-DOKVR'
        i_repid = sy-repid
        i_dynnr = '0600'
*       i_conv_input = 'X'
*       i_conv_output = 'ALPHA'
      CHANGING
        o_value = ps_details-dokvr.

GET_DYNP_VALUE
    CALL FUNCTION 'GET_DYNP_VALUE'
      EXPORTING
        i_field = 'PS_DETAILS-CHECKOUT_FLAG'
        i_repid = sy-repid
        i_dynnr = '0600'
*       i_conv_input  = ''
*       i_conv_output = ''
      CHANGING
        o_value = ps_details-checkout_flag.

GET_DYNP_VALUE
  CALL FUNCTION 'GET_DYNP_VALUE'
    EXPORTING
      i_field = 'PS_DETAILS-DOKAR'
      i_repid = sy-repid
      i_dynnr = '0600'
*     i_conv_input = ''
*     i_conv_output = ''
    CHANGING
      o_value = ps_details-dokar.

GET_DYNP_VALUE
  CALL FUNCTION 'GET_DYNP_VALUE'
    EXPORTING
      i_field      = 'PS_DETAILS-DOKNR'
      i_repid      = sy-repid
      i_dynnr      = '0600'
      i_conv_input = 'X'
*     i_conv_output = ''
    CHANGING
      o_value      = ps_details-doknr.

CONVERSION_EXIT_ALPHA_INPUT
  CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
    EXPORTING
      input  = ps_details-doknr
    IMPORTING
      output = ps_details-doknr.

GET_DYNP_VALUE
  CALL FUNCTION 'GET_DYNP_VALUE'
    EXPORTING
      i_field = 'PS_DETAILS-DOKTL'
      i_repid = sy-repid
      i_dynnr = '0600'
*     i_conv_input = ''
*     i_conv_output = ''
    CHANGING
      o_value = ps_details-doktl.

GET_DYNP_VALUE
  CALL FUNCTION 'GET_DYNP_VALUE'
    EXPORTING
      i_field = 'PS_DETAILS-DOKVR'
      i_repid = sy-repid
      i_dynnr = '0600'
*     i_conv_input = ''
*     i_conv_output = ''
    CHANGING
      o_value = ps_details-dokvr.

VMP_VALUES_CHECK
  CALL FUNCTION 'VMP_VALUES_CHECK'
    EXPORTING
      iv_change_number = ps_details-aennr
      iv_matnr         = ps_details-matnr
      iv_plant         = ps_details-werks
      iv_mbom_usage    = ps_details-stlan
    IMPORTING
      es_message       = gs_message.

GET_DYNP_VALUE
  CALL FUNCTION 'GET_DYNP_VALUE'
    EXPORTING
      i_field = 'PS_DETAILS-RFCDEST'
      i_repid = sy-repid
      i_dynnr = sy-dynnr
*     I_CONV_INPUT  = ' '
*     I_CONV_OUTPUT = ' '
    CHANGING
      o_value = ps_details-rfcdest.

VMP_GET_PLANTS_F4
    CALL FUNCTION 'VMP_GET_PLANTS_F4'
      DESTINATION ps_details-rfcdest
      IMPORTING
        et_plants             = lt_plants
      EXCEPTIONS
        communication_failure = 1
        system_failure        = 2.




VMP_GET_PLANTS_F4
    CALL FUNCTION 'VMP_GET_PLANTS_F4'
      IMPORTING
        et_plants             = lt_plants
      EXCEPTIONS
        communication_failure = 1
        system_failure        = 2.

GET_DYNP_VALUE
  CALL FUNCTION 'GET_DYNP_VALUE'
    EXPORTING
      i_field = 'PS_DETAILS-AENNR'
      i_repid = sy-repid
      i_dynnr = '0600'
*     i_conv_input = 'X'
*     i_conv_output = 'AENNR'
    CHANGING
      o_value = gv_aennr.

CONVERSION_EXIT_AENNR_INPUT
  CALL FUNCTION 'CONVERSION_EXIT_AENNR_INPUT'
    EXPORTING
      input  = gv_aennr
    IMPORTING
      output = gv_aennr.

VMP_GET_CHNG_NUMBER_VALIDITY
    CALL FUNCTION 'VMP_GET_CHNG_NUMBER_VALIDITY'
      DESTINATION ps_details-rfcdest
      EXPORTING
        iv_change_number      = gv_aennr
      IMPORTING
        es_message            = gs_message
        ev_validity           = lv_validity
      EXCEPTIONS
        communication_failure = 1
        system_failure        = 2.

VMP_GET_CHNG_NUMBER_VALIDITY
    CALL FUNCTION 'VMP_GET_CHNG_NUMBER_VALIDITY'
      EXPORTING
        iv_change_number = gv_aennr
      IMPORTING
        es_message       = gs_message
        ev_validity      = lv_validity.

VMP_GET_CHNG_NUMBER_VALIDITY
        CALL FUNCTION 'VMP_GET_CHNG_NUMBER_VALIDITY'
          DESTINATION ls_plnscp_hdr-log_sys
          EXPORTING
            iv_change_number      = ls_plnscp_hdr-change_number
          IMPORTING
            es_message            = gs_message
            ev_validity           = lv_curr_val
          EXCEPTIONS
            communication_failure = 1
            system_failure        = 2.

VMP_GET_CHNG_NUMBER_VALIDITY
        CALL FUNCTION 'VMP_GET_CHNG_NUMBER_VALIDITY'
          EXPORTING
            iv_change_number = ls_plnscp_hdr-change_number
          IMPORTING
            es_message       = gs_message
            ev_validity      = lv_curr_val.

GET_DYNP_VALUE
      CALL FUNCTION 'GET_DYNP_VALUE'
        EXPORTING
          i_field = 'PS_DETAILS-RFCDEST'
          i_repid = sy-repid
          i_dynnr = sy-dynnr
*         I_CONV_INPUT  = ' '
*         I_CONV_OUTPUT = ' '
        CHANGING
          o_value = ps_details-rfcdest.

VMP_VALUES_CHECK
        CALL FUNCTION 'VMP_VALUES_CHECK'
          EXPORTING
*           IV_CHANGE_NUMBER       =
            iv_matnr   = ps_details-matnr
            iv_plant   = ps_details-werks
*           IV_MBOM_USAGE          =
          IMPORTING
            es_message = gs_message.

VMP_VALUES_CHECK
        CALL FUNCTION 'VMP_VALUES_CHECK'
          DESTINATION ps_details-rfcdest
          EXPORTING
*           IV_CHANGE_NUMBER      =
            iv_matnr              = ps_details-matnr
            iv_plant              = ps_details-werks
*           IV_MBOM_USAGE         =
          IMPORTING
            es_message            = gs_message
          EXCEPTIONS
            communication_failure = 1
            system_failure        = 2.

GET_DYNP_VALUE
      CALL FUNCTION 'GET_DYNP_VALUE'
        EXPORTING
          i_field = 'PS_DETAILS-RFCDEST'
          i_repid = sy-repid
          i_dynnr = sy-dynnr
*         I_CONV_INPUT  = ' '
*         I_CONV_OUTPUT = ' '
        CHANGING
          o_value = ps_details-rfcdest.

GET_DYNP_VALUE
      CALL FUNCTION 'GET_DYNP_VALUE'
        EXPORTING
          i_field = 'PS_DETAILS-AENNR'
          i_repid = sy-repid
          i_dynnr = '0600'
        CHANGING
          o_value = gv_aennr.

CONVERSION_EXIT_AENNR_INPUT
      CALL FUNCTION 'CONVERSION_EXIT_AENNR_INPUT'
        EXPORTING
          input  = gv_aennr
        IMPORTING
          output = gv_aennr.

VMP_VALUES_CHECK
        CALL FUNCTION 'VMP_VALUES_CHECK'
          EXPORTING
            iv_change_number = gv_aennr
*           iv_matnr         =
*           iv_plant         =
*           IV_MBOM_USAGE    =
          IMPORTING
            es_message       = gs_message
            ev_valid_date    = lv_validity.

VMP_VALUES_CHECK
        CALL FUNCTION 'VMP_VALUES_CHECK'
          DESTINATION ps_details-rfcdest
          EXPORTING
            iv_change_number      = gv_aennr
*           iv_matnr              =
*           iv_plant              =
*           IV_MBOM_USAGE         =
          IMPORTING
            es_message            = gs_message
            ev_valid_date         = lv_validity
          EXCEPTIONS
            communication_failure = 1
            system_failure        = 2.

VMP_GET_CHNG_NUMBER_VALIDITY
            CALL FUNCTION 'VMP_GET_CHNG_NUMBER_VALIDITY'
              DESTINATION ps_details-rfcdest
              EXPORTING
                iv_change_number      = ls_plnscp_hdr-change_number
              IMPORTING
                es_message            = gs_message
                ev_validity           = lv_curr_val
              EXCEPTIONS
                communication_failure = 1
                system_failure        = 2.

VMP_GET_CHNG_NUMBER_VALIDITY
            CALL FUNCTION 'VMP_GET_CHNG_NUMBER_VALIDITY'
              EXPORTING
                iv_change_number = ls_plnscp_hdr-change_number
              IMPORTING
                es_message       = gs_message
                ev_validity      = lv_curr_val.

GET_DYNP_VALUE
      CALL FUNCTION 'GET_DYNP_VALUE'
        EXPORTING
          i_field = 'PS_DETAILS-RFCDEST'
          i_repid = sy-repid
          i_dynnr = sy-dynnr
*         I_CONV_INPUT  = ' '
*         I_CONV_OUTPUT = ' '
        CHANGING
          o_value = ps_details-rfcdest.

VMP_VALUES_CHECK
        CALL FUNCTION 'VMP_VALUES_CHECK'
          EXPORTING
*           IV_CHANGE_NUMBER       =
*           iv_matnr      =
*           iv_plant      =
            iv_mbom_usage = ps_details-stlan
          IMPORTING
            es_message    = gs_message.

VMP_VALUES_CHECK
        CALL FUNCTION 'VMP_VALUES_CHECK'
          DESTINATION ps_details-rfcdest
          EXPORTING
*           IV_CHANGE_NUMBER      =
*           iv_matnr              =
*           iv_plant              =
            iv_mbom_usage         = ps_details-stlan
          IMPORTING
            es_message            = gs_message
          EXCEPTIONS
            communication_failure = 1
            system_failure        = 2.

CV115_DOCPART_CHECK
    CALL FUNCTION 'CV115_DOCPART_CHECK'
      EXPORTING
*       PF_TRANSACTION =
        pf_dokar  = draw-dokar
        pf_doktl  = draw-doktl
      IMPORTING
        pfx_doktl = draw-doktl
      EXCEPTIONS
        error     = 1
        OTHERS    = 2.

CV200_DB_TDWA_SELECT
    CALL FUNCTION 'CV200_DB_TDWA_SELECT'
      EXPORTING
        pf_dokar  = draw-dokar
*       PF_USE_BUFFER   = 'X'
*       PF_LANG   = SY-LANGU
*       PF_READ_TDWS    = ' '
      IMPORTING
        psx_tdwa  = ls_tdwa
*       PFX_DESCRIPTION =
*      TABLES
*       ptx_tdws  = draw
      EXCEPTIONS
        not_found = 1
        OTHERS    = 2.

CV115_DOCVERSION_CHECK
      CALL FUNCTION 'CV115_DOCVERSION_CHECK'
        EXPORTING
*         PF_TRANSACTION       =
*         PF_CHECK_ONLY        =
          ps_tdwa  = ls_tdwa
*     IMPORTING
*         PFX_CREATE_NEW       =
*         PFX_DOKVR_LAST       =
*         PFX_DOKVR_NEW        =
        CHANGING
          psx_draw = draw
        EXCEPTIONS
          error    = 1
          OTHERS   = 2.


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


   
 

VMP_P_COCKPIT_I01 - Include VMP_P_COCKPIT_I01
VMP_P_COCKPIT_F01 - Include VMP_P_COCKPIT_F01
VMP_P_COCKPIT_E01 - Include VMP_P_COCKPIT_E01
VMP_P_COCKPIT - Program VMP_P_COCKPIT
VMP_P_COCKPIT - Program VMP_P_COCKPIT
VMP_EVENT_HANDLER - Include VMP_EVENT_HANDLER