RE: QlgConvertCase - Example using Character data CCSID(13488)

Hello Neill,

I assume the CPF3C12 error is caused by the QlgConvertCase APIs third
parameter (InputLength) being passed by value as opposed to by
reference. Try changing the value keyword for this parameter to const.

As Tom suggests you'd also want to add code to initialize the error data
structure's first subfield to the actual length of the error data
structure:

Error.QUSBPRV = %Size( Error );

This ensures that the API only addresses storage actually belonging to
the Error data structure. According to the API documentation, the API
also expects the reserved part of the ConvCaseReqBlock to be initialized
to all x'00'. I haven't tested the tolerance of the QlgConvertCase API
in this respect, but most APIs return an error if reserved space is not
initialized to the documented value - adding the following line should
do the trick:

ConvertType.Reserved = *Allx'00';

Best regards,
Carsten Flensburg

-----Original Message-----
From: midrange-l-bounces@xxxxxxxxxxxx
[mailto:midrange-l-bounces@xxxxxxxxxxxx] On Behalf Of Neill Harper
Sent: 13. december 2009 11:58
To: 'Midrange Systems Technical Discussion'
Subject: RE: QlgConvertCase - Example using Character data CCSID(13488)

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
This communication is intended only for use by the addressee.It may contain confidential or privilegedinformation.
If you receive this communication unintentionally, please inform us immediately and delete this e-mail and any attachments.
Warning: Although we have taken reasonable precautions to ensure no viruses are present in this email, we cannot accept
responsibility for any loss or damage arising from the use of this email orattachments.