Guest User

Untitled

a guest
Mar 24th, 2018
83
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.36 KB | None | 0 0
  1. * copy known query parameters to the navigation parameters
  2. for each(#lParameter) in(#SYS_WEB.URLParameters)
  3.  
  4. case of_field(#lParameter.Name.UpperCase)
  5. when (= TRACE)
  6. #mParameters<#lParameter.Name> := #lParameter.Value
  7. when (= DEVELOPER)
  8. #mParameters<#lParameter.Name> := #lParameter.Value
  9. when (= DEBUG)
  10. #mParameters<#lParameter.Name> := #lParameter.Value
  11. endcase
  12.  
  13. endfor
Add Comment
Please, Sign In to add comment