Code: Alles auswählen.
report testreport.
initialization.
sscrfields-functxt_01 = text-110.
at selection-screen.
case sy-ucomm.
when 'FC01'.
perform call_screen_100.
endcase.
start-of-selection.
perform tu_was_ein_programm_tun_muss.
form tu_was_ein_programm_tun_muss.
* Hier werden Daten in einer globalen internen Tabelle gesammelt
endform.
form call_screen_100.
[...]
call screen 100 starting at 5 5 ending at 90 20.
endform.
module status_0100 output.
set pf-status 'STATUS_0001'.
set titlebar 'TITEL_0001'.
endmodule.
module pbo output.
endmodule.
module pai input.
endmodule.
module user_command_0100 input.
case sy-ucomm.
when 'BACK'.
leave to screen 0.
endcase.
endmodule.
Code: Alles auswählen.
leave to list-processing.
loop at gt_itab into ls_itab.
write alles_mögliche
endloop.
Folgende Benutzer bedankten sich beim Autor a-dead-trousers für den Beitrag:
Margolwes