hi,
*&---------------------------------------------------------------------*
*& Report : ZTEST_SEARCH_FORMNAME
*
*
*&---------------------------------------------------------------------*
*& 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
Hope this helps, Do reward.
Bluesky
