Properties SourceCde
txt 
1
*&---------------------------------------------------------------------*
2
*&  Include           ZSOFTCOPY_GUI                                    *
3
*&                                                                     *
4
*&---------------------------------------------------------------------*
5
*&                                                                     *
6
*& This file is part of ZSOFTCOPY.                                     *
7
*&                                                                     *
8
*& ZSOFTCOPY is free software: you can redistribute it and/or modify   *
9
*& it under the terms of the GNU General Public License as published   *
10
*& by the Free Software Foundation, either version 3 of the License,   *
11
*& or any later version.                                               *
12
*&                                                                     *
13
*& ZSOFTCOPY is distributed in the hope that it will be useful,        *
14
*& but WITHOUT ANY WARRANTY; without even the implied warranty of      *
15
*& MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the       *
16
*& GNU General Public License for more details.                        *
17
*&                                                                     *
18
*& You should have received a copy of the GNU General Public License   *
19
*& along with ZDOWNLOAD. If not, see <http://www.gnu.org/licenses/>.   *
20
*&                                                                     *
21
*&---------------------------------------------------------------------*
22
*&                                                                     *
23
*&  Author:     Ruediger von Creytz     ruediger.creytz@globalbit.net  *
24
*&  Copyright:  globalBIT, LLC          http://www.globalbit.net       *
25
*&                                                                     *
26
*&---------------------------------------------------------------------*
27
 
28
 
29
*-----------------------------------------------------------------------
30
*  Selection screen declaration
31
*-----------------------------------------------------------------------
32
SELECTION-SCREEN FUNCTION KEY 1.
33
SELECTION-SCREEN FUNCTION KEY 2.
34
SELECTION-SCREEN FUNCTION KEY 3.
35
 
36
*-----------------------------------------------------------------------
37
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE t_choice.
38
* Package
39
SELECTION-SCREEN BEGIN OF LINE.
40
SELECTION-SCREEN COMMENT 1(22) t_pack.
41
SELECT-OPTIONS p_devcl FOR tdevc-devclass.
42
SELECTION-SCREEN END OF LINE.
43
* Folder
44
SELECTION-SCREEN BEGIN OF LINE.
45
SELECTION-SCREEN COMMENT 1(25) t_path.
46
PARAMETERS p_folder TYPE rlgrap-filename MEMORY ID mfolder.
47
SELECTION-SCREEN END OF LINE.
48
SELECTION-SCREEN END OF BLOCK b1.
49
 
50
*-----------------------------------------------------------------------
51
SELECTION-SCREEN BEGIN OF BLOCK b2 WITH FRAME TITLE t_opts.
52
* Add SourceCode
53
SELECTION-SCREEN BEGIN OF LINE.
54
SELECTION-SCREEN COMMENT 1(25) t_add_sc.
55
PARAMETERS p_add_sc AS CHECKBOX DEFAULT abap_true.
56
SELECTION-SCREEN END OF LINE.
57
* Empty Tab: display|disabled|hidden
58
SELECTION-SCREEN ULINE.
59
SELECTION-SCREEN BEGIN OF LINE.
60
SELECTION-SCREEN COMMENT 1(25) t_etab.
61
PARAMETERS p_etab_n RADIOBUTTON GROUP etab.
62
SELECTION-SCREEN COMMENT 34(10) t_etab_n FOR FIELD p_etab_n.
63
PARAMETERS p_etab_d RADIOBUTTON GROUP etab DEFAULT 'X'.
64
SELECTION-SCREEN COMMENT 49(10) t_etab_d FOR FIELD p_etab_d.
65
PARAMETERS p_etab_h RADIOBUTTON GROUP etab.
66
SELECTION-SCREEN COMMENT 64(10) t_etab_h FOR FIELD p_etab_h.
67
SELECTION-SCREEN END OF LINE.
68
* database content
69
SELECTION-SCREEN ULINE.
70
SELECTION-SCREEN BEGIN OF LINE.
71
SELECTION-SCREEN COMMENT 1(25) t_dbcont.
72
PARAMETERS p_dbcont AS CHECKBOX DEFAULT abap_true
73
  MODIF ID dis
74
  USER-COMMAND u_dbcont.
75
SELECTION-SCREEN END OF LINE.
76
SELECTION-SCREEN BEGIN OF LINE.
77
SELECTION-SCREEN COMMENT 6(20) t_dbform.
78
PARAMETERS p_db_csv AS CHECKBOX DEFAULT abap_true.
79
SELECTION-SCREEN COMMENT 29(15) t_db_csv.
80
PARAMETERS p_db_xml AS CHECKBOX DEFAULT abap_false.
81
SELECTION-SCREEN COMMENT 47(15) t_db_xml.
82
SELECTION-SCREEN END OF LINE.
83
SELECTION-SCREEN BEGIN OF LINE.
84
SELECTION-SCREEN COMMENT 6(20) t_dbmax.
85
PARAMETERS p_dbmax TYPE i DEFAULT 2000.
86
SELECTION-SCREEN END OF LINE.
87
SELECTION-SCREEN BEGIN OF LINE.
88
SELECTION-SCREEN COMMENT 6(17) t_dblim.
89
SELECT-OPTIONS p_dblim FOR dd02l-tabname.
90
SELECTION-SCREEN END OF LINE.
91
SELECTION-SCREEN BEGIN OF LINE.
92
SELECTION-SCREEN COMMENT 6(20) t_dbcls.
93
PARAMETERS p_dbclsa AS CHECKBOX DEFAULT abap_true.
94
SELECTION-SCREEN COMMENT 29(4) t_dbclsa.
95
PARAMETERS p_dbclsc AS CHECKBOX DEFAULT abap_true.
96
SELECTION-SCREEN COMMENT 36(4) t_dbclsc.
97
PARAMETERS p_dbclse AS CHECKBOX DEFAULT abap_true.
98
SELECTION-SCREEN COMMENT 43(4) t_dbclse.
99
PARAMETERS p_dbclsg AS CHECKBOX DEFAULT abap_true.
100
SELECTION-SCREEN COMMENT 50(4) t_dbclsg.
101
PARAMETERS p_dbclsl AS CHECKBOX DEFAULT abap_true.
102
SELECTION-SCREEN COMMENT 57(4) t_dbclsl.
103
PARAMETERS p_dbclss AS CHECKBOX DEFAULT abap_true.
104
SELECTION-SCREEN COMMENT 64(4) t_dbclss.
105
PARAMETERS p_dbclsw AS CHECKBOX DEFAULT abap_true.
106
SELECTION-SCREEN COMMENT 71(4) t_dbclsw.
107
SELECTION-SCREEN PUSHBUTTON 78(4) b_dbcls USER-COMMAND b_dbcls.
108
SELECTION-SCREEN END OF LINE.
109
* variants of reports
110
SELECTION-SCREEN ULINE.
111
SELECTION-SCREEN BEGIN OF LINE.
112
SELECTION-SCREEN COMMENT 1(25) t_add_rv.
113
PARAMETERS p_add_rv AS CHECKBOX DEFAULT abap_true.
114
SELECTION-SCREEN END OF LINE.
115
SELECTION-SCREEN END OF BLOCK b2.
116
 
117
*-----------------------------------------------------------------------
118
SELECTION-SCREEN: BEGIN OF BLOCK b3 WITH FRAME TITLE t_elems.
119
SELECTION-SCREEN BEGIN OF LINE.
120
* Dictionary Objects
121
PARAMETERS p_ddic AS CHECKBOX DEFAULT abap_true
122
  MODIF ID dis
123
  USER-COMMAND u_ddic.
124
SELECTION-SCREEN COMMENT 5(39) t_ddic.
125
* Transactions
126
PARAMETERS p_tran AS CHECKBOX DEFAULT abap_true.
127
SELECTION-SCREEN COMMENT 49(39) t_tran.
128
* ---
129
SELECTION-SCREEN END OF LINE.
130
SELECTION-SCREEN BEGIN OF LINE.
131
* Dictionary Objects - Database Tables
132
SELECTION-SCREEN POSITION 6.
133
PARAMETERS p_tabl AS CHECKBOX DEFAULT abap_true.
134
SELECTION-SCREEN COMMENT 10(34) t_tabl.
135
* Message Classes
136
PARAMETERS p_msag AS CHECKBOX DEFAULT abap_true.
137
SELECTION-SCREEN COMMENT 49(39) t_msag.
138
* ---
139
SELECTION-SCREEN END OF LINE.
140
SELECTION-SCREEN BEGIN OF LINE.
141
* Dictionary Objects - Views
142
SELECTION-SCREEN POSITION 6.
143
PARAMETERS p_view AS CHECKBOX DEFAULT abap_true.
144
SELECTION-SCREEN COMMENT 10(34) t_view.
145
* SET/GET Parameters
146
PARAMETERS p_para AS CHECKBOX DEFAULT abap_true.
147
SELECTION-SCREEN COMMENT 49(39) t_para.
148
* ---
149
SELECTION-SCREEN END OF LINE.
150
SELECTION-SCREEN BEGIN OF LINE.
151
* Dictionary Objects - Table Types
152
SELECTION-SCREEN POSITION 6.
153
PARAMETERS p_ttyp AS CHECKBOX DEFAULT abap_true.
154
SELECTION-SCREEN COMMENT 10(34) t_ttyp.
155
* Authorization Object
156
PARAMETERS p_tobj AS CHECKBOX DEFAULT abap_true.
157
SELECTION-SCREEN COMMENT 49(39) t_tobj.
158
* ---
159
SELECTION-SCREEN END OF LINE.
160
SELECTION-SCREEN BEGIN OF LINE.
161
* Dictionary Objects - Structures
162
SELECTION-SCREEN POSITION 6.
163
PARAMETERS p_struc AS CHECKBOX DEFAULT abap_true.
164
SELECTION-SCREEN COMMENT 10(34) t_struc.
165
* Transformations
166
PARAMETERS p_xslt AS CHECKBOX DEFAULT abap_true.
167
SELECTION-SCREEN COMMENT 49(39) t_xslt.
168
* ---
169
SELECTION-SCREEN END OF LINE.
170
SELECTION-SCREEN BEGIN OF LINE.
171
* Dictionary Objects - Data Elements
172
SELECTION-SCREEN POSITION 6.
173
PARAMETERS p_dtel AS CHECKBOX DEFAULT abap_true.
174
SELECTION-SCREEN COMMENT 10(34) t_dtel.
175
* BSP Library
176
PARAMETERS p_bsplib AS CHECKBOX DEFAULT abap_true
177
  MODIF ID dis
178
  USER-COMMAND u_bsplib.
179
SELECTION-SCREEN COMMENT 49(39) t_bsplib.
180
* ---
181
SELECTION-SCREEN END OF LINE.
182
SELECTION-SCREEN BEGIN OF LINE.
183
* Dictionary Objects - Domains
184
SELECTION-SCREEN POSITION 6.
185
PARAMETERS p_doma AS CHECKBOX DEFAULT abap_true.
186
SELECTION-SCREEN COMMENT 10(34) t_doma.
187
* BSP Library - BSP Applications
188
SELECTION-SCREEN POSITION 50.
189
PARAMETERS p_bspapp AS CHECKBOX DEFAULT abap_true
190
  MODIF ID dis
191
  USER-COMMAND u_bspapp.
192
SELECTION-SCREEN COMMENT 54(34) t_bspapp.
193
* ---
194
SELECTION-SCREEN END OF LINE.
195
SELECTION-SCREEN BEGIN OF LINE.
196
* Dictionary Objects - Search Helps
197
SELECTION-SCREEN POSITION 6.
198
PARAMETERS p_shlp AS CHECKBOX DEFAULT abap_true.
199
SELECTION-SCREEN COMMENT 10(34) t_shlp.
200
* BSP Library - BSP Applications - Controller
201
SELECTION-SCREEN POSITION 55.
202
PARAMETERS p_wctrl AS CHECKBOX DEFAULT abap_true.
203
SELECTION-SCREEN COMMENT 59(29) t_wctrl.
204
* ---
205
SELECTION-SCREEN END OF LINE.
206
SELECTION-SCREEN BEGIN OF LINE.
207
* Dictionary Objects - Lock Objects
208
SELECTION-SCREEN POSITION 6.
209
PARAMETERS p_enqu AS CHECKBOX DEFAULT abap_true.
210
SELECTION-SCREEN COMMENT 10(34) t_enqu.
211
* BSP Library - BSP Applications - Views
212
SELECTION-SCREEN POSITION 55.
213
PARAMETERS p_wview AS CHECKBOX DEFAULT abap_true.
214
SELECTION-SCREEN COMMENT 59(29) t_wview.
215
* ---
216
SELECTION-SCREEN END OF LINE.
217
SELECTION-SCREEN BEGIN OF LINE.
218
* Dictionary Objects - Type Groups
219
SELECTION-SCREEN POSITION 6.
220
PARAMETERS p_type AS CHECKBOX DEFAULT abap_true.
221
SELECTION-SCREEN COMMENT 10(34) t_type.
222
* BSP Library - BSP Applications - Pages with Flow Logic
223
SELECTION-SCREEN POSITION 55.
224
PARAMETERS p_wbsp AS CHECKBOX DEFAULT abap_true.
225
SELECTION-SCREEN COMMENT 59(29) t_wbsp.
226
* ---
227
SELECTION-SCREEN END OF LINE.
228
SELECTION-SCREEN BEGIN OF LINE.
229
* Class Library
230
PARAMETERS p_clslib AS CHECKBOX DEFAULT abap_true
231
  MODIF ID dis
232
  USER-COMMAND u_clslib.
233
SELECTION-SCREEN COMMENT 5(39) t_clslib.
234
* BSP Library - BSP Applications - Page Fragments
235
SELECTION-SCREEN POSITION 55.
236
PARAMETERS p_wincl AS CHECKBOX DEFAULT abap_true.
237
SELECTION-SCREEN COMMENT 59(29) t_wincl.
238
 
239
* ---
240
SELECTION-SCREEN END OF LINE.
241
SELECTION-SCREEN BEGIN OF LINE.
242
* Class Library - Classes
243
SELECTION-SCREEN POSITION 6.
244
PARAMETERS p_clas AS CHECKBOX DEFAULT abap_true.
245
SELECTION-SCREEN COMMENT 10(34) t_clas.
246
* BSP Library - BSP Applications - MIMEs
247
SELECTION-SCREEN POSITION 55.
248
PARAMETERS p_wmime AS CHECKBOX DEFAULT abap_true.
249
SELECTION-SCREEN COMMENT 59(29) t_wmime.
250
 
251
* ---
252
SELECTION-SCREEN END OF LINE.
253
SELECTION-SCREEN BEGIN OF LINE.
254
* Class Library - Interfaces
255
SELECTION-SCREEN POSITION 6.
256
PARAMETERS p_intf AS CHECKBOX DEFAULT abap_true.
257
SELECTION-SCREEN COMMENT 10(34) t_intf.
258
* BSP Library - BSP Extensions
259
SELECTION-SCREEN POSITION 50.
260
PARAMETERS p_bsptag AS CHECKBOX DEFAULT abap_true.
261
SELECTION-SCREEN COMMENT 54(34) t_bsptag.
262
* ---
263
SELECTION-SCREEN END OF LINE.
264
SELECTION-SCREEN BEGIN OF LINE.
265
* Programs
266
PARAMETERS p_prog AS CHECKBOX DEFAULT abap_true.
267
SELECTION-SCREEN COMMENT 5(39) t_prog.
268
* ---
269
SELECTION-SCREEN END OF LINE.
270
SELECTION-SCREEN BEGIN OF LINE.
271
* Function Groups
272
PARAMETERS p_fugr AS CHECKBOX DEFAULT abap_true
273
  MODIF ID dis
274
  USER-COMMAND u_fugr.
275
SELECTION-SCREEN COMMENT 5(39) t_fugr.
276
* ---
277
SELECTION-SCREEN END OF LINE.
278
SELECTION-SCREEN BEGIN OF LINE.
279
* Function Groups - Function Modules
280
SELECTION-SCREEN POSITION 6.
281
PARAMETERS p_fuba AS CHECKBOX DEFAULT abap_true.
282
SELECTION-SCREEN COMMENT 10(34) t_fuba.
283
* ---
284
SELECTION-SCREEN END OF LINE.
285
SELECTION-SCREEN BEGIN OF LINE.
286
* Function Groups - Screens
287
SELECTION-SCREEN POSITION 6.
288
PARAMETERS p_scr AS CHECKBOX DEFAULT abap_true.
289
SELECTION-SCREEN COMMENT 10(34) t_scr.
290
* ---
291
SELECTION-SCREEN END OF LINE.
292
SELECTION-SCREEN BEGIN OF LINE.
293
* Function Groups - Includes
294
SELECTION-SCREEN POSITION 6.
295
PARAMETERS p_fuincl AS CHECKBOX DEFAULT abap_true.
296
SELECTION-SCREEN COMMENT 10(34) t_fuincl.
297
* ---
298
SELECTION-SCREEN END OF LINE.
299
SELECTION-SCREEN BEGIN OF LINE.
300
* Includes
301
PARAMETERS p_incl AS CHECKBOX DEFAULT abap_true.
302
SELECTION-SCREEN COMMENT 5(39) t_incl.
303
* ---
304
SELECTION-SCREEN END OF LINE.
305
SELECTION-SCREEN END OF BLOCK b3.
306
 
307
 
308
*-----------------------------------------------------------------------
309
* Display a directory picker window
310
*-----------------------------------------------------------------------
311
AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_folder.
312
 
313
  DATA:
314
  l_obj_file TYPE REF TO cl_gui_frontend_services,
315
  l_selected_folder TYPE string,
316
  l_initial_folder TYPE string,
317
  l_message TYPE string,
318
  l_txt TYPE string,
319
  l_subrc TYPE sysubrc.
320
 
321
  IF sy-batch IS INITIAL.
322
    PERFORM cl_gui_get_folder
323
      CHANGING
324
        l_selected_folder
325
        l_subrc.
326
 
327
    IF l_subrc = 0.
328
      p_folder = l_selected_folder.
329
    ELSE.
330
      PERFORM get_message_text USING 'EA' '334'
331
                                   p_folder space space space
332
                             CHANGING l_message.
333
      PERFORM decode_html_io
334
        USING txt_please_enter_a_root_dir
335
        CHANGING l_txt.
336
      WRITE: / l_message, / l_txt.
337
    ENDIF.
338
  ENDIF.
339
 
340
 
341
*-----------------------------------------------------------------------
342
* at selection-screen
343
*-----------------------------------------------------------------------
344
AT SELECTION-SCREEN.
345
 
346
  CASE sscrfields-ucomm.
347
    WHEN 'FC01'.
348
      p_bsplib = abap_true.
349
      p_bspapp = abap_true.
350
      p_wbsp = abap_true.
351
      p_wctrl = abap_true.
352
      p_wincl = abap_true.
353
      p_wmime = abap_true.
354
      p_wview = abap_true.
355
      p_bsptag = abap_true.
356
*
357
      p_clslib = abap_true.
358
      p_clas = abap_true.
359
      p_intf = abap_true.
360
*
361
      p_ddic = abap_true.
362
      p_doma = abap_true.
363
      p_dtel = abap_true.
364
      p_enqu = abap_true.
365
      p_shlp = abap_true.
366
      p_struc = abap_true.
367
      p_tabl = abap_true.
368
      p_ttyp = abap_true.
369
      p_type = abap_true.
370
      p_view = abap_true.
371
*
372
      p_fugr = abap_true.
373
      p_fuba = abap_true.
374
      p_fuincl = abap_true.
375
      p_scr = abap_true.
376
*
377
      p_incl = abap_true.
378
*
379
      p_msag = abap_true.
380
*
381
      p_para = abap_true.
382
*
383
      p_prog = abap_true.
384
*
385
      p_tobj = abap_true.
386
*
387
      p_tran = abap_true.
388
*
389
      p_xslt = abap_true.
390
    WHEN 'FC02'.
391
      p_bsplib = abap_false.
392
      p_bspapp = abap_false.
393
      p_wbsp = abap_false.
394
      p_wctrl = abap_false.
395
      p_wincl = abap_false.
396
      p_wmime = abap_false.
397
      p_wview = abap_false.
398
      p_bsptag = abap_false.
399
*
400
      p_clslib = abap_false.
401
      p_clas = abap_false.
402
      p_intf = abap_false.
403
 
404
      p_ddic = abap_false.
405
      p_doma = abap_false.
406
      p_dtel = abap_false.
407
      p_enqu = abap_false.
408
      p_shlp = abap_false.
409
      p_struc = abap_false.
410
      p_tabl = abap_false.
411
      p_ttyp = abap_false.
412
      p_type = abap_false.
413
      p_view = abap_false.
414
*
415
      p_fugr = abap_false.
416
      p_fuba = abap_false.
417
      p_fuincl = abap_false.
418
      p_scr = abap_false.
419
*
420
      p_incl = abap_false.
421
*
422
      p_msag = abap_false.
423
*
424
      p_para = abap_false.
425
*
426
      p_prog = abap_false.
427
*
428
      p_tobj = abap_false.
429
*
430
      p_tran = abap_false.
431
*
432
      p_xslt = abap_false.
433
    WHEN 'FC03'.
434
      PERFORM gui_info_page.
435
  ENDCASE.
436
*---------------------------
437
  CASE sy-ucomm.
438
    WHEN 'B_DBCLS'.
439
      PERFORM gui_info_dbcls.
440
    WHEN 'U_BSPAPP'.
441
      IF p_bspapp = abap_false.
442
        p_wbsp = abap_false.
443
        p_wctrl = abap_false.
444
        p_wincl = abap_false.
445
        p_wmime = abap_false.
446
        p_wview = abap_false.
447
      ELSE.
448
        p_wbsp = abap_true.
449
        p_wctrl = abap_true.
450
        p_wincl = abap_true.
451
        p_wmime = abap_true.
452
        p_wview = abap_true.
453
      ENDIF.
454
    WHEN 'U_BSPLIB'.
455
      IF p_bsplib = abap_false.
456
        p_bspapp = abap_false.
457
        p_bsptag = abap_false.
458
        p_wbsp = abap_false.
459
        p_wctrl = abap_false.
460
        p_wincl = abap_false.
461
        p_wmime = abap_false.
462
        p_wview = abap_false.
463
      ELSE.
464
        p_bspapp = abap_true.
465
        p_bsptag = abap_true.
466
        p_wbsp = abap_true.
467
        p_wctrl = abap_true.
468
        p_wincl = abap_true.
469
        p_wmime = abap_true.
470
        p_wview = abap_true.
471
      ENDIF.
472
    WHEN 'U_CLSLIB'.
473
      IF p_clslib = abap_false.
474
        p_clas = abap_false.
475
        p_intf = abap_false.
476
      ELSE.
477
        p_clas = abap_true.
478
        p_intf = abap_true.
479
      ENDIF.
480
    WHEN 'U_DBCONT'.
481
      IF p_dbcont = abap_false.
482
        p_db_csv = abap_false.
483
        p_db_xml = abap_false.
484
        p_dbclsa = abap_false.
485
        p_dbclsc = abap_false.
486
        p_dbclsl = abap_false.
487
        p_dbclsg = abap_false.
488
        p_dbclse = abap_false.
489
        p_dbclss = abap_false.
490
        p_dbclsw = abap_false.
491
      ELSE.
492
        p_db_csv = abap_true.
493
        p_db_xml = abap_true.
494
        p_dbclsa = abap_true.
495
        p_dbclsc = abap_true.
496
        p_dbclsl = abap_true.
497
        p_dbclsg = abap_true.
498
        p_dbclse = abap_true.
499
        p_dbclss = abap_true.
500
        p_dbclsw = abap_true.
501
      ENDIF.
502
    WHEN 'U_DDIC'.
503
      IF p_ddic = abap_false.
504
        p_doma = abap_false.
505
        p_dtel = abap_false.
506
        p_enqu = abap_false.
507
        p_shlp = abap_false.
508
        p_struc = abap_false.
509
        p_tabl = abap_false.
510
        p_ttyp = abap_false.
511
        p_type = abap_false.
512
        p_view = abap_false.
513
      ELSE.
514
        p_doma = abap_true.
515
        p_dtel = abap_true.
516
        p_enqu = abap_true.
517
        p_shlp = abap_true.
518
        p_struc = abap_true.
519
        p_tabl = abap_true.
520
        p_ttyp = abap_true.
521
        p_type = abap_true.
522
        p_view = abap_true.
523
      ENDIF.
524
    WHEN 'U_FUGR'.
525
      IF p_fugr = abap_false.
526
        p_fuba = abap_false.
527
        p_fuincl = abap_false.
528
        p_scr = abap_false.
529
      ELSE.
530
        p_fuba = abap_true.
531
        p_fuincl = abap_true.
532
        p_scr = abap_true.
533
      ENDIF.
534
  ENDCASE.
535
 
536
 
537
*-----------------------------------------------------------------------
538
*  at selection-screen OUTPUT
539
*-----------------------------------------------------------------------
540
AT SELECTION-SCREEN OUTPUT.
541
  LOOP AT SCREEN.
542
* BSP Library
543
    IF screen-name = 'P_BSPAPP'
544
    OR screen-name = 'P_BSPTAG'.
545
      IF p_bsplib = abap_false.
546
        screen-input = 0.
547
      ELSE.
548
        screen-input = 1.
549
      ENDIF.
550
      MODIFY SCREEN.
551
    ENDIF.
552
    IF screen-name = 'P_WBSP'
553
    OR screen-name = 'P_WCTRL'
554
    OR screen-name = 'P_WINCL'
555
    OR screen-name = 'P_WMIME'
556
    OR screen-name = 'P_WVIEW'.
557
      IF p_bspapp = abap_false.
558
        screen-input = 0.
559
      ELSE.
560
        screen-input = 1.
561
      ENDIF.
562
      MODIFY SCREEN.
563
    ENDIF.
564
* Class Library
565
    IF screen-name = 'P_CLAS'
566
    OR screen-name = 'P_INTF'.
567
      IF p_clslib = abap_false.
568
        screen-input = 0.
569
      ELSE.
570
        screen-input = 1.
571
      ENDIF.
572
      MODIFY SCREEN.
573
    ENDIF.
574
* Dictionary Objects
575
    IF screen-name = 'P_DOMA'
576
    OR screen-name = 'P_DTEL'
577
    OR screen-name = 'P_ENQU'
578
    OR screen-name = 'P_SHLP'
579
    OR screen-name = 'P_STRUC'
580
    OR screen-name = 'P_TABL'
581
    OR screen-name = 'P_TTYP'
582
    OR screen-name = 'P_TYPE'
583
    OR screen-name = 'P_VIEW'.
584
      IF p_ddic = abap_false.
585
        screen-input = 0.
586
      ELSE.
587
        screen-input = 1.
588
      ENDIF.
589
      MODIFY SCREEN.
590
    ENDIF.
591
* Function Group
592
    IF screen-name = 'P_FUBA'
593
    OR screen-name = 'P_FUINCL'
594
    OR screen-name = 'P_SCR'.
595
      IF p_fugr = abap_false.
596
        screen-input = 0.
597
      ELSE.
598
        screen-input = 1.
599
      ENDIF.
600
      MODIFY SCREEN.
601
    ENDIF.
602
* database content
603
    IF screen-name = 'P_DB_CSV'
604
    OR screen-name = 'P_DB_XML'
605
    OR screen-name = 'P_DBCLSA'
606
    OR screen-name = 'P_DBCLSC'
607
    OR screen-name = 'P_DBCLSL'
608
    OR screen-name = 'P_DBCLSG'
609
    OR screen-name = 'P_DBCLSE'
610
    OR screen-name = 'P_DBCLSS'
611
    OR screen-name = 'P_DBCLSW'
612
    OR screen-name = 'P_DBMAX'
613
    OR screen-name = 'P_DBLIM-HIGH'
614
    OR screen-name = 'P_DBLIM-LOW'
615
    OR screen-name = '%_P_DBLIM_%_APP_%-VALU_PUSH'.
616
      IF p_dbcont = abap_false.
617
        screen-input = 0.
618
      ELSE.
619
        screen-input = 1.
620
      ENDIF.
621
      MODIFY SCREEN.
622
    ENDIF.
623
  ENDLOOP.
624
 
625
 
626
*-----------------------------------------------------------------------
627
*  Initialization
628
*-----------------------------------------------------------------------
629
INITIALIZATION.
630
* load...
631
  PERFORM csv_tools.
632
 
633
  DATA:
634
  lt_exclude TYPE TABLE OF sy-ucomm,
635
  ls_dyntxt TYPE smp_dyntxt,
636
  ls_fupararef TYPE fupararef,
637
  l_text TYPE string.
638
 
639
* Remove buttons
640
  APPEND 'DOCU' TO lt_exclude.
641
  CALL FUNCTION 'RS_SET_SELSCREEN_STATUS'
642
    EXPORTING
643
      p_status  = sy-pfkey
644
    TABLES
645
      p_exclude = lt_exclude
646
    EXCEPTIONS
647
      OTHERS    = 1.
648
 
649
* button "Select All"
650
  ls_dyntxt-icon_id = '@4B@'.
651
  ls_dyntxt-quickinfo = txt_select_all.
652
  sscrfields-functxt_01 = ls_dyntxt.
653
* button "Deselect All"
654
  ls_dyntxt-icon_id = '@4D@'.
655
  ls_dyntxt-quickinfo = txt_deselect_all.
656
  sscrfields-functxt_02 = ls_dyntxt.
657
* button "Information"
658
  ls_dyntxt-icon_id = '@0S@'.
659
  ls_dyntxt-quickinfo = txt_information.
660
  sscrfields-functxt_03 = ls_dyntxt.
661
 
662
  b_dbcls = '@0S@'.
663
 
664
  PERFORM decode_html_io USING txt_source_code      CHANGING t_add_sc.
665
  PERFORM decode_html_io USING txt_variants_of_reports
666
      CHANGING t_add_rv.
667
  PERFORM decode_html_io USING txt_bsp_applications CHANGING t_bspapp.
668
  PERFORM decode_html_io USING txt_bsp_library      CHANGING t_bsplib.
669
  PERFORM decode_html_io USING txt_bsp_extensions   CHANGING t_bsptag.
670
  PERFORM decode_html_io USING txt_selection        CHANGING t_choice.
671
  PERFORM decode_html_io USING txt_classes          CHANGING t_clas.
672
  PERFORM decode_html_io USING txt_class_library    CHANGING t_clslib.
673
  t_db_csv = gc_extension_csv.
674
  t_db_xml = gc_extension_xml.
675
  PERFORM decode_html_io USING txt_database_content CHANGING t_dbcont.
676
  PERFORM decode_html_io USING txt_format           CHANGING t_dbform.
677
  PERFORM decode_html_io USING txt_restrict         CHANGING t_dblim.
678
  PERFORM decode_html_io USING txt_max_no_of_lines  CHANGING t_dbmax.
679
  PERFORM decode_html_io USING txt_delivery_class   CHANGING t_dbcls.
680
  t_dbclsa = 'A'.
681
  t_dbclsc = 'C'.
682
  t_dbclsl = 'L'.
683
  t_dbclsg = 'G'.
684
  t_dbclse = 'E'.
685
  t_dbclss = 'S'.
686
  t_dbclsw = 'W'.
687
  PERFORM decode_html_io USING txt_dict_objs        CHANGING t_ddic.
688
  PERFORM decode_html_io USING txt_domains          CHANGING t_doma.
689
  PERFORM decode_html_io USING txt_data_elements    CHANGING t_dtel.
690
  PERFORM decode_html_io USING txt_objects          CHANGING t_elems.
691
  PERFORM decode_html_io USING txt_lock_objects     CHANGING t_enqu.
692
  PERFORM decode_html_io USING txt_empty_tab        CHANGING t_etab.
693
  PERFORM decode_html_io USING txt_disabled         CHANGING t_etab_d.
694
  PERFORM decode_html_io USING txt_hidden           CHANGING t_etab_h.
695
  PERFORM decode_html_io USING txt_display          CHANGING t_etab_n.
696
  PERFORM decode_html_io USING txt_function_modules CHANGING t_fuba.
697
  PERFORM decode_html_io USING txt_function_groups  CHANGING t_fugr.
698
  PERFORM decode_html_io USING txt_includes         CHANGING t_fuincl.
699
  PERFORM decode_html_io USING txt_includes         CHANGING t_incl.
700
  PERFORM decode_html_io USING txt_interfaces       CHANGING t_intf.
701
  PERFORM decode_html_io USING txt_message_classes  CHANGING t_msag.
702
  PERFORM decode_html_io USING txt_options          CHANGING t_opts.
703
  PERFORM decode_html_io USING txt_package          CHANGING t_pack.
704
  PERFORM decode_html_io USING txt_set_get_parameters
705
      CHANGING t_para.
706
  PERFORM decode_html_io USING txt_directory        CHANGING t_path.
707
  PERFORM decode_html_io USING txt_programs         CHANGING t_prog.
708
  PERFORM decode_html_io USING txt_screens          CHANGING t_scr.
709
  PERFORM decode_html_io USING txt_srch_helps       CHANGING t_shlp.
710
  PERFORM decode_html_io USING txt_structures       CHANGING t_struc.
711
  PERFORM decode_html_io USING txt_database_tables  CHANGING t_tabl.
712
  PERFORM decode_html_io USING txt_authorization_object___2
713
      CHANGING t_tobj.
714
  PERFORM decode_html_io USING txt_transactions     CHANGING t_tran.
715
  PERFORM decode_html_io USING txt_table_types      CHANGING t_ttyp.
716
  PERFORM decode_html_io USING txt_type_grps        CHANGING t_type.
717
  PERFORM decode_html_io USING txt_views            CHANGING t_view.
718
  PERFORM decode_html_io USING txt_pages_with_flow_logic
719
      CHANGING t_wbsp.
720
  PERFORM decode_html_io USING txt_controller       CHANGING t_wctrl.
721
  PERFORM decode_html_io USING txt_page_fragments   CHANGING t_wincl.
722
  PERFORM decode_html_io USING txt_mimes            CHANGING t_wmime.
723
  PERFORM decode_html_io USING txt_views            CHANGING t_wview.
724
  PERFORM decode_html_io USING txt_transformations  CHANGING t_xslt.
725
 
726
  SELECT SINGLE * FROM fupararef INTO ls_fupararef
727
    WHERE funcname = 'GUI_DOWNLOAD'
728
    AND r3state = 'A'
729
    AND parameter = 'SHOW_TRANSFER_STATUS'.
730
  IF sy-subrc = 0.
731
    g_has_download_status = abap_true.
732
  ENDIF.
733
 
734
 
735
*-----------------------------------------------------------------------
736
* start-of-selection
737
*-----------------------------------------------------------------------
738
START-OF-SELECTION.
739
  DATA:
740
  l_dir TYPE string,
741
  l_dir_check TYPE flag,
742
  l_dir_rc TYPE i,
743
  l_message TYPE string,
744
  l_txt TYPE string,
745
  lt_tadir TYPE STANDARD TABLE OF tadir,
746
  l_tabname TYPE tabname,
747
  ls_contflag TYPE st_contflag_range,
748
  lt_contflag TYPE it_contflag_range.
749
 
750
  FIELD-SYMBOLS:
751
  <ls_tadir> TYPE tadir.
752
 
753
  CLEAR:
754
  g_folder,
755
  g_pack.
756
 
757
  REFRESH:
758
  gt_tadir.
759
 
760
 
761
  IF p_devcl IS INITIAL.
762
    PERFORM decode_html_io
763
      USING txt_enter_a_package
764
      CHANGING l_txt.
765
    WRITE / l_txt.
766
  ELSEIF p_folder IS INITIAL.
767
    PERFORM decode_html_io
768
      USING txt_please_enter_a_root_dir
769
      CHANGING l_txt.
770
    WRITE / l_txt.
771
  ELSE.
772
*   block3
773
    g_add_elem_ddic       = p_ddic.
774
    g_add_elem_tabl       = p_tabl.
775
    g_add_elem_view       = p_view.
776
    g_add_elem_ttyp       = p_ttyp.
777
    g_add_elem_struc      = p_struc.
778
    g_add_elem_dtel       = p_dtel.
779
    g_add_elem_doma       = p_doma.
780
    g_add_elem_shlp       = p_shlp.
781
    g_add_elem_enqu       = p_enqu.
782
    g_add_elem_type       = p_type.
783
    g_add_elem_clslib     = p_clslib.
784
    g_add_elem_clas       = p_clas.
785
    g_add_elem_intf       = p_intf.
786
    g_add_elem_prog       = p_prog.
787
    g_add_elem_fugr       = p_fugr.
788
    g_add_elem_fuba       = p_fuba.
789
    g_add_elem_msag       = p_msag.
790
    g_add_elem_scr        = p_scr.
791
    g_add_elem_fuincl     = p_fuincl.
792
    g_add_elem_incl       = p_incl.
793
    g_add_elem_o2appl     = p_bspapp.
794
    g_add_elem_o2applbsp  = p_wbsp.
795
    g_add_elem_o2applctrl = p_wctrl.
796
    g_add_elem_o2applincl = p_wincl.
797
    g_add_elem_o2applmime = p_wmime.
798
    g_add_elem_o2applview = p_wview.
799
    g_add_elem_o2taglib   = p_bsptag.
800
    g_add_elem_para       = p_para.
801
    g_add_elem_tobj       = p_tobj.
802
    g_add_elem_tran       = p_tran.
803
    g_add_elem_xslt       = p_xslt.
804
*   block2
805
    g_add_sourcecode = p_add_sc.
806
    CASE abap_true.
807
      WHEN p_etab_n.
808
        g_empty_tab = gc_empty_tab_display.
809
      WHEN p_etab_d.
810
        g_empty_tab = gc_empty_tab_disable.
811
      WHEN p_etab_h.
812
        g_empty_tab = gc_empty_tab_hide.
813
    ENDCASE.
814
    g_add_db_content = p_dbcont.
815
    g_add_db_format_csv = p_db_csv.
816
    g_add_db_format_xml = p_db_xml.
817
    g_add_db_max_lines = p_dbmax.
818
    ls_contflag-sign = 'I'.
819
    ls_contflag-option = 'EQ'.
820
    IF p_dbclsa = abap_true.
821
      ls_contflag-low = 'A'.
822
      APPEND ls_contflag TO lt_contflag.
823
    ENDIF.
824
    IF p_dbclsc = abap_true.
825
      ls_contflag-low = 'C'.
826
      APPEND ls_contflag TO lt_contflag.
827
    ENDIF.
828
    IF p_dbclse = abap_true.
829
      ls_contflag-low = 'E'.
830
      APPEND ls_contflag TO lt_contflag.
831
    ENDIF.
832
    IF p_dbclsg = abap_true.
833
      ls_contflag-low = 'G'.
834
      APPEND ls_contflag TO lt_contflag.
835
    ENDIF.
836
    IF p_dbclsl = abap_true.
837
      ls_contflag-low = 'L'.
838
      APPEND ls_contflag TO lt_contflag.
839
    ENDIF.
840
    IF p_dbclss = abap_true.
841
      ls_contflag-low = 'S'.
842
      APPEND ls_contflag TO lt_contflag.
843
    ENDIF.
844
    IF p_dbclsw = abap_true.
845
      ls_contflag-low = 'W'.
846
      APPEND ls_contflag TO lt_contflag.
847
    ENDIF.
848
    IF g_add_db_content = abap_true
849
    AND NOT lt_contflag IS INITIAL.
850
      IF NOT p_dblim IS INITIAL.
851
        SELECT * FROM tadir INTO TABLE lt_tadir
852
            WHERE pgmid = 'R3TR'
853
            AND object = 'TABL'
854
            AND obj_name IN p_dblim
855
            AND devclass IN p_devcl.
856
      ELSE.
857
        SELECT * FROM tadir INTO TABLE lt_tadir
858
            WHERE pgmid = 'R3TR'
859
            AND object = 'TABL'
860
            AND devclass IN p_devcl.
861
      ENDIF.
862
      LOOP AT lt_tadir ASSIGNING <ls_tadir>.
863
        l_tabname = <ls_tadir>-obj_name.
864
        SELECT SINGLE tabname FROM dd02l INTO l_tabname
865
            WHERE as4local = 'A'
866
            AND tabclass = 'TRANSP'
867
            AND tabname = l_tabname
868
            AND contflag IN lt_contflag.
869
        IF sy-subrc = 0.
870
          APPEND <ls_tadir> TO gt_tadir.
871
        ENDIF.
872
      ENDLOOP.
873
      REFRESH lt_tadir.
874
      REFRESH lt_contflag.
875
    ENDIF.
876
    g_add_report_variants = p_add_rv.
877
*   block 1
878
    l_dir = p_folder.
879
    CALL METHOD cl_gui_frontend_services=>directory_exist
880
      EXPORTING
881
        directory = l_dir
882
      RECEIVING
883
        result    = l_dir_check
884
      EXCEPTIONS
885
        OTHERS    = 1.
886
    IF sy-subrc = 0 AND l_dir_check = abap_false.
887
      CALL METHOD cl_gui_frontend_services=>directory_create
888
        EXPORTING
889
          directory = l_dir
890
        CHANGING
891
          rc        = l_dir_rc
892
        EXCEPTIONS
893
          OTHERS    = 1.
894
      IF sy-subrc = 0 AND l_dir_rc = 0.
895
        g_folder = p_folder.
896
      ENDIF.
897
    ELSEIF sy-subrc = 0.
898
      g_folder = p_folder.
899
    ENDIF.
900
    IF g_folder IS INITIAL.
901
      CLEAR l_message.
902
      PERFORM get_message_text
903
        USING 'EA' '334' p_folder space space space
904
        CHANGING l_message.
905
      PERFORM decode_html_io
906
        USING txt_please_enter_a_valid_path
907
        CHANGING l_txt.
908
      WRITE: / l_message, / l_txt.
909
    ELSE.
910
      SELECT * FROM tdevc INTO TABLE gt_tdevc
911
          WHERE devclass IN p_devcl.
912
      IF sy-subrc <> 0.
913
        CLEAR l_message.
914
        DO.
915
          IF p_devcl-low NA '%'.
916
            EXIT.
917
          ENDIF.
918
          PERFORM replace_all
919
            USING '%' '*'
920
            CHANGING p_devcl-low.
921
        ENDDO.
922
        PERFORM get_message_text
923
          USING 'PACKAGE_BUILDER01' '411' p_devcl-low
924
            space space space
925
          CHANGING l_message.
926
        PERFORM decode_html_io
927
          USING txt_please_enter_a_root_dir
928
          CHANGING l_txt.
929
        WRITE: / l_message, / l_txt.
930
      ENDIF.
931
    ENDIF.
932
  ENDIF.
933
 
934
END-OF-SELECTION.
935
 
936
 
937
*-----------------------------------------------------------------------
938
  IF NOT gt_tdevc IS INITIAL AND NOT g_folder IS INITIAL.
939
    LOOP AT gt_tdevc INTO gs_tdevc.
940
      g_pack = gs_tdevc-devclass.
941
      PERFORM init.
942
 
943
      PERFORM select.
944
      PERFORM html_base.
945
 
946
      PERFORM optionals.
947
      PERFORM system.
948
    ENDLOOP.
949
 
950
    PERFORM decode_html_io
951
      USING txt_completed
952
      CHANGING l_txt.
953
    WRITE l_txt.
954
  ENDIF.
955
 
956
 
957
*-----------------------------------------------------------------------
958
* gui_info_dbcls
959
*-----------------------------------------------------------------------
960
FORM gui_info_dbcls.
961
 
962
  DATA:
963
  lt_type TYPE it_dom_value,
964
  ls_hinfo TYPE help_info,
965
*  ls_oheader type thead,
966
  ls_exclfun TYPE hlpfcode,
967
  lt_exclfun TYPE STANDARD TABLE OF hlpfcode,
968
  ls_hline TYPE tline,
969
  lt_hline TYPE STANDARD TABLE OF tline.
970
 
971
  FIELD-SYMBOLS:
972
  <ls_type> TYPE st_dom_value.
973
 
974
  PERFORM get_dom_value_texts
975
    USING 'CONTFLAG'
976
    CHANGING lt_type.
977
 
978
  ls_hline-tdformat = 'U1'.
979
  ls_hline-tdline = txt_delivery_class.
980
  APPEND ls_hline TO lt_hline.
981
 
982
  SORT lt_type BY value.
983
  LOOP AT lt_type ASSIGNING <ls_type>.
984
    ls_hline-tdformat = 'B1'.
985
    CONCATENATE '<ZK>' <ls_type>-value '</>:'
986
        INTO ls_hline-tdline.
987
    CONCATENATE ls_hline-tdline <ls_type>-text
988
        INTO ls_hline-tdline SEPARATED BY space.
989
    APPEND ls_hline TO lt_hline.
990
  ENDLOOP.
991
 
992
  CALL FUNCTION 'HELP_DOCULINES_SHOW'
993
    EXPORTING
994
*      cucol = 10
995
*      curow = 3
996
      help_infos = ls_hinfo
997
*      linenr = 1
998
*      not_help = abap_false
999
*      overlay_header = ls_oheader
1000
*      suppress_viewer = abap_false
1001
*      classic_sapscript = abap_false
1002
*    importing
1003
*      help_popup_cancel =
1004
    TABLES
1005
      excludefun = lt_exclfun
1006
      helplines = lt_hline.
1007
 
1008
ENDFORM.                    "gui_info_dbcls
1009
 
1010
 
1011
*-----------------------------------------------------------------------
1012
* gui_info_page
1013
*-----------------------------------------------------------------------
1014
FORM gui_info_page.
1015
 
1016
  DATA:
1017
  lt_type TYPE it_dom_value,
1018
  ls_hinfo TYPE help_info,
1019
*  ls_oheader type thead,
1020
  ls_exclfun TYPE hlpfcode,
1021
  lt_exclfun TYPE STANDARD TABLE OF hlpfcode,
1022
  ls_hline TYPE tline,
1023
  lt_hline TYPE STANDARD TABLE OF tline.
1024
 
1025
  ls_hline-tdformat = 'U1'.
1026
  ls_hline-tdline =
1027
      '&#x53;&#x6F;&#x66;&#x74;&#x43;&#x6F;&#x70;&#x79;'.
1028
  PERFORM decode_html CHANGING ls_hline-tdline.
1029
  APPEND ls_hline TO lt_hline.
1030
 
1031
  ls_hline-tdformat = 'AS'.
1032
  CONCATENATE '<ZK>' txt_version '</>:' INTO ls_hline-tdline.
1033
  CONCATENATE ls_hline-tdline gc_version
1034
      INTO ls_hline-tdline SEPARATED BY space.
1035
  PERFORM decode_html CHANGING ls_hline-tdline.
1036
  APPEND ls_hline TO lt_hline.
1037
 
1038
  ls_hline-tdformat = '*'.
1039
  CONCATENATE '&#xA9; 2008-' gc_version+0(4) ' globalBIT, LLC.'
1040
      INTO ls_hline-tdline.
1041
  PERFORM decode_html CHANGING ls_hline-tdline.
1042
  APPEND ls_hline TO lt_hline.
1043
 
1044
  ls_hline-tdformat = '/'.
1045
  ls_hline-tdline = txt_all_rights_reserved.
1046
  PERFORM decode_html CHANGING ls_hline-tdline.
1047
  APPEND ls_hline TO lt_hline.
1048
 
1049
  ls_hline-tdformat = 'AS'.
1050
  ls_hline-tdline = txt_product_under_gpl.
1051
  PERFORM replace_single
1052
    USING '#GPL#' 'GNU General Public License'
1053
    CHANGING ls_hline-tdline.
1054
  PERFORM decode_html CHANGING ls_hline-tdline.
1055
  APPEND ls_hline TO lt_hline.
1056
 
1057
  CALL FUNCTION 'HELP_DOCULINES_SHOW'
1058
    EXPORTING
1059
*      cucol = 10
1060
*      curow = 3
1061
      help_infos = ls_hinfo
1062
*      linenr = 1
1063
*      not_help = abap_false
1064
*      overlay_header = ls_oheader
1065
*      suppress_viewer = abap_false
1066
*      classic_sapscript = abap_false
1067
*    importing
1068
*      help_popup_cancel =
1069
    TABLES
1070
      excludefun = lt_exclfun
1071
      helplines = lt_hline.
1072
 
1073
ENDFORM.                    "gui_info_page