Sample Interactive report

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

REPORT
HEADING.

*TABLES DECLARATION

TABLES

*SELECT

SELECT-OPTIONS: S_BOOKNO FOR ZSTUDENT-BOOKNO.

*INITIALIZATION

INITIALIZATION.

S_BOOKNO-LOW
S_BOOKNO-HIGH
S_BOOKNO-SIGN
S_BOOKNO-OPTION = 'BT'.
APPEND S_BOOKNO.

*SELECTION SCREEN VALIDATION

AT

LOOP
IF
MESSAGE E001(ZM_MSGS).
ENDIF.
ENDLOOP.

*BASIC

START-OF-SELECTION.

SELECT
(ZBOOK-BOOKNO, ZBOOK-BOOKNAME)
FROM ZBOOK
WHERE BOOKNO IN S_BOOKNO.

WRITE:/1
ZBOOK-BOOKNO
16
ZBOOK-NAME
23

HIDE: ZBOOK-BOOKNO.

ENDSELECT.

*SECONDARY

AT LINE-SELECTION.

IF SY-LSIND = 1.
PERFORM
ENDIF.
IF
PERFORM
ENDIF.
IF SY-LSIND = 3.
PERFORM BOOK_AVAILAIBILITY.
ENDIF.
IF SY-LSIND = 4.
PERFORM
ENDIF.
IF
PERFORM
ENFIF.

*TOP OF PAGE

TOP-OF-PAGE.

FORMAT

WRITE

FORMAT COLOR 1 OFF.

FORMAT

WRITE
3
16
18 'BOOKNAME',
23 SY-VLINE.

FORMAT

*TOP

TOP-OF-PAGE DURING LINE-SELECTION.

*TOP

IF

FORMAT COLOR 1.

WRITE : 'BOOK DEATILS'.
ULINE.
FORMAT

FORMAT

WRITE : 1 SY-VLINE,
3 'BOOKNO.',
16 SY-VLINE,
17 'AUTHOR.',
30
32
50
52
65

FORMAT

*TOP

IF SY-LSIND = 2.

FORMAT

WRITE

FORMAT COLOR 1 OFF.

FORMAT

WRITE
3

30
32 'CUPBOARDNO.',
50 SY-VLINE,
52 'SHELFNO.',
80 SY-VLINE,
82
150
ULINE.

FORMAT COLOR 3 OFF.

*TOP OF PAGE FOR 3RD SECONDARY LIST

IF

FORMAT COLOR 1.

WRITE : 'BOOK AVAILABILITY INFORMATION'.
ULINE.
FORMAT

FORMAT

WRITE
3 'BOOKNO.',
16 SY-VLINE,
17 'TAVAILABILITY.',
30 SY-VLINE.

FORMAT COLOR 3 OFF.

*TOP OF PAGE FOR 4TH SECONDARY LIST

IF

FORMAT COLOR 1.

WRITE : 'BOOK STUDENT INFORMATION'.

FORMAT

FORMAT

WRITE : 1 SY-VLINE,
3 'BOOKNO.',
16 SY-VLINE,
17
30
32
50
52
68
70 'FINE',
80 SY-VLINE.

FORMAT

*TOP OF PAGE FOR 5TH SECONDARY LIST

IF SY-LSIND = 5.

FORMAT

WRITE : 'STUDENT INFORMATION'.
ULINE.
FORMAT COLOR 1 OFF.

FORMAT

WRITE
3
16
17 'NAME.',
30 SY-VLINE,
32 'STD.',
50 SY-VLINE,
52
68
70
150
152
155 SYLINE.

FORMAT

*END OF PAGE

END-OF-PAGE.

ULINE.
WRITE
SY-PAGNO.
SKIP.

*&---------------------------------------------------------------------*
*&
Form BOOK_DETAIL.
*&
*&
FIRST
*&---------------------------------------------------------------------*

FORM BOOK_DETAIL.

SELECT BOOKNO AUTHOR PUBLICATION BRATE INTO
(ZBKDETAIL-BOOKNO, ZBKDETAIL-AUTHOR, ZBKDETAIL-PUBLICATION, ZBKDETAIL-BRATE)
FROM
WHERE

WRITE:/1
ZBKDETAIL-BOOKNO
16
ZBKDETAIL-AUTHOR UNDER 'AUTHOR.',
30 SY-VLINE,
ZBKDETAIL-PUBLICATION UNDER 'PUBLICATION.',
50 SY-VLINE,
ZBKDETAIL-BRATE
70

HIDE
ENDSELECT.

*&---------------------------------------------------------------------*
*&
Form

" BOOK_DETAIL

*&
SECOND
*&---------------------------------------------------------------------*
FORM

SELECT BOOKNO CUPBOARDNO SHELFNO SECTIONNO INTO
(ZBKLOCATION-BOOKNO, ZBKLOCATION-CUPBOARDNO, ZBKLOCATION-
SHELFNO, ZBKLOCATION-
SECTIONNO)
FROM
WHERE

WRITE
ZBKLOCATION-BOOKNO UNDER 'BOOKNO' HOTSPOT ON,
30 SY-VLINE,
ZBKLOCATION-CUPBOARDNO UNDER 'CUPBOARDNO',
50 SY-VLINE,
ZBKLOCATION-SHELFNO
80
ZBKLOCATION-SECTIONNO
150

ENDSELECT.

*&---------------------------------------------------------------------*
*&
Form
*&
*&
FIRST SECONDARY LIST FORM
*&---------------------------------------------------------------------*

FORM

SELECT
(ZBAVAILABLE-BOOKNO,
FROM
WHERE

WRITE:/1 SY-VLINE,
ZBAVAILABLE-BOOKNO UNDER 'BOOKNO' HOTSPOT ON,
16 SY-VLINE,
ZBAVAILABLE-AVAILABILITY

30

" BOOK_LOCATION

HIDE : ZBAVAILABLE-BOOKNO.
ENDSELECT.

" BOOK_AVAILAIBILITY

*&---------------------------------------------------------------------*
*&
Form
*&
*&
FIRST
*&---------------------------------------------------------------------*

FORM BOOK_STUDENT.

SELECT
(ZBK_STUDENT-BOOKNO,
BOOKNO)
FROM ZSTUD_TEACHER
WHERE ROLLNO = ZSTUDACAD-ROLLNO.

WRITE:/1
ZSTUD_TEACHER-ROLLNO UNDER 'ROLLNO',
16 SY-VLINE,
ZSTUD_TEACHER-TEACHERNO UNDER 'TEACHERNO',
30 SY-VLINE,
ZSTUD_TEACHER-SUB UNDER 'SUB',
50 SY-VLINE,
ZSTUD_TEACHER-TEACHERNAME UNDER 'TEACHERNAME',
68 SY-VLINE,
ZSTUD_TEACHER-QUALIFICATION UNDER 'QUALIFICATION',
150 SY-VLINE.
HIDE : ZSTUD_TEACHER-ROLLNO.
ENDSELECT.