RE: Display problems CPF5192 with mouse clicks

After the *inzsr subroutine it drops into code after *Entry
reads first record then exsr @Reset(Clears Subfile/RESET SFLPSD)
then exsr @Load(Do 5 write subrec read next file rec SFLRRN=5 at end) which
has records.
IF SFLRRN <> 0, Eval *IN32 = *ON,Endrrn = 5. Return from @Load

Then DOU @EXIT = @TRUE loop, EXFMT DFTCTL (subfile has 5 records, SFLPSD =
1)

Mouse Click any where on screen off subfile area or subfile area acts as
Enter Key.
Loops, Pagrrn from infds move into SFLRRN value = 1.
CASEQ @ENTKY, *IN32 = *on,exsr @SFLRD,
Readc 98 = 1 DOW *IN98 = *off enddo return to @ENTKY.
@EXIT <> @True
Check Position fields > blanks or zeros
No values so return ENDCS ENDDO.
DOU @EXIT = @TRUE
back to EXFMT DFTCTL(sflpsd = 1, SFLRRN = 1,PAGRRN = 1) 5 records still in
subfile.

Mouse click again repeat above(from Then DOU @EXIT=@TRUE). Mouse click again
repeat above. etc. KABOOM after 1 or maybe 2 or maybe 3 fast clicks.
Values same never clears orginal 5 records from subfile.

So Watson tell me more.

Could it be dropping sub recs some how???.

First window(ILOC00)

 MOUBTN(EVENT  [TRAILING-EVENT]  {Command key | EVENT-ID}
     [*QUEUE | *NOQUEUE])

I'm use *ULP and *ULD could that be a problem? AS/400 and Client Access
Enter on Click?

 Like in last post I said if you call this program with out calling window
with moubtn first. It runs through code same as above but no KABOOM. :)(:
?@#$%

Also if I change mouse in Client Access to Mouse point from default Enter.
Follow same flow as above: Window(ILOC00) with moubtn still selects subrec
but push buttons don't work :(. BUT KABOOM on mult click of mouse, goes
away(VNDR00) .Strange.

Another note code does not get KABOOM if you use key board and follow flow
above. Even when you move cursor to other parts of screen before ENTER key
pressed. ONLY MOUSE CLICK ENTER HAS PROBLEM.

Please anymore info from you or others would be greatly welcome!!

Thanks
Bill Hopkins

-----Original Message-----
From: Carel Teijgeler [mailto:coteijgeler@chello.nl]
Sent: Friday, August 30, 2002 12:22 PM
To: rpg400-l@midrange.com
Subject: Re: Display problems CPF5192 with mouse clicks


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



_______________________________________________
This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
To post a message email: RPG400-L@midrange.com
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/cgi-bin/listinfo/rpg400-l
or email: RPG400-L-request@midrange.com
Before posting, please take a moment to review the archives
at http://archive.midrange.com/rpg400-l.