SAP Program to fetch four fields from standard table sbook and showing only field carrid in smartform upto 10 rows

Program: 

 Program: 

REPORT ZSM_SMART_REPORT.

TYPES: BEGIN OF str,

  carrid type sbook-carrid,

  bookid TYPE sbook-bookid,

  customid TYPE sbook-customid,

  custtype TYPE sbook-custtype,

  END OF str.

  DATA: it TYPE STANDARD TABLE OF str,

        wa TYPE str.

select carrid bookid customid custtype from sbook into table it UP TO 10 rows.

  CALL FUNCTION '/1BCDWB/SF00000486'

*  EXPORTING

*     ARCHIVE_INDEX              =

*     ARCHIVE_INDEX_TAB          =

*     ARCHIVE_PARAMETERS         =

*     CONTROL_PARAMETERS         =

*     MAIL_APPL_OBJ              =

*     MAIL_RECIPIENT             =

*     MAIL_SENDER                =

*     OUTPUT_OPTIONS             =

*     USER_SETTINGS              = 'X'

*   IMPORTING

*     DOCUMENT_OUTPUT_INFO       =

*     JOB_OUTPUT_INFO            =

*     JOB_OUTPUT_OPTIONS         =

    TABLES

      it_smart_rec               = it

   EXCEPTIONS

     FORMATTING_ERROR           = 1

     INTERNAL_ERROR             = 2

     SEND_ERROR                 = 3

     USER_CANCELED              = 4

     OTHERS                     = 5

            .

  IF sy-subrc <> 0.

* Implement suitable error handling here

  ENDIF.

Output: 

                                 

SAP ABAP Program to fetch name age and address after putting I'd from a custom table and show it in Smartforms

 Program: 

REPORT ZSM_SMART_DATA.

PARAMETERS: s_id TYPE zvp_data-id.

SELECT SINGLE name, age, address FROM zvp_data INTO @DATA(wa_one) WHERE id = @s_id .

  if sy-subrc = 0.

    CALL FUNCTION '/1BCDWB/SF00000485'
      EXPORTING
*       ARCHIVE_INDEX              =
*       ARCHIVE_INDEX_TAB          =
*       ARCHIVE_PARAMETERS         =
*       CONTROL_PARAMETERS         =
*       MAIL_APPL_OBJ              =
*       MAIL_RECIPIENT             =
*       MAIL_SENDER                =
*       OUTPUT_OPTIONS             =
*       USER_SETTINGS              = 'X'
        id                         = s_id
        name                       = wa_one-name
        age                        = wa_one-age
        address                    = wa_one-address
*     IMPORTING
*       DOCUMENT_OUTPUT_INFO       =
*       JOB_OUTPUT_INFO            =
*       JOB_OUTPUT_OPTIONS         =
*     EXCEPTIONS
*       FORMATTING_ERROR           = 1
*       INTERNAL_ERROR             = 2
*       SEND_ERROR                 = 3
*       USER_CANCELED              = 4
*       OTHERS                     = 5
              .
    IF sy-subrc <> 0.
* Implement suitable error handling here
    ENDIF.


    ENDIF.

Output: 

                    

SAP ABAP Program to give input id as a parameter and it will fetch data from a custom table and will show output in smartform

 Program:

REPORT zsm_smart_three.

PARAMETERS: p_id TYPE zvp_location-id.

SELECT SINGLE name, location FROM zvp_location INTO @DATA(wa_one) WHERE id = @p_id .
IF sy-subrc = 0.

  CALL FUNCTION '/1BCDWB/SF00000484'
    EXPORTING
*     ARCHIVE_INDEX    =
*     ARCHIVE_INDEX_TAB          =
*     ARCHIVE_PARAMETERS         =
*     CONTROL_PARAMETERS         =
*     MAIL_APPL_OBJ    =
*     MAIL_RECIPIENT   =
*     MAIL_SENDER      =
*     OUTPUT_OPTIONS   =
*     USER_SETTINGS    = 'X'
      id               = p_id
      name             = wa_one-name
      location         = wa_one-location
*   IMPORTING
*     DOCUMENT_OUTPUT_INFO       =
*     JOB_OUTPUT_INFO  =
*     JOB_OUTPUT_OPTIONS         =
    EXCEPTIONS
      formatting_error = 1
      internal_error   = 2
      send_error       = 3
      user_canceled    = 4
      OTHERS           = 5.
  IF sy-subrc <> 0.
* Implement suitable error handling here
  ENDIF.


ENDIF.

Output:  

                     

A SAP ABAP Report Program that will show output in Smartform

Program: 

REPORT ZSM_SMARTFORM.

 PARAMETERS: P_TEXT TYPE char10.

 CALL FUNCTION '/1BCDWB/SF00000481'
   EXPORTING
*    ARCHIVE_INDEX              =
*    ARCHIVE_INDEX_TAB          =
*    ARCHIVE_PARAMETERS         =
*    CONTROL_PARAMETERS         =
*    MAIL_APPL_OBJ              =
*    MAIL_RECIPIENT             =
*    MAIL_SENDER                =
*    OUTPUT_OPTIONS             =
*    USER_SETTINGS              = 'X'
     im_text                    = p_text
*  IMPORTING
*    DOCUMENT_OUTPUT_INFO       =
*    JOB_OUTPUT_INFO            =
*    JOB_OUTPUT_OPTIONS         =
  EXCEPTIONS
    FORMATTING_ERROR           = 1
    INTERNAL_ERROR             = 2
    SEND_ERROR                 = 3
    USER_CANCELED              = 4
    OTHERS                     = 5
           .
 IF sy-subrc <> 0.
* Implement suitable error handling here
 ENDIF.

 

Output:  

                                              

SAP ABAP Program to fetch fields from VBAK and VBAP standard tables and inner join it and show it in ALV Report Program

 Program: 

REPORT zsm_alv_innerjoin.

TYPE-POOLS: slis.

TYPES: BEGIN OF str,
         vbeln TYPE vbeln,
         erdat TYPE erdat,
         ernam TYPE ernam,
         audat TYPE audat,
         posnr TYPE posnr,
         matnr TYPE matnr,
         matkl TYPE matkl,
       END OF str.

DATA: it TYPE STANDARD TABLE OF str,
      wa TYPE str.

DATA: it_fieldcat TYPE slis_t_fieldcat_alv,
      wa_fieldcat TYPE slis_fieldcat_alv.

SELECT vbak~vbeln
   vbak~erdat
 vbak~ernam
  vbak~audat
  vbap~posnr
 vbap~matnr
  vbap~matkl FROM vbak INNER JOIN vbap ON vbak~vbeln = vbap~vbeln INTO TABLE it UP TO 50 rows.

wa_fieldcat-col_pos = '1'.
wa_fieldcat-seltext_m = 'VBELN'.
wa_fieldcat-fieldname = 'VBELN'.
APPEND wa_fieldcat TO it_fieldcat.

wa_fieldcat-col_pos = '2'.
wa_fieldcat-seltext_m = 'ERDAT'.
wa_fieldcat-fieldname = 'ERDAT'.
APPEND wa_fieldcat TO it_fieldcat.

wa_fieldcat-col_pos = '3'.
wa_fieldcat-seltext_m = 'ERNAM'.
wa_fieldcat-fieldname = 'ERNAM'.
APPEND wa_fieldcat TO it_fieldcat.

wa_fieldcat-col_pos = '4'.
wa_fieldcat-seltext_m = 'AUDAT'.
wa_fieldcat-fieldname = 'AUDAT'.
APPEND wa_fieldcat TO it_fieldcat.

wa_fieldcat-col_pos = '5'.
wa_fieldcat-seltext_m = 'POSNR'.
wa_fieldcat-fieldname = 'POSNR'.
APPEND wa_fieldcat TO it_fieldcat.

wa_fieldcat-col_pos = '6'.
wa_fieldcat-seltext_m = 'MATNR'.
wa_fieldcat-fieldname = 'MATNR'.
APPEND wa_fieldcat TO it_fieldcat.

wa_fieldcat-col_pos = '7'.
wa_fieldcat-seltext_m = 'MATKL'.
wa_fieldcat-fieldname = 'MATKL'.
APPEND wa_fieldcat TO it_fieldcat.

CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
  EXPORTING
*   I_INTERFACE_CHECK                 = ' '
*   I_BYPASSING_BUFFER                = ' '
*   I_BUFFER_ACTIVE                   = ' '
*   I_CALLBACK_PROGRAM                = ' '
*   I_CALLBACK_PF_STATUS_SET          = ' '
*   I_CALLBACK_USER_COMMAND           = ' '
*   I_CALLBACK_TOP_OF_PAGE            = ' '
*   I_CALLBACK_HTML_TOP_OF_PAGE       = ' '
*   I_CALLBACK_HTML_END_OF_LIST       = ' '
*   I_STRUCTURE_NAME                  =
*   I_BACKGROUND_ID                   = ' '
*   I_GRID_TITLE  =
*   I_GRID_SETTINGS                   =
*   IS_LAYOUT     =
    it_fieldcat   = it_fieldcat
*   IT_EXCLUDING  =
*   IT_SPECIAL_GROUPS                 =
*   IT_SORT       =
*   IT_FILTER     =
*   IS_SEL_HIDE   =
*   I_DEFAULT     = 'X'
*   I_SAVE        = ' '
*   IS_VARIANT    =
*   IT_EVENTS     =
*   IT_EVENT_EXIT =
*   IS_PRINT      =
*   IS_REPREP_ID  =
*   I_SCREEN_START_COLUMN             = 0
*   I_SCREEN_START_LINE               = 0
*   I_SCREEN_END_COLUMN               = 0
*   I_SCREEN_END_LINE                 = 0
*   I_HTML_HEIGHT_TOP                 = 0
*   I_HTML_HEIGHT_END                 = 0
*   IT_ALV_GRAPHICS                   =
*   IT_HYPERLINK  =
*   IT_ADD_FIELDCAT                   =
*   IT_EXCEPT_QINFO                   =
*   IR_SALV_FULLSCREEN_ADAPTER        =
* IMPORTING
*   E_EXIT_CAUSED_BY_CALLER           =
*   ES_EXIT_CAUSED_BY_USER            =
  TABLES
    t_outtab      = it
  EXCEPTIONS
    program_error = 1
    OTHERS        = 2.
IF sy-subrc <> 0.
* Implement suitable error handling here
END IF.

Output: