Tab Screens

*&---------------------------------------------------------------------*

*& Report Z_TABS

*&

*&---------------------------------------------------------------------*

*&

*&

*&---------------------------------------------------------------------*

REPORT z_tabs.

TABLES: zcust_master2,zacc_master2,ztrans_master2.

*---------------------------------------------------------------------*

* Internal Tables *

*---------------------------------------------------------------------*

DATA : BEGIN OF wi_zcust_master2 OCCURS 0,

zcustid LIKE zcust_master2-zcustid,

zcustname LIKE zcust_master2-zcustname,

zaddr LIKE zcust_master2-zaddr,

zcity LIKE zcust_master2-zcity,

zstate LIKE zcust_master2-zstate,

zcountry LIKE zcust_master2-zcountry,

zphone LIKE zcust_master2-zphone,

zemail LIKE zcust_master2-zemail,

zfax LIKE zcust_master2-zfax,

zstat LIKE zcust_master2-zstat,

END OF wi_zcust_master2.

DATA : BEGIN OF wi_zacc_master2 OCCURS 0,

zaccno LIKE zacc_master2-zaccno,

zcustid LIKE zacc_master2-zcustid,

zacctype LIKE zacc_master2-zacctype,

zbal LIKE zacc_master2-zbal,

zaccdate LIKE zacc_master2-zaccdate,

zstat LIKE zacc_master2-zstat,

END OF wi_zacc_master2.

*---------------------------------------------------------------------*

* selection screen *

*---------------------------------------------------------------------*

* Define screen 101 as subscreen

SELECTION-SCREEN BEGIN OF SCREEN 101 AS SUBSCREEN.

SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-t00.

SELECT-OPTIONS custid FOR zcust_master2-zcustid.

SELECTION-SCREEN END OF BLOCK b1.

SELECTION-SCREEN END OF SCREEN 101.

* Define screen 102 as subscreen

SELECTION-SCREEN BEGIN OF SCREEN 102 AS SUBSCREEN.

SELECTION-SCREEN BEGIN OF BLOCK b2 WITH FRAME TITLE text-t02.

SELECT-OPTIONS: accno FOR zacc_master2-zaccno.

SELECTION-SCREEN END OF BLOCK b2.

SELECTION-SCREEN END OF SCREEN 102.

* Define screen 103 as subscreen

SELECTION-SCREEN BEGIN OF SCREEN 103 AS SUBSCREEN.

SELECTION-SCREEN BEGIN OF BLOCK b3 WITH FRAME TITLE text-t03.

PARAMETERS tranid LIKE ztrans_master2-ztranid.

SELECTION-SCREEN END OF BLOCK b3.

SELECTION-SCREEN END OF SCREEN 103.

* Define tab screen

SELECTION-SCREEN BEGIN OF TABBED BLOCK t1 FOR 20 LINES.

SELECTION-SCREEN TAB (10) name1 USER-COMMAND ucomm1 DEFAULT SCREEN 101.

SELECTION-SCREEN TAB (20) name2 USER-COMMAND ucomm2 DEFAULT SCREEN 102.

SELECTION-SCREEN TAB (30) name3 USER-COMMAND ucomm3 DEFAULT SCREEN 103.

SELECTION-SCREEN END OF BLOCK t1.

INITIALIZATION.

name1 = text-n01. "CUSTOMER ID

name2 = text-n02. "ACCOUNT NUMBER

name3 = text-n03. "TRANSACTION ID

START-OF-SELECTION.

SKIP sy-lsind.

*-------------------------------------------------------------*

* To Display Customer id Tab Details

*-------------------------------------------------------------*

SELECT * FROM zcust_master2 INTO CORRESPONDING FIELDS OF TABLE wi_zcust_master2 WHERE zcustid IN custid.

CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'

EXPORTING

i_callback_program = sy-repid

i_structure_name = 'ZCUST_MASTER2'

i_grid_title = 'Customer Details'

TABLES

t_outtab = wi_zcust_master2

EXCEPTIONS

program_error = 1

OTHERS = 2.

IF sy-subrc <> 0.

MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno

WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.

ENDIF.

*-------------------------------------------------------------*

* To Display Account Number Tab Details

*-------------------------------------------------------------*

SELECT * FROM zacc_master2 INTO CORRESPONDING FIELDS OF TABLE wi_zacc_master2 WHERE zaccno IN accno.

CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'

EXPORTING

i_callback_program = sy-repid

i_structure_name = 'ZACC_MASTER2'

i_grid_title = 'Account Details'

TABLES

t_outtab = wi_zacc_master2

EXCEPTIONS

program_error = 1

OTHERS = 2.

IF sy-subrc <> 0.

MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno

WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.