FILE <NAME> DELETE in QUICK

[James B. Byrne]

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?