Please help me understand this program

Former Member — Sun, 10 Sep 2006 21:15:43 GMT

REPORT zmmrus160 NO STANDARD PAGE HEADING

LINE-SIZE 255 LINE-COUNT 65(3) MESSAGE-

INCLUDE zmmrus160top.

INCLUDE <icon>.

INITIALIZATION.

PERFORM initialize_variant.

AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_vari.

PERFORM f4_for_variant.

AT SELECTION-SCREEN ON p_vari.

PERFORM validate_user_selection.

PERFORM check_variant.

AT SELECTION-SCREEN.

AT SELECTION-SCREEN ON p_wrkst.

PERFORM authority_check.

START OF SELECTION ****

START-OF-SELECTION.

PERFORM get_materials.

PERFORM get_tlmap.

PERFORM validate_tlmap_mapl.

PERFORM build_events USING gt_events[].

PERFORM build_comment USING gt_list_top_of_page[].

PERFORM build_sp_group USING gt_sp_group[].

PERFORM build_sort.

PERFORM build_layout USING gs_layout.

PERFORM build_fieldcat CHANGING gt_fieldcat[].

END-OF-SELECTION.

PERFORM write_report_alv. "write report

&----

*& Form initialize_variant

&----

text

----

FORM initialize_variant .

CLEAR gs_variant.

gs_variant-report = sy-repid.

CALL FUNCTION 'REUSE_ALV_VARIANT_DEFAULT_GET'

EXPORTING

i_save = 'A'

CHANGING

cs_variant = gs_variant

EXCEPTIONS

not_found = 2.

IF sy-subrc EQ 0.

p_vari = gs_variant-variant.

ENDIF.

ENDFORM. " INITIALIZE_VARIANT

&----

*& Form f4_for_variant

&----

text

----

FORM f4_for_variant .

DATA: lv_exit.

CALL FUNCTION 'REUSE_ALV_VARIANT_F4'

EXPORTING

is_variant = gs_variant

i_save = 'A'

IMPORTING

e_exit = lv_exit

es_variant = gs_variant

EXCEPTIONS

not_found = 2.

IF sy-subrc = 2.

MESSAGE ID sy-msgid TYPE 'S' NUMBER sy-msgno

WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.

ELSE.

IF lv_exit = space.

p_vari = gs_variant-variant.

ENDIF.

gs_variant-report = sy-repid.

ENDFORM. "f4_for_variant

&----

*& Form check_variant

&----

text

----

FORM check_variant .

IF NOT p_vari IS INITIAL.

MOVE p_vari TO gs_variant-variant.

CALL FUNCTION 'REUSE_ALV_VARIANT_EXISTENCE'

EXPORTING

i_save = 'A'

CHANGING

cs_variant = gs_variant

EXCEPTIONS

wrong_input = 1

not_found = 2

program_error = 3

OTHERS = 4.

IF sy-subrc <> 0.

MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno

WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.

ENDIF.

ENDFORM. " check_variant

----

FORM GET_MATERIALS *

----

this form creates MATTAB

----

FORM get_materials.

*get materials for the report

SELECT matnr spart matkl prdha meins wrkst extwg groes normt

FROM mara

INTO TABLE gt_mara

WHERE matnr IN p_matnr

AND spart IN p_spart

AND matkl IN p_matkl

AND prdha IN p_prdha

AND wrkst IN p_wrkst

AND extwg IN p_extwg

AND groes IN p_groes

AND normt IN p_normt

AND lvorm = space.

CHECK sy-subrc IS INITIAL.

SELECT matnr werks

FROM marc

INTO TABLE gt_marc

FOR ALL ENTRIES IN gt_mara

WHERE matnr = gt_mara-matnr

AND werks IN p_werks

AND lvorm = space

AND mmsta IN (space, '01').

CHECK sy-subrc IS INITIAL.

SELECT matnr werks lgort
FROM mard
INTO TABLE gt_mard
FOR ALL ENTRIES IN gt_marc
WHERE matnr = gt_marc-matnr
AND werks = gt_marc-werks
AND lgort IN p_lgort
AND lvorm = space.

CHECK sy-subrc IS INITIAL.

SORT gt_mara BY matnr.

SORT gt_marc BY matnr werks.

SORT gt_mard BY matnr werks lgort.

ENDFORM. "GET_MATERIALS

&----

*& Form get_tlmap

&----

text

----

FORM get_tlmap.

DATA: BEGIN OF lt_tlmap OCCURS 0.

INCLUDE STRUCTURE zmmtlmap.

DATA: END OF lt_tlmap.

DATA: lv_fetflag LIKE zmmtlmap-fetflag.

*get task list map for the materials

LOOP AT gt_mara.

READ TABLE gt_marc WITH KEY matnr = gt_mara-matnr

BINARY SEARCH.

CHECK sy-subrc IS INITIAL.

LOOP AT gt_marc FROM sy-tabix.

IF gt_marc-matnr <> gt_mara-matnr.

EXIT.

ENDIF.

IF gt_mara-normt CS 'FET'.

lv_fetflag = 'X'.

ELSE.

CLEAR lv_fetflag.

ENDIF.

*select from ZMMTLMAP...

SELECT * FROM zmmtlmap

INTO TABLE lt_tlmap

WHERE werks = gt_marc-werks

AND spart = gt_mara-spart

AND matkl = gt_mara-matkl

AND wrkst = gt_mara-wrkst

AND groes = gt_mara-groes

AND fetflag = lv_fetflag

AND prdha = gt_mara-prdha.

IF NOT sy-subrc IS INITIAL.

*...sometimes seed size (GROES) can be blank

SELECT * FROM zmmtlmap

INTO TABLE lt_tlmap

WHERE werks = gt_marc-werks

AND spart = gt_mara-spart

AND matkl = gt_mara-matkl

AND wrkst = gt_mara-wrkst

AND groes = space

AND fetflag = lv_fetflag

AND prdha = gt_mara-prdha.

ENDIF.

IF NOT sy-subrc IS INITIAL.

*...look for blank PRDHA

SELECT * FROM zmmtlmap

INTO TABLE lt_tlmap

WHERE werks = gt_marc-werks

AND spart = gt_mara-spart

AND matkl = gt_mara-matkl

AND wrkst = gt_mara-wrkst

AND groes = gt_mara-groes

AND fetflag = lv_fetflag

AND prdha = space.

ENDIF.

IF NOT sy-subrc IS INITIAL.

*...look for blank PRDHA and GROES

SELECT * FROM zmmtlmap

INTO TABLE lt_tlmap

WHERE werks = gt_marc-werks

AND spart = gt_mara-spart

AND matkl = gt_mara-matkl

AND wrkst = gt_mara-wrkst

AND groes = space

AND fetflag = lv_fetflag

AND prdha = space.

ENDIF.

CHECK sy-subrc IS INITIAL.

LOOP AT lt_tlmap.

CLEAR gt_tlmap.

gt_tlmap-matnr = gt_mara-matnr.

MOVE-CORRESPONDING lt_tlmap TO gt_tlmap.

APPEND gt_tlmap.

ENDLOOP. "tlmap

ENDLOOP. "marc

ENDLOOP. "mara

ENDFORM. "get_tlmap

&----

*& Form validate_tlmap_mapl

&----

text

----

FORM validate_tlmap_mapl .

DATA: lv_plnnr.

LOOP AT gt_tlmap.

SELECT SINGLE plnnr

FROM mapl

INTO lv_plnnr

WHERE matnr = gt_tlmap-matnr

AND werks = gt_tlmap-werks

AND plnty = gt_tlmap-plnty

AND plnnr = gt_tlmap-plnnr

AND plnal = gt_tlmap-plnal

AND loekz = space.

IF sy-subrc IS INITIAL.

gt_tlmap-errflag = 'A'. "already assigned

gt_tlmap-notes = 'Already assigned'.

gt_tlmap-linecolor = 'C31'.

ENDIF.

MODIFY gt_tlmap.

ENDLOOP.

ENDFORM. " validate_tlmap_mapl

&----

*& Form build_fieldcat

&----

text

----

FORM build_fieldcat CHANGING lt_fieldcat TYPE slis_t_fieldcat_alv.

CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE'

EXPORTING

i_program_name = sy-repid

i_internal_tabname = 'GT_TLMAP'

i_inclname = 'ZMMRUS160TOP'

CHANGING

ct_fieldcat = lt_fieldcat

EXCEPTIONS

inconsistent_interface = 1

program_error = 2

OTHERS = 3.

IF sy-subrc NE 0.

EXIT.

ENDIF.

DATA: ls_fieldcat TYPE slis_fieldcat_alv.

LOOP AT lt_fieldcat INTO ls_fieldcat.

*column headings, output lengths, field positions etc

CASE ls_fieldcat-fieldname.

WHEN 'ERRFLAG'.

ls_fieldcat-seltext_s = 'Error!'.

ls_fieldcat-seltext_m = 'Error!'.

ls_fieldcat-seltext_l = 'Error!'.

ls_fieldcat-reptext_ddic = 'Error!'.

WHEN 'NOTES'.

ls_fieldcat-seltext_s = 'Notes'.

ls_fieldcat-seltext_m = 'Notes'.

ls_fieldcat-seltext_l = 'Notes'.

ls_fieldcat-reptext_ddic = 'Notes'.

ENDCASE.

MODIFY lt_fieldcat FROM ls_fieldcat.

ENDLOOP.

ENDFORM. "build_fieldcat

&----

*& Form build_layout

&----

text

----

FORM build_layout USING ls_layout TYPE slis_layout_alv.

ls_layout-info_fieldname = 'LINECOLOR'.

LS_LAYOUT-BOX_FIELDNAME = 'BOX'.
LS_LAYOUT-LIGHTS_FIELDNAME = 'LIGHTS'.

ls_layout-zebra = 'X'.
LS_LAYOUT-NO_VLINE = 'X'.
ls_layout-no_unit_splitting = 'X'.

ls_layout-cell_merge = space.
ls_layout-totals_only = 'X'.

ls_layout-colwidth_optimize = 'X'.

ls_layout-no_sumchoice = 'X'.
ls_layout-no_subchoice = 'X'.

ls_layout-box_fieldname = 'CHECKBOX'.

ls_layout-box_tabname = 'GT_TLMAP'.

ls_layout-no_totalline = 'X'.

ls_layout-coltab_fieldname = 'CELLCOLORS'.

ENDFORM. "BUILD_LAYOUT

&----

*& Form build_sort

&----

text

----

FORM build_sort.

DATA: is_sort TYPE slis_sortinfo_alv.

REFRESH gt_sort.

CLEAR is_sort.

is_sort-spos = 1.

is_sort-fieldname = 'MATNR'.

is_sort-up = 'X'.

APPEND is_sort TO gt_sort.

CLEAR is_sort.

is_sort-spos = 2.

is_sort-fieldname = 'WERKS'.

is_sort-up = 'X'.

APPEND is_sort TO gt_sort.

CLEAR is_sort.

is_sort-spos = 3.

is_sort-fieldname = 'LGORT'.

is_sort-up = 'X'.

APPEND is_sort TO gt_sort.

ENDFORM. " build_sort

&----

*& Form build_sp_group

&----

text

----

FORM build_sp_group USING us_t_sp_group TYPE slis_t_sp_group_alv.

DATA: ls_sp_group TYPE slis_sp_group_alv.

CLEAR ls_sp_group.

ls_sp_group-sp_group = 'A'.

ls_sp_group-text = 'Key Fields'.