Sending messages to the previous (caller's) subfile message queue

   I use message subfiles for regular application error messages;
   everything's dandy.  Now, I'd like to send a message from a called program
   back to the calling interactive program.  I'm returning the error message
   ID, so the caller knows there's been a problem, but I don't want to add
   the logic to post the error message to the caller's error message
   subfile.  I want the called program to do all the work so I don't have
   to. 

   When I jockey @clstkcounter, the error messages show up in the job log.  I
   can send the message to *EXT but that's gross and will make users panic. 
   I don't need an escape message.  If all else fails, I'll pop up a little
   window with the message in it, but I'm sure done this before and have
   brain-faded. 

   This is my so-called proof-of-concept code:

   D @msgid          s              7    inz('CPF9801')              
   D @msgfile        s             20    inz('QCPFMSG   *LIBL     ')
   D @msgdata        s             10                                
   D @msgdatalen     s             10i 0                            
   D @msgtype        s             10    inz('*DIAG')                
   D @clstkentry     s             10    inz('*')                    
   D @clstkcounter   s             10i 0 inz(1)                      
   D @msgkey         s              4                                
   D @apierr         s            256                                
                                                                     
   C                   call      'QMHSNDPM'                          
   C                   parm                    @msgid                
   C                   parm                    @msgfile              
   C                   parm                    @msgdata              
   C                   parm                    @msgdatalen          
   C                   parm                    @msgtype              
   C                   parm                    @clstkentry          
   C                   parm                    @clstkcounter        
   C                   parm                    @msgkey              
   C                   parm                    @apierr              

   I'm sure it's the right combination of @clstkentry and @clstkcounter
   values.  I'd appreciate any suggestions!

   Thanks,
   IRG                                                                  

    

     ----------------------------------------------------------------------

   Say *good-bye* to spam, viruses and pop-ups with MSN Premium -- free trial
   offer!