Persönliches Favoriten-Menü
Die Favoriten im SAP-Menü erleichtern die Arbeit vieler Anwender bereits deutlich. Die am häufigsten genutzten Transaktionen können im Enjoy-Menü einfach verwaltet werden. Allerdings beschränkt sich das Ganze auf Transaktionen und Web-Adressen (plus ein paar andere “sonstige Objekte”).
Wilfried Schäfer hat einen Report geschrieben, mit dem du dir dein persönliches Menü zusammenbauen kannst. Hierbei können nicht nur Transaktionen aufgenommen werden, sondern auch Reports inklusive Varianten.
Aber auch Tabellen (SE16n), Pflegeviews (SM30) und Viewcluster (SM34) können aufgenommen werden.
Trick
Der geniale Trick bei diesem Report ist, dass die einzelnen Einträge als stinknormale Variante abgespeichert werden. Auch die Texte und Eingabebereitschaft der einzelnen Felder wird in der Variante gespeichert.
Verwendung
Der Report kann gut zur Gruppierung von Funktionen verwendet werden, die entweder ebenfalls häufig benötigt werden, oder eben auch nur recht selten (Monats,- Jahresabschluss).
Code und Doku
Die Dokumentation und der Quelltext kannst du dir hier herunterladen: Report ZZ_ME.pdf
Code
REPORT zz_menue.
*=======================================================================
*
* Funktion: Start Transaktion, Submit Reports mit und ohne Varianten
* Beschreibung: Das Selektionsbild dieses Reports wird benutzt, um mit
* gesepeicherten Varianten eine Art von Menue-Liste zu
* erhalten. Aus dem Selektionsbild können die Varianten
* geöffnet oder gestartet werden.
*
* User ohne SA38-Berechtigung können keine Reports ein-
* tragen. Das Starten von Transaktionen mit Varianten
* wird auch unterstützt.
*
* Alles was nicht Transaktion oder Report ist, wird als
* Kommentar interpretiert.
*
* Wilfried Schäfer
*
* wilfried.schaefer@arcor.de
*=======================================================================
* Möglicher Inhalt der Spalte "Variant / Table" abhängig vom Inhalt der
* Spalte "Report/Transaktion"
*
* Report/Transaktion Variant / Table
* ______________________________________
*
* SE11 oder
* SE16 oder
* SE16N oder
* SE17 oder
* SE54 oder
* SM30 oder
* SM31 Tabelle
* SM34 View Clusters
* SE37 Funktionsbaustein
* SA38 oder
* SE38 Report
* SE51 Report
* SE71 SAPscript Formular
*
* Reportname Variante
* Transaktionscode Variante
* GR55.Reportgruppe Variante
*
*=======================================================================
*
* Aktionstypen: B Berichtsgruppe
* C Kommentar
* H Report mit Variante zur Ausführung im Hintergrund
* h Transaktion mit Variante zur Ausführung im Hintergrund
* R Report
* T Transaktion
* V Report mit Variante / Berichtsgruppe mit Variante
* v Transaktion mit Variante
*
*=======================================================================
INCLUDE <list>. " List enthält alle icons
TABLES: trdir, trdirt, " Reports
tfdir, " Funktionsbausteine
tstc, tstct, " SAP-Transaktions-Codes
tstcp, " Parameter zu Transaktionen
dd02l, dd02t, " SAP-Tabellen /-Texte
varid, varit, " Varianten
sscrfields, " Felder auf Selektionsbildern
t803vp, " Report Writer: Generierte Programmversionen
vcldir, vcldirt, " Viewcluster.
stxh, " STXD SAPscript Text-Datei Header
tftit. " Kurztext Funktionsbaustein
*============= Selektionskriterien ====================================
SELECTION-SCREEN FUNCTION KEY 1.
SELECTION-SCREEN FUNCTION KEY 2.
SELECTION-SCREEN FUNCTION KEY 3.
SELECTION-SCREEN FUNCTION KEY 4.
SELECTION-SCREEN BEGIN OF BLOCK comment_lines.
* WITH FRAME. " TITLE text_U11.
* 1. Comment line
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN POSITION 01. SELECTION-SCREEN COMMENT (07) text_u11.
SELECTION-SCREEN POSITION 10. PARAMETERS pm_c001(60) LOWER CASE
MODIF ID com.
SELECTION-SCREEN END OF LINE.
* 2. Comment line
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN POSITION 10. PARAMETERS pm_c002(50) LOWER CASE
MODIF ID com.
SELECTION-SCREEN POSITION 79.
SELECTION-SCREEN END OF LINE.
* 3. Comment line
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN POSITION 10. PARAMETERS pm_c003(50) LOWER CASE
MODIF ID com.
SELECTION-SCREEN END OF LINE.
* 4. Comment line
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN POSITION 10. PARAMETERS pm_c004(50) LOWER CASE
MODIF ID com.
SELECTION-SCREEN POSITION 68.
SELECTION-SCREEN PUSHBUTTON (45) pb1_txt USER-COMMAND uc_refresh_comm
MODIF ID pb
VISIBLE LENGTH 45.
SELECTION-SCREEN END OF LINE.
* 5. Comment line
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN POSITION 10. PARAMETERS pm_c005(50) LOWER CASE
MODIF ID com.
SELECTION-SCREEN POSITION 61.
PARAMETERS: p_hide01(7) MODIF ID nod.
SELECTION-SCREEN POSITION 68.
SELECTION-SCREEN PUSHBUTTON (45) pb2_txt USER-COMMAND
uc_refresh_line_comm
MODIF ID pb
VISIBLE LENGTH 45.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN SKIP.
* Eine Selop, die nicht angezeigt wird, ist notwendig, damit SY-OPTI
* abgefragt werden kann.
SELECT-OPTIONS pm_vari FOR varid-variant MODIF ID nod.
SELECTION-SCREEN END OF BLOCK comment_lines.
*Wenn die Zeile mit "Report / Transaktions" beginnt
*SELECTION-SCREEN BEGIN OF LINE.
* SELECTION-SCREEN POSITION 3. SELECTION-SCREEN COMMENT (28) TEXT_U01.
* SELECTION-SCREEN POSITION 34. SELECTION-SCREEN COMMENT (16) TEXT_U02.
* SELECTION-SCREEN POSITION 60. SELECTION-SCREEN COMMENT (04) TEXT_U03.
* SELECTION-SCREEN POSITION 66. SELECTION-SCREEN COMMENT (04) TEXT_U04.
* SELECTION-SCREEN POSITION 72. SELECTION-SCREEN COMMENT (09) TEXT_U12.
* SELECTION-SCREEN POSITION 81.
*SELECTION-SCREEN END OF LINE.
*Wenn die Zeile mit "Description" beginnt
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN POSITION 1. SELECTION-SCREEN COMMENT (15) text_u12.
SELECTION-SCREEN POSITION 46. SELECTION-SCREEN COMMENT (04) text_u03.
SELECTION-SCREEN POSITION 52. SELECTION-SCREEN COMMENT (04) text_u04.
SELECTION-SCREEN POSITION 57. SELECTION-SCREEN COMMENT (20) text_u01.
SELECTION-SCREEN POSITION 83. SELECTION-SCREEN COMMENT (16) text_u02.
SELECTION-SCREEN END OF LINE.
*============================================================
SELECTION-SCREEN BEGIN OF BLOCK action_lines.
SELECTION-SCREEN BEGIN OF LINE.
PARAMETERS p_c_togl(10) MODIF ID nd2.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN BEGIN OF LINE.
PARAMETERS p_r_togl(100) MODIF ID nd2.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN BEGIN OF LINE.
PARAMETERS p_v_togl(100) MODIF ID nd2.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN BEGIN OF LINE.
PARAMETERS p_i_togl(100) MODIF ID nd2.
SELECTION-SCREEN END OF LINE.
*============================================================
TYPES: text40 TYPE c LENGTH 40.
DATA: wk_p_v(30),
wk_c40k LIKE makt-maktx,
wk_c30k LIKE docclsst-text30.
*=======================================================================
DEFINE line6.
* p_r_&1 Report
* p_v_&1 Variante
* p_i_&1 Information / comment.
*Wenn die Zeile mit "Report / Transaktions" beginnt
*SELECTION-SCREEN BEGIN OF LINE.
*SELECTION-SCREEN POSITION 1. PARAMETERS: P_R_&1(40) LOWER CASE
* VISIBLE LENGTH 30
* MODIF ID P_R.
*SELECTION-SCREEN POSITION 32. PARAMETERS: P_V_&1(30) LOWER CASE
* VISIBLE LENGTH 25
* MODIF ID CHK.
*SELECTION-SCREEN PUSHBUTTON 58(4) T_B1&1 USER-COMMAND OPEN_&1
* MODIF ID OPN
* VISIBLE LENGTH 4.
*SELECTION-SCREEN PUSHBUTTON 63(4) T_B2&1 USER-COMMAND SUBM_&1
* MODIF ID SUB
* VISIBLE LENGTH 4.
*
*SELECTION-SCREEN POSITION 70. PARAMETERS: P_I_&1(70) LOWER CASE
* VISIBLE LENGTH 70
* MODIF ID P_I.
*
*SELECTION-SCREEN END OF LINE.
*Wenn die Zeile mit "Description" beginnt
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN POSITION 1. PARAMETERS: p_i_&1(100) LOWER CASE
VISIBLE LENGTH 45
MODIF ID p_i.
SELECTION-SCREEN PUSHBUTTON 47(4) t_b1&1 USER-COMMAND open_&1
MODIF ID opn
VISIBLE LENGTH 4.
SELECTION-SCREEN PUSHBUTTON 52(60) t_b2&1 USER-COMMAND subm_&1
MODIF ID sub
VISIBLE LENGTH 4.
SELECTION-SCREEN POSITION 57. PARAMETERS: p_r_&1(40) LOWER CASE
VISIBLE LENGTH 25
MODIF ID p_r.
SELECTION-SCREEN POSITION 83. PARAMETERS: p_v_&1(30) LOWER CASE
VISIBLE LENGTH 30
MODIF ID chk.
SELECTION-SCREEN END OF LINE.
END-OF-DEFINITION. "Line6
*=======================================================================
line6 s001. line6 s002. line6 s003. line6 s004. line6 s005.
line6 s006. line6 s007. line6 s008. line6 s009. line6 s010.
line6 s011. line6 s012. line6 s013. line6 s014. line6 s015.
line6 s016. line6 s017. line6 s018. line6 s019. line6 s020.
line6 s021. line6 s022. line6 s023. line6 s024. line6 s025.
line6 s026. line6 s027. line6 s028. line6 s029. line6 s030.
line6 s031. line6 s032. line6 s033. line6 s034. line6 s035.
line6 s036. line6 s037. line6 s038. line6 s039. line6 s040.
line6 s041. line6 s042. line6 s043. line6 s044. line6 s045.
line6 s046. line6 s047. line6 s048. line6 s049. line6 s050.
line6 s051. line6 s052. line6 s053. line6 s054. line6 s055.
line6 s056. line6 s057. line6 s058. line6 s059. line6 s060.
line6 s061. line6 s062. line6 s063. line6 s064. line6 s065.
line6 s066. line6 s067. line6 s068. line6 s069. line6 s070.
line6 s071. line6 s072. line6 s073. line6 s074. line6 s075.
line6 s076. line6 s077. line6 s078. line6 s079. line6 s080.
line6 s081. line6 s082. line6 s083. line6 s084. line6 s085.
line6 s086. line6 s087. line6 s088. line6 s089. line6 s090.
line6 s091. line6 s092. line6 s093. line6 s094. line6 s095.
line6 s096. line6 s097. line6 s098. line6 s099.
*=======================================================================
DEFINE sine6.
DATA: s_r_&1 TYPE programm, "Report
s_v_&1 TYPE varid-variant, "Variante
s_i_&1(55). "Description
END-OF-DEFINITION.
sine6 s001. sine6 s002. sine6 s003. sine6 s004. sine6 s005.
sine6 s006. sine6 s007. sine6 s008. sine6 s009. sine6 s010.
sine6 s011. sine6 s012. sine6 s013. sine6 s014. sine6 s015.
sine6 s016. sine6 s017. sine6 s018. sine6 s019. sine6 s020.
sine6 s021. sine6 s022. sine6 s023. sine6 s024. sine6 s025.
sine6 s026. sine6 s027. sine6 s028. sine6 s029. sine6 s030.
sine6 s031. sine6 s032. sine6 s033. sine6 s034. sine6 s035.
sine6 s036. sine6 s037. sine6 s038. sine6 s039. sine6 s040.
sine6 s041. sine6 s042. sine6 s043. sine6 s044. sine6 s045.
sine6 s046. sine6 s047. sine6 s048. sine6 s049. sine6 s050.
sine6 s051. sine6 s052. sine6 s053. sine6 s054. sine6 s055.
sine6 s056. sine6 s057. sine6 s058. sine6 s059. sine6 s060.
sine6 s061. sine6 s062. sine6 s063. sine6 s064. sine6 s065.
sine6 s066. sine6 s067. sine6 s068. sine6 s069. sine6 s070.
sine6 s071. sine6 s072. sine6 s073. sine6 s074. sine6 s075.
sine6 s076. sine6 s077. sine6 s078. sine6 s079. sine6 s080.
sine6 s081. sine6 s082. sine6 s083. sine6 s084. sine6 s085.
sine6 s086. sine6 s087. sine6 s088. sine6 s089. sine6 s090.
sine6 s091. sine6 s092. sine6 s093. sine6 s094. sine6 s095.
sine6 s096. sine6 s097. sine6 s098. sine6 s099.
SELECTION-SCREEN END OF BLOCK action_lines.
*=====================================================================
DATA: wk_filename LIKE rlgrap-filename,
wk_flength TYPE f,
wk_zae1(3) TYPE p,
wk_div_0 TYPE p,
wk_div_1 TYPE p,
wk_first_step(3) TYPE n VALUE 1,
wk_last_step(3) TYPE n,
wk_message(100),
wk_cursor_field(20),
wk_field_content(40),
wk_dyntxt LIKE smp_dyntxt,
wk_memcheck,
wk_actiontype TYPE text120,
wk_zz_me TYPE text120,
wk_variant LIKE varid-variant,
wk_refresh_line(3) TYPE n,
wk_nothing_to_do,
wk_gr55_repname(40),
wk_tstcp_repname(40),
wk_sa38_allowed,
wk_ucomm LIKE sy-ucomm,
wk_ende.
DATA: us_repid LIKE trdir-name,
us_vari LIKE varid-variant,
us_cond,
us_date LIKE sy-datum,
us_x(2) TYPE n.
DATA: l_nod,
x_opn TYPE i,
x_sub TYPE i,
fn_repid(8), " like trdir-name,
fn_vari(8), " like varid-variant,
x(3) TYPE n,
ende.
DATA: BEGIN OF tab OCCURS 0,
step(2) TYPE n,
next(3) TYPE n,
rep LIKE trdir-name,
vari(30),
cond(1),
date LIKE sy-datum,
info(55),
ignore_line,
error_reason(50),
END OF tab.
DATA: BEGIN OF memory_prerep,
prerep LIKE sy-repid.
DATA: END OF memory_prerep.
DATA: BEGIN OF memory_info,
step_hierarchy(40).
DATA: END OF memory_info.
DATA: BEGIN OF s_mem,
memory(20),
service(1),
2nd_run(1),
exit_1(1),
exit_2(1),
zvariant_default LIKE varid-variant,
no_uname_select,
prev_rep LIKE sy-repid.
DATA: END OF s_mem.
DATA: BEGIN OF s_mem2,
zvariant_default LIKE varid-variant.
DATA: END OF s_mem2.
DATA: cdd_seltab TYPE TABLE OF rsparams,
cdd_seltab_wa LIKE LINE OF cdd_seltab.
RANGES r_vari FOR varid-variant.
FIELD-SYMBOLS: <fs_1>, <fs_repid>, <fs_vari>, <fs_text>, <fs_date>.
*================ Aufbereiten Selektionsbild vor 1. Anzeige ===========
INITIALIZATION.
IF sy-slset = space.
PERFORM pruef_default_variant.
ENDIF.
*Feststellen, ob der User SA38-Berechtigung hat.
AUTHORITY-CHECK OBJECT 'S_TCODE'
ID 'TCD' FIELD 'SA38'.
IF sy-subrc = 0.
text_u01 = 'Report / Transaction'.
wk_sa38_allowed = 'X'.
ELSE.
text_u01 = 'Transaction'.
ENDIF.
text_u02 = 'Variant / Table'.
text_u03 = 'Open'.
text_u04 = 'Run'.
text_u11 = 'Comment'.
text_u12 = 'Description'.
DATA: lpb1t(8) VALUE 'T_B1S',
lpb2t(8) VALUE 'T_B2S'.
FIELD-SYMBOLS: <fs_pb1>, <fs_pb2>.
DO 99 TIMES.
ADD 1 TO x.
lpb1t+5 = x.
lpb2t+5 = x.
ASSIGN (lpb1t) TO <fs_pb1>. <fs_pb1> = '@09@'.
ASSIGN (lpb2t) TO <fs_pb2>. <fs_pb2> = '@08@'.
ENDDO.
pb1_txt = '@42@Refresh all descriptions'.
pb2_txt = '@4K@Refresh description of cursor line'.
CLEAR wk_dyntxt.
MOVE 'Field toggle display/modify'
TO wk_dyntxt-text. "Text
MOVE 'Toggle on cursor field between display/modify mode!'
TO wk_dyntxt-quickinfo. "Quickinfo
MOVE icon_toggle_display_change
TO wk_dyntxt-icon_id.
MOVE 'Field toggle display/modify'
TO wk_dyntxt-icon_text. "Ikonentext
MOVE wk_dyntxt TO sscrfields-functxt_01.
CLEAR wk_dyntxt.
MOVE 'Insert Line' TO wk_dyntxt-text. "Text
MOVE 'Insert a line on cursor position'
TO wk_dyntxt-quickinfo. "Quickinfo
MOVE icon_insert_row TO wk_dyntxt-icon_id.
MOVE 'Insert Line '
TO wk_dyntxt-icon_text.
"Ikonentext
MOVE wk_dyntxt TO sscrfields-functxt_02.
CLEAR wk_dyntxt.
MOVE 'Delete Line' TO wk_dyntxt-text. "Text
MOVE 'Delete the line of cursor position'
TO wk_dyntxt-quickinfo. "Quickinfo
MOVE icon_delete_row TO wk_dyntxt-icon_id.
MOVE 'Delete Line '
TO wk_dyntxt-icon_text. "Ikonentext
MOVE wk_dyntxt TO sscrfields-functxt_03.
CLEAR wk_dyntxt.
MOVE 'Clear Screen' TO wk_dyntxt-text. "Text
MOVE 'clear Screen ' TO wk_dyntxt-quickinfo. "Quickinfo
MOVE icon_erase TO wk_dyntxt-icon_id.
MOVE 'Clear screen ' TO wk_dyntxt-icon_text. "Ikonentext
MOVE wk_dyntxt TO sscrfields-functxt_04.
* LOOP AT SCREEN.
* IF SCREEN-GROUP1 = 'VIW'.
* SCREEN-INPUT = 'OFF'.
* MODIFY SCREEN.
* ENDIF.
* ENDLOOP.
*======================================================================
FORM pruef_default_variant.
*======================================================================
IMPORT wk_memcheck FROM MEMORY ID 'WK_MEMCHECK'.
FREE MEMORY ID 'WK_MEMCHECK'.
CHECK wk_memcheck = space.
DATA wk_back.
IMPORT wk_back FROM MEMORY ID 'WK_BACK'.
IF sy-slset <> space.
FREE MEMORY ID 'WK_BACK'.
ENDIF.
CHECK wk_back = space.
* Gibt es für den User nur eine Variante, dann wird diese gestartet.
DATA: l_count TYPE i,
l_variant LIKE varid-variant.
RANGES r_variant FOR varid-variant.
SELECT * FROM varid WHERE report = sy-repid
AND ename = sy-uname.
IF varid-variant(2) = 'Z:'.
CHECK varid-variant+2 = sy-uname.
ENDIF.
ADD 1 TO l_count.
l_variant = varid-variant.
IF l_count > 1.
EXIT.
ENDIF.
ENDSELECT.
*Es kann auch eine Z:USERNAME-Variante geben, die ein anderer
*User angelegt hat.
IF l_count = 0.
CONCATENATE 'Z:' sy-uname INTO l_variant.
SELECT SINGLE * FROM varid WHERE report = sy-repid
AND variant = l_variant.
IF sy-subrc = 0.
ADD 1 TO l_count.
ENDIF.
ENDIF.
IF l_count = 1.
wk_memcheck = 'X'.
EXPORT wk_memcheck TO MEMORY ID 'WK_MEMCHECK'.
SUBMIT (sy-repid) VIA SELECTION-SCREEN
USING SELECTION-SET l_variant.
ENDIF.
PERFORM check_user_vari_exist.
ENDFORM.
*=====================================================================
FORM check_user_vari_exist.
*=====================================================================
RANGES r_vari FOR varid-variant.
* Gibt es für diesen Report keine Z:USERNAME-Variante keine
* USERNAME:-Varianten und nicht nur eine Variante, dann wird der
* Sel-Screen mit den vorhandenen Varianten (max. 99) gefüllt.
**DATA: BEGIN OF T_ZVISE OCCURS 0.
** INCLUDE STRUCTURE ZVISE.
**DATA: END OF T_ZVISE.
**
**DATA: BEGIN OF SELTAB_1 OCCURS 0,
** TABNAME LIKE ZVISE-TABNAME.
**DATA: END OF SELTAB_1.
**
**DATA: BEGIN OF S_MEM,
** MEMORY(20),
** SERVICE(1),
** 2ND_RUN(1),
** EXIT_1(1),
** EXIT_2(1),
** ZVARIANT_DEFAULT LIKE VARID-VARIANT,
** NO_UNAME_SELECT,
** PREV_REP LIKE SY-REPID.
**DATA: END OF S_MEM.
DATA: wk_uname LIKE sy-uname,
wk_clear_entry,
wk_vari_default_list.
wk_uname = sy-uname.
DATA: l_vari LIKE varid-variant,
l_strlen TYPE i,
l_count TYPE i,
l_num3(3) TYPE n,
l_screen_field_r(20),
l_screen_field_v(20).
FIELD-SYMBOLS <fs_screen_r>.
FIELD-SYMBOLS <fs_screen_v>.
CONCATENATE sy-uname ':' INTO l_vari.
l_strlen = strlen( l_vari ).
CLEAR cdd_seltab.
cdd_seltab_wa-selname = 'P_REPORT'.
cdd_seltab_wa-kind = 'S'.
cdd_seltab_wa-sign = 'I'.
cdd_seltab_wa-option = 'EQ'.
cdd_seltab_wa-low = sy-repid.
SELECT * FROM varid WHERE report = sy-repid
AND ename = sy-uname.
IF varid-variant(2) = 'Z:'.
CHECK varid-variant+2 = sy-uname.
ENDIF.
ADD 1 TO l_count.
* Hier nun den Sel-Screen mit den vorhandenen Varianten füllen
IF l_count < 99.
ADD 1 TO l_num3.
CONCATENATE 'P_R_S' l_num3 INTO l_screen_field_r.
CONCATENATE 'P_V_S' l_num3 INTO l_screen_field_v.
ASSIGN (l_screen_field_r) TO <fs_screen_r>.
ASSIGN (l_screen_field_v) TO <fs_screen_v>.
<fs_screen_r> = varid-report.
<fs_screen_v> = varid-variant.
ENDIF.
ENDSELECT.
*Jetzt noch die Z:USERNAME-Variante, die von einem anderen User
*angelegt wurde.
IF l_count < 99.
CONCATENATE 'Z:' sy-uname INTO l_vari.
SELECT SINGLE * FROM varid WHERE report = sy-repid
AND ename <> sy-uname
AND variant = l_vari.
IF sy-subrc = 0.
ADD 1 TO l_count.
ADD 1 TO l_num3.
CONCATENATE 'P_R_S' l_num3 INTO l_screen_field_r.
CONCATENATE 'P_V_S' l_num3 INTO l_screen_field_v.
ASSIGN (l_screen_field_r) TO <fs_screen_r>.
ASSIGN (l_screen_field_v) TO <fs_screen_v>.
<fs_screen_r> = varid-report.
<fs_screen_v> = varid-variant.
ENDIF.
ENDIF.
ENDFORM.
*================ Aufbereiten Selektionsbild vor jeder Anzeige ========
AT SELECTION-SCREEN OUTPUT.
*======================================================================
DATA: l_nod,
x_opn TYPE i,
x_sub TYPE i,
fn_repid(8), " like trdir-name,
fn_vari(8), " like varid-variant,
fn_info(8),
x(3) TYPE n,
l_pos(3) TYPE n,
l_b1(8) VALUE 'T_B1S000',
l_b2(8) VALUE 'T_B2S000',
n3(3) TYPE n,
ende.
FIELD-SYMBOLS: <fs_1>, <fs_repid>, <fs_vari>, <fs_text>, <fs_date>,
<fs_b1>, <fs_b2>, <fs_info>.
*Feststellen, ob der User SA38-Berechtigung hat.
AUTHORITY-CHECK OBJECT 'S_TCODE'
ID 'TCD' FIELD 'SA38'.
IF sy-subrc = 0.
text_u01 = 'Report / Transaction'.
wk_sa38_allowed = 'X'.
ELSE.
text_u01 = 'Transaction'.
ENDIF.
LOOP AT SCREEN.
IF p_hide01 <> 'DISPLAY'.
IF screen-name = 'C2_DIS' OR
screen-name = 'C4_MOD'.
screen-input = '0'.
screen-output = '0'.
screen-invisible = '1'.
MODIFY SCREEN.
ENDIF.
ENDIF.
IF screen-name BETWEEN 'PM_C001' AND 'PM_C199'.
l_pos = screen-name+5.
IF p_c_togl+l_pos(1) <> ' '.
screen-input = '0'.
MODIFY SCREEN.
ENDIF.
fn_info = screen-name. ASSIGN (fn_info) TO <fs_info>.
IF <fs_info>+0(1) = '@' AND
<fs_info>+3(1) = '@'.
TRANSLATE <fs_info>+1(2) TO UPPER CASE.
ENDIF.
ENDIF.
IF screen-name BETWEEN 'P_R_S001' AND 'P_R_S199'.
l_pos = screen-name+6.
IF p_r_togl+l_pos(1) <> ' '.
screen-input = '0'.
MODIFY SCREEN.
ENDIF.
ENDIF.
IF screen-name BETWEEN 'P_V_S001' AND 'P_V_S199'.
l_pos = screen-name+6.
IF p_v_togl+l_pos(1) <> ' '.
screen-input = '0'.
MODIFY SCREEN.
ENDIF.
ENDIF.
IF screen-name BETWEEN 'P_I_S001' AND 'P_I_S199'.
l_pos = screen-name+6.
IF p_i_togl+l_pos(1) <> ' '.
screen-input = '0'.
MODIFY SCREEN.
ENDIF.
fn_info = screen-name. ASSIGN (fn_info) TO <fs_info>.
IF <fs_info>+0(1) = '@' AND
<fs_info>+3(1) = '@'.
TRANSLATE <fs_info>+1(2) TO UPPER CASE.
ENDIF.
ENDIF.
IF screen-group1 = 'CHK'.
fn_vari = screen-name. ASSIGN (fn_vari) TO <fs_vari>.
fn_repid = fn_vari.
fn_repid+2(1) = 'R'. ASSIGN (fn_repid) TO <fs_repid>.
IF <fs_vari>+0(1) = '@' AND
<fs_vari>+3(1) = '@'.
TRANSLATE <fs_vari>+1(2) TO UPPER CASE.
ENDIF.
x = fn_vari.
IF <fs_repid> = space.
wk_actiontype+x(1) = 'C'.
ELSE.
PERFORM pruef_step USING x <fs_repid> <fs_vari>
fn_repid fn_vari.
ENDIF.
ENDIF.
* IF SCREEN-GROUP1 = 'VIW'.
* SCREEN-INPUT = 'OFF'.
* MODIFY SCREEN.
* ENDIF.
IF screen-group1 = 'NOD'.
screen-invisible = '1'.
screen-input = '0'.
screen-output = '0'.
MODIFY SCREEN.
ENDIF.
IF screen-group1 = 'ND2'.
screen-invisible = '1'.
screen-input = '0'.
screen-output = '0'.
MODIFY SCREEN.
ENDIF.
IF screen-group1 = 'PB3'.
screen-invisible = '1'.
screen-input = '0'.
screen-output = '0'.
MODIFY SCREEN.
ENDIF.
ENDLOOP.
x_opn = 0.
x_sub = 0.
LOOP AT SCREEN.
IF screen-group1 = 'CHK'.
fn_vari = screen-name. ASSIGN (fn_vari) TO <fs_vari>.
fn_repid = fn_vari.
fn_repid+2(1) = 'R'. ASSIGN (fn_repid) TO <fs_repid>.
ENDIF.
IF screen-group1 = 'OPN'.
ADD 1 TO x_opn.
IF wk_actiontype+x_opn(1) = 'C' OR
wk_actiontype+x_opn(1) = ' '.
screen-invisible = '1'.
screen-input = '0'.
screen-output = '0'.
MODIFY SCREEN.
ELSE.
n3 = x_opn.
l_b1+5 = n3.
ASSIGN (l_b1) TO <fs_b1>.
<fs_b1> = '@09@'.
MODIFY SCREEN.
ENDIF.
ENDIF.
IF screen-group1 = 'SUB'.
ADD 1 TO x_sub.
n3 = x_sub.
l_b2+5 = n3.
ASSIGN (l_b2) TO <fs_b2>.
IF wk_actiontype+x_sub(1) = 'H' OR
wk_actiontype+x_sub(1) = 'h'.
<fs_b2> = '@M4@'.
<fs_b2>+5
= 'Variant has flag "Only for Background Processing"'.
MODIFY SCREEN.
ELSE.
<fs_b2> = '@08@'.
MODIFY SCREEN.
ENDIF.
IF wk_actiontype+x_sub(1) = 'v' OR
wk_actiontype+x_sub(1) = 'V' OR
wk_actiontype+x_sub(1) = 'H' OR
wk_actiontype+x_sub(1) = 'h'.
ELSE.
screen-invisible = '1'.
screen-input = '0'.
screen-output = '0'.
MODIFY SCREEN.
ENDIF.
IF wk_zz_me+x_sub(1) = 'X'.
screen-invisible = '1'.
screen-input = '0'.
screen-output = '0'.
MODIFY SCREEN.
ENDIF.
ENDIF.
ENDLOOP.
IF wk_ucomm = 'UC_ZZ_DIS_MODE' OR
p_hide01 = 'DISPLAY'.
p_hide01 = 'DISPLAY'.
MODIFY SCREEN.
PERFORM switch_to_display_mode.
ENDIF.
IF wk_ucomm = 'UC_ZZ_MOD_MODE' OR
p_hide01 = 'MODIFY' OR
p_hide01 = space.
p_hide01 = 'MODIFY'.
MODIFY SCREEN.
PERFORM switch_to_modify_mode.
ENDIF.
IF p_hide01 <> 'DISPLAY'.
LOOP AT SCREEN.
CHECK screen-name(4) = 'PM_C'
OR screen-name(4) = 'P_R_'
OR screen-name(4) = 'P_V_'
OR screen-name(4) = 'P_I_'.
l_pos = screen-name+5.
CASE screen-name(4).
WHEN 'PM_C'.
IF p_c_togl+l_pos(1) = space.
screen-input = '1'.
ELSE.
screen-input = '0'.
screen-display_3d = '1'.
ENDIF.
WHEN 'P_R_'.
IF p_r_togl+l_pos(1) = space.
screen-input = '1'.
ELSE.
screen-input = '0'.
screen-display_3d = '1'.
ENDIF.
WHEN 'P_V_'.
IF p_v_togl+l_pos(1) = space.
screen-input = '1'.
ELSE.
screen-input = '0'.
screen-display_3d = '1'.
ENDIF.
WHEN 'P_I_'.
IF p_i_togl+l_pos(1) = space.
screen-input = '1'.
ELSE.
screen-input = '0'.
screen-display_3d = '1'.
ENDIF.
ENDCASE.
MODIFY SCREEN.
ENDLOOP.
ENDIF.
PERFORM get_comments.
*======================================================================
FORM switch_to_display_mode.
*======================================================================
LOOP AT SCREEN.
IF screen-group1 = 'PBM'.
screen-input = '1'.
MODIFY SCREEN.
ENDIF.
CHECK screen-group1 = 'P_R'
OR screen-group1 = 'P_I'
OR screen-group1 = 'CHK'
OR screen-group1 = 'COM'
OR screen-group1 = 'PBD'
OR screen-group1 = 'PB'.
.
screen-input = '0'.
screen-intensified = '0'.
screen-display_3d = '1'.
MODIFY SCREEN.
ENDLOOP.
ENDFORM.
*======================================================================
FORM switch_to_modify_mode.
*======================================================================
LOOP AT SCREEN.
IF screen-group1 = 'PBM'.
screen-input = '0'.
MODIFY SCREEN.
ENDIF.
CHECK screen-group1 = 'P_R'
OR screen-group1 = 'P_I'
OR screen-group1 = 'CHK'
OR screen-group1 = 'COM'
OR screen-group1 = 'PBD'
OR screen-group1 = 'PB'.
screen-input = '1'.
screen-intensified = '0'.
screen-display_3d = '0'.
MODIFY SCREEN.
ENDLOOP.
ENDFORM.
*======================================================================
FORM get_comments.
*======================================================================
DATA: fn_text(8),
l_repid LIKE sy-repid,
ls_repid TYPE program,
ls_vari(30),
l_actiontype.
DATA: BEGIN OF t_varid,
report LIKE varid-report,
variant LIKE varid-variant,
mlangu LIKE varid-mlangu,
langu LIKE varit-langu,
vtext LIKE varit-vtext.
DATA END OF t_varid.
DATA: BEGIN OF t_varid_trans,
tcode LIKE tstc-tcode,
report LIKE varid-report,
variant LIKE varid-variant,
mlangu LIKE varid-mlangu,
langu LIKE varit-langu,
vtext LIKE varit-vtext.
DATA END OF t_varid_trans.
DATA: lt_varid LIKE TABLE OF t_varid,
lt_varid_trans LIKE TABLE OF t_varid_trans,
ll_varid LIKE t_varid,
ll_varid_trans LIKE t_varid_trans.
CLEAR x.
DO 99 TIMES.
ADD 1 TO x.
CONCATENATE 'P_V_S' x INTO fn_vari. ASSIGN (fn_vari) TO <fs_vari>.
fn_repid = fn_vari.
fn_repid+2(1) = 'R'. ASSIGN (fn_repid) TO <fs_repid>.
CHECK <fs_repid> <> space.
fn_text = fn_vari.
fn_text+2(1) = 'I'. ASSIGN (fn_text) TO <fs_text>.
IF sy-ucomm = 'UC_REFRESH_COMM'.
CASE wk_actiontype+x(1).
WHEN 'V'
OR 'v'
OR 'R'
OR 'T'
OR 'G'
OR 'H'
OR 'h'. CLEAR <fs_text>.
ENDCASE.
ENDIF.
IF sy-ucomm = 'UC_REFRESH_LINE_COMM'.
CHECK wk_refresh_line = x.
CASE wk_actiontype+x(1).
WHEN 'V'
OR 'v'
OR 'R'
OR 'T'
OR 'G'
OR 'H'
OR 'h'. CLEAR <fs_text>.
WHEN OTHERS.
wk_nothing_to_do = 'X'.
EXIT.
ENDCASE.
ENDIF.
CHECK <fs_text> = space.
ls_repid = <fs_repid>.
IF ls_repid(5) = 'GR55 '.
ls_repid(5) = 'GR55.'.
CONDENSE ls_repid+5 NO-GAPS.
ELSE.
CONDENSE ls_repid NO-GAPS.
ENDIF.
TRANSLATE ls_repid TO UPPER CASE.
IF ls_repid(1) = '@' AND
ls_repid+3(1) = '@'.
ls_repid = ls_repid+4.
ENDIF.
ls_vari = <fs_vari>.
TRANSLATE ls_vari TO UPPER CASE.
CASE wk_actiontype+x(1).
WHEN 'G'.
REFRESH lt_varid.
CLEAR t_varid.
l_repid = ls_repid.
CLEAR wk_tstcp_repname.
PERFORM get_tstcp_reportname USING 1 ls_repid ls_vari
ls_repid ls_vari.
l_repid = wk_tstcp_repname.
DO 2 TIMES.
SELECT a~report a~variant a~mlangu b~langu b~vtext
APPENDING TABLE lt_varid
FROM varid AS a
INNER JOIN varit AS b ON a~report = b~report
AND a~variant = b~variant
WHERE a~report = l_repid
AND a~variant = ls_vari.
IF sy-dbcnt > 1.
SORT lt_varid BY mlangu DESCENDING langu.
LOOP AT lt_varid INTO t_varid.
IF sy-langu = t_varid-langu.
CLEAR t_varid-langu.
MODIFY lt_varid FROM t_varid.
ENDIF.
ENDLOOP.
SORT lt_varid BY langu mlangu.
ENDIF.
LOOP AT lt_varid INTO t_varid.
EXIT.
ENDLOOP.
IF t_varid-vtext <> space.
WRITE t_varid-vtext TO <fs_text>.
EXIT.
ENDIF.
IF ls_vari+0(1) = '@' AND
ls_vari+3(1) = '@'.
ls_vari = ls_vari+4.
ELSE.
EXIT.
ENDIF.
ENDDO.
WHEN 'V'
OR 'H'. REFRESH lt_varid.
CLEAR t_varid.
l_repid = ls_repid.
IF l_repid(5) = 'GR55=' OR
l_repid(5) = 'GR55-' OR
l_repid(5) = 'GR55_' OR
l_repid(5) = 'GR55.' OR
l_repid(5) = 'GR55,' OR
l_repid(5) = 'GR55>' OR
l_repid(5) = 'GR55/'.
CLEAR wk_gr55_repname.
l_actiontype = wk_actiontype+x(1).
PERFORM get_gr55_reportname USING 1 ls_repid ls_vari
ls_repid ls_vari.
l_repid = wk_gr55_repname.
wk_actiontype+x(1) = l_actiontype.
ENDIF.
DO 2 TIMES.
SELECT a~report a~variant a~mlangu b~langu b~vtext
APPENDING TABLE lt_varid
FROM varid AS a
INNER JOIN varit AS b ON a~report = b~report
AND a~variant = b~variant
WHERE a~report = l_repid
AND a~variant = ls_vari.
IF sy-dbcnt > 1.
SORT lt_varid BY mlangu DESCENDING langu.
LOOP AT lt_varid INTO t_varid.
IF sy-langu = t_varid-langu.
CLEAR t_varid-langu.
MODIFY lt_varid FROM t_varid.
ENDIF.
ENDLOOP.
SORT lt_varid BY langu mlangu.
ENDIF.
LOOP AT lt_varid INTO t_varid.
EXIT.
ENDLOOP.
IF t_varid-vtext <> space.
WRITE t_varid-vtext TO <fs_text>.
EXIT.
ENDIF.
IF ls_vari+0(1) = '@' AND
ls_vari+3(1) = '@'.
ls_vari = ls_vari+4.
ELSE.
EXIT.
ENDIF.
ENDDO.
WHEN 'v'
OR 'h'. REFRESH lt_varid_trans.
l_repid = ls_repid.
IF ls_repid(3) = '/T/'.
l_repid = ls_repid+3.
ELSE.
l_repid = ls_repid.
ENDIF.
DO 2 TIMES.
SELECT t~tcode a~report a~variant a~mlangu b~langu b~vtext
APPENDING TABLE lt_varid_trans
FROM tstc AS t
INNER JOIN varid AS a ON t~pgmna = a~report
INNER JOIN varit AS b ON a~report = b~report
AND a~variant = b~variant
WHERE t~tcode = l_repid
AND a~variant = ls_vari.
IF sy-dbcnt > 1.
SORT lt_varid_trans BY mlangu DESCENDING langu.
LOOP AT lt_varid_trans INTO t_varid_trans.
IF sy-langu = t_varid_trans-langu.
CLEAR t_varid_trans-langu.
MODIFY lt_varid_trans FROM t_varid_trans.
ENDIF.
ENDLOOP.
SORT lt_varid_trans BY langu mlangu.
ENDIF.
LOOP AT lt_varid_trans INTO t_varid_trans.
EXIT.
ENDLOOP.
IF t_varid_trans-vtext <> space.
WRITE t_varid_trans-vtext TO <fs_text>.
EXIT.
ENDIF.
IF ls_vari+0(1) = '@' AND
ls_vari+3(1) = '@'.
ls_vari = ls_vari+4.
ELSE.
EXIT.
ENDIF.
ENDDO.
WHEN 'R'.
IF trdirt-name <> <fs_repid>.
CLEAR trdirt.
ENDIF.
IF trdirt-text = space.
SELECT SINGLE * FROM trdirt WHERE name = ls_repid
AND sprsl = sy-langu.
IF sy-subrc <> 0.
SELECT SINGLE * FROM trdirt WHERE name = ls_repid
AND sprsl = 'E'.
ENDIF.
IF sy-subrc <> 0.
SELECT SINGLE * FROM trdirt WHERE name = ls_repid
AND sprsl = 'D'.
ENDIF.
ENDIF.
<fs_text> = trdirt-text.
WHEN 'B'. "Berichtsgruppe aus GR55
IF ls_vari+0(1) = '@' AND
ls_vari+3(1) = '@'.
ls_vari = ls_vari+4.
ENDIF.
PERFORM get_gr55_reportname USING 1 ls_repid ls_vari
ls_repid ls_vari.
IF trdirt-name <> wk_gr55_repname.
CLEAR trdirt.
ENDIF.
IF trdirt-text = space.
SELECT SINGLE * FROM trdirt WHERE name = wk_gr55_repname
AND sprsl = sy-langu.
IF sy-subrc <> 0.
SELECT SINGLE * FROM trdirt WHERE name =
wk_gr55_repname
AND sprsl = 'E'.
ENDIF.
IF sy-subrc <> 0.
SELECT SINGLE * FROM trdirt WHERE name =
wk_gr55_repname
AND sprsl = 'D'.
ENDIF.
ENDIF.
<fs_text> = trdirt-text.
WHEN 'T'.
IF tstct-tcode <> <fs_repid>
OR sy-ucomm = 'UC_REFRESH_LINE_COMM'
OR sy-ucomm = 'UC_REFRESH_'.
CLEAR: tstct, dd02t.
ENDIF.
CLEAR <fs_text>.
IF <fs_vari> <> space.
IF ls_vari+0(1) = '@' AND
ls_vari+3(1) = '@'.
ls_vari = ls_vari+4.
ENDIF.
CONDENSE ls_vari NO-GAPS.
CASE ls_repid.
WHEN 'SE11'
OR 'SE16'
OR 'SE16N'
OR 'SE17'
OR 'SE54'
OR 'SM30'
OR 'SM31'.
SELECT SINGLE * FROM dd02l WHERE tabname = ls_vari.
IF sy-subrc = 0.
SELECT SINGLE * FROM dd02t
WHERE tabname = ls_vari
AND ddlanguage = sy-langu.
IF sy-subrc <> 0.
SELECT SINGLE * FROM dd02t
WHERE tabname = ls_vari
AND ddlanguage = 'E'.
ENDIF.
IF sy-subrc <> 0.
SELECT SINGLE * FROM dd02t
WHERE tabname = ls_vari
AND ddlanguage = 'D'.
ENDIF. .
IF dd02t-ddtext <> space.
<fs_text> = dd02t-ddtext.
tstct-ttext = dd02t-ddtext.
ENDIF.
ENDIF.
WHEN 'SM34'.
SELECT SINGLE * FROM vcldirt
WHERE vclname = ls_vari
AND spras = sy-langu.
IF sy-subrc = 0.
<fs_text> = vcldirt-text.
tstct-ttext = vcldirt-text.
ENDIF.
WHEN 'SE71'.
SELECT SINGLE * FROM stxh WHERE tdobject = 'FORM'
AND tdname = ls_vari
AND tdid = 'TXT'
AND tdspras = sy-langu.
IF sy-subrc = 0.
<fs_text> = stxh-tdtitle.
tstct-ttext = stxh-tdtitle.
ENDIF.
WHEN 'SE37'.
SELECT SINGLE * FROM tftit
WHERE spras = sy-langu
AND funcname = ls_vari.
IF sy-subrc <> 0.
SELECT SINGLE * FROM tftit
WHERE spras = 'E'
AND funcname = ls_vari.
ENDIF.
IF sy-subrc <> 0.
SELECT SINGLE * FROM tftit
WHERE spras = 'D'
AND funcname = ls_vari.
ENDIF.
<fs_text> = tftit-stext.
WHEN 'SE38'
OR 'SA38'
OR 'SE51'
OR 'SE80'.
SELECT SINGLE * FROM trdirt WHERE name = ls_vari
AND sprsl = sy-langu.
IF sy-subrc <> 0.
SELECT SINGLE * FROM trdirt
WHERE name = ls_vari
AND sprsl = 'E'.
ENDIF.
IF sy-subrc <> 0.
SELECT SINGLE * FROM trdirt
WHERE name = ls_vari
AND sprsl = 'D'.
ENDIF.
<fs_text> = trdirt-text.
ENDCASE.
ENDIF.
CHECK <fs_text> = space.
IF ls_repid(3) = '/T/'.
l_repid = ls_repid+3.
ELSE.
l_repid = ls_repid.
ENDIF.
IF tstct-ttext = space.
SELECT SINGLE * FROM tstct WHERE tcode = l_repid
AND sprsl = sy-langu.
IF sy-subrc <> 0.
SELECT SINGLE * FROM tstct WHERE tcode = l_repid
AND sprsl = 'E'.
ENDIF.
IF sy-subrc <> 0.
SELECT SINGLE * FROM tstct WHERE tcode = l_repid
AND sprsl = 'D'.
ENDIF.
SELECT SINGLE * FROM tstc WHERE tcode = tstct-tcode.
IF sy-subrc = 0 AND
tstc-pgmna(4) = 'MENU'.
CLEAR tstct.
ENDIF.
ENDIF.
<fs_text> = tstct-ttext.
ENDCASE.
IF sy-ucomm = 'UC_REFRESH_LINE_COMM' AND
wk_refresh_line = x.
EXIT.
ENDIF.
ENDDO.
ENDFORM.
*======================================================================
AT SELECTION-SCREEN.
*======================================================================
IF sy-ucomm = 'SPOS'.
LOOP AT SCREEN.
IF screen-group1 = 'ND2'.
screen-invisible = '0'.
screen-input = '1'.
screen-output = '1'.
MODIFY SCREEN.
ENDIF.
ENDLOOP.
ENDIF.
CLEAR wk_nothing_to_do.
IF sy-ucomm = 'UC_ZZ_DIS_MODE' OR
sy-ucomm = 'UC_ZZ_MOD_MODE' OR
sy-ucomm = 'OPTI'.
wk_ucomm = sy-ucomm.
ENDIF.
IF sy-ucomm = 'UC_REFRESH_COMM'.
PERFORM get_comments.
MESSAGE 'If result is OK, do not forget to save the variant!'
TYPE 'I'.
ENDIF.
IF sy-ucomm = 'UC_REFRESH_LINE_COMM'.
GET CURSOR FIELD wk_cursor_field VALUE wk_field_content.
IF wk_cursor_field+4 BETWEEN 'S001' AND 'S099'.
wk_refresh_line = wk_cursor_field+5.
PERFORM get_comments.
IF wk_nothing_to_do = space.
MESSAGE 'If result is OK, do not forget to save the variant!'
TYPE 'I'.
ELSE.
MESSAGE 'Nothing to do fort that line!'
TYPE 'I'.
ENDIF.
ELSE.
MESSAGE 'Position your cursor on a valid line and try again!'
TYPE 'I'.
ENDIF.
ENDIF.
*LOOP AT SCREEN.
* IF SCREEN-GROUP1 = 'VIW'.
* SCREEN-INPUT = 'OFF'.
* MODIFY SCREEN.
* ENDIF.
*ENDLOOP.
FIELD-SYMBOLS: <fs_repid>, <fs_vari>, <fs_cond>, <fs_date>,
<fs_fromu>, <fs_comm>,
<fs_prepid>, <fs_pvari>, <fs_pcond>, <fs_pdate>,
<fs_pfromu>, <fs_pcomm>.
DATA: fn_repid(8), " like trdir-name,
fn_vari(8), " like varid-variant,
fn_cond(8),
fn_date LIKE sy-datum,
fn_fromu(8),
fn_comm(8),
x(3) TYPE n,
ende.
IF sy-ucomm = 'OPTI'.
sy-ucomm = 'FC01'. "Zur Vermeidung unsinniger Meldung
wk_message = 'Open Variant'.
PERFORM open_variant.
ENDIF.
IF sy-ucomm(6) = 'OPEN_S'.
PERFORM open_variant.
ENDIF.
IF sy-ucomm(6) = 'SUBM_S'.
PERFORM submit_variant.
ENDIF.
IF sscrfields-ucomm = 'FC01'.
IF sscrfields-functxt_01 <> space.
PERFORM toggle_field.
EXIT.
ENDIF.
ENDIF.
IF sscrfields-ucomm = 'FC02'.
IF sscrfields-functxt_02 <> space.
PERFORM insert_line.
EXIT.
ENDIF.
ENDIF.
IF sscrfields-ucomm = 'FC03'.
IF sscrfields-functxt_03 <> space.
PERFORM delete_line.
EXIT.
ENDIF.
ENDIF.
IF sscrfields-ucomm = 'FC04'.
IF sscrfields-functxt_04 <> space.
PERFORM clear_screen.
EXIT.
ENDIF.
ENDIF.
x = 0.
DO 99 TIMES. "For 99 possible Steps
ADD 1 TO x.
CLEAR tab.
fn_repid = 'P_R_S'. fn_repid+5 = x. ASSIGN (fn_repid) TO <fs_repid>.
fn_vari = 'P_V_S'. fn_vari+5 = x. ASSIGN (fn_vari) TO <fs_vari>.
fn_cond = 'P_C_S'. fn_cond+5 = x. ASSIGN (fn_cond) TO <fs_cond>.
fn_date = 'P_D_S'. fn_date+5 = x. ASSIGN (fn_date) TO <fs_date>.
PERFORM pruef_step USING x <fs_repid> <fs_vari>
fn_repid fn_vari.
ENDDO.
*======================================================================
FORM pruef_step USING us_x us_repid us_vari
fn_repid fn_vari.
*======================================================================
DATA: line(120),
ls_repid TYPE program,
ls_repidu TYPE program,
ls_variu LIKE wk_c30k,
ls_vari LIKE wk_c30k.
CLEAR wk_actiontype+us_x(1).
CLEAR wk_zz_me+us_x(1).
CHECK us_repid <> space.
ls_repidu = us_repid.
TRANSLATE ls_repidu TO UPPER CASE.
ls_variu = us_vari.
TRANSLATE ls_variu TO UPPER CASE.
ls_repid = ls_repidu.
ls_vari = ls_variu.
IF ls_repid(5) = 'GR55 '.
ls_repid(5) = 'GR55.'.
CONDENSE ls_repid+5 NO-GAPS.
ELSE.
CONDENSE ls_repid NO-GAPS.
ENDIF.
IF ls_repid(1) = '@' AND
ls_repid+3(1) = '@'.
ls_repid = ls_repid+4.
TRANSLATE us_repid+1(2) TO UPPER CASE.
ENDIF.
IF ls_repid(4) = 'GR55'.
CASE ls_repid+4(1).
WHEN '='
OR '-'
OR '_'
OR '.'
OR ','
OR '>'
OR '/'.
WHEN OTHERS. ls_repid+5 = ls_repid+4. CLEAR ls_repid+4(1).
ENDCASE.
ENDIF.
IF wk_sa38_allowed = 'X'.
SELECT SINGLE * FROM trdir WHERE name = ls_repid.
IF sy-subrc <> 0.
line = 'Line'.
line+5 = us_x.
line+9 = 'Report:'.
line+18 = ls_repid.
line+62 = 'does not exist!'.
CONDENSE line.
CLEAR wk_actiontype+us_x(1).
ELSE.
wk_actiontype+us_x(1) = 'R'. "Report
ENDIF.
IF wk_actiontype+us_x(1) = 'R' AND "Report
us_vari <> space.
DO 2 TIMES.
SELECT SINGLE * FROM varid WHERE report = ls_repid
AND variant = ls_vari.
IF sy-subrc = 0 OR
ls_vari+0(1) <> '@'.
EXIT.
ENDIF.
IF ls_vari+0(1) = '@' AND
ls_vari+3(1) = '@'.
ls_vari = ls_vari+4.
ENDIF.
ENDDO.
IF sy-subrc <> 0.
line = 'Line'.
line+5 = us_x.
line+9 = 'Variant:'.
line+18 = ls_vari.
line+62 = 'does not exist!'.
CONDENSE line.
ELSE.
IF varid-environmnt = 'B'.
wk_actiontype+us_x(1) = 'H'. "Rep. with vari for background
ELSE.
wk_actiontype+us_x(1) = 'V'. "Report with variant
ENDIF.
us_vari = ls_variu.
ENDIF.
ENDIF.
ENDIF.
IF wk_actiontype+us_x(1) <> space.
us_repid = ls_repidu.
ENDIF.
CHECK wk_actiontype+us_x(1) = space.
DATA: l_repid(40).
SELECT SINGLE * FROM tstc WHERE tcode = ls_repid.
IF sy-subrc <> 0.
IF ls_repid(3) = '/T/'.
l_repid = ls_repid+3.
ENDIF.
IF l_repid <> space.
SELECT SINGLE * FROM tstc WHERE tcode = l_repid.
ENDIF.
ENDIF.
IF sy-subrc = 0 AND
tstc-pgmna(4) <> 'MENU'.
wk_actiontype+us_x(1) = 'T'. "Transaction
us_repid = ls_repidu.
ENDIF.
IF wk_actiontype+us_x(1) = 'T' AND "Transaktion
us_vari <> space.
DO 2 TIMES.
SELECT SINGLE * FROM varid WHERE report = tstc-pgmna
AND variant = ls_vari.
IF sy-subrc = 0 OR
ls_vari+0(1) <> '@'.
EXIT.
ENDIF.
IF ls_vari+0(1) = '@' AND
ls_vari+3(1) = '@'.
ls_vari = ls_vari+4.
ENDIF.
ENDDO.
IF sy-subrc <> 0.
line = 'Line'.
line+5 = us_x.
line+9 = 'Variant:'.
line+18 = us_vari.
line+62 = 'does not exist!'.
CONDENSE line.
ELSE.
IF varid-environmnt = 'B'.
wk_actiontype+us_x(1) = 'h'. "Trans with vari for background
ELSE.
wk_actiontype+us_x(1) = 'v'. "Transaction with variant
ENDIF.
us_vari = ls_variu.
ENDIF.
ENDIF.
IF wk_actiontype+us_x(1) = 'T' AND "Transaktion
us_vari <> space.
CONDENSE ls_vari NO-GAPS.
CASE ls_repid.
WHEN 'SE11'
OR 'SE16'
OR 'SE16N'
OR 'SE17'
OR 'SE54'
OR 'SM30'
OR 'SM31'. SELECT SINGLE * FROM dd02l WHERE tabname = ls_vari.
IF sy-subrc = 0.
us_vari = ls_variu.
ENDIF.
WHEN 'SM34'. SELECT SINGLE * FROM vcldirt WHERE vclname = ls_vari
AND spras = sy-langu.
IF sy-subrc = 0.
us_vari = ls_variu.
ENDIF.
WHEN 'SE71'. SELECT SINGLE * FROM stxh WHERE tdobject = 'FORM'
AND tdname = ls_vari
AND tdid = 'TXT'
AND tdspras = sy-langu.
IF sy-subrc = 0.
us_vari = ls_variu.
ENDIF.
WHEN 'SE38'
OR 'SA38'
OR 'SE51'
OR 'SE80'. SELECT SINGLE * FROM trdirt WHERE name = ls_vari
AND sprsl = sy-langu.
IF sy-subrc <> 0.
SELECT SINGLE * FROM trdirt WHERE name = ls_vari
AND sprsl = 'E'.
ENDIF.
IF sy-subrc <> 0.
SELECT SINGLE * FROM trdirt WHERE name = ls_vari
AND sprsl = 'D'.
ENDIF.
IF sy-subrc = 0.
us_vari = ls_variu.
ENDIF.
ENDCASE.
ENDIF.
IF wk_actiontype+us_x(1) = space .
IF ls_repid(4) = 'GR55' AND
ls_repid+5 <> space.
IF ls_repid(5) = 'GR55=' OR
ls_repid(5) = 'GR55-' OR
ls_repid(5) = 'GR55_' OR
ls_repid(5) = 'GR55.' OR
ls_repid(5) = 'GR55,' OR
ls_repid(5) = 'GR55>' OR
ls_repid(5) = 'GR55/'.
PERFORM get_gr55_reportname USING us_x ls_repid us_vari
fn_repid fn_vari.
IF wk_actiontype+us_x(1) = 'B'.
us_repid = ls_repidu.
ENDIF.
IF wk_actiontype+us_x(1) = 'B' AND "Berichtsgruppe
us_vari <> space AND
wk_gr55_repname <> space.
DO 2 TIMES.
SELECT SINGLE * FROM varid WHERE report = wk_gr55_repname
AND variant = ls_vari.
IF sy-subrc = 0 OR
ls_vari+0(1) <> '@'.
EXIT.
ENDIF.
IF ls_vari+0(1) = '@' AND
ls_vari+3(1) = '@'.
ls_vari = ls_vari+4.
ENDIF.
ENDDO.
IF sy-subrc <> 0.
line = 'Line'.
line+5 = us_x.
line+9 = 'Variant:'.
line+18 = us_vari.
line+62 = 'does not exist!'.
CONDENSE line.
ELSE.
IF varid-environmnt = 'B'.
wk_actiontype+us_x(1) = 'H'."Rep. with vari for background
ELSE.
wk_actiontype+us_x(1) = 'V'. "Report with variant
ENDIF.
us_vari = ls_variu.
ENDIF.
ENDIF.
ENDIF.
ENDIF.
ENDIF.
* Nun kann es sich noch um eine Berichtsgruppen Transaktion handeln
* der Reportname muss hier über die Tab. TSTCP ermittelt werden.
IF wk_actiontype+us_x(1) = 'T' AND "Transaktion
us_vari <> space.
PERFORM get_tstcp_reportname USING us_x ls_repid ls_variu
fn_repid fn_vari.
ENDIF.
IF wk_actiontype+us_x(1) = 'G'.
us_vari = ls_variu.
ENDIF.
IF wk_actiontype+us_x(1) = space.
wk_actiontype+us_x(1) = 'C'.
ENDIF.
ENDFORM.
*======================================================================
FORM get_gr55_reportname USING us_x us_repid us_vari
fn_repid fn_vari.
*======================================================================
DATA: l_generated,
l_e30_job(4),
l_prog_name TYPE progname,
l_subrc LIKE sy-subrc.
CLEAR wk_gr55_repname.
IF us_repid(5) = 'GR55=' OR
us_repid(5) = 'GR55-' OR
us_repid(5) = 'GR55_' OR
us_repid(5) = 'GR55.' OR
us_repid(5) = 'GR55,' OR
us_repid(5) = 'GR55>' OR
us_repid(5) = 'GR55/' OR
us_repid(5) = 'GR55 '.
l_e30_job = us_repid+5.
ELSE.
l_e30_job = us_repid+4.
ENDIF.
SELECT * FROM t803vp WHERE rgjnr = l_e30_job
AND progclass = 'RW_EXECUTION'
ORDER BY versn DESCENDING.
EXIT.
ENDSELECT.
IF sy-subrc = 0.
CONCATENATE 'GP' t803vp-uni_idc25 sy-mandt INTO wk_gr55_repname.
wk_actiontype+us_x(1) = 'B'.
EXIT.
ENDIF.
CALL FUNCTION 'GRW_JOB_SUBMIT_PREPARE'
EXPORTING
i_report_group = l_e30_job
i_program_type = 'X'
IMPORTING
e_subrc = l_subrc
e_program_name = l_prog_name
EXCEPTIONS
OTHERS = 4.
CHECK sy-subrc = 0.
wk_actiontype+us_x(1) = 'B'.
wk_gr55_repname = l_prog_name.
ENDFORM.
*======================================================================
FORM get_tstcp_reportname USING us_x us_repid us_vari
fn_repid fn_vari.
*======================================================================
DATA: l_generated,
l_e30_job(4),
l_prog_name TYPE progname,
l_subrc LIKE sy-subrc,
l_trans(40),
l_f1(60),
l_f2(60),
l_f3(60).
CLEAR wk_tstcp_repname.
IF us_repid(3) = '/T/'.
l_trans = us_repid+3.
ELSE.
l_trans = us_repid.
ENDIF.
SELECT SINGLE * FROM tstc WHERE tcode = l_trans.
CHECK sy-subrc = 0.
CHECK tstc-pgmna = space.
SELECT SINGLE * FROM tstcp WHERE tcode = l_trans.
CHECK sy-subrc = 0.
SPLIT tstcp-param AT ';' INTO l_f1 l_f2 l_f3.
CHECK l_f1+27 = 'REPORTTYPE=RW'.
l_e30_job = l_f2+19.
SELECT * FROM t803vp WHERE rgjnr = l_e30_job
AND progclass = 'RW_EXECUTION'
ORDER BY versn DESCENDING.
EXIT.
ENDSELECT.
IF sy-subrc = 0.
CONCATENATE 'GP' t803vp-uni_idc25 sy-mandt INTO wk_tstcp_repname.
SELECT SINGLE * FROM varid WHERE report = wk_tstcp_repname
AND variant = us_vari.
IF sy-subrc = 0.
wk_actiontype+us_x(1) = 'G'.
EXIT.
ENDIF.
EXIT.
ENDIF.
CALL FUNCTION 'GRW_JOB_SUBMIT_PREPARE'
EXPORTING
i_report_group = l_e30_job
i_program_type = 'X'
IMPORTING
e_subrc = l_subrc
e_program_name = l_prog_name
EXCEPTIONS
OTHERS = 4.
CHECK sy-subrc = 0.
wk_tstcp_repname = l_prog_name.
SELECT SINGLE * FROM varid WHERE report = wk_tstcp_repname
AND variant = us_vari.
IF sy-subrc = 0.
wk_actiontype+us_x(1) = 'G'.
ENDIF.
ENDFORM.
*======================================================================
DATA: t_fields LIKE help_value OCCURS 0 WITH HEADER LINE.
DATA: BEGIN OF t_fnames OCCURS 0,
fname(21), END OF t_fnames.
DATA: BEGIN OF t_abstg OCCURS 0,
kennzahl LIKE sy-repid,
text TYPE text80, END OF t_abstg.
DATA: wk_selectionfield LIKE help_info-fieldname,
wk_l_index LIKE sy-tabix,
wk_vr_titel(40).
DATA: dynpfields LIKE dynpread OCCURS 0 WITH HEADER LINE,
li_rep LIKE sy-repid.
DATA: wk_ff_index(5) TYPE n,
wk_ff_line(150),
wk_ff_line_reset,
wk_ff_filter_index(5) TYPE n,
wk_ff_num5(5) TYPE n,
wk_ff_nodel_t_loaded_filter,
wk_ff_screen(4),
wk_ff_answer,
wk_ff_msg(60),
wk_ff_textline1(60),
wk_ff_textline2(60),
wk_ff_textline3(60),
wk_ff_text_option1(10),
wk_ff_text_option2(10),
wk_ff_titel(25),
wk_ff_uname LIKE sy-uname,
wk_ff_repid LIKE sy-repid,
wk_ff_total_lines(6) TYPE n,
wk_ff_current_line(6) TYPE n,
wk_ff_remark_no_lines,
wk_ff_ende2.
DEFINE macro_value_request.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_v_s&1.
PERFORM show_variants CHANGING p_v_s&1.
END-OF-DEFINITION.
macro_value_request 001.
macro_value_request 002.
macro_value_request 003.
macro_value_request 004.
macro_value_request 005.
macro_value_request 006.
macro_value_request 007.
macro_value_request 008.
macro_value_request 009.
macro_value_request 010.
macro_value_request 011.
macro_value_request 012.
macro_value_request 013.
macro_value_request 014.
macro_value_request 015.
macro_value_request 016.
macro_value_request 017.
macro_value_request 018.
macro_value_request 019.
macro_value_request 020.
macro_value_request 021.
macro_value_request 022.
macro_value_request 023.
macro_value_request 024.
macro_value_request 025.
macro_value_request 026.
macro_value_request 027.
macro_value_request 028.
macro_value_request 029.
macro_value_request 030.
macro_value_request 031.
macro_value_request 032.
macro_value_request 033.
macro_value_request 034.
macro_value_request 035.
macro_value_request 036.
macro_value_request 037.
macro_value_request 038.
macro_value_request 039.
macro_value_request 040.
macro_value_request 041.
macro_value_request 042.
macro_value_request 043.
macro_value_request 044.
macro_value_request 045.
macro_value_request 046.
macro_value_request 047.
macro_value_request 048.
macro_value_request 049.
macro_value_request 050.
macro_value_request 051.
macro_value_request 052.
macro_value_request 053.
macro_value_request 054.
macro_value_request 055.
macro_value_request 056.
macro_value_request 057.
macro_value_request 058.
macro_value_request 059.
macro_value_request 060.
macro_value_request 061.
macro_value_request 062.
macro_value_request 063.
macro_value_request 064.
macro_value_request 065.
macro_value_request 066.
macro_value_request 067.
macro_value_request 068.
macro_value_request 069.
macro_value_request 070.
macro_value_request 071.
macro_value_request 072.
macro_value_request 073.
macro_value_request 074.
macro_value_request 075.
macro_value_request 076.
macro_value_request 077.
macro_value_request 078.
macro_value_request 079.
macro_value_request 080.
macro_value_request 081.
macro_value_request 082.
macro_value_request 083.
macro_value_request 084.
macro_value_request 085.
macro_value_request 086.
macro_value_request 087.
macro_value_request 088.
macro_value_request 089.
macro_value_request 090.
macro_value_request 091.
macro_value_request 092.
macro_value_request 093.
macro_value_request 094.
macro_value_request 095.
macro_value_request 096.
macro_value_request 097.
macro_value_request 098.
macro_value_request 099.
*======================================================================
FORM show_variants CHANGING l_vari.
*======================================================================
DATA l_curr_line(3) TYPE n.
CLEAR: t_fields, t_fnames, t_abstg.
REFRESH: t_fields, t_fnames, t_abstg.
t_fnames-fname = 'VARIT-VARIANT'. APPEND t_fnames.
t_fnames-fname = 'ZVISH-TITEL'. APPEND t_fnames.
wk_selectionfield = 'KENNZAHL'.
GET CURSOR FIELD wk_cursor_field VALUE wk_field_content.
l_curr_line = wk_cursor_field+5.
fn_repid = 'P_R_S'. fn_repid+5 = l_curr_line.
ASSIGN (fn_repid) TO <fs_repid>.
CLEAR dynpfields. REFRESH dynpfields.
dynpfields-fieldname = fn_repid.
APPEND dynpfields.
wk_ff_repid = sy-repid.
CALL FUNCTION 'DYNP_VALUES_READ'
EXPORTING
dyname = wk_ff_repid
dynumb = '1000'
TABLES
dynpfields = dynpfields
EXCEPTIONS
invalid_abapworkarea = 1.
IF sy-subrc <> 0.
CLEAR li_rep.
ELSE.
li_rep = dynpfields-fieldvalue.
TRANSLATE li_rep TO UPPER CASE.
ENDIF.
CASE wk_actiontype+l_curr_line(1).
WHEN 'R'.
SELECT * FROM varit WHERE langu = sy-langu
AND report = li_rep.
t_abstg-kennzahl = varit-variant.
t_abstg-text = varit-vtext.
APPEND t_abstg.
CLEAR t_abstg.
ENDSELECT.
CONCATENATE 'Variants of report' <fs_repid>
INTO wk_vr_titel
SEPARATED BY space.
WHEN 'T'.
SELECT SINGLE * FROM tstc WHERE tcode = li_rep.
IF sy-subrc = 0.
SELECT * FROM varit WHERE langu = sy-langu
AND report = tstc-pgmna.
t_abstg-kennzahl = varit-variant.
t_abstg-text = varit-vtext.
APPEND t_abstg.
CLEAR t_abstg.
ENDSELECT.
CONCATENATE 'Variants of transaction' <fs_repid>
INTO wk_vr_titel
SEPARATED BY space.
ENDIF.
ENDCASE.
PERFORM display_requst_values TABLES t_abstg.
CHECK sy-subrc = 0.
READ TABLE t_abstg INDEX wk_l_index.
IF sy-subrc = 0.
MOVE t_abstg-kennzahl TO l_vari.
ENDIF.
ENDFORM.
*======================================================================
FORM display_requst_values TABLES form_table1.
*======================================================================
CALL FUNCTION 'TRANSFER_NAMES_TO_FIELDS'
EXPORTING
selectfield = wk_selectionfield
TABLES
fields = t_fields
namelist = t_fnames
EXCEPTIONS
wrong_format_given = 1
OTHERS = 2.
IF sy-subrc = 0. ENDIF.
CALL FUNCTION 'HELP_VALUES_GET_NO_DD_NAME'
EXPORTING
selectfield = wk_selectionfield
titel = wk_vr_titel
IMPORTING
ind = wk_l_index
TABLES
fields = t_fields
full_table = form_table1
EXCEPTIONS
full_table_empty = 1
no_tablestructure_given = 2
no_tablefields_in_dictionary = 3
more_then_one_selectfield = 4
no_selectfield = 5
OTHERS = 6.
IF sy-subrc = 0. ENDIF.
ENDFORM.
*======================================================================
START-OF-SELECTION.
*======================================================================
IMPORT memory_prerep FROM MEMORY ID 'MEMORY_PREREP'.
FREE MEMORY ID 'MEMORY_PREREP'.
CHECK memory_prerep-prerep <> sy-repid.
SET PF-STATUS 'LISTE'.
IF sy-slset <> space.
memory_prerep-prerep = sy-repid.
EXPORT memory_prerep TO MEMORY ID 'MEMORY_PREREP'.
SUBMIT (sy-repid) VIA SELECTION-SCREEN
USING SELECTION-SET sy-slset AND RETURN.
ENDIF.
wk_message = ' Start of processing'.
*======================================================================
FORM open_variant.
*======================================================================
DATA: ls_repid TYPE program,
ls_vari(30),
l_vari_valid,
l_actiontype.
IF sy-ucomm(6) <> 'OPEN_S'.
GET CURSOR FIELD wk_cursor_field VALUE wk_field_content.
IF wk_cursor_field(5) = 'P_R_S'.
EXIT.
ENDIF.
IF wk_cursor_field = space OR
wk_cursor_field(5) <> 'P_V_S'.
MESSAGE 'Select a Variant in column "Variant"!'
TYPE 'E'.
ENDIF.
ELSE.
CONCATENATE 'P_V_' sy-ucomm+5 INTO wk_cursor_field.
ENDIF.
FIELD-SYMBOLS: <fs_repid>, <fs_vari>, <fs_cond>, <fs_date>.
DATA: fn_repid(8), " like trdir-name,
fn_vari(8), " like varid-variant,
x(3) TYPE n,
ende.
fn_vari = wk_cursor_field. ASSIGN (fn_vari) TO <fs_vari>.
fn_repid = fn_vari.
fn_repid+2(1) = 'R'. ASSIGN (fn_repid) TO <fs_repid>.
ls_repid = <fs_repid>.
TRANSLATE ls_repid TO UPPER CASE.
CONDENSE ls_repid NO-GAPS.
IF ls_repid(1) = '@' AND
ls_repid+3(1) = '@'.
ls_repid = ls_repid+4.
ENDIF.
x = fn_vari.
IF ls_repid = space.
MESSAGE 'Report missing in current line'
TYPE 'E'.
ENDIF.
IF ls_repid(4) = 'GR55'.
CASE ls_repid+4(1).
WHEN '='
OR '-'
OR '_'
OR '.'
OR ','
OR '>'
OR '/'
OR ' '.
WHEN OTHERS. ls_repid+5 = ls_repid+4. CLEAR ls_repid+4(1).
ENDCASE.
ENDIF.
IF ls_repid(5) = 'GR55=' OR
ls_repid(5) = 'GR55-' OR
ls_repid(5) = 'GR55_' OR
ls_repid(5) = 'GR55.' OR
ls_repid(5) = 'GR55,' OR
ls_repid(5) = 'GR55>' OR
ls_repid(5) = 'GR55/' OR
ls_repid(5) = 'GR55 '.
l_actiontype = wk_actiontype+x(1).
PERFORM get_gr55_reportname USING 1 ls_repid <fs_vari>
ls_repid <fs_vari>.
tab-rep = wk_gr55_repname.
wk_actiontype+x(1) = l_actiontype.
ELSE.
PERFORM pruef_step USING x ls_repid <fs_vari>
fn_repid fn_vari.
tab-rep = ls_repid.
IF wk_actiontype+x(1) = 'G'.
tab-rep = wk_tstcp_repname.
ENDIF.
ENDIF.
tab-vari = <fs_vari>.
TRANSLATE tab-vari TO UPPER CASE.
IF wk_actiontype+x(1) = 'v'.
ASSIGN (tstc-pgmna) TO <fs_repid>.
ELSE.
ASSIGN (tab-rep) TO <fs_repid>.
ENDIF.
IF wk_actiontype+x(1) = 'v'.
ASSIGN (tstc-pgmna) TO <fs_repid>.
ELSE.
ASSIGN (tab-rep) TO <fs_repid>.
ENDIF.
IF tab-vari+0(1) = '@' AND
tab-vari+3(1) = '@'.
SELECT SINGLE * FROM varid WHERE report = <fs_repid>
AND variant = <fs_vari>.
IF sy-subrc <> 0.
tab-vari = tab-vari+4.
ENDIF.
ENDIF.
CASE wk_actiontype+x(1).
WHEN 'R'
OR 'B'. SUBMIT (tab-rep) VIA SELECTION-SCREEN AND RETURN.
WHEN 'V'
OR 'G'
OR 'H'. SUBMIT (tab-rep) VIA SELECTION-SCREEN
USING SELECTION-SET tab-vari AND RETURN.
WHEN 'v'
OR 'h'. SUBMIT (tstc-pgmna) VIA SELECTION-SCREEN
USING SELECTION-SET tab-vari AND RETURN.
ENDCASE.
ls_vari = <fs_vari>.
CASE wk_actiontype+x(1).
WHEN 'T'.
IF ls_vari+0(1) = '@' AND
ls_vari+3(1) = '@'.
ls_vari = ls_vari+4.
ENDIF.
CONDENSE ls_vari NO-GAPS.
CASE ls_repid.
WHEN 'SE11'
OR 'SE16'
OR 'SE16N'
OR 'SE17'
OR 'SE54'
OR 'SM30'
OR 'SM31'.
IF <fs_vari> <> space.
SELECT SINGLE * FROM dd02l WHERE tabname = ls_vari.
IF sy-subrc = 0.
l_vari_valid = 'X'.
CASE ls_repid.
WHEN 'SE11'
OR 'SE16'
OR 'SE16N'
OR 'SE17'. SET PARAMETER ID 'DTB' FIELD ls_vari.
WHEN 'SM30'
OR 'SM31'
OR 'SE54'. SET PARAMETER ID 'DVI' FIELD ls_vari.
ENDCASE.
ENDIF.
ENDIF.
WHEN 'SM34'. SET PARAMETER ID 'VCL' FIELD ls_vari.
WHEN 'SE71'. SET PARAMETER ID 'TXF' FIELD ls_vari.
WHEN 'SE37'. SET PARAMETER ID 'LIB' FIELD ls_vari.
WHEN 'SA38'
OR 'SE38'
OR 'SE80'. SET PARAMETER ID 'RID' FIELD ls_vari.
IF ls_repid = 'SA38'.
IF sy-subrc = 0.
l_vari_valid = 'X'.
ENDIF.
ENDIF.
WHEN 'SE51'. SET PARAMETER ID 'DYR' FIELD ls_vari.
ENDCASE.
DATA l_trans LIKE tstc-tcode.
IF tab-rep(3) = '/T/'.
l_trans = tab-rep+3.
ELSE.
l_trans = tab-rep.
ENDIF.
SET CURSOR FIELD fn_repid.
CALL FUNCTION 'AUTHORITY_CHECK_TCODE'
EXPORTING
tcode = l_trans
EXCEPTIONS
ok = 1
not_ok = 2
OTHERS = 3.
IF sy-subrc > 1.
SET CURSOR FIELD fn_repid.
CONCATENATE 'No authority for transaction: '
l_trans
INTO wk_message
SEPARATED BY space.
MESSAGE wk_message
TYPE 'I'.
ELSE.
IF l_vari_valid = 'X'.
CALL TRANSACTION l_trans AND SKIP FIRST SCREEN.
ELSE.
CALL TRANSACTION l_trans.
ENDIF.
ENDIF.
EXIT.
ENDCASE.
ENDFORM.
*======================================================================
FORM submit_variant.
*======================================================================
DATA: ls_repid TYPE program,
ls_vari(30),
l_vari_valid,
l_actiontype.
IF sy-ucomm(6) <> 'SUBM_S'.
GET CURSOR FIELD wk_cursor_field VALUE wk_field_content.
IF wk_cursor_field = space OR
wk_cursor_field(5) <> 'P_V_S'.
MESSAGE 'Select a Variant in column "Variant"!'
TYPE 'E'.
ENDIF.
ELSE.
CONCATENATE 'P_V_' sy-ucomm+5 INTO wk_cursor_field.
ENDIF.
FIELD-SYMBOLS: <fs_repid>, <fs_vari>, <fs_cond>, <fs_date>.
DATA: fn_repid(8), " like trdir-name,
fn_vari(8), " like varid-variant,
x(3) TYPE n,
ende.
fn_vari = wk_cursor_field. ASSIGN (fn_vari) TO <fs_vari>.
fn_repid = fn_vari.
fn_repid+2(1) = 'R'. ASSIGN (fn_repid) TO <fs_repid>.
ls_repid = <fs_repid>.
TRANSLATE ls_repid TO UPPER CASE.
CONDENSE ls_repid NO-GAPS.
IF ls_repid(1) = '@' AND
ls_repid+3(1) = '@'.
ls_repid = ls_repid+4.
ENDIF.
ls_vari = <fs_vari>.
TRANSLATE ls_vari TO UPPER CASE.
x = fn_vari.
IF <fs_repid> = space.
MESSAGE 'Report missing in current line'
TYPE 'I'.
ENDIF.
IF ls_repid(4) = 'GR55' AND
ls_repid+5 <> space.
l_actiontype = wk_actiontype+x(1).
PERFORM get_gr55_reportname USING 1 ls_repid <fs_vari>
ls_repid <fs_vari>.
tab-rep = wk_gr55_repname.
wk_actiontype+x(1) = l_actiontype.
ELSE.
PERFORM pruef_step USING x ls_repid ls_vari
fn_repid fn_vari.
tab-rep = ls_repid.
IF wk_actiontype+x(1) = 'G'.
tab-rep = wk_tstcp_repname.
ENDIF.
ENDIF.
tab-vari = <fs_vari>.
CASE wk_actiontype+x(1).
WHEN 'T'.
IF ls_vari+0(1) = '@' AND
ls_vari+3(1) = '@'.
ls_vari = ls_vari+4.
ENDIF.
CONDENSE ls_vari NO-GAPS.
CASE ls_repid.
WHEN 'SE11'
OR 'SE16'
OR 'SE16N'
OR 'SE17'
OR 'SE54'
OR 'SM30'
OR 'SM31'.
IF <fs_vari> <> space.
SELECT SINGLE * FROM dd02l WHERE tabname = ls_vari.
IF sy-subrc = 0.
l_vari_valid = 'X'.
CASE ls_repid.
WHEN 'SE11'
OR 'SE16'
OR 'SE16N'
OR 'SE17'. SET PARAMETER ID 'DTB' FIELD ls_vari.
WHEN 'SM30'
OR 'SM31'
OR 'SE54'. SET PARAMETER ID 'DVI' FIELD ls_vari.
ENDCASE.
ENDIF.
ENDIF.
WHEN 'SM34'. SET PARAMETER ID 'VCL' FIELD ls_vari.
WHEN 'SE71'. SET PARAMETER ID 'TXF' FIELD ls_vari.
WHEN 'SE37'. SET PARAMETER ID 'LIB' FIELD ls_vari.
WHEN 'SA38'
OR 'SE38'
OR 'SE80'. SET PARAMETER ID 'RID' FIELD ls_vari.
IF ls_repid = 'SA38'.
IF sy-subrc = 0.
l_vari_valid = 'X'.
ENDIF.
ENDIF.
WHEN 'SE51'. SET PARAMETER ID 'DYR' FIELD ls_vari.
ENDCASE.
DATA l_trans LIKE tstc-tcode.
IF tab-rep(3) = '/T/'.
l_trans = tab-rep+3.
ELSE.
l_trans = tab-rep.
ENDIF.
SET CURSOR FIELD fn_repid.
CALL FUNCTION 'AUTHORITY_CHECK_TCODE'
EXPORTING
tcode = l_trans
EXCEPTIONS
ok = 1
not_ok = 2
OTHERS = 3.
IF sy-subrc > 1.
SET CURSOR FIELD fn_repid.
CONCATENATE 'No authority for transaction: '
l_trans
INTO wk_message
SEPARATED BY space.
MESSAGE wk_message
TYPE 'I'.
ELSE.
IF l_vari_valid = 'X'.
CALL TRANSACTION l_trans AND SKIP FIRST SCREEN.
ELSE.
CALL TRANSACTION l_trans.
ENDIF.
ENDIF.
EXIT.
ENDCASE.
IF wk_actiontype+x(1) = 'v'.
ASSIGN (tstc-pgmna) TO <fs_repid>.
ELSE.
ASSIGN (tab-rep) TO <fs_repid>.
ENDIF.
IF tab-vari+0(1) = '@' AND
tab-vari+3(1) = '@'.
SELECT SINGLE * FROM varid WHERE report = <fs_repid>
AND variant = <fs_vari>.
IF sy-subrc <> 0.
tab-vari = tab-vari+4.
ENDIF.
ENDIF.
CASE wk_actiontype+x(1).
WHEN 'V'
OR 'R'
OR 'G'.
IF <fs_vari> = space.
SUBMIT (tab-rep) AND RETURN.
ELSE.
SUBMIT (tab-rep) USING SELECTION-SET tab-vari AND RETURN.
ENDIF.
WHEN 'v'.
SUBMIT (tstc-pgmna) USING SELECTION-SET tab-vari AND RETURN.
WHEN 'H'
OR 'H'.
CONCATENATE 'Variant >'
tab-vari
'< has flag "Only for Background Processing'
INTO wk_message
SEPARATED BY space.
MESSAGE wk_message
TYPE 'I'.
ENDCASE.
*=======================================================================
* Direkt als Job ausführen
*=======================================================================
*
* http://www.abapforum.com/forum/viewtopic.php?t=2472 / 27.11.2004
*
* Henry fragt zuerst und liefert dann später auch die Antwort
*
* Ich möchte eine Report aus der Selektionmaske heraus im Hintergrund
* starten. Der Ablauf sollte ohne die SAP Standardfunktionalität "F9"
* erfolgen.
*
*falls jemand schon mal das Problem hatte hier eine Lösung die ich
* herausgefunden habe:
*
* 1) Aktuelle Selektionparameter holen mit
* FUBA CALL FUNCTION 'RS_REFRESH_FROM_SELECTOPTIONS'
*
* 2) Job Öffnen
* CALL FUNCTION 'JOB_OPEN'
*
* 3) Report für Job definieren
* SUBMIT (l_report) VIA SELECTION-SCREEN
* VIA JOB l_job NUMBER l_jobnum
* WITH SELECTION-TABLE l_selopt AND RETURN.
*
* 4) Job abschließen
* CALL FUNCTION 'JOB_CLOSE'
*
* Fubktioniert einwandfrei und es lassen sich auch noch Option für
* Jobdatum/-Zeit mitgeben.
*
* Allerdings wäre es für andere Einsatzzwecke manchmal sehr hilfreich,
* trotzdem das aktuelle Selektionbild (u.U. mit verschiedenen Tabstrips)
* als Variante direkt ohne den SAP Standard-Popup speichern zu können.
* Also falls hierzu jemand was weiß, wäre ich für Hilfe sehr dankbar.
*
* Henry hfahrian
*
* ForumUser
* Beiträge: 33 Registriert: 15.11.2004, 11:10
* Wohnort: Frankenland Dank erhalten: 0 mal
*
ENDFORM.
*======================================================================
FORM toggle_field.
*======================================================================
DATA: l_pos(3) TYPE n.
GET CURSOR FIELD wk_cursor_field VALUE wk_field_content.
CHECK wk_cursor_field+4 <> 'TOGL'.
LOOP AT SCREEN.
IF screen-group1 = 'ND2'.
screen-invisible = '0'.
screen-input = '1'.
screen-output = '1'.
MODIFY SCREEN.
ENDIF.
ENDLOOP.
l_pos = wk_cursor_field+5.
CASE wk_cursor_field(4).
WHEN 'PM_C'.
IF p_c_togl+l_pos(1) = space.
p_c_togl+l_pos(1) = 'X'.
ELSE.
p_c_togl+l_pos(1) = ' '.
ENDIF.
WHEN 'P_R_'.
IF p_r_togl+l_pos(1) = space.
p_r_togl+l_pos(1) = 'X'.
ELSE.
p_r_togl+l_pos(1) = ' '.
ENDIF.
WHEN 'P_V_'.
IF p_v_togl+l_pos(1) = space.
p_v_togl+l_pos(1) = 'X'.
ELSE.
p_v_togl+l_pos(1) = ' '.
ENDIF.
WHEN 'P_I_'.
IF p_i_togl+l_pos(1) = space.
p_i_togl+l_pos(1) = 'X'.
ELSE.
p_i_togl+l_pos(1) = ' '.
ENDIF.
ENDCASE.
LOOP AT SCREEN.
CHECK screen-name = wk_cursor_field.
l_pos = screen-name+5.
CASE wk_cursor_field(4).
WHEN 'PM_C'.
IF p_c_togl+l_pos(1) = space.
screen-input = '1'.
ELSE.
screen-input = '0'.
ENDIF.
WHEN 'PM_R'.
IF p_r_togl+l_pos(1) = space.
screen-input = '1'.
ELSE.
screen-input = '0'.
ENDIF.
WHEN 'PM_V'.
IF p_v_togl+l_pos(1) = space.
screen-input = '1'.
ELSE.
screen-input = '0'.
ENDIF.
WHEN 'PM_I'.
IF p_i_togl+l_pos(1) = space.
screen-input = '1'.
ELSE.
screen-input = '0'.
ENDIF.
ENDCASE.
MODIFY SCREEN.
ENDLOOP.
ENDFORM.
*======================================================================
FORM insert_line.
*======================================================================
DATA: wk_curr_line(3) TYPE n,
wk_last_line(3) TYPE n VALUE 99,
wk_beflast_line(3) TYPE n VALUE 98,
wk_insert_possible,
wk_successful.
FIELD-SYMBOLS: <fs_repid>, <fs_vari>, <fs_cond>, <fs_date>,
<fs_fromu>, <fs_comm>,
<fs_prepid>, <fs_pvari>, <fs_pcond>, <fs_pdate>,
<fs_pfromu>, <fs_pcomm>,
<fs_nrepid>, <fs_nvari>, <fs_ncond>, <fs_ndate>,
<fs_nfromu>, <fs_ncomm>.
DATA: fn_repid(8), " like trdir-name,
fn_vari(8), " like varid-variant,
fn_fromu(8),
fn_comm(8),
fn_prepid(8), " like trdir-name,
fn_pvari(8), " like varid-variant,
fn_pfromu(8),
fn_pcomm(8),
fn_nrepid(8), " like trdir-name,
fn_nvari(8), " like varid-variant,
fn_nfromu(8),
fn_ncomm(8).
GET CURSOR FIELD wk_cursor_field VALUE wk_field_content.
IF wk_cursor_field(2) <> 'P_'.
MESSAGE 'Position your cursor on a STEP line!'
TYPE 'E'.
ENDIF.
IF wk_cursor_field+5 = '099'.
MESSAGE 'Insert on last line not possible!'
TYPE 'E'.
ENDIF.
wk_curr_line = wk_cursor_field+5.
DO 99 TIMES.
IF wk_beflast_line < wk_curr_line.
EXIT.
ENDIF.
fn_repid = 'P_R_S'. fn_repid+5 = wk_last_line.
ASSIGN (fn_repid) TO <fs_repid>.
fn_vari = 'P_V_S'. fn_vari+5 = wk_last_line.
ASSIGN (fn_vari) TO <fs_vari>.
fn_comm = 'P_I_S'. fn_comm+5 = wk_last_line.
ASSIGN (fn_comm) TO <fs_comm>.
IF <fs_repid> = space AND
<fs_vari> = space AND
<fs_comm> = space AND
p_r_togl+wk_last_line(1) = space AND
p_v_togl+wk_last_line(1) = space AND
p_i_togl+wk_last_line(1) = space.
wk_insert_possible = 'X'.
ELSE.
SUBTRACT 1 FROM wk_last_line.
SUBTRACT 1 FROM wk_beflast_line.
CONTINUE.
ENDIF.
fn_prepid = 'P_R_S'. fn_prepid+5 = wk_beflast_line.
ASSIGN (fn_prepid) TO <fs_prepid>.
fn_pvari = 'P_V_S'. fn_pvari+5 = wk_beflast_line.
ASSIGN (fn_pvari) TO <fs_pvari>.
fn_pcomm = 'P_I_S'. fn_pcomm+5 = wk_beflast_line.
ASSIGN (fn_pcomm) TO <fs_pcomm>.
IF <fs_prepid> = space AND
<fs_pvari> = space AND
<fs_pcomm> = space AND
p_r_togl+wk_beflast_line(1) = ' ' AND
p_v_togl+wk_beflast_line(1) = ' ' AND
p_i_togl+wk_beflast_line(1) = ' '.
SUBTRACT 1 FROM wk_last_line.
SUBTRACT 1 FROM wk_beflast_line.
CONTINUE.
ENDIF.
MOVE <fs_prepid> TO <fs_repid>. CLEAR <fs_prepid>.
MOVE <fs_pvari> TO <fs_vari>. CLEAR <fs_pvari>.
MOVE <fs_pcomm> TO <fs_comm>. CLEAR <fs_pcomm>.
MOVE p_r_togl+wk_beflast_line(1) TO p_r_togl+wk_last_line(1).
CLEAR p_r_togl+wk_beflast_line(1).
MOVE p_v_togl+wk_beflast_line(1) TO p_v_togl+wk_last_line(1).
CLEAR p_v_togl+wk_beflast_line(1).
MOVE p_i_togl+wk_beflast_line(1) TO p_i_togl+wk_last_line(1).
CLEAR p_i_togl+wk_beflast_line(1).
wk_successful = 'X'.
SUBTRACT 1 FROM wk_last_line.
SUBTRACT 1 FROM wk_beflast_line.
ENDDO.
ENDFORM.
*======================================================================
FORM delete_line.
*======================================================================
DATA: wk_curr_line(3) TYPE n,
wk_last_line(3) TYPE n VALUE 99,
wk_next_line(3) TYPE n VALUE 1,
wk_beflast_line(3) TYPE n VALUE 98,
wk_do_line(3) TYPE n,
wk_insert_possible,
wk_successful.
FIELD-SYMBOLS: <fs_repid>, <fs_vari>, <fs_cond>, <fs_date>,
<fs_fromu>, <fs_comm>,
<fs_prepid>, <fs_pvari>, <fs_pcond>, <fs_pdate>,
<fs_pfromu>, <fs_pcomm>,
<fs_nrepid>, <fs_nvari>, <fs_ncond>, <fs_ndate>,
<fs_nfromu>, <fs_ncomm>.
DATA: fn_repid(8), " like trdir-name,
fn_vari(8), " like varid-variant,
fn_cond(8),
fn_date LIKE sy-datum,
fn_fromu(8),
fn_comm(8),
fn_prepid(8), " like trdir-name,
fn_pvari(8), " like varid-variant,
fn_pcond(8),
fn_pdate LIKE sy-datum,
fn_pfromu(8),
fn_pcomm(8),
fn_nrepid(8), " like trdir-name,
fn_nvari(8), " like varid-variant,
fn_ncond(8),
fn_ndate LIKE sy-datum,
fn_nfromu(8),
fn_ncomm(8).
GET CURSOR FIELD wk_cursor_field VALUE wk_field_content.
IF wk_cursor_field(2) <> 'P_'.
MESSAGE 'Position your cursor on a STEP line!'
TYPE 'E'.
ENDIF.
wk_curr_line = wk_cursor_field+5.
DO 99 TIMES.
ADD 1 TO wk_do_line.
ADD 1 TO wk_next_line.
IF wk_do_line < wk_curr_line.
CONTINUE.
ENDIF.
IF wk_next_line < 100.
fn_repid = 'P_R_S'. fn_repid+5 = wk_next_line.
ASSIGN (fn_repid) TO <fs_repid>.
fn_vari = 'P_V_S'. fn_vari+5 = wk_next_line.
ASSIGN (fn_vari) TO <fs_vari>.
fn_comm = 'P_I_S'. fn_comm+5 = wk_next_line.
ASSIGN (fn_comm) TO <fs_comm>.
ENDIF.
fn_prepid = 'P_R_S'. fn_prepid+5 = wk_do_line.
ASSIGN (fn_prepid) TO <fs_prepid>.
fn_pvari = 'P_V_S'. fn_pvari+5 = wk_do_line.
ASSIGN (fn_pvari) TO <fs_pvari>.
fn_pcomm = 'P_I_S'. fn_pcomm+5 = wk_do_line.
ASSIGN (fn_pcomm) TO <fs_pcomm>.
IF wk_do_line < 99.
MOVE <fs_repid> TO <fs_prepid>.
MOVE <fs_vari> TO <fs_pvari>.
MOVE <fs_comm> TO <fs_pcomm>.
MOVE p_r_togl+wk_next_line(1) TO p_r_togl+wk_do_line(1).
CLEAR p_r_togl+wk_next_line(1).
MOVE p_v_togl+wk_next_line(1) TO p_v_togl+wk_do_line(1).
CLEAR p_v_togl+wk_next_line(1).
MOVE p_i_togl+wk_next_line(1) TO p_i_togl+wk_do_line(1).
CLEAR p_i_togl+wk_next_line(1).
ENDIF.
IF wk_next_line = 99.
CLEAR <fs_repid>.
CLEAR <fs_vari>.
CLEAR <fs_comm>.
ENDIF.
wk_successful = 'X'.
ENDDO.
ENDFORM.
*======================================================================
FORM clear_screen.
*======================================================================
FIELD-SYMBOLS: <fs_clr_screen>.
LOOP AT SCREEN.
CHECK screen-name(4) <> 'TEXT'.
CHECK screen-invisible = 0.
CHECK screen-active = 1.
CHECK screen-group1(2) <> 'PB'.
ASSIGN (screen-name) TO <fs_clr_screen>.
CHECK <fs_clr_screen> <> space.
CLEAR <fs_clr_screen>.
ENDLOOP.
ENDFORM.
SAP Berater & Entwickler bei Inwerken AG
Moin Moin! Ich heiße Enno und bin der Erfinder, Redakteur und Trickser im Tricktresor. Die Artikel im Tricktresor sollen Euch das Leben einfacher machen und dienen mir als Gedächtnisstütze. Denn an vieles, was ich einmal heraus gefunden habe, kann ich mich später nicht mehr erinnern und suche erneut. Dagegen hilft der Tricktresor. Viel Spaß!
Letzte Artikel von Enno Wulff (Alle anzeigen)
- Interview mit Björn Schulz (Software-Heroes.com) - 3. September 2024
- Daten aus ALV ermitteln - 3. September 2024
- So lange es den SAPGUI noch gibt… - 27. Juni 2024
