FILE <NAME> DELETE in QUICK

[Robert Deskin]

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.