Re: getenv API and previous compiler suport

Thanks Bob, but it looks to me as if this API suffers from the same problem, 
i.e. it will work fine on V4R5M0 if compiled at that release, but I suspect 
(can't prove it as I don't have easy access to a V4R5M0 machine) that 
compiling code that uses it on V5R2M0 with TGTRLS(V4R5M0) wouldn't work.

Pete
"Bob Cozzi" <cozzi@xxxxxxxxx> wrote in message 
news:200409071352.i87DqbbK029893@xxxxxxxxxxxxxxxxxxxx
> Don't know if this will solve your problem, but I use Qp0zGetEnv on V4R5 
> and
> later without problem.
> Here's the prototype that is used in the CGILIB (similar to CGIDEV2)
>
>     D Qp0zGetEnv      PR              *   ExtProc('Qp0zGetEnv')
>     D  envvar                         *   VALUE OPTIONS(*STRING)
>     D  nCCSID                       10I 0
>
> The 2nd parm, CCSID, can be set to 0 for the current CCSID.
> Here's the wrapper I built for CGILIB so that you don't have to deal with
> the C string return values:
>
>     P GetEnvVar       B                   Export
>     D GetEnvVar       PI         65535A   VARYING
>     D  pInEnv                         *   VALUE OPTIONS(*STRING)
>
>     D  pEnv           S               *   Inz
>     D  nCCSID         S             10I 0 Inz(0)
>
>     C                   eval      pEnv = Qp0zGetEnv(pInEnv : nCCSID)
>     C
>     C                   if        pEnv = *NULL
>     C                   return    ''
>     C                   endif
>     C                   return    %str(pEnv)
>     P GetEnvVar       E
>
> CGILIB is available in the RPG xTools at www.rpgxtools.com
>
> -Bob Cozzi
>
>
> -----Original Message-----
> From: rpg400-l-bounces@xxxxxxxxxxxx 
> [mailto:rpg400-l-bounces@xxxxxxxxxxxx]
> On Behalf Of Pete Clifford
> Sent: Tuesday, September 07, 2004 7:56 AM
> To: rpg400-l@xxxxxxxxxxxx
> Subject: getenv API and previous compiler suport
>
> Has anyone run into problems using the "getenv" API to retrieve 
> environment
> variables when compiling for previous releases?
>
> I have some code which uses getenv and which is compiled on V5R2M0 with
> TGTRLS(V4R5M0).
>
> It runs fine on V5R2M0 and above.
>
> On V4R5M0 I get:
>
>     Message ID . . . . . . :   MCH4437       Severity . . . . . . . :   40
>     Message type . . . . . :   Escape
> Date sent  . . . . . . :   07/09/04      Time sent  . . . . . . :
> 10:15:31
>
> Message . . . . :   Program import not found.
> Cause . . . . . :   The calling program (program name) refers to a
> procedure or
>   data export from service program QP0ZCPA which does not exist. The
> calling
>   programs refers to export-ID X'00000031', the service program defines
> only
>   X'0000002F' exports.
> Recovery  . . . :   Recreate the calling program.
> Technical description . . . . . . . . :   The service program has been
> changed
>   in an incompatible manner since the time the calling program was created
> and
>   thus bound to the service program. Recreate the calling program.
>
>
> It looks to me as if getenv was previously exported from QC2UTIL2 but is 
> now
> in QP0ZCPA and that consequently compiling for V5R4M0 won't work.
>
> Anyone got any suggestions how I might retrieve an environment variable in 
> a
> way that can be compiled for V4R5M0 and above, with a single set of
> executables?
>
> Pete
>
> Peter Clifford
> ariadne software
> www.ariadnesoftware.co.uk
>
>
>
>
> --
> This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
> To post a message email: RPG400-L@xxxxxxxxxxxx
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
> or email: RPG400-L-request@xxxxxxxxxxxx
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/rpg400-l.
>
>
>
> --
> This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
> To post a message email: RPG400-L@xxxxxxxxxxxx
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
> or email: RPG400-L-request@xxxxxxxxxxxx
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/rpg400-l.
>
>