HOW TO GENERATE A LIST IN MODULE POOL PROGRAM?

[Former Member]

DEAR FRIENDS,

HOW TO GENERATE A LIST IN MODULE POOL PROGRAM?

[Former Member]

hi,

Its very simple...

Exp....

when 'SALE'.

select * from vbak into table itab.

loop at itab.

write:/ itab-vbeln,

......

.......

.......

endloop.

LEAVE to list-processing and return to screen 'screen no'.

regds,

Paras

[Former Member]

Hi,

Make it clear.

Do you want to generate list on user defined screen or SAP standard screen(resulting from WRITE statement).

gaurav.

[Former Member]

HI,

see this example.

TABLES sdyn_conn.

DATA: wa_spfli TYPE spfli,

flightdate TYPE sflight-fldate.

CALL SCREEN 100.

MODULE status_0100 OUTPUT.

SET PF-STATUS 'SCREEN_100'.

ENDMODULE.

MODULE cancel INPUT.

LEAVE PROGRAM.

ENDMODULE.

MODULE user_command_0100.

CALL SCREEN 500.

SET SCREEN 100.

ENDMODULE.

MODULE call_list_500 OUTPUT.

LEAVE TO LIST-PROCESSING AND RETURN TO SCREEN 0.

SET PF-STATUS space.

SUPPRESS DIALOG.

SELECT carrid connid cityfrom cityto

FROM spfli

INTO CORRESPONDING FIELDS OF wa_spfli

WHERE carrid = sdyn_conn-carrid.

WRITE: / wa_spfli-carrid, wa_spfli-connid,

wa_spfli-cityfrom, wa_spfli-cityto.

HIDE: wa_spfli-carrid, wa_spfli-connid.

ENDSELECT.

CLEAR: wa_spfli-carrid.

ENDMODULE.

TOP-OF-PAGE.

WRITE text-001 COLOR COL_HEADING.

ULINE.

TOP-OF-PAGE DURING LINE-SELECTION.

WRITE sy-lisel COLOR COL_HEADING.

ULINE.

AT LINE-SELECTION.

CHECK not wa_spfli-carrid is initial.

SELECT fldate

FROM sflight

INTO flightdate

WHERE carrid = wa_spfli-carrid AND

connid = wa_spfli-connid.

WRITE / flightdate.

ENDSELECT.

CLEAR: wa_spfli-carrid.

<b>flow logic:</b>

PROCESS BEFORE OUTPUT.

MODULE STATUS_0100.

PROCESS AFTER INPUT.

MODULE CANCEL AT EXIT-COMMAND.

MODULE USER_COMMAND_0100.

PROCESS BEFORE OUTPUT.

MODULE CALL_LIST_500.

PROCESS AFTER INPUT.

rgds,

bharat.