<html>
<head>
<style>
.hmmessage P
{
margin:0px;
padding:0px
}
body.hmmessage
{
FONT-SIZE: 10pt;
FONT-FAMILY:Tahoma
}
</style>
</head>
<body class='hmmessage'>
Hi John:<BR>
<BR>
I would try to make sure there is no file of the same <BR>
name around and that there is no logical set for CARS_OPEN_ITEMS_AGING_SF1.sf <BR> CARS_OPEN_ITEMS_AGING_SF1.dat<BR>
<BR>
It looks like at one time you had CARS_OPEN_ITEMS_AGING_SF1 defined as an<BR>
indexed file or an indexed subfile.<BR>
<BR>
I would put the KEEP option on the second SET SUBFILE statement.<BR>
<BR>
Before compiling<BR>
$DELETE CARS_OPEN_ITEMS_AGING_SF1.*;*<BR>
I would compile each QUIZ program in a separate invocation QUIZ.<BR>
<BR>
<BR>
<BR>
<BR>
$QUIZ<BR>
> $DELETE CARS_OPEN_ITEMS_AGING_SF1.SF*;*<BR>
>execute CARS_ROOT:[WORK.PENNEYJ.QZS]CARS_OPEN_ITEMS_AGING1.QZC <BR>
<BR>
Regards,<BR>
Peter Bateman<BR>
<BR>
<BR>
<BR>
<BR><BR>
<BLOCKQUOTE>
<HR>
Date: Tue, 29 Apr 2008 07:29:51 -0700<BR>From: resolutebay@yahoo.com<BR>Subject: Bogus RMS File Error- VAX/VMS 6.2 RDB V6.1-13 Powerhouse 7.10E6<BR>To: powerh-l@lists.sowder.com<BR><BR>
<DIV>Good Morning fellow PH listers:</DIV>
<DIV> </DIV>
<DIV>I'm getting the following bogus error when I execute a simple Quiz extract:</DIV>
<DIV> </DIV>
<DIV>execute CARS_ROOT:[WORK.PENNEYJ.QZS]CARS_OPEN_ITEMS_AGING1.QZC <BR>␊> execute CARS_ROOT:[WORK.PENNEYJ.QZS]CARS_OPEN_ITEMS_AGING1.QZC␍<BR>␊␍<BR>␊*E* Subfile already exists as direct file.¿␍<BR>␊%RMS-F-SEG, overlapping segments or segmented key must be string for key = !UL␍<BR>␊␍<BR>␊*W* The permanent subfile CARS_OPEN_ITEMS_AGING_SF1 will be cleared.␍<BR>␊*E* The file open type is inconsistent with the data dictionary type. ␍<BR>␊(CARS_OPEN_ITEMS_AGING_SF1)¿␍</DIV>
<DIV> </DIV>
<DIV>and</DIV>
<DIV> </DIV>
<DIV>execute CARS_ROOT:[WORK.PENNEYJ.QZS]CARS_OPEN_ITEMS_AGING2.QZC <BR>␊> execute CARS_ROOT:[WORK.PENNEYJ.QZS]CARS_OPEN_ITEMS_AGING2.QZC␍<BR>␊*E* Subfile already exists as direct file.¿␍<BR>␊*E* The file open type is inconsistent with the data dictionary type. ␍<BR>␊(CARS_OPEN_ITEMS_AGING_SF1)¿␍</DIV>
<DIV>++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++</DIV>
<DIV> </DIV>
<DIV>The code is as followis:</DIV>
<DIV> </DIV>
<DIV>access cash_detail in cars_db</DIV>
<DIV><BR>choose invoice_num "ON ACCT", "REFUND"</DIV>
<DIV><BR>define d_rec_type char*2 = "CA"<BR>define d_rec_subtype char*2 = " "</DIV>
<DIV>define d_proc_date zoned*8 = & <BR> nconvert(getsystemval("cars_rpt_proc_date",symbol))</DIV>
<DIV>define d_age_date date = cash_batch_date of cash_detail<BR>define d_age num*6 = &<BR> days(d_proc_date) - days(cash_batch_date of cash_detail) <BR>define d_amount num*13 = trans_amt of cash_detail </DIV>
<DIV><BR>report summary &<BR> division_num of cash_detail &<BR> dec_pat_id of cash_detail &<BR> company_id of cash_detail & <BR> branch_id of cash_detail &<BR> invoice_num of cash_detail &<BR> d_rec_type &<BR> d_rec_subtype &<BR> d_proc_date & <BR> d_age_date & <BR> d_age & <BR> d_amount</DIV>
<DIV><BR>set subfile name cars_open_items_aging_sf1 keep<BR>set report nolimit </DIV>
<DIV><BR>build cars_open_items_aging1<BR></DIV>
<DIV>and</DIV>
<DIV> </DIV>
<DIV>access *obligations</DIV>
<DIV><BR>define d_rec_type char*2 = & <BR> "OC" if open_bal_amt of obligations < 0 & <BR> else "OI" if memo_inv_ind of obligations <> "M" & <BR> else "OM"<BR>define d_rec_subtype char*2 = insurer_level of obligations</DIV>
<DIV>define d_proc_date zoned*8 = & <BR> nconvert(getsystemval("cars_rpt_proc_date",symbol))</DIV>
<DIV>define d_age_date date = due_date of obligations<BR>define d_age num*6 = &<BR> days(d_proc_date) - days(due_date of obligations) <BR>define d_amount num*13 = open_bal_amt of obligations</DIV>
<DIV><BR>report summary &<BR> division_num of obligations &<BR> dec_pat_id of obligations &<BR> company_id of obligations &<BR> branch_id of obligations &<BR> invoice_num of obligations &<BR> d_rec_type &<BR> d_rec_subtype &<BR> d_proc_date & <BR> d_age_date & <BR> d_age & <BR> d_amount</DIV>
<DIV><BR>set subfile name cars_open_items_aging_sf1 append<BR>set report nolimit </DIV>
<DIV><BR>build cars_open_items_aging2</DIV>
<DIV> </DIV>
<DIV>We don't have current support.</DIV>
<DIV> </DIV>
<DIV>Any ideas would be appreciated!</DIV>
<DIV> </DIV>
<DIV>Sincerely,</DIV>
<DIV> </DIV>
<DIV>JP in IL</DIV><BR><BR>
<DIV><STRONG>John M Penney, Partner</STRONG></DIV>
<DIV><STRONG>The TechUnion Group</STRONG> </DIV>
<DIV><STRONG>1532 Fern Street SW</STRONG></DIV>
<DIV><STRONG>Olympia, WA 98502</STRONG></DIV>
<DIV> </DIV>
<DIV><STRONG>(360)789-8159</STRONG></DIV>
<HR SIZE=1>
Be a better friend, newshound, and know-it-all with Yahoo! Mobile. <A href="http://us.rd.yahoo.com/evt=51733/*http://mobile.yahoo.com/;_ylt=Ahu06i62sR8HDtDypao8Wcj9tAcJ" target=_blank>Try it now.</A></BLOCKQUOTE><br /><hr />Sign in to Windows Live Messenger, and enter for your chance to win $1000 a day—today until May 12th. <a href='http://g.msn.ca/ca55/210' target='_new'>Visit SignInAndWIN.ca</a></body>
</html>