Skip to Content
0
Former Member
Sep 27, 2007 at 10:36 AM

Where will i use SET-PF-STATUS?

1113 Views

HOW TO CREATE MENUBAR,TITILE BAR,APPLICATION? IN MY PROGRAM BELOW.......

REPORT YINTERACTIVEPROGRAM02 NO STANDARD PAGE HEADING.

TABLES:YEMPLOYEE,YEMPLOYEEDB.

TYPES: BEGIN OF TY_EMPLOYEE,

EMP_ID TYPE YEMPLOYEE-EMP_ID,

EMP_NAME TYPE YEMPLOYEE-EMP_NAME,

EMP_ADDR TYPE YEMPLOYEE-EMP_ADDR,

EMP_PROFILE TYPE YEMPLOYEE-EMP_PROFILE,

END OF TY_EMPLOYEE.

DATA:I_EMPLOYEE TYPE STANDARD TABLE OF TY_EMPLOYEE WITH HEADER LINE.

START-OF-SELECTION.

SELECT * FROM YEMPLOYEE INTO CORRESPONDING FIELDS OF TABLE I_EMPLOYEE.

LOOP AT i_EMPLOYEE.

WRITE: I_EMPLOYEE-EMP_ID,' ',

I_EMPLOYEE-EMP_NAME,' ',

I_EMPLOYEE-EMP_ADDR,' ',

I_EMPLOYEE-EMP_PROFILE.

HIDE:I_EMPLOYEE-EMP_ID.

SKIP.

ENDLOOP.

TOP-OF-PAGE.

WRITE: 'PRODUCT INFORMATION'.

SKIP.

WRITE: 'EMPLOYEE ID ',

'EMPLOYEE NAME ',

'EMPLOYEE ADDR ',

'EMPLOYEE PROFILE'.

ULINE.

END-OF-PAGE.

WRITE: 'ENJOY'.

END-OF-SELECTION.

AT LINE-SELECTION.

CHECK SY-LSIND = 1.

WINDOW STARTING AT 10 5

ENDING AT 99 12.

WRITE: 'YOU HAVE SELECTED ITEM:'.

ULINE.

WRITE: 'EMPLOYEE ID ',

'EMPLOYEE NAME ',

'EMPLOYEE ADDR ',

'EMPLOYEE PROFILE'.

ULINE.

SKIP.

WRITE:SY-LISEL.

ULINE.

SELECT * FROM YEMPLOYEEDB WHERE EMP_ID = I_EMPLOYEE-EMP_ID.

WRITE:'EMP_AGE '.

WRITE:'EMP_GENDER'.

SKIP.

WRITE:YEMPLOYEEDB-EMP_AGE.

WRITE:' '.

WRITE:YEMPLOYEEDB-EMP_GENDER.

ENDSELECT.

IF SY-SUBRC <> 0.

WRITE: 'NO DATA FOR SELECTED ITEM'.

ENDIF.