ABAP Scenarios

*--Project Checklist         LOOP AT <lfs_projects>-checklists INTO ls_checklist.           LOOP AT ls_checklist-checklistitems INTO ls_checklist_itm.             LOOP AT ls_checklist_itm-tasks ASSIGNING <lfs_tasks>.               PERFORM convert_unit CHANGING <lfs_tasks>-taskdata-duration_unit.               LOOP AT <lfs_tasks>-relationships ASSIGNING <lfs_rel>.                 PERFORM convert_unit CHANGING <lfs_rel>-lag_unit.               ENDLOOP.             ENDLOOP.     ...

    SELECT d~yysuperdesign d~matnr            c~matnr c~matkl c~yylaunch_id c~yymachine_type            d~mstae d~yycommunication            INTO TABLE gt_mara            FROM mara AS c            INNER JOIN mara AS d ON d~matnr  EQ c~yydesign            WHERE c~matnr IN s_cmatnr[]            AND   c~mtart = 'Z109'            AND   c~matkl IN s_cmatkl            AND   c~yylaunch_id IN s_launch            AND   c~lvorm EQ space  ...

***********************This is function module to restrict the select-options******************************* FORM select_options_restrict . * Define the object to be passed to the RESTRICTION   DATA:     l_restrict               TYPE sscr_restrict, * Auxiliary objects for filling RESTRICT     l_opt_list               TYPE sscr_opt_list,     l_ass                    TYPE sscr_ass.   MOVE 'JUST_EQ' TO l_opt_list-name.   MOVE 'X' TO l_opt_list-options-eq.   APPEND l_opt_list TO l_restrict-opt_list_tab.   MOVE: 'S'        TO l_ass-kind,         'S_STEQU'  TO l_ass-name,         '...

LOOP AT gt_mara ASSIGNING <gt_mara>.     CLEAR g_alv.     PERFORM alv_data_mara USING <gt_mara>                           CHANGING g_alv. *   Loop at equipments (Mould id)     READ TABLE gt_equz TRANSPORTING NO FIELDS WITH KEY submt = <gt_mara>-c_matnr.     IF sy-subrc = 0.       l_equz_tabix = sy-tabix.       LOOP AT gt_equz ASSIGNING <gt_equz> FROM l_equz_tabix.         IF <gt_equz>-submt <> <gt_mara>-c_matnr.           EXIT. "Exit EQUZ LOOP.         ENDIF.

**********************Creating hotspot using Factory ALV************************************ FORM set_hotspot  USING    p_columnname.   TRY.       r_column_table ?= r_columns->get_column( columnname = p_columnname ).       r_column_table->set_cell_type( if_salv_c_cell_type=>hotspot ).     CATCH cx_salv_not_found cx_salv_existing cx_salv_data_error. "#EC NO_HANDLER   ENDTRY. ENDFORM.                    " SET_HOTSPOT ***********************************Create checkbox using Factory ALV************************* *&---------------------------------------------------------------------* *&      Form  SET_CHECKBOX *&---------------------------------------------------------------------* FORM set_checkbox  USING    p_columnname.  ...

---------------------DECLARATION----------------------------------------------- TYPES : BEGIN OF ty_temp_st,             matnr TYPE mara-matnr,             yynewmat TYPE yeco-yynewmat,           END OF ty_temp_st.   DATA : lt_eco TYPE TABLE OF ty_temp_st,          lv_matnr type matnr,          lv_yynewmat TYPE char36.   FIELD-SYMBOLS <eco> TYPE ty_temp_st. ----------------------FETCHING DATA-------------------------------------------- SELECT matnr yynewmat     FROM yeco     INTO TABLE lt_eco. * HCL start of change.     CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'       EXPORTING         input  = <fs_mara>-matnr  ...

**********************************************Check for variant************************************************* FORM variant_f4 CHANGING  p_vari          TYPE disvariant-variant                           p_gs_disvariant TYPE disvariant.   DATA: lv_exit(1)    TYPE c,         ls_disvariant_out TYPE disvariant,         lv_save(1)    TYPE c.   CLEAR p_gs_disvariant.   lv_save = 'A'.   p_gs_disvariant-report     = sy-repid.   p_gs_disvariant-username   = sy-uname.   CALL FUNCTION 'LVC_VARIANT_F4'     EXPORTING       is_variant    = p_gs_disvariant       i_save   ...