Source Code for create subscreen in your ABAP Program

* Source Code for create subscreen in your ABAP Program
*
* This report will display the user last login date and time.
*
* Subscreen selection 1 : User Name
*                                2 : Last Login Date
*                                3 : Class Belong To
*

REPORT ZSUBSCREEN.

TABLES: USR02,       "Logon data
        SSCRFIELDS.  "FIELDS ON SELECTION SCREENS
*---------------------------------------------------------------
* SUBSCREEN 1
*---------------------------------------------------------------
SELECTION-SCREEN BEGIN OF SCREEN 100 AS SUBSCREEN.
SELECTION-SCREEN BEGIN OF BLOCK B1 WITH FRAME TITLE TEXT-010.
   SELECT-OPTIONS: USERNAME FOR USR02-BNAME.
SELECTION-SCREEN END OF BLOCK B1.
SELECTION-SCREEN END OF SCREEN 100.

*---------------------------------------------------------------
* SUBSCREEN 2
*---------------------------------------------------------------
SELECTION-SCREEN BEGIN OF SCREEN 200 AS SUBSCREEN.
SELECTION-SCREEN BEGIN OF BLOCK B2 WITH FRAME TITLE TEXT-020.
   SELECT-OPTIONS: LASTLOGI FOR USR02-TRDAT.
SELECTION-SCREEN END OF BLOCK B2.
SELECTION-SCREEN END OF SCREEN 200.

*---------------------------------------------------------------
* SUBSCREEN 3
*---------------------------------------------------------------
SELECTION-SCREEN BEGIN OF SCREEN 300 AS SUBSCREEN.
SELECTION-SCREEN BEGIN OF BLOCK B3 WITH FRAME TITLE TEXT-030.
   SELECT-OPTIONS: CLASSTYP FOR USR02-CLASS.
SELECTION-SCREEN END OF BLOCK B3.
SELECTION-SCREEN END OF SCREEN 300.

* STANDARD SELECTION SCREEN FOR SCROLLING LEFT AND RIGHT
SELECTION-SCREEN: FUNCTION KEY 1,
                  FUNCTION KEY 2.

SELECTION-SCREEN: BEGIN OF TABBED BLOCK SUB FOR 15 LINES,
                  END OF BLOCK SUB.

START-OF-SELECTION.
    SELECT * FROM USR02 WHERE BNAME IN USERNAME
                          AND ERDAT IN LASTLOGI
                          AND CLASS IN CLASSTYP.
       WRITE: / 'User ', USR02-BNAME,
                'Last Login Date ', USR02-TRDAT,
                'Last Login Time ', USR02-LTIME,
                'CLASS ', USR02-CLASS.
    ENDSELECT.
END-OF-SELECTION.

INITIALIZATION.
* SCREEN ICON LEFT AND RIGHT
  SSCRFIELDS-FUNCTXT_01 = '@0D@'.
  SSCRFIELDS-FUNCTXT_02 = '@0E@'.
  SUB-PROG = SY-REPID.
  SUB-DYNNR = 100.

AT SELECTION-SCREEN.
  CASE SY-DYNNR.

    WHEN 100.
      IF SSCRFIELDS-UCOMM = 'FC01'.
        SUB-DYNNR = 300.
      ELSEIF SSCRFIELDS-UCOMM = 'FC02'.
        SUB-DYNNR = 200.
      ENDIF.

    WHEN 200.
      IF SSCRFIELDS-UCOMM = 'FC01'.
        SUB-DYNNR = 100.
      ELSEIF SSCRFIELDS-UCOMM = 'FC02'.
        SUB-DYNNR = 300.
      ENDIF.

    WHEN 300.
      IF SSCRFIELDS-UCOMM = 'FC01'.
        SUB-DYNNR = 200.
      ELSEIF SSCRFIELDS-UCOMM = 'FC02'.
        SUB-DYNNR = 100.
      ENDIF.
  ENDCASE.
Related SAP Tutorials & References
  1. ABAP program for Mass Purchase Order History DisplayThis is a customized ABAP report for mass Purchase Order history display instead of checking...
  2. Batch Input with ‘Call Transaction’ – Sample ABAP program CodeRequirement: Choose a transaction and write a Batch Input program with 'Call Transaction'. Do not...
  3. Source Code of ABAP Program to Browse a file on the application serverSource Code of ABAP Program to Browse a file on the application serverREPORT ZBROWSE MESSAGE-ID...
  4. Upload and Download ABAP Source CodeSample program source code for Uploading /Downloading  ABAP reports complete with texts Source Code Listing...
  5. AT – Events on selection screens ( AT SELECTION-SCREEN)asic form AT SELECTION-SCREEN. Additions 1. ... ON psel 2. ... ON END OF sel...
  6. SAP ABAP dialog program ( Transactions) Interview questions What is a transaction? -          A transaction is dialog program that change data objects...
  7. ABAP Program for MB1B Call TransactionA sample ABAP program to understand how to use MB1B call transaction in ABAP.REPORT YMBIE096...
  8. ABAP Program for Create IDOCSample ABAP program to show how to create IDOC using ABAP programs.FUNCTION Y_ISSUE_ROCO_IDOC.*"----------------------------------------------------------------------*"*"Local interface:*" IMPORTING*"...
  9. SELECTION-SCREEN ( SAP ABAP Keyword)SELECTION-SCREEN is a keyword used in SAP ABAP programming.This tutorial covers its introduction & syntax...
  10. SAP SD Transaction codesList of Important and useful Transaction codes used in SAP sales and distribution module.Customer        XD01   ...
Google: Facebook:

This entry was posted on Wednesday, November 16th, 2011 at 2:06 pm and is filed under codes. You can follow any responses to this entry through the RSS 2.0 feed. You can leave a response, or trackback from your own site.

Submit your tip or response