Display message

["Luis Martins" <lnmartins@xxxxxxxxxxxx>]

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


C     ACTFIL        BEGSR
C     VOLNAM        CHAIN     SDSRPR

C                   EVAL      VOLRCT = 'H'
C                   UPDATE    SDSRPR

C                   EVAL      VOLSTS = 'F'
C                   EVAL      VOLRCT = 'A'
C                   Time                    VOLDTS
C                   Time                    VOLTMS
C                   ADD       1             NRR
C                   WRITE     SDSRPR

C     VOLNAM        CHAIN     SDSRMR
C                   EVAL      VOLPRC = 'S'
C                   UPDATE    SDSRMR
C                   ENDSR

C     INZSFL        BEGSR
C                   Z-ADD     *ZERO         NRR
C                   WRITE     RS00103
C                   MOVE      '1'           *IN26
C                   WRITE     RS00102
C                   MOVE      '0'           *IN26
C     *LOVAL        SETLL     SDSRM01
C                   MOVE      '0'           *IN27
C                   ENDSR


C     CRISFL        BEGSR
C                   READ      SDSRMR                                 27
C                   DOU       *IN27 = '1'
C                   IF        NOT %EOF
C     VOLNAM        CHAIN     SDSRPR
C                   Eval      SFSEL = *blanks
C                   ADD       1             NRR
C                   WRITE     RS00101
C                   ENDIF
C                   READ      SDSRMR                                 27
C                   ENDDO
C                   ENDSR



Thank You !


Luis Martins.









__________________________________________________

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.