ITPub博客

首页 > Linux操作系统 > Linux操作系统 > 两个程序传递选择参数

两个程序传递选择参数

原创 Linux操作系统 作者:niuchao 时间:2019-06-21 10:00:05 0 删除 编辑
SPAN { font-family: "Courier New"; font-size: 10pt; color: #000000; background: #FFFFFF; } .L1S31 { font-style. italic; color: #808080; } .L1S32 { color: #3399FF; } .L1S33 { color: #4DA619; } .L1S52 { color: #0000FF; } *&---------------------------------------------------------------------*
*& Report  ZNCTEST01
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*

REPORT  ZNCTEST01.

parameters:
  r1 radiobutton group rad1,
  r2 radiobutton group rad1,
  r3 radiobutton group rad1.

parameters:
  p_edit0 type c memory id p1.

data v_r(1).

start-of-selection.
  if r1 = 'X'.
    v_r = '1'.
  elseif r2 = 'X'.
    v_r = '2'.
  else.
    v_r = '3'.
  endif.

  export m_txt from v_r to memory id 'mid'.

*  SUBMIT ZNCTEST02.

  CALL TRANSACTION 'ZTST2'.


SPAN { font-family: "Courier New"; font-size: 10pt; color: #000000; background: #FFFFFF; } .L1S31 { font-style. italic; color: #808080; } .L1S32 { color: #3399FF; } .L1S33 { color: #4DA619; } .L1S52 { color: #0000FF; } *&---------------------------------------------------------------------*
*& Report  ZNCTEST02
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*

REPORT  ZNCTEST02.

selection-screen begin of block v1 with frame .
parameters p_edit  type c memory id p1.
selection-screen end of block v1.

selection-screen begin of block v2 with frame.
parameters p_edit2 type c modif id P2.
selection-screen end of block v2.

data v_txt.

at selection-screen output.
  import m_txt to v_txt from memory id 'mid'.
  p_edit2 = v_txt.

  loop at screen.
    if screen-group1 = 'P2'.
      SCREEN-INPUT   = 0.
      MODIFY SCREEN.
    endif.
  endloop.



start-of-selection.
  write:/ 'get memory id text:'.
  write:/ v_txt.

来自 “ ITPUB博客 ” ,链接:http://blog.itpub.net/166523/viewspace-551902/,如需转载,请注明出处,否则将追究法律责任。

请登录后发表评论 登录
全部评论

注册时间:2004-11-04

  • 博文量
    139
  • 访问量
    110170