messbox(" Prepare Stock Carpet Usage Report? (y/n) ",1,1,1)
  if ptstr == "y"
    $itemtype = "C"
    PrepareTotalReport("Stock Carpet","SSA_CARP","SSA_STK")   ' message "Finished Stock report"
    file unload all
  end if

  messbox(" Prepare Stock Ancillaries Usage Analysis Report? (y/n) ",1,1,1)
  if ptstr == "y"
    $itemtype = "A"
    PrepareTotalReport("Stock Ancillary","SSA_ANCL","SSA_ANC")   ' message "Finished Stock report"
    file unload all
  end if