Message Subfile

["Ala, Michael A" <michael.ala@xxxxxx>]

I am trying to Write a Program Message to CPF9898 to display in a
message subfile

It Is not Displaying 

Here are my D specs
 D   msgId         s              7A   INZ('CPF9898')

 D   msgLoc        s             20A   inz('QCPFMSG   *LIBL     ')

 D   msgRplDta     s           3000A   Varying

 D   msgRplDtaLen  s              4B 0 inz(0)

 D   msgType       s             10A   inz('*INFO')

 D   msgQueue      s            276A   inz('*')

 D   msgCallStack  s              4B 0 inz(0)

 D   msgKey        s              4A   inz(' ')

 D   msgErr        s              4B 0 inz(0)

 D   msgrmv        s             10A   inz('*ALL')

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


Below is my Call to the API

call      'QMHSNDPM'                    
parm                    msgId           
parm                    msgLoc          
parm                    msgRplDta       
parm                    msgRplDtaLen    
parm                    msgType         
parm                    msgQueue        
parm                    msgCallStack    
parm                    msgKey          
parm                    msgErr          
                                        
The value of msgRplDTa is 'My Error Message'
The Value of msgRplDtaLen = %len(My Error Message)

Thanks for any help

Also if anyone can provide help on how to do this in ILE