Re: QUSROBJD API

Hello Carsten Flensburg,

Ok,  but my problem is this :

 *Procedure to send Message

D SendEscMsg      PR                  extpgm('QMHSNDPM')
D   MsgID                        7    const
D   MsgFile                     20    const
D   MsgDta                      80    const
D   MsgDtaLen                   10i 0 const
D   MsgType                     10    const
D   MsgQ                        10    const
D   MsgQNbr                     10i 0 const
D   MsgKey                       4
D   ErrorDS                     16

D ErrorDS         DS            16
D   BytesProv                   10i 0 inz(16)
D   BytesAvail                  10i 0
D   ExceptionID                  7
D MsgDta          S             80
D MsgKey          S              4


C                   If        AeBytAvl   >  *Zero         And
C                             AeMsgId    =  'CPF9801'
**-- Object doesn't exist...
C                  EVAL      MsgDta = 'A Biblioteca'+ '  ' +
C                        %Trimr(ObjNam)+ ' ' + 'não foi encontrada'
C                  EXSR      MENSAGEM

**- - -  And this EVAL doesn't work !

C                   EndIf


C     MENSAGEM      BEGSR
C                   CALLP     SENDESCMSG ('CPF9898':
C                               'QCPFMSG   QSYS':
C                               MsgDta:
C                               %Len(MsgDta):
C                               '*INFO':
C                               '*':
C                               2:
C                               MsgKey:
C                               ErrorDS)
C                   ENDSR


Thank You !


Luis Martins
(Portugal)




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

Sent by:    rpg400-l-bounces@xxxxxxxxxxxx


To:    "RPG programming on the AS400 / iSeries" <rpg400-l@xxxxxxxxxxxx>
cc:
Subject:    Re: QUSROBJD API


Hello Luis,

That depends on what you want to do - if you want to do someting if the object 
_does not_ exist you'd put those statements in the place where I placed
 the comment 'Object doesn't exist'.

If you on the other hand wants to do something if the object _does_ exist you 
should do it the other way round:

     C                   If        AeBytAvl   >  *Zero         And
     C                             AeMsgId    =  'CPF9801'
     **-- Object doesn't exist...
     C                   Else
     **-- Object does exist...
     **-- Put instructions here
     C                   EndIf

Best regards,
Carsten Flensburg

----- Original Message -----
From: "Luis Martins" <lnmartins@xxxxxxxxxxxx>
Sent: Thursday, August 07, 2003 10:10 AM
Subject: Re: QUSROBJD API


Hello Carsten Flensburg,

Thank you very much for your tip, but there is one thing that
i don't understand in the statment :

     C                   If        AeBytAvl   >  *Zero         And
     C                             AeMsgId    =  'CPF9801'
     "If i have to put any instruction in this place it doesn't work"
     **-- Object doesn't exist...
     C                   EndIf






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