Re: Message Subfile

Michael,

You should also suplly the DDS specs of the MSGSFL. There are two DDS key words 
related to each other and one should reference the msg queue you want to use, 
normally the value '*'.

I also assume that the subroutine is in the main programme and not in a 
seperate programme or (sub)procedure. Then you have to add one for the 
callstack level. If it is a RPGLE programme (not a subprocedure) you may have 
to add 2 to the call stack, due to the PEP.

Regards,
Carel Teijgeler.

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

On 15-2-05 at 11:08 Ala, Michael A wrote:

>Thanks for the Info on the API
>
>Here is what I have changed the d specs to 
>
>D   msgId         s              7A   INZ('CPF9898')
>D   msgLoc        s             20A   inz('QCPFMSG   *LIBL     ')
>D   msgRplDta     s           3000A
>D   msgRplDtaLen  s             10i 0 inz(0)
>D   msgType       s             10A   inz('*DIAG')
>D   msgQueue      s            276A   inz('*')
>D   msgCallStack  s             10i 0 inz(0)
>D   msgKey        s              4A   inz(' ')
>D   msgErr        ds
>D    msge1        s             10i 0 inz(0)
>D    msge2        s             10i 0 inz
>D   msgrmv        s             10A   inz('*ALL')
>D*---------------------------------------------
>
>Here are my calcs - Eval Statements are her to force those values when I 
>debuged the Program
>I saw that some values were being reset from what I initialized them as in the 
>D Specs
>Probably data back from QMHRMVPM
>
>0615.00 C                   If        ErrFlg= 'Y'
>0616.00 C                   Eval      msgRplDta = 'Business Unit not on File'  
>                           
>0617.00 C                   Eval      msgRplDtaLen = %len(%TRIM(msgRplDta))    
>                           
>0618.00 C                   Eval      msgID = 'CPF9898'
>0619.00 C                   Eval      msge1 = 0
>0620.00 C                   eval      msgKey = *blanks
>0621.00 C                   Exsr      sndmsg
>0622.00 C                   Iter
>0623.00 C                   ENDIF
>Error Condition        
>0624.00 C*                  -----
>
>Here is the call
>0631.00 C* Send message subroutine
>0632.00 C*
>0633.00 C     sndmsg        begsr
>0634.00 C*
>0635.00 C                   call      'QMHSNDPM'
>0636.00 C                   parm                    msgId
>0637.00 C                   parm                    msgLoc
>0638.00 C                   parm                    msgRplDta
>0639.00 C                   parm                    msgRplDtaLen
>0640.00 C                   parm                    msgType
>0641.00 C                   parm                    msgQueue
>0642.00 C                   parm                    msgCallStack
>0643.00 C                   parm                    msgKey
>0644.00 C                   parm                    msgErr
>0645.00 C*
>0646.00 C                   endsr
>
>I still do not get the message to display when the error condition exists - 
>What am I missing