Re: Finding all occurences of a member in the library list

With API :

    List All objects named mysourcefile
    For each object, check existence of the member.


----- Original Message ----- 
From: "PAPWORTH Paul" <Paul.Papworth@xxxxxxx>
To: <rpg400-l@xxxxxxxxxxxx>
Sent: Friday, June 24, 2005 5:34 PM
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.
> *****************************
>
>
>
> ------------------------------
>
> -- 
> This is the RPG programming on the AS400 / iSeries (RPG400-L) digest 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.
>
>
>
> End of RPG400-L Digest, Vol 4, Issue 714
> ****************************************
>
> -- 
> 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.
>
>