RE: ILE program problem

Apparently Dave's RPG400-L list eliminates attachments, so I posted the
reply on my own RPG list server rpgiv@yahoogroups.com and it does
contain the attachment. If you can't get it, email me, and I'll forward
a copy to you.

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 Bob Cozzi (RPGIV)
> Sent: Monday, August 27, 2001 11:35 AM
> To: rpg400-l@midrange.com
> Cc: rpgiv@yahoogroups.com
> Subject: 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 ]
> --
>
> _______________________________________________
> 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