Thanks for the tip Bruce, last night I was trying both number of chars and
number of bytes with no success.
Here is my code, it is an typed so formatting in probably off, but it does
compile
DS declaration for type of request
D ConvCaseReqBlock...
D DS QUALIFIED
D RequestType 10i 0 Inz(1)
D CCSID 10i 0
D CaseRequest 10i 0
D Reserved 10a
Api call prototype
D ConvertCase PR
EXTPROC('QlgConvertCase')
D Type
LikeDS(ConvCaseReqBlock)
D Input * value
D Output * value
D InputLength 10i 0 value
D error LikeDS(qusec)
Prototype for my wrapper routine
D ToUpper PR 16383C varying
ccsid(13488)
D Input 16383C varying
options(*varsize)
D ccsid(13488)
D Length 10i 0
Options(*nopass) const
Code for my wrapper
D ToUpper b
D ToUpper Pi 16383C varying
ccsid(13488)
D Input 16383C varying
options(*varsize)
D ccsid(13488)
const
D Length 10i 0
Options(*nopass) const
D rtnVal s Like(Input)
D wrkVal s 16383C ccsid(13488)
D wrkVal2 s 16488C ccsid(13488)
D ConvertType ds
LikeDS(ConvCaseReqBlock)
D error ds likeds(qusec)
D len s 10i 0
/free
ConvertType.CCSID = 13488;
ConvertType.CaseRequest = 0;
If %parms > 1;
Len = length * 2;
Else;
Len = %len(Input) * 2;
Endif;
wrkVal2 = Input;
ConvertCase(ConvertType:%addr(wrkVal2):%addr(wrkVal):len:error);
rtnVal = %subst(wrkVal:1:len);
return rtnVal;
/end-free
Sample call wkUP = ToUpper(wk);
Or
wkUp = ToUpper(wk:50);
both fail with CPF3c12.
In debug with the break point on this line
rtnVal = %subst(wrkVal:1:len);
ConvertType.RequestType = 1;
ConvertType.CCSID = 13488;
ConvertType.CaseRequest = 0;
ConvertType.Reserved = ' '
Len = 34;
Error.Qusbprv = 1077952576;
Error.qusbavl = 20
Error.qusei = 'CPF3c12'
Error. = '0'
Error.msgdata = *allblanks
Qusbprv looks dodgy to me. Put apart from that I can't figure out where I am
going wrong
-----Original Message-----
From: midrange-l-bounces@xxxxxxxxxxxx
[mailto:midrange-l-bounces@xxxxxxxxxxxx] On Behalf Of Bruce Vining
Sent: 13 December 2009 03:23
To: Midrange Systems Technical Discussion
Subject: Re: QlgConvertCase - Example using Character data CCSID(13488)
There's nothing wrong with your prototype. Without seeing your code it's
hard to say what might be wrong but one thought that comes to mind is -- you
are passing the length parameter in bytes rather than characters aren't you?
13488 will always be an even number of bytes while the number of characters
may be odd. This API does do some "sanity" checking and may very well be
checking to make sure you have an even number specified.
If you continue to have problems feel free to send me more of your code. I
have had lots of experience with the API when doing commands such as
http://www.powercl.com/xcl/xclcommands/lwrcasexcl and
http://www.powercl.com/xcl/xclcommands/uprcasexcl.
Bruce
On Sat, Dec 12, 2009 at 6:55 PM, Neill Harper <neill.harper@xxxxxxxx> wrote:
Anybody have an example of a prototype and a call to QlgConvertCase, using
rpg IV character fields that are CCSID 13488.
I can't post a full example of the code I am using at this moment in time,
but I keep getting CPF3C12 returned in qusec.
All the examples I can find on google have the prototype defined as Alpha
fields, like so:
D QlgCvtCase PR ExtProc('QlgConvertCase')
D ctrlBlock Const LikeDS(FRCB_T)
D inString 65535A Const Options(*VARSIZE)
D OutString 65535A Options(*VARSIZE)
D Length 10I 0 Const
D APIError LikeDS(QUSEC)
I have tried
D QlgCvtCase PR ExtProc('QlgConvertCase')
D ctrlBlock Const LikeDS(FRCB_T)
D inString *
D OutString *
D Length 10I 0 Const
D APIError LikeDS(QUSEC)
And
D QlgCvtCase PR ExtProc('QlgConvertCase')
D ctrlBlock Const LikeDS(FRCB_T)
D inString 16383C Const Options(*VARSIZE)
D ccsid(13488)
D OutString 16383C Options(*VARSIZE)
D ccsid(13488)
D Length 10I 0 Const
D APIError LikeDS(QUSEC)
But both give me the same results CPF3C12, Length of data is not valid.
Any help in this area would be very gratefully received.
Neill
--
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing
list
To post a message email: MIDRANGE-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/midrange-l
or email: MIDRANGE-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/midrange-l.
midrange.com
