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