Re: Message Subfile

Michael,

Joep Beckeringh

Thanks for the Info on the API

Here is what I have changed the d specs to D*------------------------

D* Message Subfile Parms *

D*------------------------

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

0647.00 C*                  -----

0648.00 C*----------------------------

I still do not get the message to display when the error condition
exists - What am I missing

Thanks for your assistance