I figured it out I needed to make the Length a
variable and make it binary.
CHGVAR
VAR(%BIN(&LEN)) VALUE(231)
Thanks for your help
---
Sent: Friday, July 28, 2000 8:39 AM
Subject: Re: API Help
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 -----
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.
midrange.com
