|
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 ] --
As an Amazon Associate we earn from qualifying purchases.
This mailing list archive is Copyright 1997-2025 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].
Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.