abap 弹出窗口屏幕（screen)实现关闭右上角的关闭按钮事件

在ABAP中的SCREEN的开发中，如果通过call screen 1000 starting at 11 12 ending at 23 22实现弹出小窗口的时候，右上角的关闭按钮是无法达到关闭窗口的效果的，我们都知道如果通过call screen 1000调用屏幕的时候，关闭按钮是可以关闭窗口的，小窗口的关闭要通过CODING来实现，当时我遇到这个问题，在网上找了N长时间才找到这个方法，然 后抱着试一试的态度居然实现了，现在把这个方法也介绍给大家：
1）如果没有给这个屏幕设置GUI状态，那么请创建一个GUI状态，然后给这个屏幕，通过set pf-status来实现。
2）有了GUI状态后，再GUI状态的功能码上的关闭图标上分配一个功能码给它。
3）分配好功能码，在按钮事件处理，如果点击了这个按钮，就leave to screen 0(返回上一个屏幕，如果上一个屏幕就退出程序）或者leave program(退出程序）。