Message Subfile -- RPG400-L

× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.

Subject: Message Subfile
From: "Ala, Michael A" <michael.ala@xxxxxx>
Date: Thu, 10 Feb 2005 16:48:37 -0500
List-archive: <http://archive.midrange.com/rpg400-l>
List-help: <mailto:rpg400-l-request@midrange.com?subject=help>
List-id: RPG programming on the AS400 / iSeries <rpg400-l.midrange.com>
List-post: <mailto:rpg400-l@midrange.com>
List-subscribe: <http://lists.midrange.com/mailman/listinfo/rpg400-l>, <mailto:rpg400-l-request@midrange.com?subject=subscribe>
List-unsubscribe: <http://lists.midrange.com/mailman/listinfo/rpg400-l>, <mailto:rpg400-l-request@midrange.com?subject=unsubscribe>

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

As an Amazon Associate we earn from qualifying purchases.

Follow-Ups:

Re: Message Subfile , Scott Klement

This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.