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.