Re: Delete a record of SFL using the operation code DELETE

Hi,

You actually cannot do that.

If you take option 4=Delete then you give the system to delete that record from the Pf it came from.

If you only want to remove the last record from the SFL from the display you have to fill the fields in the SFL with blanks. But then you may open another can of worms. (SFL records and SFLPAG has to be tracked).

Regards,
Carel Teijgeler


On 6-9-2015 13:22, Mustapha Alhiane wrote:

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.