All About Programming

REPORT ycall_bp. PARAMETERS: p_bpnum TYPE but000-partner. DATA: lo_request TYPE REF TO cl_bupa_navigation_request,       lo_options TYPE REF TO cl_bupa_dialog_joel_options. * Create request and options objects CREATE OBJECT lo_request. CREATE OBJECT lo_options. * Set Business Partner number (example) lo_request->set_partner_number( p_bpnum ). " your BP number * Set activity (e.g., '03' for display) lo_request->set_bupa_activity( '03' ). * Optional: Set a specific sub-header tab (e.g., 'CVIC01' for Commercial View) lo_request->set_bupa_sub_header_id( 'CVIC01' ). * Optional: Hide the locator (search) area lo_options->set_locator_visible( space ). * Call the BP transaction with navigation CALL METHOD cl_bupa_dialog_joel=>start_with_navigation   EXPORTING     iv_request              = lo_request     iv_options              = lo_options     iv_in_new_internal...

  *&---------------------------------------------------------------------* *& Report YABAP_LEAR01 *&---------------------------------------------------------------------* *& Title      : Read Table With Index New Syntax *&---------------------------------------------------------------------* REPORT yabap_lear01. DATA: ls_mara TYPE mara. START-OF-SELECTION.   SELECT * FROM mara     INTO TABLE @DATA(lt_mara)       UP TO 10 ROWS.   WRITE :/ '.'.   "Old Method   CLEAR ls_mara.   READ TABLE lt_mara INDEX 5 INTO ls_mara.   IF sy-subrc = 0.     WRITE :/ 'Old Method Result :', ls_mara-matnr.   else.     WRITE :/ 'Data not found!'.   ENDIF.   WRITE :/ '.'.   WRITE :/ '============================================'.   WRITE :/ '.'.   "New Method   CLEAR ls_mara.   TRY.       ls_mara = lt_mara[ 6 ].       WRITE :/ 'N...

REPORT yextract_number. DATA number(10) VALUE '0123456789'. DATA string_val TYPE char100. WRITE :/ 'First Option ========================'. string_val = '  SHIPMENT 335'. WRITE :/ 'Before', string_val. REPLACE ALL OCCURENCES OF REGEX '[^\d]' IN string_val WITH space. CONDENSE string_val NO-GAPS. WRITE :/ 'After', string_val. WRITE :/ 'First Option ========================'. WRITE :/ '##########################################'. DATA : lv_string TYPE string. DATA : lv_num TYPE string. lv_string = 'A1313.33BBC'. lv_num = lv_string. WRITE :/ 'Second Option ========================'. WRITE :/ 'Before', lv_string. REPLACE ALL OCCURRENCES OF REGEX '([[:alpha:]])' IN lv_num WITH ''. WRITE :/ 'After', lv_num. WRITE :/ 'Second Option ========================'.

  *&---------------------------------------------------------------------* *& Report YMAIL01 *&---------------------------------------------------------------------* *& *&---------------------------------------------------------------------* REPORT ymail01. DATA:   lv_subject            TYPE so_obj_des,   lv_attachment_subject TYPE  sood-objdes,   ls_mailto             TYPE zsmail_to,   lt_mailto             TYPE TABLE OF zsmail_to,   lt_otf                TYPE TABLE OF itcoo,   lt_mail_content       TYPE soli_tab,   ls_mail_content       TYPE soli. DATA:   document_output_info TYPE  ssfcrespd,   job_output_info      TYPE  ssfcrescl,   job_output_options   TYPE  ssfcresop,   ssfctrlop...

REPORT yregex. DATA mystring1 TYPE string. DATA mystring2 TYPE string. mystring1 = 'mystringa)aksak*1<>!@#$%^&*()~'. mystring2 = 'mystringa)aksak*1<>!@#$%^&*()~'. REPLACE ALL OCCURRENCES OF REGEX '[^0-9a-zA-Z]+' IN mystring2 WITH space. WRITE:/ mystring1. WRITE:/ mystring2.

Custom Structure for program Screen Element List Screen FLow Logic Gui Status Download template  Here   TYPES:   BEGIN OF ty_excel,     bukrs      TYPE bukrs,     saknr      TYPE saknr,     glacc_type TYPE char1,     ktoks      TYPE ska1-ktoks,     txt20      TYPE txt20,     txt50      TYPE txt50,     waers      TYPE waers,     kdfsl      TYPE skb1-kdfsl,     bewgp      TYPE skb1-bewgp,     mwskz      TYPE skb1-mwskz,     xmwno      TYPE skb1-xmwno,     mitkz      TYPE skb1-mitkz,     altkt      TYPE skb1-altkt,     infky      TYPE skb1-infky,     togru      TYPE skb1-togru,     zuawa      TYPE...

  AL11 REPORT ysap_pdf_viewer. DATA : lt_data TYPE TABLE OF x255. DATA : wa_line TYPE x255. DATA: lo_docking_container TYPE REF TO cl_gui_docking_container. DATA: lo_html    TYPE REF TO cl_gui_html_viewer. DATA: lv_url TYPE char255. DATA: ok_code(20). DATA filename TYPE string. PARAMETERS fname TYPE localfile. ** Selection screen value request AT SELECTION-SCREEN ON VALUE-REQUEST FOR fname.   CALL FUNCTION 'KD_GET_FILENAME_ON_F4'     EXPORTING       static    = 'X'     CHANGING       file_name = fname.   IF sy-subrc <> 0. * Implement suitable error handling here   ENDIF. START-OF-SELECTION.   filename = '/usr/sap/attachment/'. "AL11 Directory   filename = |{ filename }{ fname }|. * Read PDF File   PERFORM read_file. * Display to screen   PERFORM display_pdf. *&---------------------------------------------------------------------* *&      Form  r...

  REPORT yupload_file. ** Data Declarations DATA: gv_filename    TYPE string,       lt_data_tab    TYPE TABLE OF x255,       lv_bin_size    TYPE i,       lv_file        TYPE string,       e_filenamefull TYPE string,       e_filename     TYPE string,       e_extension    TYPE string. DATA:   lv_e_pathname TYPE rstxtlg, "   lv_i_filepath TYPE rsfilenm, "   lv_e_filename TYPE rsawbnobjnm. " ** Parameters PARAMETERS : gv_name TYPE localfile. ** Selection screen value request AT SELECTION-SCREEN ON VALUE-REQUEST FOR gv_name.   CALL FUNCTION 'KD_GET_FILENAME_ON_F4'     EXPORTING       static    = 'X'     CHANGING       file_name = gv_name.   IF sy-subrc <> 0. * Implement suitable error handling here   ENDIF. START-OF-SELECTIO...

REPORT ZALV_LIST_MULTIHEADER NO STANDARD PAGE HEADING. TYPE-POOLS: slis. DATA :t_fieldcat TYPE slis_t_fieldcat_alv,       w_fieldcat TYPE slis_fieldcat_alv,       layout     TYPE slis_layout_alv,       t_sort     TYPE slis_t_sortinfo_alv,       t_event    TYPE slis_t_event WITH HEADER LINE,       d_repid    LIKE sy-repid,       d_layout   TYPE slis_layout_alv,       key        TYPE slis_keyinfo_alv. TYPES : BEGIN OF ty_data,           store(50),           price      TYPE dmbtr,           quantity   TYPE p,           total      TYPE dmbtr, "(10) TYPE p DECIMALS 2,           price2     TYPE dmbtr,         ...