<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
<style type="text/css" style="display:none;"> P {margin-top:0;margin-bottom:0;} </style>
</head>
<body dir="ltr">
<div class="elementToProof" style="font-family: Aptos, Aptos_EmbeddedFont, Aptos_MSFontService, Calibri, Helvetica, sans-serif; font-size: 12pt; color: rgb(0, 0, 0);">
Hi, </div>
<div class="elementToProof" style="font-family: Aptos, Aptos_EmbeddedFont, Aptos_MSFontService, Calibri, Helvetica, sans-serif; font-size: 12pt; color: rgb(0, 0, 0);">
<br>
</div>
<div class="elementToProof" style="font-family: Aptos, Aptos_EmbeddedFont, Aptos_MSFontService, Calibri, Helvetica, sans-serif; font-size: 12pt; color: rgb(0, 0, 0);">
You right.</div>
<div class="elementToProof" style="font-family: Aptos, Aptos_EmbeddedFont, Aptos_MSFontService, Calibri, Helvetica, sans-serif; font-size: 12pt; color: rgb(0, 0, 0);">
<br>
</div>
<div class="elementToProof" style="font-family: Aptos, Aptos_EmbeddedFont, Aptos_MSFontService, Calibri, Helvetica, sans-serif; font-size: 11pt; color: rgb(0, 0, 0);">
A DELETE file is used with an associated file with the same number of occurrence. </div>
<div class="elementToProof" style="font-family: Aptos, Aptos_EmbeddedFont, Aptos_MSFontService, Calibri, Helvetica, sans-serif; font-size: 11pt; color: rgb(0, 0, 0);">
<br>
</div>
<div class="elementToProof" style="font-family: Aptos, Aptos_EmbeddedFont, Aptos_MSFontService, Calibri, Helvetica, sans-serif; font-size: 11pt; color: rgb(0, 0, 0);">
So the best way to do it is : </div>
<div class="elementToProof" style="font-family: Aptos, Aptos_EmbeddedFont, Aptos_MSFontService, Calibri, Helvetica, sans-serif; font-size: 11pt; color: rgb(0, 0, 0);">
<br>
</div>
<div class="elementToProof" style="font-family: Aptos, Aptos_EmbeddedFont, Aptos_MSFontService, Calibri, Helvetica, sans-serif; font-size: 11pt; color: rgb(0, 0, 0);">
FILE TRANSACTIONS PRIMARY<br>
ACCESS VIA TRANS-IDENT REQUEST TRANS-IDENT<br>
<br>
FILE TRANNOTE <span style="color: rgb(237, 92, 87);"><b><i>DESIGNER </i></b></span>ALIAS NOTE-DELETE</div>
<div class="elementToProof" style="font-family: Aptos, Aptos_EmbeddedFont, Aptos_MSFontService, Calibri, Helvetica, sans-serif; font-size: 11pt; color: rgb(0, 0, 0);">
SELECT IF LINE-NUMBER OF NOTE-DELETE GE 980000 AND &<br>
USER-ID OF NOTE-DELETE EQ "QZARCCBC"<br>
<br>
<br>
I have this in a designer procedure:<br>
<br>
PROCEDURE INTERNAL REMOVE-NOTES<br>
BEGIN</div>
<div class="elementToProof" style="font-family: Aptos, Aptos_EmbeddedFont, Aptos_MSFontService, Calibri, Helvetica, sans-serif; font-size: 11pt; color: rgb(237, 92, 87);">
<b><i> WHILE RETRIEVING NORE-DELETE VIA RECORD_TYPE USING TRANS-IDENT OF TRANSACTIONS</i></b></div>
<div class="elementToProof" style="font-family: Aptos, Aptos_EmbeddedFont, Aptos_MSFontService, Calibri, Helvetica, sans-serif; font-size: 11pt; color: rgb(237, 92, 87);">
<b><i> BEGIN<br>
DELETE NOTE-DELETE</i></b></div>
<div class="elementToProof" style="font-family: Aptos, Aptos_EmbeddedFont, Aptos_MSFontService, Calibri, Helvetica, sans-serif; font-size: 11pt; color: rgb(237, 92, 87);">
<b><i> PUT NOTE-DELETE</i></b></div>
<div class="elementToProof" style="font-family: Aptos, Aptos_EmbeddedFont, Aptos_MSFontService, Calibri, Helvetica, sans-serif; font-size: 11pt; color: rgb(0, 0, 0);">
<span style="color: rgb(237, 92, 87);"><b><i> END</i></b></span><br>
END<br>
<br>
PROCEDURE INTERNAL NOTES<br>
BEGIN<br>
LET QKT-NOTE-TRAN = TRANS-IDENT OF TRANSACTIONS<br>
LET QKT-NOTE-USER = "QKARCCBC"<br>
<br>
DO INTERNAL REMOVE-NOTES</div>
<div class="elementToProof" style="font-family: Aptos, Aptos_EmbeddedFont, Aptos_MSFontService, Calibri, Helvetica, sans-serif; font-size: 11pt; color: rgb(0, 0, 0);">
<br>
</div>
<div id="appendonsend"></div>
<div style="font-family:Aptos,Aptos_EmbeddedFont,Aptos_MSFontService,Calibri,Helvetica,sans-serif; font-size:12pt; color:rgb(0,0,0)">
<br>
</div>
<hr tabindex="-1" style="display:inline-block; width:98%">
<div id="divRplyFwdMsg" dir="ltr"><font face="Calibri, sans-serif" color="#000000" style="font-size:11pt"><b>De :</b> powerh-l <powerh-l-bounces@lists.sowder.com> de la part de powerh-l-request@lists.sowder.com <powerh-l-request@lists.sowder.com><br>
<b>Envoyé :</b> 9 décembre 2024 13:00<br>
<b>À :</b> powerh-l@lists.sowder.com <powerh-l@lists.sowder.com><br>
<b>Objet :</b> powerh-l Digest, Vol 180, Issue 1</font>
<div> </div>
</div>
<div class="BodyFragment"><font size="2"><span style="font-size:11pt">
<div class="PlainText">Send powerh-l mailing list submissions to<br>
powerh-l@lists.sowder.com<br>
<br>
To subscribe or unsubscribe via the World Wide Web, visit<br>
<a href="https://lists.sowder.com/mailman/listinfo/powerh-l" data-auth="NotApplicable">
https://lists.sowder.com/mailman/listinfo/powerh-l</a><br>
or, via email, send a message with subject or body 'help' to<br>
powerh-l-request@lists.sowder.com<br>
<br>
You can reach the person managing the list at<br>
powerh-l-owner@lists.sowder.com<br>
<br>
When replying, please edit your Subject line so it is more specific<br>
than "Re: Contents of powerh-l digest..."<br>
<br>
<br>
Today's Topics:<br>
<br>
1. FILE <NAME> DELETE in QUICK (James B. Byrne)<br>
2. Re:FILE <NAME> DELETE in QUICK (Robert Deskin)<br>
3. Re:FILE <NAME> DELETE in QUICK (James B. Byrne)<br>
<br>
<br>
----------------------------------------------------------------------<br>
<br>
Message: 1<br>
Date: Thu, 5 Dec 2024 15:53:38 -0500<br>
From: "James B. Byrne" <byrnejb@harte-lyne.ca><br>
To: powerh-l@lists.sowder.com<br>
Subject: FILE <NAME> DELETE in QUICK<br>
Message-ID:<br>
<67a4594cdceca4cc344ffc676b11c5f0.squirrel@webmail.harte-lyne.ca><br>
Content-Type: text/plain;charset=iso-8859-1<br>
<br>
I am trying ti understand how the DELETE option on a FILE statement works in<br>
practice.<br>
<br>
I have this in a QUICK screen:<br>
<br>
FILE TRANSACTIONS PRIMARY<br>
ACCESS VIA TRANS-IDENT REQUEST TRANS-IDENT<br>
<br>
FILE TRANNOTE DELETE ALIAS NOTE-DELETE<br>
<br>
SELECT IF &<br>
RECORD-TYPE OF NOTE-DELETE EQ "NOTE" &<br>
AND &<br>
LINE-NUMBER OF NOTE-DELETE GE 980000 &<br>
AND &<br>
USER-ID OF NOTE-DELETE EQ "QZARCCBC"<br>
<br>
<br>
I have this in a designer procedure:<br>
<br>
PROCEDURE INTERNAL REMOVE-NOTES<br>
BEGIN<br>
PUT NOTE-DELETE<br>
END<br>
<br>
PROCEDURE INTERNAL NOTES<br>
BEGIN<br>
LET QKT-NOTE-TRAN = TRANS-IDENT OF TRANSACTIONS<br>
LET QKT-NOTE-USER = "QKARCCBC"<br>
<br>
DO INTERNAL REMOVE-NOTES<br>
. . .<br>
<br>
<br>
I have these entries in the TRANNOTE file:<br>
<br>
IN365362 980100 QKARCCBC<br>
IN365362 980100 QKARCCBC<br>
IN365362 980100 QKARCCBC<br>
IN365362 980100 QKARCCBC<br>
IN365362 980100 QKARCCBC<br>
IN365362 980100 QKARCCBC<br>
IN365362 980100 QKARCCBC<br>
IN365362 980100 QKARCCBC<br>
IN365362 980100 QKARCCBC<br>
IN365362 980101 QKARCCBC<br>
IN365362 980101 QKARCCBC<br>
IN365362 980101 QKARCCBC<br>
IN365362 980101 QKARCCBC<br>
IN365362 980101 QKARCCBC<br>
IN365362 990100 QKARCCBC<br>
IN365362 990100 QKARCCBC<br>
IN365362 990100 QKARCCBC<br>
IN365362 990100 QKARCCBC<br>
<br>
<br>
The TRANS-IDENT of TRANSACTIONS is IN365362. But none of these records in<br>
TRANNOTE are deleted when the internal procedure NOTES is called.<br>
<br>
What am I not understanding here?<br>
<br>
<br>
<br>
------------------------------<br>
<br>
Message: 2<br>
Date: Mon, 9 Dec 2024 10:01:13 -0500<br>
From: Robert Deskin <bob.deskin@me.com><br>
To: byrnejb@harte-lyne.ca<br>
Cc: PowerHouse List <powerh-l@lists.sowder.com><br>
Subject: Re: FILE <NAME> DELETE in QUICK<br>
Message-ID: <B0BC0C47-2A7E-47BE-B805-FB3D778A236E@me.com><br>
Content-Type: text/plain; charset=utf-8<br>
<br>
A DELETE file is designed to be deleted only when the associated file is deleted. I don’t believe that it can be deleted on its own. And I can’t remember if the DELETE procedure includes a DELETE verb for the DELETE file. However I see that you haven’t marked
the file for deletion. So try adding DELETE NOTE-DELETE in REMOVE-NOTES. That said, I suggest making it a DESIGNER file if you’re going to control the deletion from a procedure. you’d still have to mark it for deletion with a DELETE verb. If you also want
it deleted along with a PRIMARY record, then declare it twice using another alias.<br>
<br>
Bob<br>
<br>
> On Dec 5, 2024, at 3:53 PM, James B. Byrne <byrnejb@harte-lyne.ca> wrote:<br>
> <br>
> I am trying ti understand how the DELETE option on a FILE statement works in<br>
> practice.<br>
> <br>
> I have this in a QUICK screen:<br>
> <br>
> FILE TRANSACTIONS PRIMARY<br>
> ACCESS VIA TRANS-IDENT REQUEST TRANS-IDENT<br>
> <br>
> FILE TRANNOTE DELETE ALIAS NOTE-DELETE<br>
> <br>
> SELECT IF &<br>
> RECORD-TYPE OF NOTE-DELETE EQ "NOTE" &<br>
> AND &<br>
> LINE-NUMBER OF NOTE-DELETE GE 980000 &<br>
> AND &<br>
> USER-ID OF NOTE-DELETE EQ "QZARCCBC"<br>
> <br>
> <br>
> I have this in a designer procedure:<br>
> <br>
> PROCEDURE INTERNAL REMOVE-NOTES<br>
> BEGIN<br>
> PUT NOTE-DELETE<br>
> END<br>
> <br>
> PROCEDURE INTERNAL NOTES<br>
> BEGIN<br>
> LET QKT-NOTE-TRAN = TRANS-IDENT OF TRANSACTIONS<br>
> LET QKT-NOTE-USER = "QKARCCBC"<br>
> <br>
> DO INTERNAL REMOVE-NOTES<br>
> . . .<br>
> <br>
> <br>
> I have these entries in the TRANNOTE file:<br>
> <br>
> IN365362 980100 QKARCCBC<br>
> IN365362 980100 QKARCCBC<br>
> IN365362 980100 QKARCCBC<br>
> IN365362 980100 QKARCCBC<br>
> IN365362 980100 QKARCCBC<br>
> IN365362 980100 QKARCCBC<br>
> IN365362 980100 QKARCCBC<br>
> IN365362 980100 QKARCCBC<br>
> IN365362 980100 QKARCCBC<br>
> IN365362 980101 QKARCCBC<br>
> IN365362 980101 QKARCCBC<br>
> IN365362 980101 QKARCCBC<br>
> IN365362 980101 QKARCCBC<br>
> IN365362 980101 QKARCCBC<br>
> IN365362 990100 QKARCCBC<br>
> IN365362 990100 QKARCCBC<br>
> IN365362 990100 QKARCCBC<br>
> IN365362 990100 QKARCCBC<br>
> <br>
> <br>
> The TRANS-IDENT of TRANSACTIONS is IN365362. But none of these records in<br>
> TRANNOTE are deleted when the internal procedure NOTES is called.<br>
> <br>
> What am I not understanding here?<br>
> <br>
> -- <br>
> = = = = = = = = = = = = = = = = = = = = = = = = = = = =<br>
> Mailing list: powerh-l@lists.sowder.com<br>
> Subscribe: 'subscribe' in message body to powerh-l-request@lists.sowder.com<br>
> Unsubscribe: 'unsubscribe <password>' in message body to powerh-l-request@lists.sowder.com<br>
> <a href="https://lists.sowder.com/mailman/listinfo/powerh-l" data-auth="NotApplicable">
https://lists.sowder.com/mailman/listinfo/powerh-l</a><br>
> This list is closed, thus to post to the list you must be a subscriber.<br>
> Add 'site:lists.sowder.com powerh-l' to your search terms to search the list archive at Google.<br>
<br>
<br>
<br>
------------------------------<br>
<br>
Message: 3<br>
Date: Mon, 9 Dec 2024 12:49:32 -0500<br>
From: "James B. Byrne" <byrnejb@harte-lyne.ca><br>
To: "Robert Deskin" <bob.deskin@me.com><br>
Cc: "PowerHouse List" <powerh-l@lists.sowder.com><br>
Subject: Re: FILE <NAME> DELETE in QUICK<br>
Message-ID:<br>
<fb8d81dcb4c0a581e24bf78b1f153787.squirrel@webmail.harte-lyne.ca><br>
Content-Type: text/plain;charset=iso-8859-1<br>
<br>
On Mon, December 9, 2024 10:01, Robert Deskin wrote:<br>
> A DELETE file is designed to be deleted only when the associated file is<br>
> deleted. I don’t believe that it can be deleted on its own. And I can’t<br>
> remember if the DELETE procedure includes a DELETE verb for the DELETE file.<br>
> However I see that you haven’t marked the file for deletion. So try adding<br>
> DELETE NOTE-DELETE in REMOVE-NOTES. That said, I suggest making it a DESIGNER<br>
> file if you’re going to control the deletion from a procedure. you’d still<br>
> have to mark it for deletion with a DELETE verb. If you also want it deleted<br>
> along with a PRIMARY record, then declare it twice using another alias.<br>
><br>
<br>
Yes, I (re-)discovered this when doing a more careful review of the QD manual. <br>
I have resolved the underlying issue using a DESIGNER file and the DELETE verb<br>
as you suggest.<br>
<br>
Thanks,<br>
<br>
<br>
-- <br>
*** e-Mail is NOT a SECURE channel ***<br>
Do NOT transmit sensitive data via e-Mail<br>
Unencrypted messages have no legal claim to privacy<br>
Do NOT directly open attachments nor follow links sent by e-Mail<br>
<br>
James B. Byrne <a href="mailto:ByrneJB@Harte-Lyne.ca">mailto:ByrneJB@Harte-Lyne.ca</a><br>
Harte & Lyne Limited <a href="http://www.harte-lyne.ca" data-auth="NotApplicable">
http://www.harte-lyne.ca</a><br>
9 Brockley Drive vox: +1 905 561 1241<br>
Hamilton, Ontario fax: +1 905 561 0757<br>
Canada L8E 3C3<br>
<br>
<br>
<br>
------------------------------<br>
<br>
Subject: Digest Footer<br>
<br>
-- <br>
= = = = = = = = = = = = = = = = = = = = = = = = = = = =<br>
Mailing list: powerh-l@lists.sowder.com<br>
Subscribe: "subscribe" in message body to powerh-l-request@lists.sowder.com<br>
Unsubscribe: "unsubscribe <password>" in message body to powerh-l-request@lists.sowder.com<br>
<a href="https://lists.sowder.com/mailman/listinfo/powerh-l" data-auth="NotApplicable">https://lists.sowder.com/mailman/listinfo/powerh-l</a><br>
This list is closed, thus to post to the list you must be a subscriber.<br>
Add 'site:lists.sowder.com powerh-l' to your search terms to search the list archive at Google.<br>
<br>
------------------------------<br>
<br>
End of powerh-l Digest, Vol 180, Issue 1<br>
****************************************<br>
</div>
</span></font></div>
</body>
</html>