ABAP Scenarios

data l_work type ypm_st_pmord. * Language   g_control-langu = sy-langu.     "Language * Printer dialog   if s_diag = 'X'.     g_control-no_dialog = ' '.   else.     g_control-no_dialog = 'X'.   endif. * Print options   g_output-tddest     = s_print.   "Printer name   g_output-tdcopies   = s_copy.    "Number of copies   g_control-preview   = s_prev.    "Preview   g_output-tdimmed    = s_pnow.    "Print immediately.   g_output-tdnewid    = s_spol.    "New spool request call function 'SSF_FUNCTION_MODULE_NAME'        EXPORTING             formname           = 'YPM_DIMMING'        IMPORTING ...

loop at gt_equip_work. select                ekkn~aufnr             "order                ekkn~ablad             "Order by                afih~iwerk             "Plant                ekko~ebeln             "PO number                ekko~bedat             "document date              ...

CASE wmara-mtart. *  WHEN 'Y910'. * *  Fetch all construction id corresponding to design id *  *      SELECT matnr BEGRU FROM mara INTO TABLE lt_mara *                                   WHERE yydesign = wmara *                                     and mtart = 'Z109'. *   IF lt_mara IS NOT INITIAL. * * Loop at lt_mara into ls_mara.       If  ls_mara-begru EQ wmara-begru .  Continue. *     Else. *    " Assigning the current/changed Authorization group *    ls_headdata-material    = ls_mara-matnr ...

DATA: l_date(10).   DATA: l_header_h TYPE slis_listheader.   DATA: pt_comment TYPE slis_t_listheader.   WRITE sy-datum TO l_date DD/MM/YYYY.   l_header_h-typ  = 'H'.   l_header_h-info = text-100.   APPEND l_header_h TO pt_comment.   l_header_h-typ  = 'H'.   CONCATENATE text-300 a_udate INTO   l_header_h-info SEPARATED BY space.   APPEND l_header_h TO pt_comment.   l_header_h-typ  = 'H'.   CONCATENATE text-200 a_werks INTO   l_header_h-info SEPARATED BY space.   APPEND l_header_h TO pt_comment. * Report header with Date   l_header_h-typ = 'S'.   l_header_h-key = 'Date:'.                        "#EC NOTEXT dk8thost   l_header_h-info = l_date.   APPEND l_header_h TO pt_comment.   CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'     EXPORTING  ...

AT Selection-screen.  DATA ok_code type sy-ucomm.       ok_code = sy-ucomm. If ok_code = 'ONLI'. CALL FUNCTION 'POPUP_TO_CONFIRM'         EXPORTING           TITLEBAR              = TEXT-095           TEXT_QUESTION         = TEXT-096     " Performance-related text message           TEXT_BUTTON_1         = TEXT-097     " CONTINUE           TEXT_BUTTON_2         = TEXT-098     " CANCEL           DEFAULT_BUTTON        = '2' ...

FORM variant_default USING l_variant LIKE g_variant-variant.   CLEAR g_variant.   g_variant-report     = sy-repid.   g_variant-username   = sy-uname.   g_variant_save = 'A'.   CALL FUNCTION 'LVC_VARIANT_DEFAULT_GET'     EXPORTING       i_save        = g_variant_save     CHANGING       cs_variant    = g_variant     EXCEPTIONS       wrong_input   = 1       not_found     = 2       program_error = 3       OTHERS        = 4.   IF sy-subrc = 0.     l_variant = g_variant-variant.   ENDIF. ENDFORM.