Open all | Close all
|
Org selection BSP - display.htm page
*display.htm
Type Definitions
----------------
types: tt_tcodes type standard table of tstc.
Page Attributes
---------------
gd_pgmna TYPE TSTC-PGMNA (Auto checked)
gt_event TYPE I (Auto checked)
it_tcodes TYPE TT_TCODES (Auto checked)
line1a TYPE TEXT (Auto checked)
line2a TYPE TEXT (Auto checked)
OnInitialization
---------
data: r_sotcode type range of tstc-tcode,
r_soprogram type range of tstc-PGMNA,
r_sodesc type range of tstc-ARBGB,
wa_sotcode like line of r_sotcode,
wa_soprogram like line of r_soprogram,
wa_sodesc like line of r_sodesc.
CASE gt_event.
* Tcode selection
when 1.
if not line1a is initial.
translate line1a to upper case.
WA_sotcode-option = 'CP'. "'CP'.
wa_sotcode-sign = 'I'.
wa_sotcode-low = line1a.
append wa_sotcode to r_sotcode.
endif.
SELECT *
from tstc
into table it_tcodes
where tcode in r_sotcode.
* Program selection
when 2.
if not line2a is initial.
translate line2a to upper case.
WA_soprogram-option ='CP'.
wa_soprogram-sign = 'I'.
wa_soprogram-low = line2a.
append wa_soprogram to r_soprogram.
endif.
SELECT *
from tstc
into table it_tcodes
where PGMNA in r_soprogram.
ENDCASE.
Layout
------
<%@page language="abap"%>
<html>
<head>
<link rel="stylesheet"
href="../../sap/public/bc/bsp/styles/sapbsp.css">
<title> Display Users Card </title>
</head>
<body class="bspBody1">
<h3>
Transaction Code List<br>
</h3>
<table width="80%" cellspacing="0" cellpadding="0" border="0">
<tr>
<td>T Code </td>
<td>Program</td>
<td>Screen No</td>
</tr>
<% data wa_tcodes like line of it_tcodes.
Loop at it_tcodes into wa_tcodes. %>
<tr>
<td><a href="details.htm?gd_tcode=<%=wa_tcodes-tcode%>
&gd_pgmna=<%=wa_tcodes-pgmna%> ">
<%=wa_tcodes-tcode%> </a></td>
<td><%=wa_tcodes-PGMNA%></td>
<td><%=wa_tcodes-DYPNO%></td>
</tr>
<% Endloop. %>
</table>
</body>
</html>
|
|
|