RE: Calling export procedure using QZRUCLSP - Problem with parm pass byValue

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.