* DBG045R3: Send Non-Program Message (frontend to QMHSNDM API)            
      * Copyright (C) 1993, 2003 Martin Rowe   <martin@dbg400.net>              
      * This program is free software; you can redistribute it and/or modify    
      * it under the terms of the GNU General Public License as published by    
      * the Free Software Foundation; either version 2 of the License, or       
      * (at your option) any later version.                                     
      * This program is distributed in the hope that it will be useful,         
      * but WITHOUT ANY WARRANTY; without even the implied warranty of          
      * GNU General Public License for more details.                            
      * You should have received a copy of the GNU General Public License       
      * along with this program; if not, write to the Free Software Foundation, 
      * Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA           
     E                    MSGQ       50 20                                      
     I            DS                                                            
     I                                    B   1   40#DLEN                       
     I            DS                                                            
     I                                    B   1   40#MQLEN                      
     IMSGDTA      DS                            512                             
     I                                        1   1 #DUMMY                      
     IERROR       DS                                                            
     I                                    B   1   40#BYTP                       
     I                                    B   5   80#BYTA                       
     I                                        9  15 #ERRID                      
     I                                       16  16 #ERROR                      
     I                                       17 256 #EXDTA                      
     C           *ENTRY    PLIST                                                
     C                     PARM           MSGID                                 
     C                     PARM           MSGFIL 10                             
     C                     PARM           MSGLIB 10                             
     C                     PARM           MSGDTA                                
     C                     PARM           DTALEN  50                            
     C                     PARM           MSGTYP                                
     C                     PARM           MSGQ                                  
     C                     PARM           MSGQLN  50                            
     C                     PARM           RPLMQ  20                             
     C                     PARM           ERRCDE  7                             
      *  INITIALISE                                                             
     C                     Z-ADDDTALEN    #DLEN                                 
     C                     Z-ADDMSGQLN    #MQLEN                                
     C                     Z-ADD256       #BYTP                                 
     C                     Z-ADD0         #BYTA                                 
     C                     MOVELMSGFIL    #MFLIB                                
     C                     MOVE MSGLIB    #MFLIB                                
      *  SEND MESSAGE                                                           
     C                     CALL 'QMHSNDM'              90                       
     C                     PARM           MSGID   7                             
     C                     PARM           #MFLIB 20                             
     C                     PARM           MSGDTA                                
     C                     PARM           #DLEN                                 
     C                     PARM           MSGTYP 10                             
     C                     PARM           MSGQ                                  
     C                     PARM           #MQLEN                                
     C                     PARM           RPLMQ                                 
     C                     PARM           MSGKEY  4                             
     C                     PARM           ERROR                                 
      *  EXIT                                                                   
     C                     MOVE #ERRID    ERRCDE                                
     C                     RETRN                                                
Topic revision: r2 - 01 Oct 2014 - 19:36:59 - UnknownUser
This site is powered by FoswikiCopyright © by the contributing authors. All material on this collaboration platform is the property of the contributing authors.
Ideas, requests, problems regarding DBG/400? Send feedback