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

[Carel Teijgeler <coteijgeler@xxxxxxxxx>]

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.