Bogus RMS File Error- VAX/VMS 6.2 RDB V6.1-13 Powerhouse 7.10E6

[Penney, John]

Good Morning fellow PH listers:
   
  I'm getting the following bogus error when I execute a simple Quiz extract:
   
  execute CARS_ROOT:[WORK.PENNEYJ.QZS]CARS_OPEN_ITEMS_AGING1.QZC 
␊> execute CARS_ROOT:[WORK.PENNEYJ.QZS]CARS_OPEN_ITEMS_AGING1.QZC␍
␊␍
␊*E* Subfile already exists as direct file.¿␍
␊%RMS-F-SEG, overlapping segments or segmented key must be string for key = !UL␍
␊␍
␊*W* The permanent subfile CARS_OPEN_ITEMS_AGING_SF1 will be cleared.␍
␊*E* The file open type is inconsistent with the data dictionary type. ␍
␊(CARS_OPEN_ITEMS_AGING_SF1)¿␍
   
  and
   
  execute CARS_ROOT:[WORK.PENNEYJ.QZS]CARS_OPEN_ITEMS_AGING2.QZC  
␊> execute CARS_ROOT:[WORK.PENNEYJ.QZS]CARS_OPEN_ITEMS_AGING2.QZC␍
␊*E* Subfile already exists as direct file.¿␍
␊*E* The file open type is inconsistent with the data dictionary type. ␍
␊(CARS_OPEN_ITEMS_AGING_SF1)¿␍
  ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
   
  The code is as followis:
   
  access cash_detail in cars_db
  
choose invoice_num "ON ACCT", "REFUND"
  
define d_rec_type    char*2 = "CA"
define d_rec_subtype char*2 = " "
  define d_proc_date zoned*8 = & 
       nconvert(getsystemval("cars_rpt_proc_date",symbol))
  define d_age_date date = cash_batch_date of cash_detail
define d_age num*6 = &
       days(d_proc_date) - days(cash_batch_date of cash_detail) 
define d_amount num*13 = trans_amt of cash_detail 
  
report summary &
  division_num of cash_detail &
  dec_pat_id of cash_detail &
  company_id of cash_detail & 
  branch_id of cash_detail &
  invoice_num of cash_detail &
  d_rec_type &
  d_rec_subtype &
  d_proc_date & 
  d_age_date & 
  d_age & 
  d_amount
  
set subfile name cars_open_items_aging_sf1 keep
set report nolimit 
  
build cars_open_items_aging1

  and
   
  access *obligations
  
define d_rec_type    char*2 = & 
       "OC" if open_bal_amt of obligations < 0 & 
  else "OI" if memo_inv_ind of obligations <> "M" & 
  else "OM"
define d_rec_subtype char*2 = insurer_level of obligations
  define d_proc_date zoned*8 = & 
       nconvert(getsystemval("cars_rpt_proc_date",symbol))
  define d_age_date date = due_date of obligations
define d_age num*6 = &
       days(d_proc_date) - days(due_date of obligations) 
define d_amount num*13 = open_bal_amt of obligations
  
report summary &
  division_num of obligations &
  dec_pat_id of obligations &
  company_id of obligations &
  branch_id of obligations &
  invoice_num of obligations &
  d_rec_type &
  d_rec_subtype &
  d_proc_date & 
  d_age_date & 
  d_age & 
  d_amount
  
set subfile name cars_open_items_aging_sf1 append
set report nolimit 
  
build cars_open_items_aging2
   
  We don't have current support.
   
  Any ideas would be appreciated!
   
  Sincerely,
   
  JP in IL


John M Penney, Partner
  The TechUnion Group 
  1532 Fern Street SW
  Olympia, WA  98502
   
  (360)789-8159

       
---------------------------------
Be a better friend, newshound, and know-it-all with Yahoo! Mobile.  Try it now.
-------------- next part --------------
An HTML attachment was scrubbed...
URL: http://lists.sowder.com/pipermail/powerh-l/attachments/20080429/c11ec955/attachment.html