在Module Pool 类型的程序中创建变式

在Module Pool 类型的程序中变式的作用和report程序中的Selection Screens变式作用相同

1、se38 创建一个Module Pool类型的程序

1. PROGRAM  ydamon_091.
   
2. TABLES: mara.
   
3. DATA: ok_code TYPE sy-ucomm,
   
4.        g_variant1 TYPE rsvar-variant,
   
5.        g_user_vari TYPE rsvar-variant,
   
6.        g_vari_report TYPE rsvar-report,
   
7.        g_sel_var TYPE rsvar-variant,
   
8.        g_sel_vartxt TYPE rsvar-vtext,
   
9.        g_report TYPE rsvar-report,
   
10.        g_varexists TYPE c.
    
11. 
    
12. SELECTION-SCREEN BEGIN OF SCREEN 901 AS SUBSCREEN.
    
13. SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-001. "Input
    
14. SELECT-OPTIONS: s_matnr FOR mara-matnr. "Material Number
    
15. SELECTION-SCREEN SKIP.
    
16. PARAMETERS: p_rec TYPE char4 DEFAULT '1000'. "Max. No. of Records
    
17. SELECTION-SCREEN END OF BLOCK b1.
    
18. SELECTION-SCREEN END OF SCREEN 901.
    
19. 
    
20. SELECTION-SCREEN BEGIN OF SCREEN 902 AS SUBSCREEN.
    
21. SELECTION-SCREEN BEGIN OF BLOCK b2 WITH FRAME TITLE text-001.
    
22. PARAMETERS: p_name TYPE rsvar-variant, p_mean TYPE rsvar-vtext.
    
23. SELECTION-SCREEN END OF BLOCK b2.
    
24. SELECTION-SCREEN END OF SCREEN 902.
    
25. *&---------------------------------------------------------------------*
    
26. *&      Module  STATUS_9000  OUTPUT
    
27. *&---------------------------------------------------------------------*
    
28. *       text
    
29. *----------------------------------------------------------------------*
    
30. MODULE status_9000 OUTPUT.
    
31.   SET PF-STATUS 'ZGUI_9000'.
    
32.   SET TITLEBAR 'ZTITLE_900'.
    
33. 
    
34. ENDMODULE.                 " STATUS_9000  OUTPUT
    
35. *&---------------------------------------------------------------------*
    
36. *&      Module  USER_COMMAND_9000  INPUT
    
37. *&---------------------------------------------------------------------*
    
38. *       text
    
39. *----------------------------------------------------------------------*
    
40. MODULE user_command_9000 INPUT.
    
41.   CLEAR ok_code.
    
42.   ok_code = sy-ucomm.
    
43.   CASE ok_code.
    
44.     WHEN 'SAVE'.
    
45.       CLEAR: p_name, p_mean.
    
46.       CALL SCREEN 9001 STARTING AT 10 5.
    
47.     WHEN 'VARIANT'.
    
48.       PERFORM load_variant.
    
49.       IF sy-ucomm EQ 'CANC'.
    
50.         MESSAGE 'Variant operation terminated' TYPE 'S' DISPLAY LIKE 'E'.
    
51.       ELSE.
    
52.         MESSAGE 'Variant selected' TYPE 'S'.
    
53.       ENDIF.
    
54.       CALL SCREEN 9000.
    
55.     WHEN OTHERS.
    
56.       LEAVE TO SCREEN 0.
    
57.   ENDCASE.
    
58. ENDMODULE.                 " USER_COMMAND_9000  INPUT
    
59. *&---------------------------------------------------------------------*
    
60. *&      Module  STATUS_9001  OUTPUT
    
61. *&---------------------------------------------------------------------*
    
62. *       text
    
63. *----------------------------------------------------------------------*
    
64. MODULE status_9001 OUTPUT.
    
65.   SET PF-STATUS 'ZGUI_9001'.
    
66. *  SET TITLEBAR 'xxx'.
    
67. 
    
68. ENDMODULE.                 " STATUS_9001  OUTPUT
    
69. *&---------------------------------------------------------------------*
    
70. *&      Module  USER_COMMAND_9001  INPUT
    
71. *&---------------------------------------------------------------------*
    
72. *       text
    
73. *----------------------------------------------------------------------*
    
74. MODULE user_command_9001 INPUT.
    
75.   IF NOT p_name IS INITIAL.
    
76.     ok_code = 'OK'.
    
77.   ELSE.
    
78.     ok_code = 'CANCEL'.
    
79.   ENDIF.
    
80.   CASE ok_code.
    
81.     WHEN 'OK'.
    
82.       IF NOT p_name IS INITIAL.
    
83.         PERFORM save_variant.
    
84.         MESSAGE 'Variant has been saved' TYPE 'S'.
    
85.       ENDIF.
    
86.     WHEN 'CANCEL'.
    
87.       MESSAGE '"Variant Not saved.' TYPE 'S' DISPLAY LIKE 'E'.
    
88.   ENDCASE.
    
89.   CALL SCREEN 9000.
    
90. ENDMODULE.                 " USER_COMMAND_9001  INPUT
    
91. 
    
92. *&---------------------------------------------------------------------*
    
93. *&  Form  SAVE_VARIANT
    
94. *&---------------------------------------------------------------------*
    
95. *  Routine to Save the variant
    
96. *----------------------------------------------------------------------*
    
97. FORM save_variant .
    
98.   DATA: BEGIN OF rsparams_tab OCCURS 10.
    
99.           INCLUDE STRUCTURE rsparams.
    
100.   DATA: END OF rsparams_tab.
     
101.   DATA: BEGIN OF varid_tab.
     
102.           INCLUDE STRUCTURE varid.
     
103.   DATA: END OF varid_tab.
     
104.   DATA: BEGIN OF varit_tab OCCURS 2.
     
105.           INCLUDE STRUCTURE varit.
     
106.   DATA: END OF varit_tab.
     
107.   DATA: rc  TYPE syst-subrc.
     
108. * Tabellen initialisieren
     
109.   CLEAR: varid_tab.
     
110.   REFRESH varit_tab.
     
111.   REFRESH rsparams_tab.
     
112. *fill VARID structure - variant description
     
113.   varid_tab-report  = 'YDAMON_091'.  "当前程序名称
     
114.   varid_tab-variant = p_name.
     
115.   varid_tab-environmnt   = 'A'.
     
116.   varit_tab-mandt   = sy-mandt.
     
117.   varit_tab-langu   = sy-langu.
     
118.   varit_tab-report  = varid_tab-report.
     
119.   varit_tab-variant = varid_tab-variant.
     
120.   varit_tab-vtext   = p_mean.
     
121.   APPEND varit_tab.
     
122. *fill RSPARAMS structure - Selektionswerte; variant contents
     
123.   LOOP AT s_matnr.
     
124.     rsparams_tab-selname = 'S_MATNR'.
     
125.     rsparams_tab-kind    = 'S'.
     
126.     rsparams_tab-sign    = s_matnr-sign.
     
127.     rsparams_tab-option  = s_matnr-option.
     
128.     rsparams_tab-low     = s_matnr-low.
     
129.     rsparams_tab-high    = s_matnr-high.
     
130.     APPEND rsparams_tab.
     
131.   ENDLOOP.
     
132. 
     
133.   rsparams_tab-selname = 'P_REC'.
     
134.   rsparams_tab-kind  = 'P'.
     
135.   rsparams_tab-sign  = 'I'.
     
136.   rsparams_tab-option  = 'EQ'.
     
137.   rsparams_tab-low  = p_rec.
     
138.   rsparams_tab-high  = ' '.
     
139.   APPEND rsparams_tab.
     
140. *Check variant
     
141.   CALL FUNCTION 'RS_VARIANT_EXISTS'
     
142.     EXPORTING
     
143.       report              = varid_tab-report
     
144.       variant             = varid_tab-variant
     
145.     IMPORTING
     
146.       r_c                 = rc
     
147.     EXCEPTIONS
     
148.       not_authorized      = 01
     
149.       no_report           = 02
     
150.       report_not_existent = 03
     
151.       report_not_supplied = 04.
     
152. 
     
153.   IF sy-subrc <> 0.
     
154.     MESSAGE e001(vl) DISPLAY LIKE 'S' WITH text-e22 .
     
155.   ENDIF.
     
156. 
     
157.   IF rc = 0.                    " Variante existiert
     
158.     CALL FUNCTION 'RS_CHANGE_CREATED_VARIANT'
     
159.       EXPORTING
     
160.         curr_report               = varid_tab-report
     
161.         curr_variant              = varid_tab-variant
     
162.         vari_desc                 = varid_tab
     
163.       TABLES
     
164.         vari_contents             = rsparams_tab
     
165.         vari_text                 = varit_tab
     
166.       EXCEPTIONS
     
167.         illegal_report_or_variant = 01
     
168.         illegal_variantname       = 02
     
169.         not_authorized            = 03
     
170.         not_executed              = 04
     
171.         report_not_existent       = 05
     
172.         report_not_supplied       = 06
     
173.         variant_doesnt_exist      = 07
     
174.         variant_locked            = 08
     
175.         selections_no_match       = 09.
     
176.   ELSE.
     
177.     CALL FUNCTION 'RS_CREATE_VARIANT'
     
178.       EXPORTING
     
179.         curr_report               = varid_tab-report
     
180.         curr_variant              = varid_tab-variant
     
181.         vari_desc                 = varid_tab
     
182.       TABLES
     
183.         vari_contents             = rsparams_tab
     
184.         vari_text                 = varit_tab
     
185.       EXCEPTIONS
     
186.         illegal_report_or_variant = 01
     
187.         illegal_variantname       = 02
     
188.         not_authorized            = 03
     
189.         not_executed              = 04
     
190.         report_not_existent       = 05
     
191.         report_not_supplied       = 06
     
192.         variant_exists            = 07
     
193.         variant_locked            = 08.
     
194.   ENDIF.
     
195.   rc = sy-subrc.
     
196. ENDFORM.           " SAVE_VARIANT
     
197. 
     
198. *&---------------------------------------------------------------------*
     
199. *&      Form  LOAD_VARIANT
     
200. *&---------------------------------------------------------------------*
     
201. *       加载选中的变式
     
202. *----------------------------------------------------------------------*
     
203. FORM load_variant .
     
204.   PERFORM choose_variant CHANGING g_sel_var.
     
205.   IF g_sel_var NE space.
     
206.     CALL FUNCTION 'RS_SUPPORT_SELECTIONS'
     
207.       EXPORTING
     
208.         report               = sy-repid
     
209.         variant              = g_sel_var
     
210.       EXCEPTIONS
     
211.         variant_not_existent = 1
     
212.         variant_obsolete     = 2
     
213.         OTHERS               = 3.
     
214.   ENDIF.
     
215. ENDFORM.                    " LOAD_VARIANT
     
216. 
     
217. *&---------------------------------------------------------------------*
     
218. *&      Form  CHOOSE_VARIANT
     
219. *&---------------------------------------------------------------------*
     
220. *       弹出变式列表对话框
     
221. *----------------------------------------------------------------------*
     
222. *      -->FP_SEL_VAR text
     
223. *----------------------------------------------------------------------*
     
224. FORM choose_variant  CHANGING fp_sel_var.
     
225.   CALL FUNCTION 'RS_VARIANT_CATALOG'
     
226.     EXPORTING
     
227.       report               = sy-repid
     
228.       masked               = 'X'
     
229.     IMPORTING
     
230.       sel_variant          = fp_sel_var
     
231.       sel_variant_text     = g_sel_vartxt
     
232.     EXCEPTIONS
     
233.       no_report            = 1
     
234.       report_not_existent  = 2
     
235.       report_not_supplied  = 3
     
236.       no_variants          = 4
     
237.       no_variant_selected  = 5
     
238.       variant_not_existent = 6
     
239.       OTHERS               = 7.
     
240. ENDFORM.                    " CHOOSE_VARIANT

复制代码

2、创建normal screen 9000

定义ok_code&创建子屏幕区域SUB1

定义逻辑流

1. PROCESS BEFORE OUTPUT.
   
2. MODULE STATUS_9000.
   
3. CALL SUBSCREEN SUB1 INCLUDING SY-REPID '901'.
   
4. *
   
5. PROCESS AFTER INPUT.
   
6. CALL SUBSCREEN SUB1.
   
7. MODULE USER_COMMAND_9000.

复制代码

定义GUI状态

3、创建Dialog screen 9001

定义ok_code&创建子屏幕区域SUB2
定义逻辑流

1. PROCESS BEFORE OUTPUT.
   
2. MODULE STATUS_9001.
   
3. CALL SUBSCREEN SUB2 INCLUDING SY-REPID '902'.
   
4. *
   
5. PROCESS AFTER INPUT.
   
6. CALL SUBSCREEN SUB2.
   
7. MODULE USER_COMMAND_9001.

复制代码

定义GUI状态


4、定义T-code（se93），Module Pool 类型的程序不能直接执行，需要T-code执行


5、执行程序，测试