|
Thanks Aaron and Scott. Your suggestion has helped me. -----Original Message----- From: rpg400-l-bounces@midrange.com [mailto:rpg400-l-bounces@midrange.com]On Behalf Of rpg400-l-request@midrange.com Sent: Tuesday, January 14, 2003 10:26 PM To: rpg400-l@midrange.com Subject: RPG400-L Digest, Vol 1, Issue 1294 Send RPG400-L mailing list submissions to rpg400-l@midrange.com To subscribe or unsubscribe via the World Wide Web, visit http://lists.midrange.com/mailman/listinfo.cgi/rpg400-l or, via email, send a message with subject or body 'help' to rpg400-l-request@midrange.com You can reach the person managing the list at rpg400-l-owner@midrange.com When replying, please edit your Subject line so it is more specific than "Re: Contents of RPG400-L digest..." Today's Topics: 1. Re: Qualifed datastructure names (Barbara Morris) 2. RE: Qualifed datastructure names (Bob Cozzi) 3. RE: Qualifed datastructure names (J Michael Smith) 4. Re: Qualifed datastructure names (Barbara Morris) 5. Procedure parameters error (Deepak Deshpande) 6. RE: Procedure parameters error (Bartell, Aaron L. (TC)) 7. RE: Procedure parameters error (Scott Mildenberger) 8. Pointer parameter passed to free or realloc is not valid (TEJ SINGH) 9. Codepage issues with the slash character (David Gibbs) 10. RE: Codepage issues with the slash character (DeLong, Eric) 11. RE: Codepage issues with the slash character (Bob Cozzi) ---------------------------------------------------------------------- Date: Mon, 13 Jan 2003 13:26:06 -0500 From: Barbara Morris <bmorris@ca.ibm.com> To: rpg400-l@midrange.com Subject: Re: Qualifed datastructure names Message-ID: <3E2304BE.4411BF1E@ca.ibm.com> References: <200301121800.h0CI0lOl018664@linux.midrange.com> <4.3.2.7.2.20030112143257.00af7960@ke9nr.net> Content-Type: text/plain; charset=us-ascii MIME-Version: 1.0 Content-Transfer-Encoding: 7bit Precedence: list Reply-To: RPG programming on the AS400 / iSeries <rpg400-l@midrange.com> Message: 1 Ken Sims wrote: > > Hi Michael - > > >I don't have any problems view the entire datastructure, it just sure > >would be nice to manipulate the individual fields. > > I don't remember where I *finally* ran across it, but you need to do it as: > > eval [field name] of [data structure name] > In V5R2, you can use "ds.subfld" in the debugger (or "subfld of ds"). ------------------------------ Date: Mon, 13 Jan 2003 12:46:44 -0600 From: "Bob Cozzi" <cozzi@rpgiv.com> To: "'RPG programming on the AS400 / iSeries'" <rpg400-l@midrange.com> Subject: RE: Qualifed datastructure names Message-ID: <001601c2bb34$205c5250$607d6520@cozzi600e> In-Reply-To: <3E2304BE.4411BF1E@ca.ibm.com> Content-Type: text/plain; charset="US-ASCII" MIME-Version: 1.0 Content-Transfer-Encoding: 7bit Precedence: list Reply-To: RPG programming on the AS400 / iSeries <rpg400-l@midrange.com> Message: 2 Barbara, Do you mean that: C Eval value = CustNo of CustRec Will work in V5R2? (Assuming CustRec is a DS with CUSTNO as a subfield). Bob -----Original Message----- From: rpg400-l-bounces@midrange.com [mailto:rpg400-l-bounces@midrange.com] On Behalf Of Barbara Morris Sent: Monday, January 13, 2003 12:26 PM To: rpg400-l@midrange.com Subject: Re: Qualifed datastructure names Ken Sims wrote: > > Hi Michael - > > >I don't have any problems view the entire datastructure, it just sure > >would be nice to manipulate the individual fields. > > I don't remember where I *finally* ran across it, but you need to do > it as: > > eval [field name] of [data structure name] > In V5R2, you can use "ds.subfld" in the debugger (or "subfld of ds"). _______________________________________________ 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/mailman/listinfo.cgi/rpg400-l or email: RPG400-L-request@midrange.com Before posting, please take a moment to review the archives at http://archive.midrange.com/rpg400-l. ------------------------------ Date: Mon, 13 Jan 2003 12:48:43 -0600 From: "J Michael Smith" <Michael.Smith3@arch.com> To: "RPG programming on the AS400 / iSeries" <rpg400-l@midrange.com> Cc: Duane Thompson <Duane.Thompson@arch.com> Subject: RE: Qualifed datastructure names Message-ID: <8F2B5241C41F7D469A3F8617D67A8970664D8E@msrl3ex1.us.arch.com> Content-Type: text/plain; charset="iso-8859-1" MIME-Version: 1.0 Content-Transfer-Encoding: 8bit Precedence: list Reply-To: RPG programming on the AS400 / iSeries <rpg400-l@midrange.com> Message: 3 Barbara, Thanks. Was just about to put in an APAR. Michael -----Original Message----- From: Barbara Morris [mailto:bmorris@ca.ibm.com] Sent: Monday, January 13, 2003 12:26 PM To: rpg400-l@midrange.com Subject: Re: Qualifed datastructure names Ken Sims wrote: > > Hi Michael - > > >I don't have any problems view the entire datastructure, it just sure > >would be nice to manipulate the individual fields. > > I don't remember where I *finally* ran across it, but you need to do it as: > > eval [field name] of [data structure name] > In V5R2, you can use "ds.subfld" in the debugger (or "subfld of ds"). _______________________________________________ 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/mailman/listinfo.cgi/rpg400-l or email: RPG400-L-request@midrange.com Before posting, please take a moment to review the archives at http://archive.midrange.com/rpg400-l. ------------------------------ Date: Mon, 13 Jan 2003 17:33:14 -0500 From: Barbara Morris <bmorris@ca.ibm.com> To: rpg400-l@midrange.com Subject: Re: Qualifed datastructure names Message-ID: <3E233EAA.90976F02@ca.ibm.com> References: <3E2304BE.4411BF1E@ca.ibm.com> <001601c2bb34$205c5250$607d6520@cozzi600e> Content-Type: text/plain; charset=us-ascii MIME-Version: 1.0 Content-Transfer-Encoding: 7bit Precedence: list Reply-To: RPG programming on the AS400 / iSeries <rpg400-l@midrange.com> Message: 4 Bob Cozzi wrote: > > Barbara, > > Do you mean that: > > C Eval value = CustNo of CustRec > > Will work in V5R2? (Assuming CustRec is a DS with CUSTNO as a > subfield). > No, we're only talking about the syntax you use in the debugger. In V5R1, the debugger didn't support "ds.fld", only "fld of ds". ------------------------------ Date: Tue, 14 Jan 2003 18:33:07 +0530 From: "Deepak Deshpande" <deepak.deshpande@patni.com> To: <rpg400-l@midrange.com> Subject: Procedure parameters error Message-ID: <003101c2bbcd$48c89570$bf44a8c0@patni.com> Content-Type: text/plain; charset="iso-8859-1" MIME-Version: 1.0 Content-Transfer-Encoding: 7bit Precedence: list Reply-To: RPG programming on the AS400 / iSeries <rpg400-l@midrange.com> Message: 5 Hello, I have one RPGLE program calling one procedure. I am passing 4 PARM thru a DS. I am getting following compile error. *RNF5407 20 1 More parameters were passed in the prototyped call than are allowed. Can anybody help me? Thanx in advance. Deepak Here I replicate the code of procedure ADM01P. SEU==> ADM01P *************** Beginning of data ************************************* 0001.00 H NoMain 0002.00 H*--------------------------------------------------------------* 0005.00 D SrcDtl DS 0006.00 D PProj 1 5 0007.00 D PSorc 6 15 0008.00 D PType 16 25 0009.00 D PAttr 26 35 0010.00 D* Prototype for Adm01P 0011.00 D Adm01p PR 10 ExtProc('Adm01P') 0012.00 D SrcDtl 35 0017.00 D*--------------------------------------------------------------* 0018.00 P* Beginning of Procedure 0019.00 P Adm01P B Export 0020.00 P*--------------------------------------------------------------* 0021.00 D* Procedure Interface 0022.00 D Adm01P PI 10 0023.00 D SrcDtl 35 0028.00 D QQSrcPF S 10 0029.00 D*--------------------------------------------------------------* ************ Some code 0043.00 C Return QQSrcPF 0044.00 C*--------------------------------------------------------------* 0045.00 P E ****************** End of data **************************************** Here is the RPGLE program. SEU==> ADM01R *************** Beginning of data ************************************* 0032.00 D* Prototype for procedure GetSrcPF 0033.00 D QQSrcPF S 10 0034.00 D Adm01P PR 35 0035.00 D SrcDtl DS 0036.00 D PProj 1 5 0037.00 D PSorc 6 15 0038.00 D PType 16 25 0039.00 D PAttr 26 35 0280.00 C* Call procedure GetSrcPF to get SOurce file name 0281.00 C Eval PProj = QTRPRJD 0282.00 C Eval PSorc = QTRSRCD 0283.00 C Eval PType = QTRTYPD 0284.00 C Eval PAttr = QTRATRD 0285.00 C Eval QQSrcPF = Adm01P(SrcDtl) ****************** End of data **************************************** ------------------------------ Date: Tue, 14 Jan 2003 08:30:56 -0600 From: "Bartell, Aaron L. (TC)" <ALBartell@taylorcorp.com> To: "'RPG programming on the AS400 / iSeries'" <rpg400-l@midrange.com> Subject: RE: Procedure parameters error Message-ID: <50E05392D50CA14CA35A02BB8167BB0793CEF1@pop3.taylorcorp.com> Content-Type: text/plain; charset="iso-8859-1" MIME-Version: 1.0 Precedence: list Reply-To: RPG programming on the AS400 / iSeries <rpg400-l@midrange.com> Message: 6 Your prototype in the calling program needs to look like this: 0022.00 D Adm01P PR 10 ExtProc('Adm01P') 0023.00 D SrcDtl 35 You forgot to specify the parameter that you are sending into the sub procedure. A good way to get around these mistakes are to use /COPY to bring them in from an external member. Hope that helps, Aaron Bartell -----Original Message----- From: Deepak Deshpande [mailto:deepak.deshpande@patni.com] Sent: Tuesday, January 14, 2003 7:03 AM To: rpg400-l@midrange.com Subject: Procedure parameters error Hello, I have one RPGLE program calling one procedure. I am passing 4 PARM thru a DS. I am getting following compile error. *RNF5407 20 1 More parameters were passed in the prototyped call than are allowed. Can anybody help me? Thanx in advance. Deepak Here I replicate the code of procedure ADM01P. SEU==> ADM01P *************** Beginning of data ************************************* 0001.00 H NoMain 0002.00 H*--------------------------------------------------------------* 0005.00 D SrcDtl DS 0006.00 D PProj 1 5 0007.00 D PSorc 6 15 0008.00 D PType 16 25 0009.00 D PAttr 26 35 0010.00 D* Prototype for Adm01P 0011.00 D Adm01p PR 10 ExtProc('Adm01P') 0012.00 D SrcDtl 35 0017.00 D*--------------------------------------------------------------* 0018.00 P* Beginning of Procedure 0019.00 P Adm01P B Export 0020.00 P*--------------------------------------------------------------* 0021.00 D* Procedure Interface 0022.00 D Adm01P PI 10 0023.00 D SrcDtl 35 0028.00 D QQSrcPF S 10 0029.00 D*--------------------------------------------------------------* ************ Some code 0043.00 C Return QQSrcPF 0044.00 C*--------------------------------------------------------------* 0045.00 P E ****************** End of data **************************************** Here is the RPGLE program. SEU==> ADM01R *************** Beginning of data ************************************* 0032.00 D* Prototype for procedure GetSrcPF 0033.00 D QQSrcPF S 10 0034.00 D Adm01P PR 35 0035.00 D SrcDtl DS 0036.00 D PProj 1 5 0037.00 D PSorc 6 15 0038.00 D PType 16 25 0039.00 D PAttr 26 35 0280.00 C* Call procedure GetSrcPF to get SOurce file name 0281.00 C Eval PProj = QTRPRJD 0282.00 C Eval PSorc = QTRSRCD 0283.00 C Eval PType = QTRTYPD 0284.00 C Eval PAttr = QTRATRD 0285.00 C Eval QQSrcPF = Adm01P(SrcDtl) ****************** End of data **************************************** _______________________________________________ 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/mailman/listinfo.cgi/rpg400-l or email: RPG400-L-request@midrange.com Before posting, please take a moment to review the archives at http://archive.midrange.com/rpg400-l. ------------------------------ Date: Tue, 14 Jan 2003 07:23:55 -0700 From: Scott Mildenberger <Smildenber@Washcorp.com> To: "'RPG programming on the AS400 / iSeries'" <rpg400-l@midrange.com> Subject: RE: Procedure parameters error Message-ID: <3021AF32A1C3D211A59000A0C955BD350484485E@EXCHANGE> Content-Type: text/plain; charset="iso-8859-1" MIME-Version: 1.0 Precedence: list Reply-To: RPG programming on the AS400 / iSeries <rpg400-l@midrange.com> Message: 7 The prototype in your calling program does not match the prototype in your procedure. This is why it is a good idea to use /copy for the prototypes so they are only defined in one place. Scott MIldenberger > -----Original Message----- > From: Deepak Deshpande [mailto:deepak.deshpande@patni.com] > Sent: Tuesday, January 14, 2003 6:03 AM > To: rpg400-l@midrange.com > Subject: Procedure parameters error > > > Hello, > > I have one RPGLE program calling one procedure. I am passing > 4 PARM thru a > DS. I am getting following compile error. > > *RNF5407 20 1 More parameters were passed in the > prototyped call than > are allowed. > ------------------------------ Date: Tue, 14 Jan 2003 16:02:57 +0000 From: "TEJ SINGH" <kalsi_ts@hotmail.com> To: rpg400-l@midrange.com Subject: Pointer parameter passed to free or realloc is not valid Message-ID: <F8idS1rkYYN8IeYmzcl000100b5@hotmail.com> Content-Type: text/plain MIME-Version: 1.0 Precedence: list Reply-To: RPG programming on the AS400 / iSeries <rpg400-l@midrange.com> Message: 8 Hi Everyone, I compiled an application on 4.4 and running it on 5.1 and getting abend " The Pointer parameter passed to free or realloc is not valid". I am running a large volume 10-15 million records. Is this something to do with difference of operating system. Kindly help Tej ---------------------------------------------------------------------- get 2 months FREE* ------------------------------ Date: Tue, 14 Jan 2003 10:15:49 -0600 From: "David Gibbs" <david@midrange.com> To: rpg400-l@midrange.com Subject: Codepage issues with the slash character Message-ID: <b01d18$oaa$1@main.gmane.org> Precedence: list Reply-To: RPG programming on the AS400 / iSeries <rpg400-l@midrange.com> Message: 9 Folks: I've got an odd problem with code pages ... in one of our programs, the users enters an IFS path... which we then validate (using some API calls). Most paths begin with a back slash "\" character (for backwards compatibility, I think) ... and our program (RPG IV) checks the first character to make sure it's a backslash. This works fine on our machine (US based, code page 37) ... but on one of our customers machines in Italy (code page 280) our program is looking at the first character of that field and seeing something OTHER than a backslash (kind of a cents sign with a tail, don't know what it's called). To be honest, I really don't expect a character as basic as a slash or backslash to have a different hex value in two major language sets. How are you supposed to deal with these kind of differences? Thanks! david ------------------------------ Date: Tue, 14 Jan 2003 10:38:33 -0600 From: "DeLong, Eric" <EDeLong@Sallybeauty.com> To: "'RPG programming on the AS400 / iSeries'" <rpg400-l@midrange.com> Subject: RE: Codepage issues with the slash character Message-ID: <ABC2AA8AE77BD51194AB0002A5894A0F0269D00E@pop.sallybeauty.com> Content-Type: text/plain; charset=iso-8859-1 MIME-Version: 1.0 Content-Transfer-Encoding: 7bit Precedence: list Reply-To: RPG programming on the AS400 / iSeries <rpg400-l@midrange.com> Message: 10 David, So far, it seems the AS400 uses slash and backslash interchangeably. Can you just use slash? Eric DeLong Sally Beauty Company MIS-Project Manager (BSG) 940-898-7863 or ext. 1863 -----Original Message----- From: David Gibbs [mailto:david@midrange.com] Sent: Tuesday, January 14, 2003 10:16 AM To: rpg400-l@midrange.com Subject: Codepage issues with the slash character Folks: I've got an odd problem with code pages ... in one of our programs, the users enters an IFS path... which we then validate (using some API calls). Most paths begin with a back slash "\" character (for backwards compatibility, I think) ... and our program (RPG IV) checks the first character to make sure it's a backslash. This works fine on our machine (US based, code page 37) ... but on one of our customers machines in Italy (code page 280) our program is looking at the first character of that field and seeing something OTHER than a backslash (kind of a cents sign with a tail, don't know what it's called). To be honest, I really don't expect a character as basic as a slash or backslash to have a different hex value in two major language sets. How are you supposed to deal with these kind of differences? Thanks! david _______________________________________________ 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/mailman/listinfo.cgi/rpg400-l or email: RPG400-L-request@midrange.com Before posting, please take a moment to review the archives at http://archive.midrange.com/rpg400-l. ------------------------------ Date: Tue, 14 Jan 2003 10:57:09 -0600 From: "Bob Cozzi" <cozzi@rpgiv.com> To: "'RPG programming on the AS400 / iSeries'" <rpg400-l@midrange.com> Subject: RE: Codepage issues with the slash character Message-ID: <003901c2bbed$fbafc940$177d6520@cozzi600e> In-Reply-To: <b01d18$oaa$1@main.gmane.org> Content-Type: text/plain; charset="us-ascii" MIME-Version: 1.0 Content-Transfer-Encoding: 7bit Precedence: list Reply-To: RPG programming on the AS400 / iSeries <rpg400-l@midrange.com> Message: 11 David, We always use the forward slash for IFS paths within RPGIV. Don't have a problem with that one. Bob -----Original Message----- From: rpg400-l-bounces@midrange.com [mailto:rpg400-l-bounces@midrange.com] On Behalf Of David Gibbs Sent: Tuesday, January 14, 2003 10:16 AM To: rpg400-l@midrange.com Subject: Codepage issues with the slash character Folks: I've got an odd problem with code pages ... in one of our programs, the users enters an IFS path... which we then validate (using some API calls). Most paths begin with a back slash "\" character (for backwards compatibility, I think) ... and our program (RPG IV) checks the first character to make sure it's a backslash. This works fine on our machine (US based, code page 37) ... but on one of our customers machines in Italy (code page 280) our program is looking at the first character of that field and seeing something OTHER than a backslash (kind of a cents sign with a tail, don't know what it's called). To be honest, I really don't expect a character as basic as a slash or backslash to have a different hex value in two major language sets. How are you supposed to deal with these kind of differences? Thanks! david _______________________________________________ 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/mailman/listinfo.cgi/rpg400-l or email: RPG400-L-request@midrange.com 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) digest list To post a message email: RPG400-L@midrange.com To subscribe, unsubscribe, or change list options, visit: http://lists.midrange.com/mailman/listinfo.cgi/rpg400-l or email: RPG400-L-request@midrange.com Before posting, please take a moment to review the archives at http://archive.midrange.com/rpg400-l. End of RPG400-L Digest, Vol 1, Issue 1294 *****************************************
As an Amazon Associate we earn from qualifying purchases.
This mailing list archive is Copyright 1997-2024 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.
midrange.com
