Re: FW: QzsrGetEnvCCSID error code issues

[Vern Hamberg <vhamberg@xxxxxxxxxxxxxxx>]

He Stefan

First, that message is probably the last of some messages - one of them 
might me MCH5601, which has says a template is invalid and has more 
information.

/_*But I think I know already - your data structure is missing position 
16*_//__/- that is defined as a reserved subfield of length 1 in the API 
documentation for the error code parameter -

*All* reserved subfields *must* be all hex 0's.

I strongly recommend looking at the QUSEC data structure in the QUSEC 
member of QSYSINC/QRPGLESRC - it *is* fixed-format RPG, yes, but it has 
everything you have to have - when building a free-form version, just be 
sure to include everything.

HTH
Vern

On 6/18/2023 3:25 PM, stefan@xxxxxxxxxx wrote:
> 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