powerh-l Digest, Vol 180, Issue 1
royinfo at videotron.ca
royinfo at videotron.ca
Fri Jan 3 11:07:40 CST 2025
Hi,
You right.
A DELETE file is used with an associated file with the same number of occurrence.
So the best way to do it is :
FILE TRANSACTIONS PRIMARY
ACCESS VIA TRANS-IDENT REQUEST TRANS-IDENT
FILE TRANNOTE DESIGNER ALIAS NOTE-DELETE
SELECT IF LINE-NUMBER OF NOTE-DELETE GE 980000 AND &
USER-ID OF NOTE-DELETE EQ "QZARCCBC"
I have this in a designer procedure:
PROCEDURE INTERNAL REMOVE-NOTES
BEGIN
WHILE RETRIEVING NORE-DELETE VIA RECORD_TYPE USING TRANS-IDENT OF TRANSACTIONS
BEGIN
DELETE NOTE-DELETE
PUT NOTE-DELETE
END
END
PROCEDURE INTERNAL NOTES
BEGIN
LET QKT-NOTE-TRAN = TRANS-IDENT OF TRANSACTIONS
LET QKT-NOTE-USER = "QKARCCBC"
DO INTERNAL REMOVE-NOTES
________________________________
De : powerh-l <powerh-l-bounces at lists.sowder.com> de la part de powerh-l-request at lists.sowder.com <powerh-l-request at lists.sowder.com>
Envoyé : 9 décembre 2024 13:00
À : powerh-l at lists.sowder.com <powerh-l at lists.sowder.com>
Objet : powerh-l Digest, Vol 180, Issue 1
Send powerh-l mailing list submissions to
powerh-l at lists.sowder.com
To subscribe or unsubscribe via the World Wide Web, visit
https://lists.sowder.com/mailman/listinfo/powerh-l
or, via email, send a message with subject or body 'help' to
powerh-l-request at lists.sowder.com
You can reach the person managing the list at
powerh-l-owner at lists.sowder.com
When replying, please edit your Subject line so it is more specific
than "Re: Contents of powerh-l digest..."
Today's Topics:
1. FILE <NAME> DELETE in QUICK (James B. Byrne)
2. Re:FILE <NAME> DELETE in QUICK (Robert Deskin)
3. Re:FILE <NAME> DELETE in QUICK (James B. Byrne)
----------------------------------------------------------------------
Message: 1
Date: Thu, 5 Dec 2024 15:53:38 -0500
From: "James B. Byrne" <byrnejb at harte-lyne.ca>
To: powerh-l at lists.sowder.com
Subject: FILE <NAME> DELETE in QUICK
Message-ID:
<67a4594cdceca4cc344ffc676b11c5f0.squirrel at webmail.harte-lyne.ca>
Content-Type: text/plain;charset=iso-8859-1
I am trying ti understand how the DELETE option on a FILE statement works in
practice.
I have this in a QUICK screen:
FILE TRANSACTIONS PRIMARY
ACCESS VIA TRANS-IDENT REQUEST TRANS-IDENT
FILE TRANNOTE DELETE ALIAS NOTE-DELETE
SELECT IF &
RECORD-TYPE OF NOTE-DELETE EQ "NOTE" &
AND &
LINE-NUMBER OF NOTE-DELETE GE 980000 &
AND &
USER-ID OF NOTE-DELETE EQ "QZARCCBC"
I have this in a designer procedure:
PROCEDURE INTERNAL REMOVE-NOTES
BEGIN
PUT NOTE-DELETE
END
PROCEDURE INTERNAL NOTES
BEGIN
LET QKT-NOTE-TRAN = TRANS-IDENT OF TRANSACTIONS
LET QKT-NOTE-USER = "QKARCCBC"
DO INTERNAL REMOVE-NOTES
. . .
I have these entries in the TRANNOTE file:
IN365362 980100 QKARCCBC
IN365362 980100 QKARCCBC
IN365362 980100 QKARCCBC
IN365362 980100 QKARCCBC
IN365362 980100 QKARCCBC
IN365362 980100 QKARCCBC
IN365362 980100 QKARCCBC
IN365362 980100 QKARCCBC
IN365362 980100 QKARCCBC
IN365362 980101 QKARCCBC
IN365362 980101 QKARCCBC
IN365362 980101 QKARCCBC
IN365362 980101 QKARCCBC
IN365362 980101 QKARCCBC
IN365362 990100 QKARCCBC
IN365362 990100 QKARCCBC
IN365362 990100 QKARCCBC
IN365362 990100 QKARCCBC
The TRANS-IDENT of TRANSACTIONS is IN365362. But none of these records in
TRANNOTE are deleted when the internal procedure NOTES is called.
What am I not understanding here?
------------------------------
Message: 2
Date: Mon, 9 Dec 2024 10:01:13 -0500
From: Robert Deskin <bob.deskin at me.com>
To: byrnejb at harte-lyne.ca
Cc: PowerHouse List <powerh-l at lists.sowder.com>
Subject: Re: FILE <NAME> DELETE in QUICK
Message-ID: <B0BC0C47-2A7E-47BE-B805-FB3D778A236E at me.com>
Content-Type: text/plain; charset=utf-8
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.
Bob
> On Dec 5, 2024, at 3:53 PM, James B. Byrne <byrnejb at harte-lyne.ca> wrote:
>
> I am trying ti understand how the DELETE option on a FILE statement works in
> practice.
>
> I have this in a QUICK screen:
>
> FILE TRANSACTIONS PRIMARY
> ACCESS VIA TRANS-IDENT REQUEST TRANS-IDENT
>
> FILE TRANNOTE DELETE ALIAS NOTE-DELETE
>
> SELECT IF &
> RECORD-TYPE OF NOTE-DELETE EQ "NOTE" &
> AND &
> LINE-NUMBER OF NOTE-DELETE GE 980000 &
> AND &
> USER-ID OF NOTE-DELETE EQ "QZARCCBC"
>
>
> I have this in a designer procedure:
>
> PROCEDURE INTERNAL REMOVE-NOTES
> BEGIN
> PUT NOTE-DELETE
> END
>
> PROCEDURE INTERNAL NOTES
> BEGIN
> LET QKT-NOTE-TRAN = TRANS-IDENT OF TRANSACTIONS
> LET QKT-NOTE-USER = "QKARCCBC"
>
> DO INTERNAL REMOVE-NOTES
> . . .
>
>
> I have these entries in the TRANNOTE file:
>
> IN365362 980100 QKARCCBC
> IN365362 980100 QKARCCBC
> IN365362 980100 QKARCCBC
> IN365362 980100 QKARCCBC
> IN365362 980100 QKARCCBC
> IN365362 980100 QKARCCBC
> IN365362 980100 QKARCCBC
> IN365362 980100 QKARCCBC
> IN365362 980100 QKARCCBC
> IN365362 980101 QKARCCBC
> IN365362 980101 QKARCCBC
> IN365362 980101 QKARCCBC
> IN365362 980101 QKARCCBC
> IN365362 980101 QKARCCBC
> IN365362 990100 QKARCCBC
> IN365362 990100 QKARCCBC
> IN365362 990100 QKARCCBC
> IN365362 990100 QKARCCBC
>
>
> The TRANS-IDENT of TRANSACTIONS is IN365362. But none of these records in
> TRANNOTE are deleted when the internal procedure NOTES is called.
>
> What am I not understanding here?
>
> --
> = = = = = = = = = = = = = = = = = = = = = = = = = = = =
> Mailing list: powerh-l at lists.sowder.com
> Subscribe: 'subscribe' in message body to powerh-l-request at lists.sowder.com
> Unsubscribe: 'unsubscribe <password>' in message body to powerh-l-request at lists.sowder.com
> https://lists.sowder.com/mailman/listinfo/powerh-l
> This list is closed, thus to post to the list you must be a subscriber.
> Add 'site:lists.sowder.com powerh-l' to your search terms to search the list archive at Google.
------------------------------
Message: 3
Date: Mon, 9 Dec 2024 12:49:32 -0500
From: "James B. Byrne" <byrnejb at harte-lyne.ca>
To: "Robert Deskin" <bob.deskin at me.com>
Cc: "PowerHouse List" <powerh-l at lists.sowder.com>
Subject: Re: FILE <NAME> DELETE in QUICK
Message-ID:
<fb8d81dcb4c0a581e24bf78b1f153787.squirrel at webmail.harte-lyne.ca>
Content-Type: text/plain;charset=iso-8859-1
On Mon, December 9, 2024 10:01, Robert Deskin wrote:
> 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.
>
Yes, I (re-)discovered this when doing a more careful review of the QD manual.
I have resolved the underlying issue using a DESIGNER file and the DELETE verb
as you suggest.
Thanks,
--
*** e-Mail is NOT a SECURE channel ***
Do NOT transmit sensitive data via e-Mail
Unencrypted messages have no legal claim to privacy
Do NOT directly open attachments nor follow links sent by e-Mail
James B. Byrne mailto:ByrneJB at Harte-Lyne.ca
Harte & Lyne Limited http://www.harte-lyne.ca
9 Brockley Drive vox: +1 905 561 1241
Hamilton, Ontario fax: +1 905 561 0757
Canada L8E 3C3
------------------------------
Subject: Digest Footer
--
= = = = = = = = = = = = = = = = = = = = = = = = = = = =
Mailing list: powerh-l at lists.sowder.com
Subscribe: "subscribe" in message body to powerh-l-request at lists.sowder.com
Unsubscribe: "unsubscribe <password>" in message body to powerh-l-request at lists.sowder.com
https://lists.sowder.com/mailman/listinfo/powerh-l
This list is closed, thus to post to the list you must be a subscriber.
Add 'site:lists.sowder.com powerh-l' to your search terms to search the list archive at Google.
------------------------------
End of powerh-l Digest, Vol 180, Issue 1
****************************************
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.sowder.com/pipermail/powerh-l/attachments/20250103/79fd851e/attachment-0001.html>
More information about the powerh-l
mailing list