登录  
 加关注
查看详情
   显示下一条  |  关闭
温馨提示!由于新浪微博认证机制调整,您的新浪微博帐号绑定已过期,请重新绑定!立即重新绑定新浪微博》  |  关闭

原来为了你

我的人生就是要一次次的超越

 
 
 

日志

 
 
 
 

在选择屏幕上 set ps-status 1  

2011-01-27 10:37:25|  分类: ABAP屏幕操作 |  标签: |举报 |字号 订阅

  下载LOFTER 我的照片书  |

report  ztest_pfstatus_1   no standard page heading.

*—Selection screen fields

tables : sscrfields.

*—Datat and types

data:
  gc_name    type  string.
data:
  lt_table   like table of gc_name,
  ls_table   like line of lt_table.
parameter: p_name type char100.

load-of-program.

*—output

  concatenate
    gc_name
    ';'
    'load-of-program'
    into gc_name.

initialization.

*—output
  concatenate
    gc_name
    ';'
    'Initialization'
    into gc_name.

at selection-screen output.

*—output
  concatenate
    gc_name
    ';'
    'at selection-screen output'
    into gc_name.
*—Set PF-status
  set pf-status 'SCPF'.

at selection-screen.
*—output
  concatenate
    gc_name
    ';'
    'at selection-screen'
    into gc_name.

*—
方式1 Sy-ucomm
  case sy-ucomm.
    when 'SE19'.
      leave program.
  endcase.

*--modify
  if sy-ucomm = 'MM01'.
    sscrfields-ucomm = 'ONLI'.
  endif.
*—
方式2 sscrfields-ucomm
  case sscrfields-ucomm.
    when 'MM01'.
      leave program.
  endcase.


start-of-selection.
  set pf-status 'OUTPF'.

*—output
  concatenate
    gc_name
    ';'
    'start-of-selection'
    into gc_name.
*1. Output system fields.
  write:
     /'PF-status:', sy-pfkey,
     /'Dynscreen:', sy-dynnr.
*2. Output result
  split gc_name at ';' into table lt_table .
  write:
     /'Parameter in S-screen:'.
  loop at lt_table into ls_table.
    write:
       / ls_table.
  endloop.

at user-command.
*—Sy-ucomm
  case sy-ucomm.
    when 'SPOOL'.
      leave program.
  endcase.
  case sscrfields-ucomm.
    when 'BACK'.
      leave program.
  endcase.

  评论这张
 
阅读(358)| 评论(0)

历史上的今天

评论

<#--最新日志,群博日志--> <#--推荐日志--> <#--引用记录--> <#--博主推荐--> <#--随机阅读--> <#--首页推荐--> <#--历史上的今天--> <#--被推荐日志--> <#--上一篇,下一篇--> <#-- 热度 --> <#-- 网易新闻广告 --> <#--右边模块结构--> <#--评论模块结构--> <#--引用模块结构--> <#--博主发起的投票-->
 
 
 
 
 
 
 
 
 
 
 
 
 
 

页脚

网易公司版权所有 ©1997-2018