Réf. : Re: FW: INVITE and CPF5066

Be careful, if you use the same indicator for SFLDSP and SFLDSPCTL, when
your subfile is empty you crash your program. So use a different indicator
for SFLDSP and SFLDSPCTL..

0338.00      A          R SF3820C1                    SFLCTL(SF3820S1)
0340.00      A
SFLSIZ(0012)
0341.00      A
SFLPAG(0005)
0349.00      A
CSRLOC(LIN01      POS01)
0350.00      A                                                   OVERLAY
0351.00      A                                                   SFLCSRRRN
(&RELLI1)
0352.00      A  50                                             SFLDSP
0353.00      A  51                                             SFLDSPCTL
0354.00      A  52                                             SFLDLT
0355.00      A  52                                             SFLCLR
0356.00      A  50                                             SFLEND
(*MORE)
0358.00      A            £RRN1           4S 0H      SFLRCDNBR(CURSOR)
0359.00      A            RELLI1          5S 0H
0360.00      A            LIN01            3S 0H
0361.00      A            POS01            3S 0H

Best regards.

Service Informatique
Tél : 02-31-66-46-69
E-Mail : yjacqueline@guydegrenne.fr
Visitez notre site Web à : http://www.guydegrenne.fr/




                    Mike.Collins@syan
                    .co.uk                   Pour :  rpg400-l@midrange.com
                    Envoyé par :             cc :
                    rpg400-l-admin@mi        Objet :      Re: FW: INVITE and 
CPF5066
                    drange.com


                    27/03/02 14:27
                    Veuillez répondre
                    à rpg400-l







You need to condition the INVITE so that it is not done when you write the
subfile control so as to perform your SFLCLR.

ie

 37   SFLCLR
N37        SFLDSP
N37        SFLDSPCTL
N37        INVITE

_______________________________________________
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.