◆◆2

[代码]如何在选择画面中创建动态的select-options

石头 6月 27, 2017 Report 14,605 views 0

[隐藏]

1, 用到的函数，类方法

下面介绍一个能根据所选表字段自动创建动态select-options的例子代码，代码中用到了以下函数和类方法：

1， FREE_SELECTIONS_INIT：初始化动态选择画面

2， FREE_SELECTIONS_DIALOG：弹出生成动态select-options的字段选择窗口

3， FREE_SELECTIONS_WHERE_2_EX：转换数据格式，RSDS_TWHERE ==> RSDS_TEXPR

4， cl_alv_table_create=>create_dynamic_table ：创建动态内表

2, 例子代码

完整代码如下：感兴趣可以自己debug看看。

REPORT ztest_dynamic_selection.
*----------------------------------------------------------------------
*Tables *
*----------------------------------------------------------------------
TABLES : sscrfields, "Fields on selection screens
         dd03l. "Table Fields
*----------------------------------------------------------------------
*Type Pools *
*----------------------------------------------------------------------
TYPE-POOLS:rsds.
*----------------------------------------------------------------------
*Selection Screen *
*----------------------------------------------------------------------
SELECTION-SCREEN : BEGIN OF BLOCK b1 WITH FRAME TITLE text-001,
SKIP,
BEGIN OF LINE,
COMMENT 1(5) text-002.
PARAMETERS : p_tab LIKE dd03l-tabname OBLIGATORY. "Table name
SELECTION-SCREEN : PUSHBUTTON 45(8) p_btn USER-COMMAND clk, "Select-options
END OF LINE,
END OF BLOCK b1.
*----------------------------------------------------------------------
*Types *
*----------------------------------------------------------------------
TYPES: BEGIN OF t_dd03l,
         tabname    LIKE dd03l-tabname, "Table Name
         fieldname  LIKE dd03l-fieldname, "Field Name
         keyflag    LIKE dd03l-keyflag, "Key Flag
         rollname   LIKE dd03l-rollname, "Roll Name
         position   LIKE dd03l-position, "Position
         ddtext(30), "Description
       END OF t_dd03l,
       BEGIN OF t_fields.
        INCLUDE STRUCTURE dd03l.
TYPES: END OF t_fields.
TYPES : BEGIN OF t_tabs. "To hold the table names
        INCLUDE STRUCTURE rsdstabs.
TYPES : END OF t_tabs.
TYPES : BEGIN OF t_flds. "To hold the field names
        INCLUDE STRUCTURE rsdsfields.
TYPES : END OF t_flds.
TYPES : BEGIN OF t_fname, "To hold the field names
          fld LIKE dd03l-fieldname,
        END OF t_fname.
*----------------------------------------------------------------------
*Internal Tables *
*----------------------------------------------------------------------
DATA : it_dd03l  TYPE TABLE OF t_dd03l, "To hold the field names
       it_tabs   TYPE TABLE OF t_tabs, "To hold the table names
       it_flds   TYPE TABLE OF t_flds, "To hold the field names
       it_temp   TYPE TABLE OF t_flds, "Temp. table to hold field names
       it_fields TYPE TABLE OF t_fields, "To hold the field names
       it_cat    TYPE TABLE OF lvc_s_fcat, "To hold Field Catalog
       it_fname  TYPE TABLE OF t_fname.
*----------------------------------------------------------------------
*Work areas *
*----------------------------------------------------------------------
DATA: d_ref     TYPE REF TO data , "Data reference
      wa_dd03l  LIKE LINE OF it_dd03l, "Workarea for IT_DD03L
      wa_tabs   LIKE LINE OF it_tabs, "Workarea for IT_TABS
      wa_flds   LIKE LINE OF it_flds, "Workarea for IT_FLDS
      wa_temp   LIKE LINE OF it_temp, "Workarea for IT_TEMP
      wa_fields LIKE LINE OF it_fields, "Workarea for IT_FIELDS
      wa_cat    LIKE LINE OF it_cat , "Workarea for IT_CAT
      wa_fname  LIKE LINE OF it_fname. "Workarea for IT_FNAME
*----------------------------------------------------------------------
*Field Symbols *
*----------------------------------------------------------------------
FIELD-SYMBOLS : <f_fs> TYPE table. "FieldSymbol for holding fields
*----------------------------------------------------------------------
*Variables *
*----------------------------------------------------------------------
DATA: gx_texpr         TYPE rsds_texpr, "Variable to hold Expression
      gx_twhere        TYPE rsds_twhere, "Variable to hold Where Clause
      gv_selid         LIKE rsdynsel-selid, "Variable to hold Selid
      gv_actnum        LIKE sy-tfill, "Variable to hold no of fields
      gv_title         LIKE sy-title, "Variable to hold Title
      gv_where_cl(100) TYPE c, "Variable to hold Where clause
      gv_tbname        LIKE dd03l-tabname,
      gv_temp.
SELECT-OPTIONS:
s_fld   FOR dd03l-fieldname NO-DISPLAY, "To hold fields selected
s_selop FOR dd03l-fieldname NO-DISPLAY, "To hold fields for creating dyn. select-options
s_where FOR gv_where_cl NO-DISPLAY. "To hold where condition
PARAMETERS: gv_t_old LIKE dd03l-tabname NO-DISPLAY. "Earlier Table name
DATA : gt_grid TYPE REF TO cl_gui_alv_grid,
       gt_cust TYPE REF TO cl_gui_custom_container, "Custom Container
       cust    TYPE scrfname VALUE 'CC_OUTPUT'. "Custom controller
*----------------------------------------------------------------------
*Constants *
*----------------------------------------------------------------------
CONSTANTS: gc_i     TYPE c VALUE 'I',
           gc_eq(2) TYPE c VALUE 'EQ'.
*----------------------------------------------------------------------
*Initialization *
*----------------------------------------------------------------------
INITIALIZATION.
**--Initialize values
  PERFORM initialize.
*----------------------------------------------------------------------
*At Selection Screen *
*----------------------------------------------------------------------
AT SELECTION-SCREEN.
*--Select the fields of the input table
  PERFORM select_flds.
*----------------------------------------------------------------------
*Start Of Selection *
*----------------------------------------------------------------------
START-OF-SELECTION.
*--Fetch data to display output
  PERFORM fetch_data.
*----------------------------------------------------------------------
*End Of Selection *
*----------------------------------------------------------------------
END-OF-SELECTION.
  CALL SCREEN '0300'.
*----------------------------------------------------------------------
*At User Command *
*----------------------------------------------------------------------
AT USER-COMMAND.
  CASE sy-ucomm.
    WHEN 'OK'.
      REFRESH it_temp.
      CLEAR it_temp.
      MOVE 'S' TO wa_temp-type.
      MOVE gv_tbname TO wa_temp-tablename.
      DO.
        READ LINE sy-index FIELD VALUE gv_temp INTO gv_temp.
        IF sy-subrc NE 0.
          EXIT.
        ENDIF.
        IF gv_temp EQ 'X'.
          sy-index = sy-index - 1.
          READ TABLE it_dd03l INTO wa_dd03l INDEX sy-index.
          IF sy-subrc = 0.
            MOVE wa_dd03l-fieldname TO wa_temp-fieldname.
            APPEND wa_temp TO it_temp.
            CLEAR gv_temp.
          ENDIF.
        ENDIF.
      ENDDO.
      DESCRIBE TABLE it_temp.
      IF sy-tfill GT 70.
**--More than 70 fields can not be selected
        MESSAGE 'Cannot select more than 70 Parameters' TYPE 'I'.
        REFRESH it_temp[].
        CLEAR it_temp.
      ELSE.
        LEAVE LIST-PROCESSING.
      ENDIF.
    WHEN 'CANCEL'.
      LEAVE LIST-PROCESSING.
    WHEN 'SELALL'.
**--Select all fields
      CLEAR wa_dd03l-fieldname.
      DO.
        READ LINE sy-index.
        IF sy-subrc EQ 0 AND
        wa_dd03l-fieldname NE space.
          gv_temp = 'X'.
          MODIFY LINE sy-index INDEX 0 FIELD VALUE gv_temp.
          HIDE gv_temp.
          CLEAR wa_dd03l-fieldname.
        ELSEIF sy-subrc NE 0.
          EXIT.
        ENDIF.
      ENDDO.
    WHEN 'DSELALL'.
**--Deselect all fields
      CLEAR gv_temp.
      DO.
        READ LINE sy-index.
        IF sy-subrc EQ 0.
          CLEAR gv_temp.
          MODIFY LINE sy-index INDEX 0 FIELD VALUE gv_temp FROM gv_temp.
          HIDE gv_temp.
        ELSEIF sy-subrc NE 0.
          EXIT.
        ENDIF.
      ENDDO.
  ENDCASE.
  sy-lsind = 0.
*&---------------------------------------------------------------------
*& Form INITIALIZE
*&---------------------------------------------------------------------
* Initialize values on selection-screen
*----------------------------------------------------------------------
FORM initialize .
  p_btn = 'Options'(003).
ENDFORM. " INITIALIZE
*&---------------------------------------------------------------------
*& Form SELECT_FLDS
*&---------------------------------------------------------------------
* Select fields from the table
*----------------------------------------------------------------------
FORM select_flds .
  CASE sscrfields-ucomm.
    WHEN 'CLK'.
**--Display Screen with the list of fields
      PERFORM genr_scr.
  ENDCASE.
ENDFORM. " SELECT_FLDS
*&---------------------------------------------------------------------
*& Form genr_scr
*&---------------------------------------------------------------------
* Display a screen with list of fields
*----------------------------------------------------------------------
FORM genr_scr.
**--If table in the parameter is not the same as the old table and
**--old table is not blank, then initialise all the variables associated
  IF p_tab NE gv_t_old AND gv_t_old IS NOT INITIAL.
    REFRESH: it_tabs, it_flds,
    gx_texpr, gx_twhere,
    s_where, s_selop.
    CLEAR: gv_selid.
**--Pass current table parameter value to Old table parameter
    gv_t_old = p_tab.
  ENDIF.
**--Pass the current table name to old table variable
  IF gv_t_old EQ space.
    gv_t_old = p_tab.
  ENDIF.
**--Check if table name is given before clicking the button
  IF p_tab IS INITIAL.
    MESSAGE 'Enter the Table name' TYPE 'E'.
  ENDIF.
**--Get the list of fields of a given table
  PERFORM get_selections.
**--If none of the fields, provide the list of fields for selecting
  IF it_flds[] IS INITIAL.
    CLEAR gv_selid.
    PERFORM select_fieldlist.
  ENDIF.
**--Show message if none of the fields are selected
  IF it_flds[] IS INITIAL.
    MESSAGE 'No parameters selected' TYPE 'S'.
    EXIT.
  ENDIF.
**--Generate dynamic select-options
  REFRESH it_tabs.
  CLEAR : it_tabs, wa_tabs.
  wa_tabs-prim_tab = p_tab.
  APPEND wa_tabs TO it_tabs.
  PERFORM set_values.
**--Generate Expression from Where clause
  CALL FUNCTION 'FREE_SELECTIONS_WHERE_2_EX'
    EXPORTING
      where_clauses        = gx_twhere
    IMPORTING
      expressions          = gx_texpr
    EXCEPTIONS
      incorrect_expression = 1
      OTHERS               = 2.
  IF sy-subrc NE 0.
    MESSAGE 'Error in Dynamic screen generation' TYPE 'I'.
    EXIT.
  ENDIF.
  IF gx_texpr IS NOT INITIAL.
**--Populate values to select-options from expression
    PERFORM set_values.
  ENDIF.
**--Display screen with the fields listed
  IF gv_selid IS NOT INITIAL.
    PERFORM call_screen.
  ENDIF.
ENDFORM. " genr_scr
*&---------------------------------------------------------------------
*& Form GET_SELECTIONS
*&---------------------------------------------------------------------
* Fetch the fields in the table given
*----------------------------------------------------------------------
FORM get_selections.
  DATA : wa_where LIKE LINE OF gx_twhere.
  REFRESH: it_flds, gx_twhere.
  CLEAR : wa_flds.
  wa_flds-tablename = p_tab.
  wa_flds-type = 'S'.
  LOOP AT s_selop.
**--Populate all the fields selected that are previously selected
    wa_flds-fieldname = s_selop-low.
    APPEND wa_flds TO it_flds.
  ENDLOOP.
  IF s_where[] IS NOT INITIAL.
**--Populate values to where condition if any data is previously given
**--to the dynamic select-options
    wa_where-tablename = p_tab.
    LOOP AT s_where.
      APPEND s_where-low TO wa_where-where_tab.
    ENDLOOP.
    APPEND wa_where TO gx_twhere.
  ENDIF.
ENDFORM. " GET_SELECTIONS
*&---------------------------------------------------------------------
*& Form SELECT_FIELDLIST
*&---------------------------------------------------------------------
* Display the list of fields
*----------------------------------------------------------------------
FORM select_fieldlist.
  CLEAR: it_dd03l[], it_dd03l,
  gv_tbname.
**--Get field names for given table
  SELECT tabname
         fieldname
         keyflag
         rollname
         position
    FROM dd03l
    INTO TABLE it_dd03l
   WHERE tabname EQ p_tab
     AND fieldname NE 'MANDT'.
  IF sy-subrc = 0.
    SORT it_dd03l BY position.
    DELETE it_dd03l WHERE fieldname CP '.INCLU*'.
  ENDIF.
**--Get the description of the fields
  LOOP AT it_dd03l INTO wa_dd03l.
    IF NOT wa_dd03l-rollname IS INITIAL.
      SELECT SINGLE ddtext
      FROM dd04t
      INTO wa_dd03l-ddtext
      WHERE rollname EQ wa_dd03l-rollname
      AND ddlanguage = sy-langu
      AND as4local = 'A'.
      MODIFY it_dd03l FROM wa_dd03l.
    ELSE.
      SELECT SINGLE ddtext
      FROM dd03t
      INTO wa_dd03l-ddtext
      WHERE tabname EQ wa_dd03l-tabname
      AND ddlanguage = sy-langu
      AND as4local = 'A'
      AND fieldname = wa_dd03l-fieldname.
      MODIFY it_dd03l FROM wa_dd03l.
    ENDIF.
  ENDLOOP.
  gv_tbname = p_tab.
**--Display screen with the fields listed for the given table
  CALL SCREEN 200 STARTING AT 10 2
  ENDING AT 70 22.
**--Clear all the fields selected
  CLEAR : it_flds, it_flds[], gv_tbname.
**--Populate the newly selected fields
  it_flds[] = it_temp[].
**--Clear temporary table with the fields selected
  CLEAR : it_temp, it_temp[].
ENDFORM. " SELECT_FIELDLIST
*&---------------------------------------------------------------------
*& Form INITIALIZE_SCREEN
*&---------------------------------------------------------------------
FORM initialize_screen.
  CALL FUNCTION 'FREE_SELECTIONS_INIT'
    EXPORTING
      kind                     = 'T'
      expressions              = gx_texpr
    IMPORTING
      selection_id             = gv_selid
      number_of_active_fields  = gv_actnum
    TABLES
      tables_tab               = it_tabs
      fields_tab               = it_flds
    EXCEPTIONS
      fields_incomplete        = 01
      fields_no_join           = 02
      field_not_found          = 03
      no_tables                = 04
      table_not_found          = 05
      expression_not_supported = 06
      incorrect_expression     = 07
      illegal_kind             = 08
      area_not_found           = 09
      inconsistent_area        = 10
      kind_f_no_fields_left    = 11
      kind_f_no_fields         = 12
      too_many_fields          = 13.
ENDFORM. " INITIALIZE_SCREEN
*&---------------------------------------------------------------------
*& Form SET_VALUES
*&---------------------------------------------------------------------
* Set the values to the select-options
*----------------------------------------------------------------------
FORM set_values.
  CALL FUNCTION 'FREE_SELECTIONS_INIT'
    EXPORTING
      kind                     = 'T'
      expressions              = gx_texpr
    IMPORTING
      selection_id             = gv_selid
      number_of_active_fields  = gv_actnum
    TABLES
      tables_tab               = it_tabs
      fields_tab               = it_flds
    EXCEPTIONS
      fields_incomplete        = 01
      fields_no_join           = 02
      field_not_found          = 03
      no_tables                = 04
      table_not_found          = 05
      expression_not_supported = 06
      incorrect_expression     = 07
      illegal_kind             = 08
      area_not_found           = 09
      inconsistent_area        = 10
      kind_f_no_fields_left    = 11
      kind_f_no_fields         = 12
      too_many_fields          = 13.
ENDFORM. " SET_VALUES
*&---------------------------------------------------------------------
*& Form CALL_SCREEN
*&---------------------------------------------------------------------
* Call the screen to display the fields
*----------------------------------------------------------------------
FORM call_screen.
  DATA : wa_where LIKE LINE OF gx_twhere,
         lv_txt   TYPE string.
  lv_txt = 'Dynamic Selections Parameters for'(007).
  CONCATENATE lv_txt p_tab
  INTO gv_title SEPARATED BY space.
  CALL FUNCTION 'FREE_SELECTIONS_DIALOG'
    EXPORTING
      selection_id            = gv_selid
      title                   = gv_title
      tree_visible            = ' '
    IMPORTING
      where_clauses           = gx_twhere
      expressions             = gx_texpr
      number_of_active_fields = gv_actnum
    TABLES
      fields_tab              = it_flds
    EXCEPTIONS
      internal_error          = 01
      no_action               = 02
      no_fields_selected      = 03
      no_tables_selected      = 04
      selid_not_found         = 05.
  IF sy-subrc EQ 0.
    REFRESH: s_where, s_selop.
**--Populate the Where clause with selected values
    s_where-sign = gc_i.
    s_where-option = gc_eq.
    CLEAR wa_where.
    READ TABLE gx_twhere INDEX 1 INTO wa_where.
    LOOP AT wa_where-where_tab INTO s_where-low.
      APPEND s_where.
    ENDLOOP.
**--Populate all the fields
    s_selop-sign = gc_i.
    s_selop-option = gc_eq.
    CLEAR : wa_flds.
    LOOP AT it_flds INTO wa_flds.
      s_selop-low = wa_flds-fieldname.
      APPEND s_selop.
    ENDLOOP.
  ENDIF.
ENDFORM. " CALL_SCREEN
*&---------------------------------------------------------------------
*& Module STATUS_0200 OUTPUT
*&---------------------------------------------------------------------
* Display screen with select-options
*----------------------------------------------------------------------
MODULE status_0200 OUTPUT.
  DATA: lv_txt TYPE string.
  lv_txt = 'Selection Paramters List'(008).
  SET PF-STATUS 'DIALOG'.
  LEAVE TO LIST-PROCESSING AND RETURN TO SCREEN 0.
  SUPPRESS DIALOG.
  MOVE lv_txt TO sy-title.
**--display list of fields that can be selected for creating dynamic select-options
  LOOP AT it_dd03l INTO wa_dd03l.
    AT FIRST.
      WRITE: (60) sy-uline.
    ENDAT.
    READ TABLE it_flds INTO wa_flds WITH KEY fieldname = wa_dd03l-fieldname.
    IF sy-subrc NE 0.
      CLEAR gv_temp.
    ELSE.
      gv_temp = 'X'.
    ENDIF.
    WRITE:/ '|' ,gv_temp AS CHECKBOX.
    WRITE: (20) wa_dd03l-fieldname,'|', wa_dd03l-ddtext, AT 60 '|'.
    HIDE: gv_temp, wa_dd03l-fieldname, wa_dd03l-keyflag.
    AT LAST.
      WRITE: (60) sy-uline.
    ENDAT.
  ENDLOOP.
ENDMODULE. " STATUS_0200 OUTPUT
*&---------------------------------------------------------------------
*& Form FETCH_DATA
*&---------------------------------------------------------------------
* Fetch data from table
*----------------------------------------------------------------------
FORM fetch_data .
  DATA: lv_where TYPE string,
        lv_cnt   TYPE i.
**--Check for the existance of the table
  SELECT *
  FROM dd03l
  INTO TABLE it_fields
  WHERE tabname = p_tab.
  SORT it_fields BY position.
**--Delete the fields starting with .INCLU
  DELETE it_fields WHERE fieldname CP '.INCLU*'.
**--Display the first 150 fields of the table
  LOOP AT it_fields INTO wa_fields TO 150.
    lv_cnt = lv_cnt + 1.
    wa_cat-tabname = p_tab.
    wa_cat-fieldname = wa_fields-fieldname.
    wa_cat-col_pos = lv_cnt.
    wa_cat-inttype = wa_fields-inttype.
    wa_cat-datatype = wa_fields-datatype.
    wa_cat-intlen = wa_fields-intlen.
    wa_cat-seltext = wa_fields-fieldname.
    wa_cat-decimals = wa_fields-decimals.
    wa_cat-ref_field = wa_fields-fieldname.
    wa_cat-ref_table = p_tab.
    APPEND wa_cat TO it_cat.
    CLEAR wa_cat.
    wa_fname-fld = wa_fields-fieldname.
    APPEND wa_fname TO it_fname.
    CLEAR wa_fname.
  ENDLOOP.
**--Create a dynamic internal table with the 150 fields
  CALL METHOD cl_alv_table_create=>create_dynamic_table
    EXPORTING
      it_fieldcatalog = it_cat
    IMPORTING
      ep_table        = d_ref.
  ASSIGN d_ref->* TO <f_fs>.
**--Populate the Where clause as a string
  LOOP AT s_where.
    CONCATENATE lv_where s_where-low INTO lv_where SEPARATED BY space.
  ENDLOOP.
**--Select the data from the table given as input and populate
**--it into the dynamic internal table created based on the where condition
  SELECT (it_fname)
  FROM (p_tab)
  INTO CORRESPONDING FIELDS OF TABLE <f_fs>
  WHERE (lv_where).
**--If no entries are found that satisfies the selection criteria
  IF sy-subrc <> 0.
    MESSAGE 'No data found' TYPE 'I'.
  ENDIF.
ENDFORM. " FETCH_DATA
*&---------------------------------------------------------------------
*& Form DISPLAY_DATA
*&---------------------------------------------------------------------
* Display data in the grid control
*----------------------------------------------------------------------
FORM display_data .
  IF gt_cust IS INITIAL.
    CREATE OBJECT gt_cust
      EXPORTING
        container_name = cust.
    CREATE OBJECT gt_grid
      EXPORTING
        i_parent = gt_cust.
**--Display the data in the grid control
    CALL METHOD gt_grid->set_table_for_first_display
      EXPORTING
        i_buffer_active               = 'X'
        i_bypassing_buffer            = ' '
      CHANGING
        it_outtab                     = <f_fs>
        it_fieldcatalog               = it_cat
      EXCEPTIONS
        invalid_parameter_combination = 1
        program_error                 = 2
        too_many_lines                = 3
        OTHERS                        = 4.
    IF sy-subrc <> 0.
    ENDIF.
  ENDIF.
ENDFORM. " DISPLAY_DATA
*&---------------------------------------------------------------------
*& Module DISPLAY_DATA OUTPUT
*&---------------------------------------------------------------------
* Dispaly data in the output
*----------------------------------------------------------------------
MODULE display_data OUTPUT.
  PERFORM display_data.
ENDMODULE. " DISPLAY_DATA OUTPUT
*&---------------------------------------------------------------------
*& Module STATUS_0300 OUTPUT
*&---------------------------------------------------------------------
* Pf-status for the screen
*----------------------------------------------------------------------
MODULE status_0300 OUTPUT.
  SET PF-STATUS '13317'.
ENDMODULE. " STATUS_0300 OUTPUT
*&---------------------------------------------------------------------
*& Module USER_COMMAND_0300 INPUT
*&---------------------------------------------------------------------
* Handling the button clicks
*----------------------------------------------------------------------
MODULE user_command_0300 INPUT.
  CASE sy-ucomm.
**--Go to the previous screen
    WHEN 'BACK'.
      LEAVE TO SCREEN 0.
**--Come out of the program
    WHEN 'EXIT'.
      LEAVE PROGRAM.
  ENDCASE.
ENDMODULE. " USER_COMMAND_0300 INPUT

100

101

102

103

104

105

106

107

108

109

110

111

112

113

114

115

116

117

118

119

120

121

122

123

124

125

126

127

128

129

130

131

132

133

134

135

136

137

138

139

140

141

142

143

144

145

146

147

148

149

150

151

152

153

154

155

156

157

158

159

160

161

162

163

164

165

166

167

168

169

170

171

172

173

174

175

176

177

178

179

180

181

182

183

184

185

186

187

188

189

190

191

192

193

194

195

196

197

198

199

200

201

202

203

204

205

206

207

208

209

210

211

212

213

214

215

216

217

218

219

220

221

222

223

224

225

226

227

228

229

230

231

232

233

234

235

236

237

238

239

240

241

242

243

244

245

246

247

248

249

250

251

252

253

254

255

256

257

258

259

260

261

262

263

264

265

266

267

268

269

270

271

272

273

274

275

276

277

278

279

280

281

282

283

284

285

286

287

288

289

290

291

292

293

294

295

296

297

298

299

300

301

302

303

304

305

306

307

308

309

310

311

312

313

314

315

316

317

318

319

320

321

322

323

324

325

326

327

328

329

330

331

332

333

334

335

336

337

338

339

340

341

342

343

344

345

346

347

348

349

350

351

352

353

354

355

356

357

358

359

360

361

362

363

364

365

366

367

368

369

370

371

372

373

374

375

376

377

378

379

380

381

382

383

384

385

386

387

388

389

390

391

392

393

394

395

396

397

398

399

400

401

402

403

404

405

406

407

408

409

410

411

412

413

414

415

416

417

418

419

420

421

422

423

424

425

426

427

428

429

430

431

432

433

434

435

436

437

438

439

440

441

442

443

444

445

446

447

448

449

450

451

452

453

454

455

456

457

458

459

460

461

462

463

464

465

466

467

468

469

470

471

472

473

474

475

476

477

478

479

480

481

482

483

484

485

486

487

488

489

490

491

492

493

494

495

496

497

498

499

500

501

502

503

504

505

506

507

508

509

510

511

512

513

514

515

516

517

518

519

520

521

522

523

524

525

526

527

528

529

530

531

532

533

534

535

536

537

538

539

540

541

542

543

544

545

546

547

548

549

550

551

552

553

554

555

556

557

558

559

560

561

562

563

564

565

566

567

568

569

570

571

572

573

574

575

576

577

578

579

580

581

582

583

584

585

586

587

588

589

590

591

592

593

594

595

596

597

598

599

600

601

602

603

REPORT ztest_dynamic_selection.

*----------------------------------------------------------------------

*Tables *

*----------------------------------------------------------------------

TABLES : sscrfields, "Fields on selection screens

dd03l. "Table Fields

*----------------------------------------------------------------------

*Type Pools *

*----------------------------------------------------------------------

TYPE-POOLS:rsds.

*----------------------------------------------------------------------

*Selection Screen *

*----------------------------------------------------------------------

SELECTION-SCREEN : BEGIN OF BLOCK b1 WITH FRAME TITLE text-001,

SKIP,

BEGIN OF LINE,

COMMENT 1(5) text-002.

PARAMETERS : p_tab LIKE dd03l-tabname OBLIGATORY. "Table name

SELECTION-SCREEN : PUSHBUTTON 45(8) p_btn USER-COMMAND clk, "Select-options

END OF LINE,

END OF BLOCK b1.

*----------------------------------------------------------------------

*Types *

*----------------------------------------------------------------------

TYPES: BEGIN OF t_dd03l,

tabname LIKE dd03l-tabname, "Table Name

fieldname LIKE dd03l-fieldname, "Field Name

keyflag LIKE dd03l-keyflag, "Key Flag

rollname LIKE dd03l-rollname, "Roll Name

position LIKE dd03l-position, "Position

ddtext(30), "Description

END OF t_dd03l,

BEGIN OF t_fields.

INCLUDE STRUCTURE dd03l.

TYPES: END OF t_fields.

TYPES : BEGIN OF t_tabs. "To hold the table names

INCLUDE STRUCTURE rsdstabs.

TYPES : END OF t_tabs.

TYPES : BEGIN OF t_flds. "To hold the field names

INCLUDE STRUCTURE rsdsfields.

TYPES : END OF t_flds.

TYPES : BEGIN OF t_fname, "To hold the field names

fld LIKE dd03l-fieldname,

END OF t_fname.

*----------------------------------------------------------------------

*Internal Tables *

*----------------------------------------------------------------------

DATA : it_dd03l TYPE TABLE OF t_dd03l, "To hold the field names

it_tabs TYPE TABLE OF t_tabs, "To hold the table names

it_flds TYPE TABLE OF t_flds, "To hold the field names

it_temp TYPE TABLE OF t_flds, "Temp. table to hold field names

it_fields TYPE TABLE OF t_fields, "To hold the field names

it_cat TYPE TABLE OF lvc_s_fcat, "To hold Field Catalog

it_fname TYPE TABLE OF t_fname.

*----------------------------------------------------------------------

*Work areas *

*----------------------------------------------------------------------

DATA: d_ref TYPE REF TO data , "Data reference

wa_dd03l LIKE LINE OF it_dd03l, "Workarea for IT_DD03L

wa_tabs LIKE LINE OF it_tabs, "Workarea for IT_TABS

wa_flds LIKE LINE OF it_flds, "Workarea for IT_FLDS

wa_temp LIKE LINE OF it_temp, "Workarea for IT_TEMP

wa_fields LIKE LINE OF it_fields, "Workarea for IT_FIELDS

wa_cat LIKE LINE OF it_cat , "Workarea for IT_CAT

wa_fname LIKE LINE OF it_fname. "Workarea for IT_FNAME

*----------------------------------------------------------------------

*Field Symbols *

*----------------------------------------------------------------------

FIELD-SYMBOLS : <f_fs> TYPE table. "FieldSymbol for holding fields

*----------------------------------------------------------------------

*Variables *

*----------------------------------------------------------------------

DATA: gx_texpr TYPE rsds_texpr, "Variable to hold Expression

gx_twhere TYPE rsds_twhere, "Variable to hold Where Clause

gv_selid LIKE rsdynsel-selid, "Variable to hold Selid

gv_actnum LIKE sy-tfill, "Variable to hold no of fields

gv_title LIKE sy-title, "Variable to hold Title

gv_where_cl(100) TYPE c, "Variable to hold Where clause

gv_tbname LIKE dd03l-tabname,

gv_temp.

SELECT-OPTIONS:

s_fld FOR dd03l-fieldname NO-DISPLAY, "To hold fields selected

s_selop FOR dd03l-fieldname NO-DISPLAY, "To hold fields for creating dyn. select-options

s_where FOR gv_where_cl NO-DISPLAY. "To hold where condition

PARAMETERS: gv_t_old LIKE dd03l-tabname NO-DISPLAY. "Earlier Table name

DATA : gt_grid TYPE REF TO cl_gui_alv_grid,

gt_cust TYPE REF TO cl_gui_custom_container, "Custom Container

cust TYPE scrfname VALUE 'CC_OUTPUT'. "Custom controller

*----------------------------------------------------------------------

*Constants *

*----------------------------------------------------------------------

CONSTANTS: gc_i TYPE c VALUE 'I',

gc_eq(2) TYPE c VALUE 'EQ'.

*----------------------------------------------------------------------

*Initialization *

*----------------------------------------------------------------------

INITIALIZATION.

**--Initialize values

PERFORM initialize.

*----------------------------------------------------------------------

*At Selection Screen *

*----------------------------------------------------------------------

AT SELECTION-SCREEN.

*--Select the fields of the input table

PERFORM select_flds.

*----------------------------------------------------------------------

*Start Of Selection *

*----------------------------------------------------------------------

START-OF-SELECTION.

*--Fetch data to display output

PERFORM fetch_data.

*----------------------------------------------------------------------

*End Of Selection *

*----------------------------------------------------------------------

END-OF-SELECTION.

CALL SCREEN '0300'.

*----------------------------------------------------------------------

*At User Command *

*----------------------------------------------------------------------

AT USER-COMMAND.

CASE sy-ucomm.

WHEN 'OK'.

REFRESH it_temp.

CLEAR it_temp.

MOVE 'S' TO wa_temp-type.

MOVE gv_tbname TO wa_temp-tablename.

DO.

READ LINE sy-index FIELD VALUE gv_temp INTO gv_temp.

IF sy-subrc NE 0.

EXIT.

ENDIF.

IF gv_temp EQ 'X'.

sy-index = sy-index - 1.

READ TABLE it_dd03l INTO wa_dd03l INDEX sy-index.

IF sy-subrc = 0.

MOVE wa_dd03l-fieldname TO wa_temp-fieldname.

APPEND wa_temp TO it_temp.

CLEAR gv_temp.

ENDIF.

ENDDO.

DESCRIBE TABLE it_temp.

IF sy-tfill GT 70.

**--More than 70 fields can not be selected

MESSAGE 'Cannot select more than 70 Parameters' TYPE 'I'.

REFRESH it_temp[].

CLEAR it_temp.

ELSE.

LEAVE LIST-PROCESSING.

ENDIF.

WHEN 'CANCEL'.

LEAVE LIST-PROCESSING.

WHEN 'SELALL'.

**--Select all fields

CLEAR wa_dd03l-fieldname.

DO.

READ LINE sy-index.

IF sy-subrc EQ 0 AND

wa_dd03l-fieldname NE space.

gv_temp = 'X'.

MODIFY LINE sy-index INDEX 0 FIELD VALUE gv_temp.

HIDE gv_temp.

CLEAR wa_dd03l-fieldname.

ELSEIF sy-subrc NE 0.

EXIT.

ENDIF.

ENDDO.

WHEN 'DSELALL'.

**--Deselect all fields

CLEAR gv_temp.

DO.

READ LINE sy-index.

IF sy-subrc EQ 0.

CLEAR gv_temp.

MODIFY LINE sy-index INDEX 0 FIELD VALUE gv_temp FROM gv_temp.

HIDE gv_temp.

ELSEIF sy-subrc NE 0.

EXIT.

ENDIF.

ENDDO.

ENDCASE.

sy-lsind = 0.

*&---------------------------------------------------------------------

*& Form INITIALIZE

*&---------------------------------------------------------------------

* Initialize values on selection-screen

*----------------------------------------------------------------------

FORM initialize .

p_btn = 'Options'(003).

ENDFORM. " INITIALIZE

*&---------------------------------------------------------------------

*& Form SELECT_FLDS

*&---------------------------------------------------------------------

* Select fields from the table

*----------------------------------------------------------------------

FORM select_flds .

CASE sscrfields-ucomm.

WHEN 'CLK'.

**--Display Screen with the list of fields

PERFORM genr_scr.

ENDCASE.

ENDFORM. " SELECT_FLDS

*&---------------------------------------------------------------------

*& Form genr_scr

*&---------------------------------------------------------------------

* Display a screen with list of fields

*----------------------------------------------------------------------

FORM genr_scr.

**--If table in the parameter is not the same as the old table and

**--old table is not blank, then initialise all the variables associated

IF p_tab NE gv_t_old AND gv_t_old IS NOT INITIAL.

REFRESH: it_tabs, it_flds,

gx_texpr, gx_twhere,

s_where, s_selop.

CLEAR: gv_selid.

**--Pass current table parameter value to Old table parameter

gv_t_old = p_tab.

ENDIF.

**--Pass the current table name to old table variable

IF gv_t_old EQ space.

gv_t_old = p_tab.

ENDIF.

**--Check if table name is given before clicking the button

IF p_tab IS INITIAL.

MESSAGE 'Enter the Table name' TYPE 'E'.

ENDIF.

**--Get the list of fields of a given table

PERFORM get_selections.

**--If none of the fields, provide the list of fields for selecting

IF it_flds[] IS INITIAL.

CLEAR gv_selid.

PERFORM select_fieldlist.

ENDIF.

**--Show message if none of the fields are selected

IF it_flds[] IS INITIAL.

MESSAGE 'No parameters selected' TYPE 'S'.

EXIT.

ENDIF.

**--Generate dynamic select-options

REFRESH it_tabs.

CLEAR : it_tabs, wa_tabs.

wa_tabs-prim_tab = p_tab.

APPEND wa_tabs TO it_tabs.

PERFORM set_values.

**--Generate Expression from Where clause

CALL FUNCTION 'FREE_SELECTIONS_WHERE_2_EX'

EXPORTING

where_clauses = gx_twhere

IMPORTING

expressions = gx_texpr

EXCEPTIONS

incorrect_expression = 1

OTHERS = 2.

IF sy-subrc NE 0.

MESSAGE 'Error in Dynamic screen generation' TYPE 'I'.

EXIT.

ENDIF.

IF gx_texpr IS NOT INITIAL.

**--Populate values to select-options from expression

PERFORM set_values.

ENDIF.

**--Display screen with the fields listed

IF gv_selid IS NOT INITIAL.

PERFORM call_screen.

ENDIF.

ENDFORM. " genr_scr

*&---------------------------------------------------------------------

*& Form GET_SELECTIONS

*&---------------------------------------------------------------------

* Fetch the fields in the table given

*----------------------------------------------------------------------

FORM get_selections.

DATA : wa_where LIKE LINE OF gx_twhere.

REFRESH: it_flds, gx_twhere.

CLEAR : wa_flds.

wa_flds-tablename = p_tab.

wa_flds-type = 'S'.

LOOP AT s_selop.

**--Populate all the fields selected that are previously selected

wa_flds-fieldname = s_selop-low.

APPEND wa_flds TO it_flds.

ENDLOOP.

IF s_where[] IS NOT INITIAL.

**--Populate values to where condition if any data is previously given

**--to the dynamic select-options

wa_where-tablename = p_tab.

LOOP AT s_where.

APPEND s_where-low TO wa_where-where_tab.

ENDLOOP.

APPEND wa_where TO gx_twhere.

ENDIF.

ENDFORM. " GET_SELECTIONS

*&---------------------------------------------------------------------

*& Form SELECT_FIELDLIST

*&---------------------------------------------------------------------

* Display the list of fields

*----------------------------------------------------------------------

FORM select_fieldlist.

CLEAR: it_dd03l[], it_dd03l,

gv_tbname.

**--Get field names for given table

SELECT tabname

fieldname

keyflag

rollname

position

FROM dd03l

INTO TABLE it_dd03l

WHERE tabname EQ p_tab

AND fieldname NE 'MANDT'.

IF sy-subrc = 0.

SORT it_dd03l BY position.

DELETE it_dd03l WHERE fieldname CP '.INCLU*'.

ENDIF.

**--Get the description of the fields

LOOP AT it_dd03l INTO wa_dd03l.

IF NOT wa_dd03l-rollname IS INITIAL.

SELECT SINGLE ddtext

FROM dd04t

INTO wa_dd03l-ddtext

WHERE rollname EQ wa_dd03l-rollname

AND ddlanguage = sy-langu

AND as4local = 'A'.

MODIFY it_dd03l FROM wa_dd03l.

ELSE.

SELECT SINGLE ddtext

FROM dd03t

INTO wa_dd03l-ddtext

WHERE tabname EQ wa_dd03l-tabname

AND ddlanguage = sy-langu

AND as4local = 'A'

AND fieldname = wa_dd03l-fieldname.

MODIFY it_dd03l FROM wa_dd03l.

ENDIF.

ENDLOOP.

gv_tbname = p_tab.

**--Display screen with the fields listed for the given table

CALL SCREEN 200 STARTING AT 10 2

ENDING AT 70 22.

**--Clear all the fields selected

CLEAR : it_flds, it_flds[], gv_tbname.

**--Populate the newly selected fields

it_flds[] = it_temp[].

**--Clear temporary table with the fields selected

CLEAR : it_temp, it_temp[].

ENDFORM. " SELECT_FIELDLIST

*&---------------------------------------------------------------------

*& Form INITIALIZE_SCREEN

*&---------------------------------------------------------------------

FORM initialize_screen.

CALL FUNCTION 'FREE_SELECTIONS_INIT'

EXPORTING

kind = 'T'

expressions = gx_texpr

IMPORTING

selection_id = gv_selid

number_of_active_fields = gv_actnum

TABLES

tables_tab = it_tabs

fields_tab = it_flds

EXCEPTIONS

fields_incomplete = 01

fields_no_join = 02

field_not_found = 03

no_tables = 04

table_not_found = 05

expression_not_supported = 06

incorrect_expression = 07

illegal_kind = 08

area_not_found = 09

inconsistent_area = 10

kind_f_no_fields_left = 11

kind_f_no_fields = 12

too_many_fields = 13.

ENDFORM. " INITIALIZE_SCREEN

*&---------------------------------------------------------------------

*& Form SET_VALUES

*&---------------------------------------------------------------------

* Set the values to the select-options

*----------------------------------------------------------------------

FORM set_values.

CALL FUNCTION 'FREE_SELECTIONS_INIT'

EXPORTING

kind = 'T'

expressions = gx_texpr

IMPORTING

selection_id = gv_selid

number_of_active_fields = gv_actnum

TABLES

tables_tab = it_tabs

fields_tab = it_flds

EXCEPTIONS

fields_incomplete = 01

fields_no_join = 02

field_not_found = 03

no_tables = 04

table_not_found = 05

expression_not_supported = 06

incorrect_expression = 07

illegal_kind = 08

area_not_found = 09

inconsistent_area = 10

kind_f_no_fields_left = 11

kind_f_no_fields = 12

too_many_fields = 13.

ENDFORM. " SET_VALUES

*&---------------------------------------------------------------------

*& Form CALL_SCREEN

*&---------------------------------------------------------------------

* Call the screen to display the fields

*----------------------------------------------------------------------

FORM call_screen.

DATA : wa_where LIKE LINE OF gx_twhere,

lv_txt TYPE string.

lv_txt = 'Dynamic Selections Parameters for'(007).

CONCATENATE lv_txt p_tab

INTO gv_title SEPARATED BY space.

CALL FUNCTION 'FREE_SELECTIONS_DIALOG'

EXPORTING

selection_id = gv_selid

title = gv_title

tree_visible = ' '

IMPORTING

where_clauses = gx_twhere

expressions = gx_texpr

number_of_active_fields = gv_actnum

TABLES

fields_tab = it_flds

EXCEPTIONS

internal_error = 01

no_action = 02

no_fields_selected = 03

no_tables_selected = 04

selid_not_found = 05.

IF sy-subrc EQ 0.

REFRESH: s_where, s_selop.

**--Populate the Where clause with selected values

s_where-sign = gc_i.

s_where-option = gc_eq.

CLEAR wa_where.

READ TABLE gx_twhere INDEX 1 INTO wa_where.

LOOP AT wa_where-where_tab INTO s_where-low.

APPEND s_where.

ENDLOOP.

**--Populate all the fields

s_selop-sign = gc_i.

s_selop-option = gc_eq.

CLEAR : wa_flds.

LOOP AT it_flds INTO wa_flds.

s_selop-low = wa_flds-fieldname.

APPEND s_selop.

ENDLOOP.

ENDIF.

ENDFORM. " CALL_SCREEN

*&---------------------------------------------------------------------

*& Module STATUS_0200 OUTPUT

*&---------------------------------------------------------------------

* Display screen with select-options

*----------------------------------------------------------------------

MODULE status_0200 OUTPUT.

DATA: lv_txt TYPE string.

lv_txt = 'Selection Paramters List'(008).

SET PF-STATUS 'DIALOG'.

LEAVE TO LIST-PROCESSING AND RETURN TO SCREEN 0.

SUPPRESS DIALOG.

MOVE lv_txt TO sy-title.

**--display list of fields that can be selected for creating dynamic select-options

LOOP AT it_dd03l INTO wa_dd03l.

AT FIRST.

WRITE: (60) sy-uline.

ENDAT.

READ TABLE it_flds INTO wa_flds WITH KEY fieldname = wa_dd03l-fieldname.

IF sy-subrc NE 0.

CLEAR gv_temp.

ELSE.

gv_temp = 'X'.

ENDIF.

WRITE:/ '|' ,gv_temp AS CHECKBOX.

WRITE: (20) wa_dd03l-fieldname,'|', wa_dd03l-ddtext, AT 60 '|'.

HIDE: gv_temp, wa_dd03l-fieldname, wa_dd03l-keyflag.

AT LAST.

WRITE: (60) sy-uline.

ENDAT.

ENDLOOP.

ENDMODULE. " STATUS_0200 OUTPUT

*&---------------------------------------------------------------------

*& Form FETCH_DATA

*&---------------------------------------------------------------------

* Fetch data from table

*----------------------------------------------------------------------

FORM fetch_data .

DATA: lv_where TYPE string,

lv_cnt TYPE i.

**--Check for the existance of the table

SELECT *

FROM dd03l

INTO TABLE it_fields

WHERE tabname = p_tab.

SORT it_fields BY position.

**--Delete the fields starting with .INCLU

DELETE it_fields WHERE fieldname CP '.INCLU*'.

**--Display the first 150 fields of the table

LOOP AT it_fields INTO wa_fields TO 150.

lv_cnt = lv_cnt + 1.

wa_cat-tabname = p_tab.

wa_cat-fieldname = wa_fields-fieldname.

wa_cat-col_pos = lv_cnt.

wa_cat-inttype = wa_fields-inttype.

wa_cat-datatype = wa_fields-datatype.

wa_cat-intlen = wa_fields-intlen.

wa_cat-seltext = wa_fields-fieldname.

wa_cat-decimals = wa_fields-decimals.

wa_cat-ref_field = wa_fields-fieldname.

wa_cat-ref_table = p_tab.

APPEND wa_cat TO it_cat.

CLEAR wa_cat.

wa_fname-fld = wa_fields-fieldname.

APPEND wa_fname TO it_fname.

CLEAR wa_fname.

ENDLOOP.

**--Create a dynamic internal table with the 150 fields

CALL METHOD cl_alv_table_create=>create_dynamic_table

EXPORTING

it_fieldcatalog = it_cat

IMPORTING

ep_table = d_ref.

ASSIGN d_ref->* TO <f_fs>.

**--Populate the Where clause as a string

LOOP AT s_where.

CONCATENATE lv_where s_where-low INTO lv_where SEPARATED BY space.

ENDLOOP.

**--Select the data from the table given as input and populate

**--it into the dynamic internal table created based on the where condition

SELECT (it_fname)

FROM (p_tab)

INTO CORRESPONDING FIELDS OF TABLE <f_fs>

WHERE (lv_where).

**--If no entries are found that satisfies the selection criteria

IF sy-subrc <> 0.

MESSAGE 'No data found' TYPE 'I'.

ENDIF.

ENDFORM. " FETCH_DATA

*&---------------------------------------------------------------------

*& Form DISPLAY_DATA

*&---------------------------------------------------------------------

* Display data in the grid control

*----------------------------------------------------------------------

FORM display_data .

IF gt_cust IS INITIAL.

CREATE OBJECT gt_cust

EXPORTING

container_name = cust.

CREATE OBJECT gt_grid

EXPORTING

i_parent = gt_cust.

**--Display the data in the grid control

CALL METHOD gt_grid->set_table_for_first_display

EXPORTING

i_buffer_active = 'X'

i_bypassing_buffer = ' '

CHANGING

it_outtab = <f_fs>

it_fieldcatalog = it_cat

EXCEPTIONS

invalid_parameter_combination = 1

program_error = 2

too_many_lines = 3

OTHERS = 4.

IF sy-subrc <> 0.

ENDIF.

ENDFORM. " DISPLAY_DATA

*&---------------------------------------------------------------------

*& Module DISPLAY_DATA OUTPUT

*&---------------------------------------------------------------------

* Dispaly data in the output

*----------------------------------------------------------------------

MODULE display_data OUTPUT.

PERFORM display_data.

ENDMODULE. " DISPLAY_DATA OUTPUT

*&---------------------------------------------------------------------

*& Module STATUS_0300 OUTPUT

*&---------------------------------------------------------------------

* Pf-status for the screen

*----------------------------------------------------------------------

MODULE status_0300 OUTPUT.

SET PF-STATUS '13317'.

ENDMODULE. " STATUS_0300 OUTPUT

*&---------------------------------------------------------------------

*& Module USER_COMMAND_0300 INPUT

*&---------------------------------------------------------------------

* Handling the button clicks

*----------------------------------------------------------------------

MODULE user_command_0300 INPUT.

CASE sy-ucomm.

**--Go to the previous screen

WHEN 'BACK'.

LEAVE TO SCREEN 0.

**--Come out of the program

WHEN 'EXIT'.

LEAVE PROGRAM.

ENDCASE.

ENDMODULE. " USER_COMMAND_0300 INPUT

代码中用到了两个status：

1，DIALOG

2，13317

另外还要创建两个屏幕，200和300，

1，screen 0200

代码：

PROCESS BEFORE OUTPUT.
**--Set PF-STATUS
MODULE STATUS_0200.
PROCESS AFTER INPUT.

PROCESS BEFORE OUTPUT.

**--Set PF-STATUS

MODULE STATUS_0200.

PROCESS AFTER INPUT.

2，Screen 0300

代码：

PROCESS BEFORE OUTPUT.
**--Set PF-STATUS
MODULE STATUS_0300.
**--Display data using custom controller
MODULE DISPLAY_DATA.
PROCESS AFTER INPUT.
**--Handle button clicks
MODULE USER_COMMAND_0300.