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


  1.  Home
  2. MIDRANGE-L
  3. July 2000

Re: API Help

  • Subject: Re: API Help
  • From: "Quazy" <quazy@xxxxxxxxxxxx>
  • Date: Fri, 28 Jul 2000 08:39:25 -0500
Well here is the code, Leif.
BEGIN:      PGM                                                       
            DCL        VAR(&INFO) TYPE(*CHAR) LEN(9999)               
            DCL        VAR(&ERR) TYPE(*CHAR) LEN(4)                   
                                                                      
            CHGVAR     VAR(%BIN(&ERR)) VALUE(0)                       
                                                                      
            CALL       PGM(QBRM/Q1ARTVMED) PARM(&INFO 9999 MEDV0100 + 
                         GS8003 &ERR)                                 
                                                                      
            SNDPGMMSG  MSGID(TST0001) MSGF(QUSERMSG) MSGDTA(&INFO) +  
                         TOUSR(CBECKSEC)                              
                                                                      
END:        ENDPGM                                                    
 
I Put the sndpgmmsg in there just so I could test it without haveing to use debug every time.
 
I must put in at least 600 in the reciever length and then I only get the first variable returned. If I put less in I get this error. CPF3C24 Length of the receiver variable is not valid.
 
If I put in 9999 I get the first 150 charecters of the 231 that are supposed to be returned.
 
Thanks
----- Original Message -----
Sent: Thursday, July 27, 2000 9:40 PM
Subject: Re: API Help

 
----- Original Message -----
From: Quazy
Sent: Thursday, July 27, 2000 7:50 PM
Subject: Re: API Help

How do you make a Binary variable in CL? 
I tried the length to match the variable and the actual number supposedly returned (231 characters and I get "Length of the receiver variable is not valid."  if I make it 9999 then I get the first 150 characters. 
 
Doesn't really have to be binary, CHAR(4) set to x'00000000' will do just as fine.
About your length, post the code and let's have a look.

As an Amazon Associate we earn from qualifying purchases.

This thread ...
Follow-Ups:
Replies:
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.