Re: Display problems CPF5192 with mouse clicks

["Carel Teijgeler" <coteijgeler@xxxxxxxxx>]

Bill,

"It is elementary," to quote a famous detective.

In the programmes with a single-page SFL (the first and the third) you set 
SFLPSD to 1 in the *INZSR subroutine. But unfortunately when the SFL is empty, 
because there are obviously no records, the system tries to position the cursor 
on an nonexistant SFL record. Test to see if the SFLrrn is greater than 0 
before putting a value in SFLPDS.

Regards,
Carel Teijgeler.

*********** REPLY SEPARATOR  ***********

On 30-8-02 at 8:24 Hopkins, Bill wrote:

>
>     A*  Display Name:      VNDR00W
>*
>     A            SFLPSD         4S 0H      SFLRCDNBR(CURSOR)

>     FVNDR00W   CF   E             WORKSTN INFDS(WSDS)
>     F                                     SFILE(DFTSFL:SFLrnd)
>
>     CSR   *INZSR        BEGSR
>     C                   Eval      @Exit     = @False
>     C                   Eval      SFLpsd    = 1
>     C                   Clear                   Srrn
>     C                   Clear                   Sflrnd
>     C                   Clear                   Endrn
>     CSR                 ENDSR
>     CSR   @LOAD         BEGSR
>     C                   Eval      EOFoffset = *zeros
>     C                   Do        5
>     C                   SELECT
>     C                   WHEN      P$VNDR    > *zeros
>     C                   Eval      Sflrnd    = (Sflrnd + 1)
>     C                   Write     Dftsfl
>     C                   WHEN      P$VNAM > *blanks and
>     C                             VXACOD    <>'D'
>     C                   Eval      Sflrnd    = (Sflrnd + 1)
>     C                   Write     Dftsfl
>     C                   OTHER
>     C                   Eval      Sflrnd    = (Sflrnd + 1)
>     C                   Write     Dftsfl
>     C                   ENDSL
>     C                   Enddo
>     C                   If        Sflrnd = *Zeros
>     C                   Eval      *in32     = *Off
>     C                   Else
>     C                   Eval      *in32     = *On
>     C                   Eval      Endrn     = (Sflrnd + EOFoffset)
>     C                   Endif
>     CSR                 ENDSR