Re: Message Subfile

[Joep Beckeringh <joep@xxxxxxxxxxxxxxxxxxx>]

Michael,

Your msgErr data structure is empty, because you defined msge1 and msge2 as 
stand alone fields.

Joep Beckeringh


Ala, Michael A wrote:
> 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