RE: ILE program problem

This is a multi-part message in MIME format.
--
The GetEnv interface is a little flakey relative to most other APIs on
the system.
I've attached an excerpt from my new book on CGI Programming with RPG IV
that details calling the Get Environment API.
The important thing to note is that the LENGTH parameter that identifies
the length of the Environment Variable that you are getting MUST be the
actually length of the environment variable's name NOT the length of the
field being passed as the environment variable. Hence GetEnv('Cookie')
would require a value of 6.

Bob Cozzi
cozzi@rpgiv.com
Visit the new on-line iSeries Forums at: http://www.rpgiv.com/forum

> -----Original Message-----
> From: rpg400-l-admin@midrange.com [mailto:rpg400-l-admin@midrange.com]
On
> Behalf Of Condon, Mike, /m1c
> Sent: Monday, August 27, 2001 11:26 AM
> To: 'rpg400-l@midrange.com'
> Subject: RE: ILE program problem
>
> I changed it with the same results. Is my syntax and are
> my declartions of the string variables kosher?
>
> -----Original Message-----
> From: bvining@vnet.ibm.com [mailto:bvining@vnet.ibm.com]
> Sent: Monday, August 27, 2001 10:53 AM
> To: RPG400-L@midrange.com
> Subject: ILE program problem
>
>
> Are you sure you want external procedure GetEnv rather then getenv?
> If you change your prototype to:
>
> DGetEnv           PR              *   ExtProc('getenv')
>
> you should find your environment variable.  You're off into Java land
> with your current API call.
>
> Bruce
>
> >
> >I have the following ILE (my 1st) program that fails whenever I set
an
> >environment variable
> >in a CL program using addenvvar. I'll have to admint that since I am
a 400
> >programmer I don't
> >know ILE at all. It gets this error:
> >Message . . . . :   Pointer or parameter error (C G D F).
> >
> >Cause . . . . . :   RPG procedure GETGALFLIB in program
> >OPERATIONS/GETGALFLIB at statement 8 had an error due to a pointer
not
> being
> >correctly set.
> >
> >And here's the program:
> >DGetEnv           PR              *   ExtProc('GetEnv')
> >DEnvData@                         *   Value Options(*String)
> >Dgalflibr         S             16A   Based(EnvData@)
> >C     *entry        plist
> >C                   parm                    envlibr          16
> >C*                  movel     *blanks       galflibr         16
> >C                   eval      EnvData@ = GetEnv('GALFLIBR')
> >C                   movel     galflibr      envlibr
> >C                   MOVE      *ON           *INLR
> >C                   RETURN
> >
>
> _______________________________________________
> This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing
list
> To post a message email: RPG400-L@midrange.com
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/cgi-bin/listinfo/rpg400-l
> or email: RPG400-L-request@midrange.com
> _______________________________________________
> This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing
list
> To post a message email: RPG400-L@midrange.com
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/cgi-bin/listinfo/rpg400-l
> or email: RPG400-L-request@midrange.com
--
[ COZZI Web Book.pdf of type application/pdf deleted ]
--