PROCEDURE dfm$rambo5, rambo5 (
  number_of_jobs, noj: integer = 20
  repeat_count, rc: integer = 20
  family, f: name = testing
  application, a: name = doit_app
  send_size, sz: integer = 200
  receive_size, rs: integer = 2000
  use_data_area, uda: key
      (send, s)
      (receive, r)
      (both, b)
      (none, n)
    keyend = both
  remote_procedure_name, rpn, rn: program_name = dfp$server_test_app_support
  library, l: file
  status)

  FOR i = 1 TO number_of_jobs DO
    JOB sm='?' jn=$name('RAMBOv'//$strrep(i))
      crev ign k=status
      crev unq k=string v=$unique
      exet sp=dfp$client_test_app_sup_r3 ..
            p='family_name=?family? send_size=?send_size? receive_size=?receive_size? ..
            use_data_area=?use_data_area? remote_procedure_name=?remote_procedure_name? ..
            application_name=?application? repeat_count=?repeat_count?'
    JOBEND
  FOREND

PROCEND dfm$rambo5
