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



Below is the prototype of the export procedure. 
P $pgtrActiveGLScanJobCount...               
P                 B                   export 
D                 pi            10I 0        
D  piBBCD                        3    value


Below is the CLLE program that call the above procedure:
             DCL        VAR(&SCANJOBCNT) TYPE(*CHAR) LEN(4)           
             DCL        VAR(&PROC) TYPE(*CHAR) LEN(50)                
             DCL        VAR(&BBCD) TYPE(*CHAR) LEN(3) VALUE('BTD')    
             DCL        VAR(&NULL) TYPE(*CHAR) LEN(1) VALUE(X'00')    
                                                                      
             CHGVAR     VAR(&PROC) VALUE('$PGTRACTIVEGLSCANJOBCOUNT' +
                          *CAT &NULL)                                 
             CALL       PGM(QZRUCLSP) PARM( +                         
                        'SPPGTR    *LIBL     ' +                      
                        &PROC              +                          
                        x'00000001'        +                          
                        x'00000002'        +                          
                        x'00000001'        +                          
                        x'00'              +                          
                        &SCANJOBCNT        +                          
                        &BBCD)                                        

-----Original Message-----
From: midrange-l-bounces@xxxxxxxxxxxx
[mailto:midrange-l-bounces@xxxxxxxxxxxx]On Behalf Of Barbara Morris
Sent: Monday, September 26, 2005 1:34 PM
To: midrange-l@xxxxxxxxxxxx
Subject: Re: Calling export procedure using QZRUCLSP - Problem with parm
pass byValue


Lim Hock-Chai wrote:
> 
> When I use QZRUCLSP to call an export procedure that has a parm that is 
> defined to pass by value, the procedure is receiving a null value.
> If I change the parm to pass by const, it work correctly.
> 
> Is this as designed or am I doing something wrong?
> 

What is the type of the parameter?  QZRUCLSP only handles 4-byte
integers for passing by value.


As an Amazon Associate we earn from qualifying purchases.

This thread ...

Follow-Ups:

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.