× 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.



As far as QEZSNDMSG - just make a straight call as follows:

01  message-type           pic  x(10)     value '*INFO     '.   
01  delivery-mode          pic  x(10)     value '*BREAK    '.   
01  message-length         pic s9(06)     value 80       binary.
01  number-of-users        pic s9(06)     value 1        binary.
01  message-sent           pic s9(06)     value +0       binary.
01  function-request       pic s9(06)     value +0       binary.
01  show-display          pic  x(01)      value 'N'.    
01  message-queue-name    pic  x(20)      value spaces. 
01  name-type             pic  x(04)      value '*USR'. 
                                                                
01  error-stuff.                                                
    05  bytes-provided    pic s9(06)      value +0       binary.
    05  bytes-available   pic s9(06)      value +0       binary.
    05  exception-id      pic  x(07)      value spaces.         
    05  reserved          pic  x(01)      value space.          
    05  exception-data    pic  x(50)      value spaces.         

move 'This is a test message' to link-message
move 'QSECOFR   '             to link-userid

call 'QEZSNDMG' using message-type       
                      delivery-mode      
                      link-message       
                      message-length     
                      link-userid        
                      number-of-users    
                      message-sent       
                      function-request   
                      error-stuff        
                      show-display       
                      message-queue-name 
                      name-type      

Terry Winchester 
Programmer/Analyst
________________________________
The Raymond Corporation
terry.winchester@xxxxxxxxxxxxxxx 

-----Original Message-----
From: cobol400-l-bounces@xxxxxxxxxxxx 
[mailto:cobol400-l-bounces@xxxxxxxxxxxx] On Behalf Of 
Adrienne McConnon
Sent: Thursday, October 12, 2006 10:08 AM
To: cobol400-l@xxxxxxxxxxxx
Subject: [COBOL400-L] which api's are in which service programs

Hello,
 
I want to call 2 API's from a COBOL program - QEXSNDMG and QWLCOBJL.
The compile fails, I think because I am not binding the 
correct service
program that contains the API.  How do you find which service programs
contain the API's you want to use?
 
Thanks,
 
Adrienne McConnon 
Vercuity - Parsippany NJ
-- 
This is the COBOL Programming on the iSeries/AS400 
(COBOL400-L) mailing list
To post a message email: COBOL400-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/cobol400-l
or email: COBOL400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/cobol400-l.



Confidentiality Notice:

The preceding e-mail message (including any attachments) contains information 
that may be confidential, protected by applicable legal privileges, or 
constitute non-public information. It is intended to be conveyed only to the 
designated recipient(s). If you are not an intended recipient of this message, 
please notify the sender by replying to this message and then delete it from 
your system. Use, dissemination, distribution or reproduction of this message 
by unintended recipients is 
not authorized and may be unlawful.





As an Amazon Associate we earn from qualifying purchases.

This thread ...


Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

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.