PROCEDURE (osm$repmrf) replace_multi_record_file, repmrf (
  nos_ve_file, nvf: file = $required
  nos_file, nf: name 7 = $required
  status)

  "$FORMAT=OFF
  VAR
    lsts: status
  VAREND
  "$FORMAT=ON"
  detach_file $local.nos_tape_ic_file status=lsts
  detach_file $local.nos_xfer status=lsts

  IF $job(c170_os_type) = 'NOS' THEN
    "$FORMAT=OFF
    VAR
      sv: array 1 .. 13 of string
    VAREND
    "$FORMAT=ON"
    sv(1) = 'jobc.'
    sv(2) = 'common(system)'
    sv(3) = 'gtr(system,nvelib,u)ulib/nvelib'
    sv(4) = 'library(nvelib/a)'
    sv(5) = 'settl,*.'
    sv(6) = 'setasl,*.'
    sv(7) = 'setjsl,*.'
    sv(8) = 'purge,' // $string(nos_file) // '/na.'
    sv(9) = 'define,tape=' // $string(nos_file) // '.'
    sv(10) = 'xpfua.'
    sv(11) = 'exit.'
    sv(12) = 'dayfile,day.'
    sv(13) = 'replace,day.'

  ELSE
    "$FORMAT=OFF
    VAR
      sv: array 1 .. 15 of string
    VAREND
    "$FORMAT=ON"
    catalog_id = $nosbe_catalog_id
    sv(1) = 'JOBC,T0.'
    sv(2) = 'LIBRARY(NVELIB)'
    sv(3) = 'PURGE(' // $string(nos_file) // ',ID=' // catalog_id // ')'
    sv(4) = 'SKIP,FNDFILE.'
    sv(5) = '  EXIT(U)'
    sv(6) = '  SET(EF=0)'
    sv(7) = '  BKSP(OUTPUT)'
    sv(8) = 'ENDIF,FNDFILE.'
    sv(9) = 'REQUEST(TAPE,PF)'
    sv(10) = 'XPFUA.'
    sv(11) = 'CATALOG(TAPE,' // $string(nos_file) // ',ID=' // catalog_id // ')'
    sv(12) = 'EXIT.'
    sv(13) = 'REQUEST(DAY,PF)'
    sv(14) = 'DAYFILE,DAY.'
    sv(15) = 'CATALOG(DAY,ID=' // catalog_id // ')'
  IFEND

  set_file_attributes $local.nos_tape_ic_file ui='sv'
  request_link $local.nos_tape_ic_file
  set_file_attributes $local.nos_xfer fap=rap$nos_file_write
  execute_task sp=rap$repmrf l=$system.osf$system_library p=$string(nos_ve_file) lmo=none
  detach_file ($local.nos_tape_ic_file, $local.nos_xfer) status=lsts

PROCEND replace_multi_record_file
