|
I use FNDSRCMBR from TAATOOL. I can specify an individual library, *USRLIBL, *ALLUSR, *ALL and *ALLNONQ libraries. Nick Radich Sr. Programmer/Analyst EPC Molding, Inc. (320) 679-6683 nick_radich@xxxxxxxxxxxxxx "PAPWORTH Paul" <Paul.Papworth@xxxxxxx> Sent by: rpg400-l-bounces@xxxxxxxxxxxx 06/24/05 10:34 AM Please respond to RPG programming on the AS400 / iSeries <rpg400-l@xxxxxxxxxxxx> To <rpg400-l@xxxxxxxxxxxx> cc Subject Finding all occurences of a member in the library list I would be interested to know of any ideas of how I might be able to find the file and library name of a member , where that file can exist several times in the library list. This from an RPG program , so that I can afterwards do a OVRDBF to the pertinent library/file/member combination. Eg LIB1 has QSQLSRC LIB2 has QSQLSRC LIB3 has QSQLSRC with the required member Many thanks in advance -----Message d'origine----- De : rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx] De la part de rpg400-l-request@xxxxxxxxxxxx Envoyé : jeudi 23 juin 2005 23:14 À : rpg400-l@xxxxxxxxxxxx Objet : RPG400-L Digest, Vol 4, Issue 714 Send RPG400-L mailing list submissions to rpg400-l@xxxxxxxxxxxx To subscribe or unsubscribe via the World Wide Web, visit http://lists.midrange.com/mailman/listinfo/rpg400-l or, via email, send a message with subject or body 'help' to rpg400-l-request@xxxxxxxxxxxx You can reach the person managing the list at rpg400-l-owner@xxxxxxxxxxxx When replying, please edit your Subject line so it is more specific than "Re: Contents of RPG400-L digest..." Today's Topics: 1. RE: Dashes on DDS (Booth Martin) 2. RE: Dashes on DDS (NEW - One other question). (Booth Martin) 3. RE: Dashes on DDS (NEW - One other question). (Scott Klement) 4. RE: Assembly programmers do it a byte at a time (Alan Campin) 5. RE: Dashes on DDS (Rubino, Jim) 6. SQL unsigned (brian) 7. Re: RPG Free Format question (Barbara Morris) 8. RE: Assembly programmers do it a byte at a time (Joel Fritz) 9. RE: Resistance to change (was free format question) (Joel Fritz) ---------------------------------------------------------------------- message: 1 date: Thu, 23 Jun 2005 14:51:52 -0500 (Central Standard Time) from: "Booth Martin" <booth@xxxxxxxxxxxx> subject: RE: Dashes on DDS get away from the MOVE and MOVEL opcodes. You will be amazed at how much happier your life will become as you get used to eval and evalr. --------------------------------- Booth Martin http://www.martinvt.com --------------------------------- -------Original Message------- From: RPG programming on the AS400 / iSeries Date: 06/23/05 14:44:13 To: RPG programming on the AS400 / iSeries Subject: RE: Dashes on DDS I would suggest defining an alpha field in the DDS for as long as you need and then in the RPG do a MOVEL*ALL'-' to this field. Jim Rubino ------------------------------ message: 2 date: Thu, 23 Jun 2005 14:53:10 -0500 (Central Standard Time) from: "Booth Martin" <booth@xxxxxxxxxxxx> subject: RE: Dashes on DDS (NEW - One other question). Doesn't it depend upon the edit code you use? Take a few minutes and make yourself a lil test screen and program, nothing fancy. Try out the various choices, see what happens. --------------------------------- Booth Martin http://www.martinvt.com --------------------------------- -------Original Message------- From: RPG programming on the AS400 / iSeries Date: 06/23/05 14:43:47 To: RPG programming on the AS400 / iSeries Subject: RE: Dashes on DDS (NEW - One other question). Thanks to everyone who responded. One other question - when I have a 4S 0 field in a PF, does it take up 5 characters on a screen output? Thanks again, Brian. -----Original Message----- From: Tony Carolla [mailto:carolla@xxxxxxxxx] Sent: Thursday, June 23, 2005 3:30 PM To: RPG programming on the AS400 / iSeries Subject: Re: Dashes on DDS Hello Brian <snip> On 6/23/05, Brian Piotrowski <bpiotrowski@xxxxxxxxxxxxxxx> wrote: > > Hi All, > > > > Can someone please remind me the easy way to fill a line with dashes as > opposed to creating a line with position that is '--------------', etc. I usually have a text file on my desktop called SCRATCH.TXT, and I store useful snippets like this("-------...", "SELECT * FROM", etc). I map the file to CTRL-ALT-N, then it's as easy as CTRL-ALT-N, Double click, CTRL-C, ALT-TAB, CTRL-V... -- "Enter any 11-digit prime number to continue..." "In Hebrew SQL, how do you use right() and left()?..." - Random Thought "If all you have is a hammer, all your problems begin to look like nails" -- This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list To post a message email: RPG400-L@xxxxxxxxxxxx To subscribe, unsubscribe, or change list options, visit: http://lists.midrange.com/mailman/listinfo/rpg400-l or email: RPG400-L-request@xxxxxxxxxxxx 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) mailing list To post a message email: RPG400-L@xxxxxxxxxxxx To subscribe, unsubscribe, or change list options, visit: http://lists.midrange.com/mailman/listinfo/rpg400-l or email: RPG400-L-request@xxxxxxxxxxxx Before posting, please take a moment to review the archives at http://archive.midrange.com/rpg400-l. . ------------------------------ message: 3 date: Thu, 23 Jun 2005 14:55:57 -0500 (CDT) from: Scott Klement <rpg400-l@xxxxxxxxxxxxxxxx> subject: RE: Dashes on DDS (NEW - One other question). Hi Brian, > One other question - when I have a 4S 0 field in a PF, does it take up 5 > characters on a screen output? Fields in a PF don't take up any characters on a screen output :) But, I imagine you meant that you had a 4S 0 field in a display file.. heh. The "S" denotes that the user be able to key a sign into the display file using the Field+ and Field- keys. Since the sign takes up 1 space, and the 4 digits of the number take 4 up spaces, that leaves you with a 5-character field. If you don't need the sign, don't use the "S" keying option... ------------------------------ message: 4 date: Thu, 23 Jun 2005 12:53:24 -0700 from: Alan Campin <Alan.Campin@xxxxxxx> subject: RE: Assembly programmers do it a byte at a time Boy, strongly disagree with you. How can you make a statement that "none of this stuff is programming"? The exact opposite is true. How can you build maintainable code without using these principals? Knowing the syntax of a language is not programming. Programming is knowing and applying software engineering principles. Anybody can sit down and just start typing. That's not programming. How can you write maintainable code if you cannot do functional decomposition? How can you write decent code if you cannot abstract? How can you create databases if you cannot normalize data structures? How about applying these principles makes it easier to write maintainable code quicker. How can you write maintainable code if you are repeating business logic in program after program which is what you are going to do if you cannot abstract. Writing maintainable code means writing logic in one place, it means using encapsulation to hide logic and data so changes can be made in one place without effecting the rest of the system. So I guess what you are saying is that the millions of man years of work put in my thousands of people developing the concepts of software engineering were for nothing? If that where true, why do we even need ILE, procedures, service programs or Object Oriented Language? Why not just write everything with goto's in big massive program. All of this stuff exists to implement the software engineering principles that have painstakingly worked out over the years. How can I use these tools if I don't understand software engineering principles? I can't. I am just going to a monolith programmer typing code. The fact that RPG III provided almost nothing to implement these principles doesn't mean we can just ignore them and just start typing. We now have a language in RPG IV and an environment in ILE that allow us to apply those principles. Let's use it. -----Original Message----- From: Joe Pluta [mailto:joepluta@xxxxxxxxxxxxxxxxx] Sent: Thursday, June 23, 2005 11:03 AM To: 'RPG programming on the AS400 / iSeries' Subject: RE: Assembly programmers do it a byte at a time I don't mind someone knowing all this stuff, provided they realize that none of it is actually programming. There is a distinct line between programming and architecture; architecture has to do with how we program, but in the end the business goals rule the decision. As long as a programmer realizes that things like encapsulation and normalization are nice to have, but that the real answer is to write maintainable code in a reasonable time frame, then I have no problem with them understanding those concepts. I just get upset when someone comes into a perfectly running shop and starts harping about how the shop needs to change over to the architecture du jour, or else they don't know how to program. Ah bullshards. In the end it's all machine code, and the idea is to get the best working, most maintainable machine code possible in the time available. Joe > From: Alan Campin > > Seems to me to be most important that you understand the concepts of > software engineering. How many people working on the AS/400 know anything > about functional decomposition, encapsulation, information hiding, > coupling, abstraction or normalization? > > In other words, how many people know how to program on the AS/400? How can > you program in ILE if you don't understand these concepts? Pretty hard to > move forward if you don't have the basics. ------------------------------ message: 5 date: Thu, 23 Jun 2005 15:07:01 -0500 from: "Rubino, Jim" <Jim.Rubino@xxxxxxxx> subject: RE: Dashes on DDS Booth you are right - I should have given both examples in my reply. I was assuming RPG and not RPG IV. Thank you, Jim -----Original Message----- From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx] Sent: Thursday, June 23, 2005 2:52 PM To: RPG programming on the AS400 / iSeries Subject: RE: Dashes on DDS get away from the MOVE and MOVEL opcodes. You will be amazed at how much happier your life will become as you get used to eval and evalr. --------------------------------- Booth Martin http://www.martinvt.com --------------------------------- -------Original Message------- From: RPG programming on the AS400 / iSeries Date: 06/23/05 14:44:13 To: RPG programming on the AS400 / iSeries Subject: RE: Dashes on DDS I would suggest defining an alpha field in the DDS for as long as you need and then in the RPG do a MOVEL*ALL'-' to this field. Jim Rubino -- This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list To post a message email: RPG400-L@xxxxxxxxxxxx To subscribe, unsubscribe, or change list options, visit: http://lists.midrange.com/mailman/listinfo/rpg400-l or email: RPG400-L-request@xxxxxxxxxxxx Before posting, please take a moment to review the archives at http://archive.midrange.com/rpg400-l. ------------------------------ message: 6 date: Thu, 23 Jun 2005 15:34:02 -0500 (CDT) from: brian <bsl04@xxxxxxxx> subject: SQL unsigned Is 'unsigned' missing? I need a two-byte unsigned column, so I was going to use SMALLINT UNSIGNED, but I can't seem to. I know I could use INT and a constraint, but .. ------------------------------ message: 7 date: Thu, 23 Jun 2005 17:00:05 -0400 from: Barbara Morris <bmorris@xxxxxxxxxx> subject: Re: RPG Free Format question "Wilt, Charles" wrote: > d gDisplayFileControl... > d ds qualified > d exit 3 3n > d printList 5 5n > d cancel 12 12n > d pagedown 25 25n > d pageup 26 26n > An alternative way of defining an INDDS that's slightly less error prone since you only code the position once: d gDisplayFileControl... d ds qualified d exit n overlay(gDisplayFileControl : 3) d printList n overlay(gDisplayFileControl : 5) d cancel n overlay(gDisplayFileControl : 12) d pagedown n overlay(gDisplayFileControl : 25) d pageup n overlay(gDisplayFileControl : 26) ------------------------------ message: 8 date: Thu, 23 Jun 2005 14:04:22 -0700 from: "Joel Fritz" <JFritz@xxxxxxxxxxxxxxxx> subject: RE: Assembly programmers do it a byte at a time I wouldn't care to make my living programming in any kind of assembler, but the class I took in 8086 assembler was one of the most useful courses I took. Taught me more about how a computer works than anything else, gave me an idea what the high level languages were doing, and what came out the other end of the compiler. > -----Original Message----- > From: rpg400-l-bounces@xxxxxxxxxxxx > [mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Joe Pluta > Sent: Thursday, June 23, 2005 7:34 AM > To: 'RPG programming on the AS400 / iSeries' > Subject: Assembly programmers do it a byte at a time > > > From: rob@xxxxxxxxx > > > > As you personally attest, now that you have imbedded SQL you use it > > because it's easier. There's still a lot of chest pounders > that feel > all > > programmers would be better if they started out coding assembler. > > Dunno about the chest pounding, but I absolutely agree that > all programmers would be better if they started out > programming assembler. > If you don't understand basic Boolean logic, or how an > interrupt works, or the concept of re-entrant code, or how a > database works, then you are much less prepared to write programs. > > Now, how much that matters depends on the kind of work you are doing. > For example, you don't need a lot of training to flip > burgers, while on the other hand, you're pretty stupid to do > major home electrical work without expert knowledge. > > Similarly, you can write queries even if you can't tie your own shoes. > But trying to write an order entry system without having > good, solid programming fundamentals is tantamount to > replacing an outlet without turning off the power. Not that > there aren't people who do that sort of thing; emergency > rooms are full of them. And there are people who will > attempt to program without the necessary skills, and they get > the same kind of results. And then they blame the machine. > > You can call me all kinds of names, Rob, but I'll take an > experienced assembly language programmer (if you can find one > in this day of drag'n'drop coding) any day. > > Joe > > And now some haiku: > > A file that big? > It might be very useful. > But now it is gone. > > Chaos reigns within. > Reflect, repent, and reboot. > Order shall return. > > -- > This is the RPG programming on the AS400 / iSeries (RPG400-L) > mailing list To post a message email: RPG400-L@xxxxxxxxxxxx > To subscribe, unsubscribe, or change list options, > visit: http://lists.midrange.com/mailman/listinfo/rpg400-l > or email: RPG400-L-request@xxxxxxxxxxxx > Before posting, please take a moment to review the archives > at http://archive.midrange.com/rpg400-l. > > ***************************** NOTICE: All e-mail sent to or from this e-mail address will be received or otherwise recorded by The Sharper Image corporate e-mail system and is subject to archival, monitoring, and review by and/or disclosure to Sharper Image security and other management. This message is intended only for the use of the addressee and may contain information that is privileged and confidential. The contents of this message may contain personal views which are not the views of The Sharper Image. If you are not the intended recipient, dissemination of this communication is prohibited. ***************************** ------------------------------ message: 9 date: Thu, 23 Jun 2005 14:13:35 -0700 from: "Joel Fritz" <JFritz@xxxxxxxxxxxxxxxx> subject: RE: Resistance to change (was free format question) To put it a slightly different way, Chaucer and George Bush both speak English but they probably would have a little trouble conversing. (I know, Chaucer has been dead for a while. <g>) There's a baseball joke. In the fifties an old time player is asked what he thought Ty Cobb would hit against modern pitching. He answered "Oh, about .320." The questioner says: "Oh, you think modern pitchers are better?" The old time player says: "You've got to remember that Cobb is over seventy years old." > -----Original Message----- > From: rpg400-l-bounces@xxxxxxxxxxxx > [mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of RPower@xxxxxxxxxx > Sent: Thursday, June 23, 2005 9:50 AM > To: RPG programming on the AS400 / iSeries > Subject: RE: Resistance to change (was free format question) > > Compare the 2005 Corvette with the 1953 one. > Are they the same car? No. > Are they the same name? Yes. > Do they still carry the same pride of ownership. Yes. > Do the drivers of the 2005 still wave to the owners of the > 1953? Most likely. > Do they drool over each others car? Most likely. > > Compare RPGIV with RPGIII. > Do they both excel at producing reports? Definitely. > Can RPGIV do most of what was done in RPGIII? Yes. > Is RPGIV as stable as RPGIII? I believe so. > > Just because the syntax has changed, doesn't mean that the > language has become something other than what it was. RPG is > still RPG. That of course is my own personal opinion which > is open to flaws based upon the owner of the opinion. :) > > But a Vette, is still a Vette. > > Ron Power > Programmer > Information Services > City Of St. John's, NL > P.O. Box 908 > St. John's, NL > A1C 5M2 > Tel: 709-576-8132 > Email: rpower@xxxxxxxxxx > Website: http://www.stjohns.ca/ > ______________________________________________________________ > _____________ > Success is going from failure to failure without a loss of > enthusiasm. - Sir Winston Churchill > > > > > "Raby, Steve \(GE Advanced Materials, consultant\)" > <steve.raby@xxxxxx> > Sent by: rpg400-l-bounces@xxxxxxxxxxxx > 23/06/2005 12:48 PM > Please respond to > RPG programming on the AS400 / iSeries <rpg400-l@xxxxxxxxxxxx> > > > To > "RPG programming on the AS400 / iSeries" <rpg400-l@xxxxxxxxxxxx> > cc > > Subject > RE: Resistance to change (was free format question) > > > > > > > > In my case, it's not "resistance to change"; if it were > that, then why am I fluent, to varying degrees, in 3 > assemblers and over a dozen HLLs, in multiple dialetcs? > > Likewise, RPG has a highly stylized syntax based on column > positions, and it also has excellent file I/O, and an > implicit "DO UNTIL LR IS TRUE" loop surrounding every > program. If you don't bother learning how to use The > Cycle, though, then there's little reason for you to be > using RPG at all > > I learnt the cycle but most programs I write and most I have > seen these > days do not use it, So if you are on an AS400/iSeries where the > programming language used is RPG then if you don't use the > cycle what are > you supposed to code in? > > , and if you take away the > column-position-based syntax, you may end up with a great > language, but it has ceased to be RPG. > > But isn't that what the numbers at the end are for? To tell > you its a new > version? Just because it bears little resemblance to the > original does not > mean it is no longer RPG > > > Steve > > -- > This is the RPG programming on the AS400 / iSeries (RPG400-L) > mailing list > To post a message email: RPG400-L@xxxxxxxxxxxx > To subscribe, unsubscribe, or change list options, > visit: http://lists.midrange.com/mailman/listinfo/rpg400-l > or email: RPG400-L-request@xxxxxxxxxxxx > 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) > mailing list > To post a message email: RPG400-L@xxxxxxxxxxxx > To subscribe, unsubscribe, or change list options, > visit: http://lists.midrange.com/mailman/listinfo/rpg400-l > or email: RPG400-L-request@xxxxxxxxxxxx > Before posting, please take a moment to review the archives > at http://archive.midrange.com/rpg400-l. > > ***************************** NOTICE: All e-mail sent to or from this e-mail address will be received or otherwise recorded by The Sharper Image corporate e-mail system and is subject to archival, monitoring, and review by and/or disclosure to Sharper Image security and other management. This message is intended only for the use of the addressee and may contain information that is privileged and confidential. The contents of this message may contain personal views which are not the views of The Sharper Image. If you are not the intended recipient, dissemination of this communication is prohibited. ***************************** ------------------------------
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
