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