EVENTS IN SELECTION AND GUI
REPORT YMSDETAI_LIST .
start-of-selection.
write: 'BaSIC LIST, SY-LSIND=', SY-LSIND.
AT LINE-SELECTION.
WRITE: 'SECONDRY LIST, SY-LSIND=', SY-LSIND.
REPORT YMSD_LIST_AT_LINE_SELECTION .
START-OF-SELECTION.
WRITE: 'BASIC LIST, SY-LSIND=', SY-LSIND.
AT LINE-SELECTION.
IF SY-LSIND = 3.
SY-LSIND = 0.
ENDIF.
WRITE: 'SECONDRY LIST, SY-LSIND=', SY-LSIND.
REPORT YMSD_TOP_OF_PAGE .
START-OF-SELECTION.
WRITE 'BASIC LIST'.
AT LINE-SELECTION.
WRITE 'SECONDRY LIST'.
TOP-OF-PAGE DURING LINE-SELECTION.
CASE SY-LSIND.
WHEN 1.
WRITE: 'FIRST SECONDRY LIST'.
WHEN 2.
WRITE: 'SECOND SECONDY LIST'.
WHEN OTHERS.
WRITE: 'SECONDRY LIST,LEVEL:', SY-LSIND.
ENDCASE.
ULINE.
REPORT YMSLIST .
start-of-selection.
write 'basic list, press pf5, pf6, pf7, or pf8'.
AT pf5.
perform out.
AT pf6.
perform out.
AT pf7.
perform out.
AT pf8.
perform out.
form out.
write: 'secondry list by pf-key selection',
/ 'sy-lsind=', sy-lsind,
/ 'sy-ucomm=', sy-ucomm.
endform.
REPORT YMS_EVENTS .
PARAMETERS P1(8).
WRITE: /22 'P1=', P1.
DATA: A TYPE I.
INITIALIZATION.
P1 = 'INDIA'.
A = 22.
START-OF-SELECTION.
WRITE: /22 'SELECTION SCREEN START'.
WRITE: /22 A.
TOP-OF-PAGE.
WRITE: /22 'THIS IS EVENT RELATED PROGRAM'.
END-OF-PAGE.
WRITE: /22 'THIS IS THE FOOTER OF PAGE'.
END-OF-SELECTION.
WRITE: /(22) SY-ULINE,
/ 'END OF SELECTION SCREEN'.
start-of-selection.
write: 'BaSIC LIST, SY-LSIND=', SY-LSIND.
AT LINE-SELECTION.
WRITE: 'SECONDRY LIST, SY-LSIND=', SY-LSIND.
REPORT YMSD_LIST_AT_LINE_SELECTION .
START-OF-SELECTION.
WRITE: 'BASIC LIST, SY-LSIND=', SY-LSIND.
AT LINE-SELECTION.
IF SY-LSIND = 3.
SY-LSIND = 0.
ENDIF.
WRITE: 'SECONDRY LIST, SY-LSIND=', SY-LSIND.
REPORT YMSD_TOP_OF_PAGE .
START-OF-SELECTION.
WRITE 'BASIC LIST'.
AT LINE-SELECTION.
WRITE 'SECONDRY LIST'.
TOP-OF-PAGE DURING LINE-SELECTION.
CASE SY-LSIND.
WHEN 1.
WRITE: 'FIRST SECONDRY LIST'.
WHEN 2.
WRITE: 'SECOND SECONDY LIST'.
WHEN OTHERS.
WRITE: 'SECONDRY LIST,LEVEL:', SY-LSIND.
ENDCASE.
ULINE.
REPORT YMSLIST .
start-of-selection.
write 'basic list, press pf5, pf6, pf7, or pf8'.
AT pf5.
perform out.
AT pf6.
perform out.
AT pf7.
perform out.
AT pf8.
perform out.
form out.
write: 'secondry list by pf-key selection',
/ 'sy-lsind=', sy-lsind,
/ 'sy-ucomm=', sy-ucomm.
endform.
REPORT YMS_EVENTS .
PARAMETERS P1(8).
WRITE: /22 'P1=', P1.
DATA: A TYPE I.
INITIALIZATION.
P1 = 'INDIA'.
A = 22.
START-OF-SELECTION.
WRITE: /22 'SELECTION SCREEN START'.
WRITE: /22 A.
TOP-OF-PAGE.
WRITE: /22 'THIS IS EVENT RELATED PROGRAM'.
END-OF-PAGE.
WRITE: /22 'THIS IS THE FOOTER OF PAGE'.
END-OF-SELECTION.
WRITE: /(22) SY-ULINE,
/ 'END OF SELECTION SCREEN'.
Comments
Post a Comment