|
From: owner-rpg400-l-digest@midrange.com (rpg400-l-digest) To: rpg400-l-digest@midrange.com Subject: rpg400-l-digest V1 #211 Reply-To: rpg400-l Sender: owner-rpg400-l-digest@midrange.com Errors-To: owner-rpg400-l-digest@midrange.com Precedence: bulk rpg400-l-digest Wednesday, September 8 1999 Volume 01 : Number 211 Topics in this issue . . . : Re: Re[6]: New Opcodes - %SETCELL Re: Re[6]: New Opcodes - %SETCELL RE: Re[6]: New Opcodes - %SETCELL Re[7]: New Opcodes - %SETCELL %char?? what am I doing wrong?? Efficiency of Bound vs. Dynamic Calls Re: New Opcodes - %SETCELL compile errors caused by H spec Re: Re[6]: New Opcodes - %SETCELL Re[8]: New Opcodes - %SETCELL Re[2]: New Opcodes - %SETCELL Re: RPG redbook?!?! (was: New Opcodes - %SETCELL) Re: I am new to RPG language...need some pointers! RE: %char?? what am I doing wrong?? RE: %char?? what am I doing wrong?? Re: %char?? what am I doing wrong?? RE: %char?? what am I doing wrong?? Re: %char?? what am I doing wrong?? : ---------------------------------------------------------------------- Date: Wed, 8 Sep 1999 12:59:06 -0400 From: Jon.Paris@halinfo.it Subject: Re: Re[6]: New Opcodes - %SETCELL >> In other words, we don't want to do any development anymore. DO IT YOURSELF!!! I have to seriously disagree with you Norman - Hans did _not_ say that they didn't want to do development - he said that they were going to focus on "... new function that can't otherwise be done easily in the language today." In my opinion that is 100% correct - IBM _must_ concentrate in this area. If there is a major need for a specific function, someone will offer it for sale. IBM can never provide every function that anyone will ever need so they have to focus on those things that no one else can supply. It is the only thing that makes sense. +--- | This is the RPG/400 Mailing List! | To submit a new message, send your mail to RPG400-L@midrange.com. | To subscribe to this list send email to RPG400-L-SUB@midrange.com. | To unsubscribe from this list send email to RPG400-L-UNSUB@midrange.com. | Questions should be directed to the list owner/operator: david@midrange.com +--- ------------------------------ Date: Wed, 08 Sep 1999 13:03:58 -0400 From: dhandy@isgroup.net (Douglas Handy) Subject: Re: Re[6]: New Opcodes - %SETCELL Norman, >> We look for new function that can't otherwise be done easily >>in the language today. > In other words, we don't want to do any development anymore. DO IT > YOURSELF!!! I don't think that is a fair characterization of Hans' comment. Hans & Barbara (et al) have certainly added more to RPG IV in the last several releases than RPG used to see in a decade! I, for one, agree that they should concentrate on adding function which we could not readily do. While it would be nice if IBM had the resources to have another team develop scores of service procedures, I certainly don't want it at the expense of not getting features we can't add ourselves. Actually, IBM has supplied more routines than most people realize. The C runtime library is full of useful functions which are under utilized by RPG programmers. And there are sample subprocedures here & there (eg see RPG and Service Program Source snippets at http://www.as400.ibm.com/tstudio/workshop/snippets/snippet1.htm). And there should be a new red book Real Soon Now. I have been *very* pleased with the continued development of the RPG language. I was concerned when RPG IV was first announced that it would be the end of the road. On the contrary, it has been just the opposite. Of course, RPG does not yet have everything on my wish list. But it *is* moving in the right direction. Thanks Hans & Company! Doug +--- | This is the RPG/400 Mailing List! | To submit a new message, send your mail to RPG400-L@midrange.com. | To subscribe to this list send email to RPG400-L-SUB@midrange.com. | To unsubscribe from this list send email to RPG400-L-UNSUB@midrange.com. | Questions should be directed to the list owner/operator: david@midrange.com +--- ------------------------------ Date: Wed, 8 Sep 1999 09:52:51 -0700 From: Joel Fritz <JFritz@sharperimage.com> Subject: RE: Re[6]: New Opcodes - %SETCELL One of the things that has puzzled me since the introduction of ILE is the lack of procedure libraries and/or service programs for sale. This is something common in other languages that have that kind of extensibility. Seems to me that the old text based novell utility and administration programs used a product called "C Worthy" for the eccentric novell user interface where the use of ESC and ENTER confounded intuition. > -----Original Message----- > From: Norman.Rae@mckhboc.com [mailto:Norman.Rae@mckhboc.com] > Sent: Wednesday, September 08, 1999 8:46 AM > To: RPG400-L@midrange.com > Subject: Re[6]: New Opcodes - %SETCELL > > > > > > So let me see if I've got this straight: > > <<SNIP>> > > To get back on topic, if you want better API's for IFS, write your > own procedures and share them with others so they can benefit too. > Quite simply, now that we have procedures in the language, any > request for new function in RPG we see that could easily be > implemented by some code in a procedure is not taken very seriously > here. We look for new function that can't otherwise be done easily > in the language today. > > Cheers! Hans > > <<SNIP>> > > In other words, we don't want to do any development > anymore. DO IT > YOURSELF!!! > > I don't know about other companies, but here they are > not interested > in advancing the AS/400 world, or RPG. They want me to > concentrate on > the business needs, anything else I may do keeps me from > that task and > I am actively discouraged from this. I know its > shortsighted, but > that's the way it is! > > Norman > > +--- > | This is the RPG/400 Mailing List! > | To submit a new message, send your mail to RPG400-L@midrange.com. > | To subscribe to this list send email to RPG400-L-SUB@midrange.com. > | To unsubscribe from this list send email to > RPG400-L-UNSUB@midrange.com. > | Questions should be directed to the list owner/operator: > david@midrange.com > +--- > > > +--- > | This is the RPG/400 Mailing List! > | To submit a new message, send your mail to RPG400-L@midrange.com. > | To subscribe to this list send email to RPG400-L-SUB@midrange.com. > | To unsubscribe from this list send email to > RPG400-L-UNSUB@midrange.com. > | Questions should be directed to the list owner/operator: > david@midrange.com > +--- > +--- | This is the RPG/400 Mailing List! | To submit a new message, send your mail to RPG400-L@midrange.com. | To subscribe to this list send email to RPG400-L-SUB@midrange.com. | To unsubscribe from this list send email to RPG400-L-UNSUB@midrange.com. | Questions should be directed to the list owner/operator: david@midrange.com +--- ------------------------------ Date: Wed, 8 Sep 1999 18:20:14 -0400 From: pcunnane@learningco.com Subject: Re[7]: New Opcodes - %SETCELL I think the key point has been missed here: Why don't you ask Microsoft to add a SetCell method to Visual Basic? It's not gonna happen. But I betcha someone somewhere has written a .OCX to do it. It might be free; you might have to pay for it. But it's been done. There may be a bunch of people who think %setcell is an absolute must for inclusion in RPG. Personally, I think XML parsing would be a darn sight more useful. Others might have a lot of use for a BIF that converts numeric values to words (e.g. twenty-six). Which of these BIFs should IBM hard-wire into the RPG compiler? How long are you prepared to wait for them? Is it _really_ such a big deal to /COPY a prototype, and bind to the service program? Maybe the RPG team could even come up with a way of "externally describing" the prototypes from the service program. Granted, you may not have the time or energy to devote to coding these things yourself. But those of us who do, should try it. Somebody somewhere is going to have to write code to parse an Excel sheet. It would be really great if the code to do that were written as a module and published somewhere - it doesn't even have to be free. As I said before, it could be a nice little earner. I expect Java to be a big success, in part because it is so cleanly extensible. The vast bulk of the language is implemented in class libraries anyway. Personally I would much rather see OO aspects introduced to RPG (and externally-described service programs!), than have the development team spend time implementing functionality in BIFs that more properly belongs in libraries. ____________ Paul Cunnane The Learning Company ______________________________ Reply Separator _________________________________ Subject: Re[6]: New Opcodes - %SETCELL Author: Norman.Rae@mckhboc.com at InterNet Date: 08-09-99 8:46 am So let me see if I've got this straight: <<SNIP>> To get back on topic, if you want better API's for IFS, write your own procedures and share them with others so they can benefit too. Quite simply, now that we have procedures in the language, any request for new function in RPG we see that could easily be implemented by some code in a procedure is not taken very seriously here. We look for new function that can't otherwise be done easily in the language today. Cheers! Hans <<SNIP>> In other words, we don't want to do any development anymore. DO IT YOURSELF!!! I don't know about other companies, but here they are not interested in advancing the AS/400 world, or RPG. They want me to concentrate on the business needs, anything else I may do keeps me from that task and I am actively discouraged from this. I know its shortsighted, but that's the way it is! Norman +--- | This is the RPG/400 Mailing List! | To submit a new message, send your mail to RPG400-L@midrange.com. | To subscribe to this list send email to RPG400-L-SUB@midrange.com. | To unsubscribe from this list send email to RPG400-L-UNSUB@midrange.com. | Questions should be directed to the list owner/operator: david@midrange.com +--- ------------------------------ Date: Wed, 08 Sep 1999 13:28:08 -0700 From: "William A.(Tony) Corbett" <corbett@asresources.com> Subject: %char?? what am I doing wrong?? - --------------74B8025381959A1175599F9F Content-Type: text/plain; charset=us-ascii Content-Transfer-Encoding: 7bit I'm trying to use the BIF %char, I'm getting an error. I'm doing something wrong, but what? - ------------------------------------------------------------------------------ in subfile A $TCPY# 5Y 0B 6 16 A $TCPYB 2Y 0B 6 22CHECK(RZ) A $QTYOR 8Y 0O 8 32EDTCDE(3) in rpg D @@desc 50 Overlay(nprm:61) Inz Eval desc = 'Tranfer ' + %char($qtyor) + ' to ' + %char($tcpy#) + ' ' + %char($tcpyb) + ' ' + $tcpyn *RNF0386 30 146400 The parameter for %CHAR is not valid. *RNF0386 30 146500 The parameter for %CHAR is not valid. *RNF0386 30 146600 The parameter for %CHAR is not valid. - ------------------------------------------------------------------------------ Thanks for your help - -- William A.(Tony) Corbett corbett@asresources.com http://www.asresources.com http://www.cbt400.com - --------------74B8025381959A1175599F9F Content-Type: text/html; charset=us-ascii Content-Transfer-Encoding: 7bit <!doctype html public "-//w3c//dtd html 4.0 transitional//en"> <html> I'm trying to use the BIF %char, I'm getting an error. I'm doing something wrong, but what? <p>------------------------------------------------------------------------------ <br><b>in subfile</b> <br> A $TCPY# 5Y 0B 6 16 <br> A $TCPYB 2Y 0B 6 22CHECK(RZ) <br> A $QTYOR 8Y 0O 8 32EDTCDE(3) <br> <br><b>in rpg</b> <br>D @@desc 50 Overlay(nprm:61) Inz <br>..... <br>Eval desc = 'Tranfer ' + %char($qtyor) + <br> ' to ' + %char($tcpy#) + ' ' + <br> %char($tcpyb) + ' ' + $tcpyn <br>......... <br>*RNF0386 30 146400 The parameter for %CHAR is not valid. <br>*RNF0386 30 146500 The parameter for %CHAR is not valid. <br>*RNF0386 30 146600 The parameter for %CHAR is not valid. <br>------------------------------------------------------------------------------ <p>Thanks for your help <p>-- <br>William A.(Tony) Corbett <br>corbett@asresources.com <br><A HREF="http://www.asresources.com">http://www.asresources.com</A> <br><A HREF="http://www.cbt400.com">http://www.cbt400.com</A> <br> </html> - --------------74B8025381959A1175599F9F-- +--- | This is the RPG/400 Mailing List! | To submit a new message, send your mail to RPG400-L@midrange.com. | To subscribe to this list send email to RPG400-L-SUB@midrange.com. | To unsubscribe from this list send email to RPG400-L-UNSUB@midrange.com. | Questions should be directed to the list owner/operator: david@midrange.com +--- ------------------------------ Date: Wed, 8 Sep 1999 11:19:02 -0700 From: Norman.Rae@mckhboc.com Subject: Efficiency of Bound vs. Dynamic Calls Hello all I'm sure this issue has been covered here before, but as a newbie to the list, I'd appreciate any help. At my current place of employment they have created an ILE-RPG program to handle date manipulation, and standards state that this program must be used or all date manipulations. From OPM programs (which most of them still are), a regular CALL with parameter list is performed. However I was surprised to see that in new ILE-RPG programs, they were still using a regular CALL. I suggested that a CALLB (bound call) would be more efficient. They agreed, but stated that a dynamic call to an ILE program was quite efficient, so much so that making it a bound call would not gain enough to make it worth while dealing with the additional complications that this would entail. This didn't seem right to me, but I don't have any information to back me up. Anyone got any thoughts on this matter? Thanks ....Norman +--- | This is the RPG/400 Mailing List! | To submit a new message, send your mail to RPG400-L@midrange.com. | To subscribe to this list send email to RPG400-L-SUB@midrange.com. | To unsubscribe from this list send email to RPG400-L-UNSUB@midrange.com. | Questions should be directed to the list owner/operator: david@midrange.com +--- ------------------------------ Date: Wed, 8 Sep 1999 14:45:37 -0400 From: John P Carr <jpcarr@tredegar.com> Subject: Re: New Opcodes - %SETCELL >If you read what what he said, it was, "We look for new function that can't >otherwise be done easily in the language today.". Can not be done easily. I >really don't' see too much of a problem with that, why shouldn't' they work on >the things that are very hard for us to do now, putting the stuff we can do >rather easily on the back burner in the meanwhile? << Can not be done easily.>> Ah, The only rub will come as we discover who decides what "Done easily" means. There may be some disagreements when it comes to; Figuring out C #include files and finding/understanding/coding Unix/C API's and whether that constitutes "Done easily" I personally won't care, I currently read & write to the IFS using Unix API's already. And I know how to use VA/RPG to do DDE with active spreadsheets if I want to do a equiv to %GETCELL. My concern was with some of the less fortunate programmers who can hardly get their head above the current backlog. I know, that's their problem. Let them eat cake. I still think we need native I/O functions to the IFS within the language. My guess is that SPECIAL files are currently used as much as "Look ahead" fields are. But I have been wrong many times before. John Carr +--- | This is the RPG/400 Mailing List! | To submit a new message, send your mail to RPG400-L@midrange.com. | To subscribe to this list send email to RPG400-L-SUB@midrange.com. | To unsubscribe from this list send email to RPG400-L-UNSUB@midrange.com. | Questions should be directed to the list owner/operator: david@midrange.com +--- ------------------------------ Date: Wed, 8 Sep 1999 14:59:00 -0400 From: bmorris@ca.ibm.com Subject: compile errors caused by H spec Joel, the full text of RNF1324 is: Message . . . . : Keywords DFTACTGRP, ACTGRP, or USRPRF are not allowed. Cause . . . . . : The keywords DFTACTGRP, ACTGRP, and USRPRF are not allowed when the CRTRPGMOD command is invoked. Recovery . . . : Remove the keywords DFTACTGRP, ACTGRP, or USRPRF. Compile again. Those keywords are never allowed with CRTRPGMOD because they only relate to program creation. Tip: To get more information on compile-time errors, use OPTION(*SECLVL). I think it works for all the CRT commands. Barbara Morris >Date: Tue, 7 Sep 1999 16:27:47 -0700 >From: Joel Fritz <JFritz@sharperimage.com> > >Under what conditions running v4r3 will CRTRPGMOD fail because of use of the >h spec keywords " dftactgrp(*no) actgrp(*caller)?" The error is: "*RNF1324 >20 2 Keywords DFTACTGRP, ACTGRP, or USRPRF are not allowed." > >CRTBNDRPG works fine for the same source member. Barbara Morris +--- | This is the RPG/400 Mailing List! | To submit a new message, send your mail to RPG400-L@midrange.com. | To subscribe to this list send email to RPG400-L-SUB@midrange.com. | To unsubscribe from this list send email to RPG400-L-UNSUB@midrange.com. | Questions should be directed to the list owner/operator: david@midrange.com +--- ------------------------------ Date: Wed, 8 Sep 1999 14:55:06 -0400 From: boldt@ca.ibm.com Subject: Re: Re[6]: New Opcodes - %SETCELL Jon wrote: >I have to seriously disagree with you Norman - Hans did _not_ say that they >didn't want to do development - he said that they were going to focus on "... >new function that can't otherwise be done easily in the language today." In my >opinion that is 100% correct - IBM _must_ concentrate in this area. > >If there is a major need for a specific function, someone will offer it for >sale. IBM can never provide every function that anyone will ever need so they >have to focus on those things that no one else can supply. It is the only thing >that makes sense. As usual, the mail feed into our Lotus Notes system is slow, so several people jumped to my defense even before I got Norman's note. I'd just like to comment on one of your points, Jon. Sure, if there is a need for something, someone will offer it for sale, but look at CPAN. Of that 600MB of Perl code, none of it was written for financial gain. I look at CPAN, and wonder, why isn't there a CRAN chock full of 600MB of RPG code? Am I just being too idealistic? Cheers! Hans Hans Boldt, ILE RPG Development, IBM Toronto Lab, boldt@ca.ibm.com +--- | This is the RPG/400 Mailing List! | To submit a new message, send your mail to RPG400-L@midrange.com. | To subscribe to this list send email to RPG400-L-SUB@midrange.com. | To unsubscribe from this list send email to RPG400-L-UNSUB@midrange.com. | Questions should be directed to the list owner/operator: david@midrange.com +--- ------------------------------ Date: Wed, 8 Sep 1999 11:57:49 -0700 From: Norman.Rae@mckhboc.com Subject: Re[8]: New Opcodes - %SETCELL Woops... I seem to have touched off something here. I'll start be apologizing. It was certainly not my intention to criticize what has been happening with the AS/400 and with RPG (although I guess I did sound critical didn't I!). I've coded RPG for my whole career, never used another language (except COBOL at college and that was so long ago I don't think it counts). So I am certainly very happy that the language and the environment are still viable. I do however spend a lot of time trying to get the message out. I'm surrounded by people who say "We can do this with C++!" or "We can do that in UNIX!" It's been really great for the last couple of years to be able to reply "Well we can do it in RPG-AS/400 too, and do it better!!!" I just get worried when I see us (RPG programmers specifically, and AS/400 folks in general) relying on resources that I honestly don't think are going to materialize. I do agree with the sentiment below however. A BIG thanks to Hans and everyone else involved in the development of RPG. We couldn't be doing it without you! Norman >> We look for new function that can't otherwise be done easily >>in the language today. > In other words, we don't want to do any development anymore. DO IT > YOURSELF!!! >>I don't think that is a fair characterization of Hans' comment. >>Hans & Barbara (et al) have certainly added more to RPG IV in the >>last several releases than RPG used to see in a decade! >>....Thanks Hans & Company! Doug +--- | This is the RPG/400 Mailing List! | To submit a new message, send your mail to RPG400-L@midrange.com. | To subscribe to this list send email to RPG400-L-SUB@midrange.com. | To unsubscribe from this list send email to RPG400-L-UNSUB@midrange.com. | Questions should be directed to the list owner/operator: david@midrange.com +--- +--- | This is the RPG/400 Mailing List! | To submit a new message, send your mail to RPG400-L@midrange.com. | To subscribe to this list send email to RPG400-L-SUB@midrange.com. | To unsubscribe from this list send email to RPG400-L-UNSUB@midrange.com. | Questions should be directed to the list owner/operator: david@midrange.com +--- ------------------------------ Date: Wed, 8 Sep 1999 11:38:46 -0700 From: Norman.Rae@mckhboc.com Subject: Re[2]: New Opcodes - %SETCELL Hi Jim I agree in principle. In practice I think that we run into the problem that is already being discussed here i.e. there doesn't seem to be much happening in the way of new functions! Quoting from Hans again: ...if you want better API's for IFS, write your own procedures and share them with others so they can benefit too. If my company wants to use IFS, or any other tools, the tools had better be there. They are not interested in providing benefit's to others. They are interested in maintaining their market. The AS/400 (and the other platforms they use) are merely tools to that end, tools that will be discarded if they don't live up to expectations. And I might add, that after spending long days in the office, I don't have the energy to got home, and develop things in my own time... it's all I do to make dinner! The open, code sharing environment we see on other platforms are great, but it's not happening here for us, and I think it is a mistake for IBM (or anyone else) to assume its going to happen! That's my 2 cents worth... now back to grappling with RPG36 code!!! AGHHHHHHH..... Norman ______________________________ Reply Separator _________________________________ Subject: Re: New Opcodes - %SETCELL Author: RPG400-L@midrange.com (Jim Langston <jlangston@conexfreight.com>) at MCKHBOC Date: 09/08/1999 9:31 AM If you read what what he said, it was, "We look for new function that can't otherwise be done easily in the language today.". Can not be done easily. I really don't' see too much of a problem with that, why shouldn't' they work on the things that are very hard for us to do now, putting the stuff we can do rather easily on the back burner in the meanwhile? Regards, Jim Langston Norman.Rae@mckhboc.com wrote: > So let me see if I've got this straight: > > <<SNIP>> > > To get back on topic, if you want better API's for IFS, write your > own procedures and share them with others so they can benefit too. > Quite simply, now that we have procedures in the language, any > request for new function in RPG we see that could easily be > implemented by some code in a procedure is not taken very seriously > here. We look for new function that can't otherwise be done easily > in the language today. > > Cheers! Hans > > <<SNIP>> > > In other words, we don't want to do any development anymore. DO IT > YOURSELF!!! > > I don't know about other companies, but here they are not interested > in advancing the AS/400 world, or RPG. They want me to concentrate on > the business needs, anything else I may do keeps me from that task and > I am actively discouraged from this. I know its shortsighted, but > that's the way it is! > > Norman +--- | This is the RPG/400 Mailing List! | To submit a new message, send your mail to RPG400-L@midrange.com. | To subscribe to this list send email to RPG400-L-SUB@midrange.com. | To unsubscribe from this list send email to RPG400-L-UNSUB@midrange.com. | Questions should be directed to the list owner/operator: david@midrange.com +--- +--- | This is the RPG/400 Mailing List! | To submit a new message, send your mail to RPG400-L@midrange.com. | To subscribe to this list send email to RPG400-L-SUB@midrange.com. | To unsubscribe from this list send email to RPG400-L-UNSUB@midrange.com. | Questions should be directed to the list owner/operator: david@midrange.com +--- ------------------------------ Date: Wed, 8 Sep 1999 14:55:43 -0400 From: "Dan Bale" <dbale@genfast.com> Subject: Re: RPG redbook?!?! (was: New Opcodes - %SETCELL) Jon, >>Oh ye of little faith!! As we "speak" (well almost - I can't >>type two things at once) myself, Susan Gantner, and others are >>putting the finishing touches to the new RPG Redbook (which would >>be available any day now if we weren't too busy with other stuff). >>Among other things it includes IFS examples, Sockets, C library >>functions, etc. >>We are hopeful that some of this work will find its way into the >>manuals and there are signs that IBM will do more in the future - >>if not then "Son of Redbook" will make its appearance. Please advise when this becomes available. Will this "redbook" be accompanied by a cd-rom on the back cover which includes all the code? (Where have I seen this before? ;-) ) BTW, I'm confused. "which would be available any day now if...", then later, your last paragraph about IBM's involvement. If IBM's involved, "available any day now" would be an oxymoron, wouldn't it? Exactly who's publishing this? Many thanks! Dan Bale +--- | This is the RPG/400 Mailing List! | To submit a new message, send your mail to RPG400-L@midrange.com. | To subscribe to this list send email to RPG400-L-SUB@midrange.com. | To unsubscribe from this list send email to RPG400-L-UNSUB@midrange.com. | Questions should be directed to the list owner/operator: david@midrange.com +--- ------------------------------ Date: Wed, 8 Sep 1999 14:20:46 -0500 From: "Arlene M Soderlund" <Arlene_M_Soderlund/NFCNA.COM@nfcna.com> Subject: Re: I am new to RPG language...need some pointers! After every read you say something like: EVAL CompanyTotal = CompanyTotal + RecordTotal EVAL GrandTotal = GrandTotal + RecordTotal or ADD RCDTTL COMPTTL ADD RCDTTL GRNDTTL depending on what version of RPG you are using. After you reach a new company number, print out an exception stating the subtotals and clear your company totals to zero, leaving your grand totals alone. > > > >Phil Hayes wrote: > > > >> How do you set a counter to read a record at a time within a DOWHILE > loop? I am getting a correct answer to the row level, but not on the column level > or grand total. This would help greatly!!! > >> > >> Phil > >> Remember DOWHILE can be deceptive and they could be intializing the totals to *Zero too soon on the change level condition when the compare field is blank. Especially if the break level save field "IFNE" condition is after the first add instead of before or was not intialized correctly in Housekeeping Subroutine. We need to see if the code breaks at the right time. So a big clue would be are the totals off by the first or last record amount? +--- | This is the RPG/400 Mailing List! | To submit a new message, send your mail to RPG400-L@midrange.com. | To subscribe to this list send email to RPG400-L-SUB@midrange.com. | To unsubscribe from this list send email to RPG400-L-UNSUB@midrange.com. | Questions should be directed to the list owner/operator: david@midrange.com +--- ------------------------------ Date: Wed, 8 Sep 1999 12:26:37 -0700 From: Joel Fritz <JFritz@sharperimage.com> Subject: RE: %char?? what am I doing wrong?? You probably want %editc() or %editw(). Seems to me %char() is for time, date, and graphic fields. Intuitive, eh? <g> %editc() works like %editc(charstring : 'Z') where the character in quotes is a valid edit code. %editw() works the same way, but the second parm is a valid edit word. - -----Original Message----- From: William A.(Tony) Corbett [mailto:corbett@asresources.com] Sent: Wednesday, September 08, 1999 1:28 PM To: rpg400l Subject: %char?? what am I doing wrong?? I'm trying to use the BIF %char, I'm getting an error. I'm doing something wrong, but what? - ---------------------------------------------------------------------------- - -- in subfile A $TCPY# 5Y 0B 6 16 A $TCPYB 2Y 0B 6 22CHECK(RZ) A $QTYOR 8Y 0O 8 32EDTCDE(3) in rpg D @@desc 50 Overlay(nprm:61) Inz Eval desc = 'Tranfer ' + %char($qtyor) + ' to ' + %char($tcpy#) + ' ' + %char($tcpyb) + ' ' + $tcpyn *RNF0386 30 146400 The parameter for %CHAR is not valid. *RNF0386 30 146500 The parameter for %CHAR is not valid. *RNF0386 30 146600 The parameter for %CHAR is not valid. - ---------------------------------------------------------------------------- - -- Thanks for your help - -- William A.(Tony) Corbett corbett@asresources.com http://www.asresources.com http://www.cbt400.com +--- | This is the RPG/400 Mailing List! | To submit a new message, send your mail to RPG400-L@midrange.com. | To subscribe to this list send email to RPG400-L-SUB@midrange.com. | To unsubscribe from this list send email to RPG400-L-UNSUB@midrange.com. | Questions should be directed to the list owner/operator: david@midrange.com +--- ------------------------------ Date: Wed, 8 Sep 1999 12:39:20 -0700 From: Jon Erickson <jerickson@800.com> Subject: RE: %char?? what am I doing wrong?? %CHAR converts the value of the expression from graphic, date, time or timestamp data to type character. HTH, Jon A. Erickson Sr. Programmer Analyst 800.COM Inc. 1516 NW Thurman St Portland, OR 97209-2517 Direct: 503.944.3613 Fax: 503.944.3690 Web: http://800.com <http://800.com/> - -----Original Message----- From: William A.(Tony) Corbett [mailto:corbett@asresources.com] Sent: Wednesday, September 08, 1999 1:28 PM To: rpg400l Subject: %char?? what am I doing wrong?? I'm trying to use the BIF %char, I'm getting an error. I'm doing something wrong, but what? - ---------------------------------------------------------------------------- - -- in subfile A $TCPY# 5Y 0B 6 16 A $TCPYB 2Y 0B 6 22CHECK(RZ) A $QTYOR 8Y 0O 8 32EDTCDE(3) in rpg D @@desc 50 Overlay(nprm:61) Inz Eval desc = 'Tranfer ' + %char($qtyor) + ' to ' + %char($tcpy#) + ' ' + %char($tcpyb) + ' ' + $tcpyn *RNF0386 30 146400 The parameter for %CHAR is not valid. *RNF0386 30 146500 The parameter for %CHAR is not valid. *RNF0386 30 146600 The parameter for %CHAR is not valid. - ---------------------------------------------------------------------------- - -- Thanks for your help - -- William A.(Tony) Corbett corbett@asresources.com http://www.asresources.com <http://www.asresources.com> http://www.cbt400.com <http://www.cbt400.com> +--- | This is the RPG/400 Mailing List! | To submit a new message, send your mail to RPG400-L@midrange.com. | To subscribe to this list send email to RPG400-L-SUB@midrange.com. | To unsubscribe from this list send email to RPG400-L-UNSUB@midrange.com. | Questions should be directed to the list owner/operator: david@midrange.com +--- ------------------------------ Date: Wed, 8 Sep 1999 14:49:24 -0500 From: "Rick Rauterkus" <ricker@simmonsjp.com> Subject: Re: %char?? what am I doing wrong?? %char is for date and time data types, not plain old numbers. Try using %editc instead. Rick > I'm trying to use the BIF %char, I'm getting an error. I'm doing > something wrong, but what? > > -------------------------------------------------------------------------- - ---- > > in subfile > A $TCPY# 5Y 0B 6 16 > A $TCPYB 2Y 0B 6 22CHECK(RZ) > A $QTYOR 8Y 0O 8 32EDTCDE(3) > > in rpg > D @@desc 50 Overlay(nprm:61) Inz > ..... > Eval desc = 'Tranfer ' + %char($qtyor) + > ' to ' + %char($tcpy#) + ' ' + > %char($tcpyb) + ' ' + $tcpyn > ......... > *RNF0386 30 146400 The parameter for %CHAR is not valid. > *RNF0386 30 146500 The parameter for %CHAR is not valid. > *RNF0386 30 146600 The parameter for %CHAR is not valid. > -------------------------------------------------------------------------- - ---- > > Thanks for your help > > -- > William A.(Tony) Corbett > corbett@asresources.com > http://www.asresources.com > http://www.cbt400.com > > +--- | This is the RPG/400 Mailing List! | To submit a new message, send your mail to RPG400-L@midrange.com. | To subscribe to this list send email to RPG400-L-SUB@midrange.com. | To unsubscribe from this list send email to RPG400-L-UNSUB@midrange.com. | Questions should be directed to the list owner/operator: david@midrange.com +--- ------------------------------ Date: Wed, 8 Sep 1999 12:45:58 -0700 From: Jon Erickson <jerickson@800.com> Subject: RE: %char?? what am I doing wrong?? %CHAR converts the value of the expression from graphic, date, time or timestamp data to type character. Define corresponding alpha fields in a DS to overlay these numeric ones, resulting in something like this: Eval desc = 'Tranfer ' + $qtyorchr + ' to ' + $tcpy#chr + ' ' + $tcpybchr + ' ' + $tcpyn Jon A. Erickson Sr. Programmer Analyst 800.COM Inc. 1516 NW Thurman St Portland, OR 97209-2517 Direct: 503.944.3613 Fax: 503.944.3690 Web: http://800.com <http://800.com/> - -----Original Message----- From: William A.(Tony) Corbett [mailto:corbett@asresources.com] Sent: Wednesday, September 08, 1999 1:28 PM To: rpg400l Subject: %char?? what am I doing wrong?? I'm trying to use the BIF %char, I'm getting an error. I'm doing something wrong, but what? - ---------------------------------------------------------------------------- - -- in subfile A $TCPY# 5Y 0B 6 16 A $TCPYB 2Y 0B 6 22CHECK(RZ) A $QTYOR 8Y 0O 8 32EDTCDE(3) in rpg D @@desc 50 Overlay(nprm:61) Inz Eval desc = 'Tranfer ' + %char($qtyor) + ' to ' + %char($tcpy#) + ' ' + %char($tcpyb) + ' ' + $tcpyn *RNF0386 30 146400 The parameter for %CHAR is not valid. *RNF0386 30 146500 The parameter for %CHAR is not valid. *RNF0386 30 146600 The parameter for %CHAR is not valid. - ---------------------------------------------------------------------------- - -- Thanks for your help - -- William A.(Tony) Corbett corbett@asresources.com http://www.asresources.com <http://www.asresources.com> http://www.cbt400.com <http://www.cbt400.com> +--- | This is the RPG/400 Mailing List! | To submit a new message, send your mail to RPG400-L@midrange.com. | To subscribe to this list send email to RPG400-L-SUB@midrange.com. | To unsubscribe from this list send email to RPG400-L-UNSUB@midrange.com. | Questions should be directed to the list owner/operator: david@midrange.com +--- ------------------------------ Date: Wed, 8 Sep 1999 15:04:35 -0500 From: "End of the Trail" <endofthetrail@skyenet.net> Subject: Re: %char?? what am I doing wrong?? This is a multi-part message in MIME format. - ------=_NextPart_000_0013_01BEFA0B.76C5A080 Content-Type: text/plain; charset="iso-8859-1" Content-Transfer-Encoding: quoted-printable Tony: There AINT more %char function. That is the function I had asked to be = placed on the wishlist for the new and improved RPG. What you are trying to do can be done pretty easily. Just change the = %char to %edtcde with a Z for zero suppress. You may want to look up = the correct coding but it is what you want. Eurrat Saylor, Jr = www.skyenet.net/~endofthetrail/elsresum.htm 9562E750N = endofthetrail@skyenet.net Walkerton, IN 46574 tel. 219-586-7970 Fax. 219-586-2677 - -----Original Message----- From: William A.(Tony) Corbett <corbett@asresources.com> To: rpg400l <RPG400-L@midrange.com> Date: Wednesday, September 08, 1999 2:22 PM Subject: %char?? what am I doing wrong?? =20 =20 I'm trying to use the BIF %char, I'm getting an error. I'm doing = something wrong, but what?=20 = - -------------------------------------------------------------------------= - -----=20 in subfile=20 A $TCPY# 5Y 0B 6 16=20 A $TCPYB 2Y 0B 6 22CHECK(RZ)=20 A $QTYOR 8Y 0O 8 32EDTCDE(3)=20 =20 in rpg=20 D @@desc 50 Overlay(nprm:61) Inz=20 .....=20 Eval desc =3D 'Tranfer ' + %char($qtyor) +=20 ' to ' + %char($tcpy#) + ' ' +=20 %char($tcpyb) + ' ' + $tcpyn=20 .........=20 *RNF0386 30 146400 The parameter for %CHAR is not valid.=20 *RNF0386 30 146500 The parameter for %CHAR is not valid.=20 *RNF0386 30 146600 The parameter for %CHAR is not valid.=20 = - -------------------------------------------------------------------------= - -----=20 =20 Thanks for your help=20 =20 --=20 William A.(Tony) Corbett=20 corbett@asresources.com=20 http://www.asresources.com=20 http://www.cbt400.com=20 =20 =20 - ------=_NextPart_000_0013_01BEFA0B.76C5A080 Content-Type: text/html; charset="iso-8859-1" Content-Transfer-Encoding: quoted-printable <!DOCTYPE HTML PUBLIC "-//W3C//DTD W3 HTML//EN"> <HTML> <HEAD> <META content=3Dtext/html;charset=3Diso-8859-1 = http-equiv=3DContent-Type><!doctype html public "-//w3c//dtd html 4.0 = transitional//en"> <META content=3D'"MSHTML 4.71.1712.3"' name=3DGENERATOR> </HEAD> <BODY bgColor=3D#ffffff> <DIV>Tony: </DIV> <DIV> </DIV> <DIV>There AINT more %char function. That is the function I had = asked to=20 be placed on the wishlist for the new and improved RPG.</DIV> <DIV> </DIV> <DIV>What you are trying to do can be done pretty easily. Just = change the=20 %char to %edtcde with a Z for zero suppress. You may want to look = up the=20 correct coding but it is what you want.</DIV> <DIV> </DIV> <DIV> <DIV><BR>Eurrat Saylor,=20 Jr  = ; = =20 <A=20 href=3D"http://www.skyenet.net/~endofthetrail/elsresum.htm">www.skyenet.n= et/~endofthetrail/elsresum.htm</A></DIV> <DIV><A=20 href=3D"http://www.skyenet.net/~endofthetrail/elsresum.htm"></A>9562E750N= &= nbsp; &n= bsp; &nb= sp; =20 <A=20 href=3D"mailto:endofthetrail@skyenet.net">endofthetrail@skyenet.net</A><B= R>Walkerton,=20 IN 46574<BR>tel. 219-586-7970<BR>Fax. 219-586-2677<BR></DIV></DIV> <DIV> </DIV> <DIV> </DIV> <BLOCKQUOTE=20 style=3D"BORDER-LEFT: #000000 solid 2px; MARGIN-LEFT: 5px; PADDING-LEFT: = 5px"> <DIV><FONT face=3DArial size=3D2><B>-----Original = Message-----</B><BR><B>From:=20 </B>William A.(Tony) Corbett <<A=20 = href=3D"mailto:corbett@asresources.com">corbett@asresources.com</A>><B= R><B>To:=20 </B>rpg400l <<A=20 = href=3D"mailto:RPG400-L@midrange.com">RPG400-L@midrange.com</A>><BR><B= >Date:=20 </B>Wednesday, September 08, 1999 2:22 PM<BR><B>Subject: </B>%char?? = what am=20 I doing wrong??<BR><BR></DIV></FONT>I'm trying to use the BIF %char, = I'm=20 getting an error. I'm doing something wrong, but what?=20 = <P>----------------------------------------------------------------------= - --------=20 <BR><B>in subfile</B> <BR> =20 A =20 $TCPY# 5Y = 0B 6=20 16 <BR> =20 A =20 $TCPYB 2Y = 0B 6=20 22CHECK(RZ) <BR> =20 A =20 $QTYOR 8Y 0O 8 = 32EDTCDE(3) <BR> <BR><B>in rpg</B> <BR>D =20 = @@desc &= nbsp; =20 50 Overlay(nprm:61) Inz <BR>.....=20 = <BR>Eval  = ;=20 desc =3D 'Tranfer ' + %char($qtyor) +=20 = <BR> &nb= sp; =20 ' to ' + %char($tcpy#) + ' ' +=20 = <BR> &nb= sp; =20 %char($tcpyb) + ' ' + $tcpyn <BR>......... <BR>*RNF0386=20 30 146400 The = parameter for=20 %CHAR is not valid. <BR>*RNF0386=20 30 146500 The = parameter for=20 %CHAR is not valid. <BR>*RNF0386=20 30 146600 The = parameter for=20 %CHAR is not valid.=20 = <BR>---------------------------------------------------------------------= - ---------=20 =20 <P>Thanks for your help=20 <P>-- <BR>William A.(Tony) Corbett <BR><A=20 href=3D"mailto:corbett@asresources.com">corbett@asresources.com</A> = <BR><A=20 href=3D"http://www.asresources.com">http://www.asresources.com</A> = <BR><A=20 href=3D"http://www.cbt400.com">http://www.cbt400.com</A> <BR> =20 </P></BLOCKQUOTE></BODY></HTML> - ------=_NextPart_000_0013_01BEFA0B.76C5A080-- +--- | This is the RPG/400 Mailing List! | To submit a new message, send your mail to RPG400-L@midrange.com. | To subscribe to this list send email to RPG400-L-SUB@midrange.com. | To unsubscribe from this list send email to RPG400-L-UNSUB@midrange.com. | Questions should be directed to the list owner/operator: david@midrange.com +--- ------------------------------ End of rpg400-l-digest V1 #211 ****************************** +--- | This is the RPG/400 Digest Mailing List! | To submit a new message, send your mail to RPG400-L@midrange.com. | To subscribe to this list send email to RPG400-L-DIGEST-SUB@midrange.com. | To unsubscribe from this list send email to |RPG400-L-DIGEST-UNSUB@midrange.com. | Questions should be directed to the list owner/operator: david@midrange.com +---
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
