PROC ckb_mix, ckbm (
  number_of_jobs, nj  : integer 1..281474976710655 = 8
  iteration_count, ic : integer 1..281474976710655 = 50
  served_family, sf: name = testing
  compute_checksum, cc: boolean = false
  establish_condition_handler, ech: boolean = true
  status              : var of status = $optional
  )

  family = $strrep($value(served_family))
  cc = $strrep($value(compute_checksum))
  handler = $strrep($value(establish_condition_handler))

  FOR i = 1 TO $value(number_of_jobs) DO
    JOB  jn=$name('CKB_MIX'//$strrep(i)) sm='?'
      IF ?handler? THEN
      WHEN any_fault do
         reqoa ' CKB_MIX?$strrep(i)? failed '//$condition_name(osv$status.condition)
         disv osv$status
         LOGOUT
      WHENEND
      IFEND
      exet sp=dftu
      page_size = $mainframe(page_size)
      FOR j = 1 TO ?$strrep($value(iteration_count))? DO
        test_remote_procedure_call ?family?  sbs=20 rc=50 rbs=0 cc=?cc?
        test_remote_procedure_call ?family?  sds=1*page_size  rc=150  rbs=0 cc=?cc?
        test_remote_procedure_call ?family?  rds=1*page_size rc=150 rbs=0 cc=?cc?
        test_remote_procedure_call ?family?  sbs=30 rc=50  rbs=0 cc=?cc?
        test_remote_procedure_call ?family?  rds=4*page_size rc=25  rbs=0 cc=?cc?
        test_remote_procedure_call ?family?  sds=4*page_size rc=25  rbs=0  cc=?cc?
        test_remote_procedure_call ?family?  sbs=25 rc=30    rbs=0 cc=?cc?
        test_remote_procedure_call ?family?  sbs=40 rc=30   rbs=0 cc=?cc?
        test_remote_procedure_call ?family?  sds=1*page_size rc=117  rbs=0 cc=?cc?
        test_remote_procedure_call ?family?  rds=4*page_size rc=27 rbs=0 cc=?cc?
        test_remote_procedure_call ?family?  sds=4*page_size rc=30 rbs=0 cc=?cc?
        test_remote_procedure_call ?family?  rds=1*page_size rc=116 rbs=0 cc=?cc?
      FOREND
      QUIT
    JOBEND
  FOREND

PROCEND ckb_mix

