Re: FW: QzsrGetEnvCCSID error code issues

[Vern Hamberg <vhamberg@xxxxxxxxxxxxxxx>]

Hi Stefan

Very interesting. I think I applied a requirement where it is not needed 
- in other "reserved" variables, they do need to be nulls - even Bruce 
Vining, who wrote 2nd Edition of APIs at work, doesn't set that position 16.

I live and learn!

I looked at the documentation for this API and see nothing about length 
of the returnvalue parameter, and I don't know how it could affect 
another parameter - this is odd - but I'm glad you made it work!

Cheers
Vern

On 6/19/2023 1:55 AM, stefan@xxxxxxxxxx wrote:
> Hej Vern!
>
> Thanks a lot for your time and effort!
> Interesting thing is that the  CPF3CF1 message is the only error shown.
> Even more interesting is that when I reduce the size of the returnvalue ( first parameter ) to 10000 then everything works.
> So an errormessage in error doesn't make it right.....
>
> All the best,
>
> Stefan
>
> -- No trees were killed in the sending of this message, but a large 
> number of electrons were terribly upset. Stefan Tageson +46 732 369934 
> stefan@xxxxxxxxxx -----Original Message----- From: RPG400-L 
> <rpg400-l-bounces@xxxxxxxxxxxxxxxxxx> On Behalf Of Vern Hamberg via 
> RPG400-L Sent: Sunday, June 18, 2023 11:35 PM To: 
> rpg400-l@xxxxxxxxxxxxxxxxxx Cc: Vern Hamberg 
> <vhamberg@xxxxxxxxxxxxxxx> Subject: Re: FW: QzsrGetEnvCCSID error code 
> issues 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