PROCEDURE initialize_tape_volume, initv (
  element, element_name, en, e: name = $optional
  recorded_vsn, rvsn, rv: any of
      string 1..6
      name 1..6
    anyend = $optional
  type, t: key
      mt9$800, mt9$1600, mt9$6250, mt18$38000
    keyend = $optional
  owner_identifier, oi: string 1..14 = $optional
  volume_accessibility_code, vac: string 1 = $optional
  file_accessibility_code, fac: string 1 = $optional
  character_set, cs: key
      (ascii, a)
      (ebcdic, e)
    keyend = ASCII
  label_standard_version, lsv: string 1 = '4'
  external_vsn, evsn, ev: (BY_NAME) any of
      string 1..6
      name 1..6
    anyend = $optional
  status)

  IF $specified(recorded_vsn) THEN
    IF $specified(external_vsn) THEN
      create_blank_labeled_volume element=element recorded_vsn=recorded_vsn character_set=character_set ..
        density=type external_vsn=external_vsn file_accessibility=file_accessibility_code ..
        label_standard_version=$integer(label_standard_version) owner_identifier=owner_identifier ..
        volume_accessibility=volume_accessibility_code status=status
    ELSE
      create_blank_labeled_volume element=element recorded_vsn=recorded_vsn character_set=character_set ..
        density=type file_accessibility=file_accessibility_code ..
        label_standard_version=$integer(label_standard_version) owner_identifier=owner_identifier ..
        volume_accessibility=volume_accessibility_code status=status
    IFEND
  ELSEIF $specified(external_vsn) THEN
    create_blank_labeled_volume element=element character_set=character_set ..
      density=type external_vsn=external_vsn file_accessibility=file_accessibility_code ..
      label_standard_version=$integer(label_standard_version) owner_identifier=owner_identifier ..
      volume_accessibility=volume_accessibility_code status=status
  IFEND

PROCEND initialize_tape_volume
