CF10 and Subfile

  I can't figure out why this is happening...
  I have a subfile with CF10 defined in the control record format.  When the
  user presses F10, the program does a save of any changes to the subfile
  and displays a window to print a report.

  The problem is when the F10 key is pressed as opposed to the Enter
  key.  If the Enter key is pressed, the save is performed beautifully.  If
  the CF10 key is pressed, the subroutine to do the save is executed, but
  once the first READC is performed, it doesn't see that any records in the
  subfile have been changed and just exits the readc loop. I've never had
  this happen before and its freaking me out.  Am I missing something
  obvious???  The ReadC loop is below.  Thanks for any help in advance.

       c     SaveSfl2      BegSr
        *
        * Read the subfile for selected
        * records to delete from the file
        * ApWork.
        *
       c                   ReadC     Sfl2
        *
       c                   Dow       Not %Eof
        *
       C                   Select
        *
        * Invalid Entry (Not "X")
        *
       c                   When      S2Del <> ' ' and S2Del <> 'X'
       c                   Eval      *In64 = *On
       c                   Eval      *In46 = *On
       c                   UpDate    Sfl2
       c                   Write     Foot2
       c                   ExFmt     Ctl2
       c                   Readc     Sfl2
       c                   Iter
        *
        * Check is marked for removal
        *
       C                   When      S2Del = 'X'
       c                   Eval      ##Vend = S2Vend
       c                   Eval      ##Invc = S2Invc
       c                   Eval      ##Seq  = S2Seq
        *
       c     PtKey         Chain     ApWork
       c                   If        %Found
       c                   Eval      WkApCd = 'X'
       c                   UpDate    RApwork
       c                   End
        *
        * Change from Deleted
       c                   When      S2Del = ' ' and S2Del <> S2DelH
       c                   Eval      ##Vend = S2Vend
       c                   Eval      ##Invc = S2Invc
       c                   Eval      ##Seq  = S2Seq
        *
       c     PtKey         Chain     ApWork
       c                   If        %Found
       c                   Eval      WkApCd = ' '
       c                   UpDate    RApwork
       c                   End
       c                   EndSL
        *
       c                   ReadC     Sfl2
       c                   EndDo
        *
       c                   EndSr