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

[Peter Bateman]

       Hi John:
 
        I would try to make sure there is no file of the same 
        name around and that there is no logical set for CARS_OPEN_ITEMS_AGING_SF1.sf                    CARS_OPEN_ITEMS_AGING_SF1.dat
 
        It looks like at one time you had CARS_OPEN_ITEMS_AGING_SF1 defined as an
        indexed file or an indexed subfile.
 
        I would put the KEEP option  on the second SET SUBFILE statement.
       
        Before compiling
        $DELETE CARS_OPEN_ITEMS_AGING_SF1.*;*
        I would compile each QUIZ program in a separate invocation QUIZ.
 
        
 
 
        $QUIZ
        > $DELETE CARS_OPEN_ITEMS_AGING_SF1.SF*;*
        >execute CARS_ROOT:[WORK.PENNEYJ.QZS]CARS_OPEN_ITEMS_AGING1.QZC 
 
        Regards,
        Peter Bateman
 
       
 
        


Date: Tue, 29 Apr 2008 07:29:51 -0700From: resolutebay at yahoo.comSubject: Bogus RMS File Error- VAX/VMS 6.2 RDB V6.1-13 Powerhouse 7.10E6To: powerh-l at lists.sowder.com
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_detaildefine 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 keepset 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 obligationsdefine 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 appendset 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.
_________________________________________________________________
Enter today for your chance to win $1000 a day—today until May 12th. Learn more at SignInAndWIN.ca
http://g.msn.ca/ca55/215
-------------- next part --------------
An HTML attachment was scrubbed...
URL: http://lists.sowder.com/pipermail/powerh-l/attachments/20080429/55c4e2a4/attachment.htm