Delete a record of SFL using the operation code DELETE

Hello,

How to delete the last record of SFL using the operation code DELETE .

More details (if there is a need):

*DDS Format :*
* ------------------------------------------------------------- *
* Format of SFL * *
------------------------------------------------------------- *
A R £1SFL SFL A £1OPT
1A B 9 2DSPATR(UL) A
VALUES(' ' '1' '2' '3' '4' '5') A £1CODA 3A O
9 4TEXT('Type de contrôle') A £1CODB 3A O
9 8TEXT('Code
anomalie') A £1B7NB 2Y 0O 9 12TEXT('Numéro
de séquence') A £1G3TX 40A O 9 15TEXT('Libellé de
l''anomalie') A £1L8ST 1A O 9 56TEXT('Indicateur
de présence') A £1MZST 1A O 9 60TEXT('Présence de
commentaire') A £1L7ST 1A O 9 64TEXT('Indicateur
de blocage') A £1M0ST 1A O 9 68TEXT('Indicateur
de saisie') A £1Z2TX 3A O 9 71TEXT('Code écran
programme')
A* ------------------------------------------------------------- *
A* Format CTL of SFL * A*
------------------------------------------------------------- *
A R £1CTL SFLCTL(£1SFL)
A SFLSIZ(0012)
A SFLPAG(0012)
A ROLLUP(95)
A ROLLDOWN(96)
A CA03(03 'Fin de travail')
A OVERLAY
A 92
SFLDSP
A N01 SFLDSPCTL
A 01 SFLCLR





*RPG => Déclaration FILE*
FMAINT01£CF E WORKSTN
* NUMREC = position cursor
F
NUMRECKSFILE £1SFL


Sincerlly,
Stéphane.