Re: Display message

["Luis Martins" <lnmartins@xxxxxxxxxxxx>]

How can i leave the loop without write another record and display the
message ?

Thank You !


Luis Martins




Please respond to RPG programming on the AS400 / iSeries
       <rpg400-l@xxxxxxxxxxxx>

Sent by:    rpg400-l-bounces@xxxxxxxxxxxx


To:    rpg400-l@xxxxxxxxxxxx
cc:
Subject:    Re: Display message


Luis,


In stead of WRITE WAITMSG you can code: MsgDta DSPLY.
This would show a message screen.

Otherwise I would set on a variable (p.e. @Msg), leave the loop and test
this variable to EXFMT either WAITMSG or RS00102.

Just some thoughts.

Regards,
Carel Teijgeler


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

On 3-10-03 at 16:38 Luis Martins wrote:

>The source of the program is this :
>
>C                   DOW       *IN03 = '0'
>C                   EXSR      INZSFL
>C                   EXSR      CRISFL
>
>C                   IF        NRR = 0
>C                   MOVE      '0'           *IN25
>C                   ELSE
>C                   Z-ADD     1             NRR
>C                   MOVE      '1'           *IN25
>C                   ENDIF
>
>C                   MOVE      '1'           *IN28
>C                   EXFMT     RS00102
>
>I want to write WAITMSG (display the message in the display file)
>when SFSEL = '4' occurs 2 times, can anyone tell me how ?
>
>C                   IF        *IN03 = '0' AND NRR > 0
>
>C                   MOVE      '0'           *IN45
>C                   DOU       *IN45 = '1'
>C                   READC     RS00101                                45
>
>C                   IF        SFSEL = '4' AND VOLPRC = 'S'
>C                   EVAL      MsgDta = 'O disco óptico'+ ' ' +
>C                             %TRIMR(VOLNAM)+ ' ' + 'já foi retirado!'
>C                   MOVEL     *BLANKS       UMSGDTA
>C                   MOVEL     Msgdta        UMSGDTA
>C                   WRITE     WAITMSG
>C                   ENDIF
>
>C                   IF        *IN45 = '0' AND SFSEL = '4'
>C                   EXSR      ACTFIL
>C                   ENDIF
>
>C                   ENDDO
>
>C                   ENDIF
>C                   ENDDO
>
>C                   EVAL      *INLR = '1'
>C                   RETURN



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



__________________________________________________

Esta mensagem e quaisquer ficheiros anexos são confidenciais, destinando-se
ao uso exclusivo da pessoa e/ou entidade a que se dirigem. Caso não se lhe
destine, ou não seja responsável pelo seu encaminhamento ao destinatário,
informamos que a recebeu por engano. Qualquer utilização, distribuição,
reencaminhamento ou outra forma de revelação a terceiros, impressão ou
cópia são expressamente proibidos; sendo que agradecemos que destrua a
mensagem de imediato, informando o seu emissor ou o Finibanco do sucedido.
Não obstante o Finibanco utilizar software anti-vírus como precaução, não é
possível garantir que a presente mensagem e eventuais ficheiros anexos não
contêm vírus, pelo que não consideramos da responsabilidade desta
instituição eventuais consequências inerentes. Alerta-se, ainda, que as
mensagens transmitidas por este meio podem ser interceptadas, corrompidas,
perdidas, destruídas ou entregues com atraso ao destinatário.