*&---------------------------------------------------------------------* *& Report : ZTEST_SEARCH_FORMNAME * *& Created by : SHYAM BABU SAH. *& date : 17.01 2007. * *&---------------------------------------------------------------------* *& This program will help you to search the SMARTFORM either Standard * Or Customer created in your compatiable language. * * *&---------------------------------------------------------------------* REPORT ZTEST_SEARCH_FORMNAME . TYPE-POOLS: SLIS. TABLES: STXFADM, STXFADMT. DATA: BEGIN OF ITAB OCCURS 0, FORMNAME LIKE STXFADM-FORMNAME, MASTERLANG LIKE STXFADM-MASTERLANG, DEVCLASS LIKE STXFADM-DEVCLASS, VERSION LIKE STXFADM-VERSION, FIRSTUSER LIKE STXFADM-FIRSTUSER, FIRSTDATE LIKE STXFADM-FIRSTDATE, FIRSTTIME LIKE STXFADM-FIRSTTIME, LASTUSER LIKE STXFADM-LASTUSER, LASTDATE LIKE STXFADM-LASTDATE, FORMTYPE LIKE STXFADM-FORMTYPE, CAPTION LIKE STXFADMT-CAPTION, END OF ITAB. DATA: IT_FIELDCAT TYPE SLIS_T_FIELDCAT_ALV, WA_FIELDCAT TYPE SLIS_FIELDCAT_ALV, WA_LAYOUT TYPE SLIS_LAYOUT_ALV. SELECTION-SCREEN BEGIN OF BLOCK B1 WITH FRAME TITLE TEXT-001. SELECT-OPTIONS: S_DEV FOR STXFADM-DEVCLASS NO INTERVALS. SELECT-OPTIONS: S_FORM FOR STXFADM-FORMNAME NO INTERVALS. SELECTION-SCREEN SKIP 1. PARAMETERS: P_LANG LIKE T002-SPRAS DEFAULT 'EN'. SELECTION-SCREEN END OF BLOCK B1. PERFORM F_SELECT_DATA. PERFORM F_LAYOUT. PERFORM F_FIELDCAT. PERFORM DISPLAY. *&---------------------------------------------------------------------* *& Form f_select_data *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* * --> p1 text * <-- p2 text *----------------------------------------------------------------------* FORM F_SELECT_DATA . SELECT A~FORMNAME A~MASTERLANG A~DEVCLASS A~VERSION A~FIRSTUSER A~FIRSTDATE A~FIRSTTIME A~LASTUSER A~LASTDATE A~FORMTYPE B~CAPTION FROM STXFADM AS A INNER JOIN STXFADMT AS B ON A~FORMNAME = B~FORMNAME INTO TABLE ITAB WHERE A~DEVCLASS IN S_DEV AND A~FORMNAME IN S_FORM AND B~LANGU = P_LANG. IF SY-SUBRC = 0. SORT ITAB BY FORMNAME. ELSE. MESSAGE I398(00) WITH 'No Form Exits for this selection criteria'. LEAVE LIST-PROCESSING. ENDIF. ENDFORM. " f_select_data *&---------------------------------------------------------------------* *& Form display *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* * --> p1 text * <-- p2 text *----------------------------------------------------------------------* FORM DISPLAY . CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY' EXPORTING I_CALLBACK_PROGRAM = SYST-CPROG IS_LAYOUT = WA_LAYOUT IT_FIELDCAT = IT_FIELDCAT TABLES T_OUTTAB = ITAB. IF SY-SUBRC <> 0. ENDIF. ENDFORM. " display *&---------------------------------------------------------------------* *& Form f_fieldcat *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* * --> p1 text * <-- p2 text *----------------------------------------------------------------------* FORM F_FIELDCAT . DATA: WA_COL TYPE I VALUE 1. WA_FIELDCAT-COL_POS = WA_COL + 1. WA_FIELDCAT-SELTEXT_L = TEXT-003. " Form Name WA_FIELDCAT-FIELDNAME = 'FORMNAME'. WA_FIELDCAT-TABNAME = 'ITAB'. APPEND WA_FIELDCAT TO IT_FIELDCAT. CLEAR WA_FIELDCAT. WA_FIELDCAT-COL_POS = WA_COL + 1. WA_FIELDCAT-SELTEXT_L = TEXT-004. " Smart form Text WA_FIELDCAT-FIELDNAME = 'CAPTION'. WA_FIELDCAT-TABNAME = 'ITAB'. APPEND WA_FIELDCAT TO IT_FIELDCAT. CLEAR WA_FIELDCAT. WA_FIELDCAT-COL_POS = WA_COL + 1. WA_FIELDCAT-SELTEXT_L = TEXT-005. "Package WA_FIELDCAT-FIELDNAME = 'DEVCLASS'. WA_FIELDCAT-TABNAME = 'ITAB'. APPEND WA_FIELDCAT TO IT_FIELDCAT. CLEAR WA_FIELDCAT. WA_FIELDCAT-COL_POS = WA_COL + 1. WA_FIELDCAT-SELTEXT_L = TEXT-006. "First User WA_FIELDCAT-FIELDNAME = 'FIRSTUSER'. WA_FIELDCAT-TABNAME = 'ITAB'. APPEND WA_FIELDCAT TO IT_FIELDCAT. CLEAR WA_FIELDCAT. WA_FIELDCAT-COL_POS = WA_COL + 1. WA_FIELDCAT-SELTEXT_L = TEXT-007. "First Date WA_FIELDCAT-FIELDNAME = 'FIRSTDATE'. WA_FIELDCAT-TABNAME = 'ITAB'. APPEND WA_FIELDCAT TO IT_FIELDCAT. CLEAR WA_FIELDCAT. WA_FIELDCAT-COL_POS = WA_COL + 1. WA_FIELDCAT-SELTEXT_L = TEXT-008. "Version WA_FIELDCAT-FIELDNAME = 'VERSION'. WA_FIELDCAT-TABNAME = 'ITAB'. APPEND WA_FIELDCAT TO IT_FIELDCAT. CLEAR WA_FIELDCAT. WA_FIELDCAT-COL_POS = WA_COL + 1. WA_FIELDCAT-SELTEXT_L = TEXT-009. "Master Language WA_FIELDCAT-FIELDNAME = 'MASTERLANG'. WA_FIELDCAT-TABNAME = 'ITAB'. APPEND WA_FIELDCAT TO IT_FIELDCAT. CLEAR WA_FIELDCAT. WA_FIELDCAT-COL_POS = WA_COL + 1. WA_FIELDCAT-SELTEXT_L = TEXT-010. "Last User WA_FIELDCAT-FIELDNAME = 'LASTUSER'. WA_FIELDCAT-TABNAME = 'ITAB'. APPEND WA_FIELDCAT TO IT_FIELDCAT. CLEAR WA_FIELDCAT. ENDFORM. " f_fieldcat *&---------------------------------------------------------------------* *& Form f_layout *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* * --> p1 text * <-- p2 text *----------------------------------------------------------------------* FORM F_LAYOUT . WA_LAYOUT-COLWIDTH_OPTIMIZE = 'X'. ENDFORM. " f_layout