FUNCTION CreateReqn()
  #newliststck  = case $itemtype ("A","4")("B","2")("C","1")("J","3")("F","5")\
                 ("S","1")("T","2")("V","1")("W","2")("O","6")
  if $itemtype = "C"
    Check_CCW()
    $rollnr = "00000/00"
    $stat   = "I"
  elseif $itemtype = "S"
    Check_CCW()
    $rollnr = "00000/00"
    $stat   = "I"
  elseif $itemtype = "V"
    Check_CCW()
    $rollnr = "00000/00"
    $stat   = "I"
  elseif $itemtype = "O"
    $rollnr = "BESPOK"
    $stat   = "A"
  elseif $itemtype = "B"
    $stat   = "I"
    $rollnr = "BESPOK"
  elseif $itemtype = "J"
    $stat   = "I"
    $rollnr = "BESPOK"
  elseif $itemtype = "T"
    $stat   = "I"
    $rollnr = "BESPOK"
  elseif $itemtype = "W"
    $stat   = "I"
    $rollnr = "BESPOK"
  else
    $stat   = "A"
    $rollnr = "NA"
  end if

  while true
    vloadif(dpath|"cus_ent4.vw")
    order change physical
    if file("current.idx") = 0         ' message "Making new index"
      makeidx("requsn","current.idx","0",1)
    end if

    WriteRecord()                      ' entry order
    if prodMRC = "Commission"          ' message "enter record in GDS_RCVD file"
      CommissionRcvd()
    end if
    #ordlength = 0
    exit while
  end while
END FUNCTION ' CreateReqn()