FW: QzsrGetEnvCCSID error code issues

Hi all!



I’m trying to receive some environment variables while taking care of the ccsid for those environment variables.

Surprisingly – the net result so far is CPF3CF1 Error code parameter is not valid.

Please tell me what I’m doing wrong:



dcl-pr getenv extproc('QzsrGetEnvCCSID');

returnvalue char( 65535 );

returnvalue_length int( 10 ) const;

response_length int( 10 );

envvar char( 1024 ) const;

envvar_value_length int( 10 ) const;

envvar_ccsid int( 10 ) const;

returnvalue_ccsid int( 10 ) const;

errorcode likeds( dsEcx );

end-pr;



dcl-ds dsECx qualified;

BytesProvided int( 10 ) pos( 1 );

BytesAvail int( 10 ) pos( 5 ) inz( 0 );

MessageID char( 7 ) pos( 9 );

MessageData char( 240 ) pos( 17 );

end-ds;



// ------------------------------------------------------------------

// * Code *

// ------------------------------------------------------------------



monitor;

dsEcx.BytesProvided = %size( dsEcx );

dsEcx.BytesAvail = 0;

envvar_length = %len( %trim( envvar ));



getenv( returnvalue:

rv_variable_length:

response_length:

envvar:

envvar_length:

0: // ccsid of envvar = 0 = job

ccsid:

dsEcx );



I’m totally lost,



Thanks!



Stefan