W Pub: ABAP Prog Propios SETGET

  1. report zpon_parameters.
  2.  
  3. parameters: p_id(10), valor(40).
  4.  
  5. at selection-screen output.
  6.    check not p_id is initial.
  7.    if valor is initial.
  8.       get parameter id p_id field valor.
  9.       check sy-subrc ne 0.
  10.    endif.
  11.    set parameter id p_id field valor.
[$[Get Code]]