ML01ALST SAP ABAP INCLUDE - Reorganization of materials

ML01ALST 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 ML01ALST 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.

Text pool values

INCLUDES used within this REPORT ML01ALST

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:

WLK1_CHECK
*            call function 'WLK1_CHECK'
*               exporting
*                 date                       = sy-datum
*                 item                       = xaupo-matnr
*                 shop_locnr                 = xaufi-filnr
*                 shop_werks                 = xaufi-fiwrk
*            sales_unit                 = xaufi-aufme
*## auft*2: Parameter 'buffers_read' aufgenommen
*                buffers_read               = kreuz
*             importing
*                no_unit_but_item_listing   = listg-nur_artikel_gelistet
*                wrf1_kzlik_not_in_use      =
*                                     listg-kondition_nicht_notwendig
*             exceptions
*                no_listing                 = 01
*                no_listing_in_time         = 02
*                existing_exclusion_listing = 03
*                wrong_parameters           = 04
*                no_open_time_shop_in_time  = 05
*                no_listing_for_promotion   = 06
*                wrong_location             = 07.

SHOP_ITEM_LISTING_RULES_CHECK
*             call function 'SHOP_ITEM_LISTING_RULES_CHECK'
*                  exporting
*## alt:                date                  = sy-datum
*                       date                  = listungs_start
*                       item                  = xaupo-matnr
*                       listing_method        = l_verfahren
*                       shop                  = xaufi-filnr
*                       type_f                = alle
*                       sales_unit            = xaufi-aufme
*                  importing
*                       wscor                 = l_wscor
*                  tables
*                       layout_groups         = l_t_item_classification
*                       err_details           = l_t_err_details
*                  exceptions
*                       no_multiple_listing   = 01
*                       rules_matching_not_ok = 02
*                       wrong_type            = 03.

WAUF_POPUP_TO_DECIDE_LIST
            CALL FUNCTION 'WAUF_POPUP_TO_DECIDE_LIST'
                 EXPORTING
                      mark_flag        = kreuz
                      textline1        = textline1
                      textline2        = textline2
                      titel            = 'Listung Werk'(lsw)
                 IMPORTING
                      answer           = antwort
                 TABLES
                      im_ex_liste      = listtab
                 EXCEPTIONS
                      tabelle_ist_leer = 01.

WALL_COLLECT_AND_DISPLAY_PROT
    CALL FUNCTION 'WALL_COLLECT_AND_DISPLAY_PROT'
         EXPORTING
              fbi_name    = h
              fbi_msg_id  = prot-msgcl
              fbi_msg_no  = '467'
         TABLES
              fbt_msg_tab = messg.

WAUF_T621_LESEN
    CALL FUNCTION 'WAUF_T621_LESEN'
         EXPORTING
              im_apstp = xaupo-apstp
         IMPORTING
              ex_t621  = t621
         exceptions
             no_record_found = 1
             db_error        = 2.  "auft*4 / new syntaxchk err

WAUF_POPUP_TO_DECIDE_LIST
            CALL FUNCTION 'WAUF_POPUP_TO_DECIDE_LIST'
                 EXPORTING
                      mark_flag        = kreuz
                      textline1        = textline1
                      textline2        = textline2
                      titel            = 'Listung Verteilzentrum'(lsv)
                 IMPORTING
                      answer           = antwort
                 TABLES
                      im_ex_liste      = listtab
                 EXCEPTIONS
                      tabelle_ist_leer = 01.

WALL_COLLECT_AND_DISPLAY_PROT
    CALL FUNCTION 'WALL_COLLECT_AND_DISPLAY_PROT'
         EXPORTING
              fbi_name    = 'I'
              fbi_msg_id  = prot-msgcl
              fbi_msg_no  = '467'
         TABLES
              fbt_msg_tab = messg.

WSOH_READ_PROFILE_MODULE
      CALL FUNCTION 'WSOH_READ_PROFILE_MODULE'
           EXPORTING
*             KZRFB          = ' '
*             SPERRMODUS     = ' '
                matkl          = listtab-matkl
                asort          = listtab-filnr
                only_active    = ' '
*             datab          = listungs_start
*             datub          = listungs_ende
               datab          = t_listungs_zeitraum_werk-listungs_start
                datub          = t_listungs_zeitraum_werk-listungs_ende
         IMPORTING
              ewsoh          =   wsoh
           EXCEPTIONS
                key_uncomplete = 1     " sollte hier nicht vorkommen
                rec_enqueued   = 2     " wird nicht gesperrt
              rec_not_active = 3     " wird nur ausgegeben wenn oben = X
                no_rec_found   = 4     " wird abgefangen
                OTHERS         = 5.

MODULE_CREATE
        CALL FUNCTION 'MODULE_CREATE'
          EXPORTING
            function             = '1'
            location             = listtab-filnr
            merchandise_group    = listtab-matkl
*         date_begin           = listungs_start
*         date_end             = listungs_ende
          date_begin           = sy-datum
          date_end             = '99991231'
          IMPORTING
            module                = wsoh
            module_text           = wsot
            wscor                 = wscor
          EXCEPTIONS
            module_already_exists = 1
            wrong_function        = 2.

MARA_SINGLE_READ
          CALL FUNCTION 'MARA_SINGLE_READ'
               EXPORTING
*                 KZRFB             = ' '
*                 MAXTZ             = 0
                  matnr             = xaupo-matnr
*                 SPERRMODUS        = ' '
*                 STD_SPERRMODUS    = ' '
*                 OUTPUT_NO_MESSAGE =
               IMPORTING
                  WMARA             = l_mara
               EXCEPTIONS
                  LOCK_ON_MATERIAL  = 1
                  LOCK_SYSTEM_ERROR = 2
                  WRONG_CALL        = 3
                  NOT_FOUND         = 4
                  OTHERS            = 5.

ASSORTMENT_POS_HANDLING
      CALL FUNCTION 'ASSORTMENT_POS_HANDLING'
           EXPORTING
                assortment_head               = wsoh
                assortment_pos_new            = u_wsop
                function                      = '1'
                location                      = listtab-filnr
                vkorg                         = ' '
                vtweg                         = ' '
           IMPORTING
                wscor                         = wscor
           TABLES
                connections                   = i_connections
           EXCEPTIONS
                assortment_pos_already_exists = 01
                assortment_pos_not_found      = 02
                new_time_range_too_long       = 03
                new_time_range_too_small      = 04
                wrong_function                = 05.