两个程序传递选择参数

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/，如需转载，请注明出处，否则将追究法律责任。

转载于:http://blog.itpub.net/166523/viewspace-551902/