× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.





Brian,

If you're going to Common, go by the bookstore and pickup Charlie
Massoglia's RPG4 book.  It should solve alot of your immediate
curiosities...also, go download John Paris, et al's, redbook...RPG
Sorcerer...that will get you further...

Don


On Tue, 7 Mar 2000, Brian Stapleton wrote:

> Greetings All
> 
> Sorry guys, didn't mean to create a squabble.  I'm just a rookie programmer
> looking for new ways of doing stuff.  Just trying to increase my knowledge of
> RPG 4.
> 
> I was hoping to find something like this...(kinda like the way a chain works
> then use the %Found trick)
> 
>       If      %Negative(My_Numeric_Varriable)   
>       Then do something
>       EndIf
> 
> I don't like indicators, so I always try to steer clear of them.
> 
> No Dan, I am not upset with you nor did I take offense with your reply.
> 
> 
> 
> Brian Stapleton
> Information Services
> DiverseyLever Institutional
> A Div of DiverseyLever
> Brian.Stapleton@diverseylever.com
> (248) 304-3553
> 
> 
> Original Message-----
> ------------------------------
> 
> Date: Mon, 6 Mar 2000 17:43:01 -0500 
> From: "Bale, Dan" <DBale@TFSA.Textron.com>
> Subject: RE: Is there an OP-Code to determine if a Numeric Field is Negati ve?
> 
> I wish to clarify my previous post on this topic, as a miscommunicated
> statement was pointed out to me in a private email.
> 
> The "wasting bandwidth" missive was definitely NOT aimed at Brian Stapleton,
> the original poster of this topic.  I normally re-read everything before I
> push "Send", but I must have been in a hurry on this one.
> 
> I was commenting mostly on the 14 responses so far (and counting) on how to
> accomplish what Brian asked originally last week.  Hence my comment, "How
> many ways can you skin an indicator?"  The absence of any emoticons didn't
> help set the intended tone, either.
> 
> Brian, several of us have asked why you wanted to know whether there was an
> alternative to the code you posted.  I thought that there must have been a
> special case.  Heck, I just now thought that perhaps you've never seen
> incarnations of RPG prior to RPG-IV and, just perhaps, you've never seen a
> COMP opcode before (you lucky dog!)  Is that it?
> 
> Regards,
> Dan Bale
> 
> - -----Original Message-----
> From: Bale, Dan [mailto:DBale@TFSA.Textron.com]
> Sent: Monday, March 06, 2000 3:50 PM
> To: 'RPG400-L@midrange.com'
> Subject: RE: Is there an OP-Code to determine if a Numeric Field is
> Negative?
> 
> 
> I can't believe we're wasting bandwidth on this.  I don't think the original
> poster has even responded to any of our answers; perhaps he was joking???
> 
> Although I _will_ say that I learned something from this thread:
> 
>     C                 EVAL    *IN99 = (NBR < 0)
> 
> But, enough already!  How many ways can you skin an indicator?  
> 
> - - Dan
> 
> - -----Original Message-----
> From: boldt@ca.ibm.com [mailto:boldt@ca.ibm.com]
> Sent: Monday, March 06, 2000 2:26 PM
> To: RPG400-L@midrange.com
> Subject: Re: Is there an OP-Code to determine if a Numeric Field is
> Negative?
> 
> 
> Peter wrote:
> >Although IF constructs are the preferred method, you CAN do something
> >different without it:
> >
> >    C      NBR        COMP    *ZERO                99
> >    C   99            MOVE    'Y'        NEGTIV  1
> >    C  N99            MOVE    'N'        NEGTIV
> 
> COMP really is a thing of the past.  You could code the
> above COMP instead as:
> 
>     C                 EVAL    *IN99 = (NBR < 0)
> 
> Cheers!  Hans
> 
> Hans Boldt, ILE RPG Development, IBM Toronto Lab, boldt@ca.ibm.com
> 
> ------------------------------
> 
> Date: Mon, 6 Mar 2000 15:00:43 -0800 
> From: Chris Bipes <rpg@cross-check.com>
> Subject: RE: Eval(?)
> 
> The common mistake I see is trying to concat two character fields to one
> where the sum of the length of the two is greater that the result field.
> 
> Try:
> 
> Eval    Result = %triml(source1) + ' ' + source2
> 
> where source1 = 30 char = 'This is                       '
>       source2 = 30 char = 'the result                    '
>       Result  = 40 Char
> 
> and you want
> 'This is the result             '
> 
> but get
> 
> 'This is                       the result'
> 
> when you
> Eval Result = source1 + source2
> 
> If your source strings are not left justified or you are unsure, use the
> %trim() to get rid of all the leading and trailing blanks.  Warning, on
> large strings the %trim can take a lot of CPU.
> 
> Christopher K. Bipes   mailto:ChrisB@Cross-Check.com
> Sr. Programmer/Analyst         mailto:Chris_Bipes@Yahoo.com
> CrossCheck, Inc.       http://www.cross-check.com
> 6119 State Farm Drive  Phone: 707 586-0551 x 1102
> Rohnert Park CA  94928 Fax: 707 586-1884
> 
> If consistency is the hobgoblin of little minds, only geniuses work here.
> Karen Herbelin - Readers Digest 3/2000
> 
> 
> Curt Penland wrote:
> 
> >I'm trying to pad a field with blanks while I put 
> >the value of one field into another using the 
> >EVAL opcode.
> >
> >What extensions within the () can I use in the 
> >"EVAL()" ?
> >
> >I was hoping to be able to use a "P" like the 
> >MOVEL(P) opcode.
> 
> ------------------------------
> 
> Date: Mon, 06 Mar 2000 18:54:41 -0600
> From: David Gibbs <david@midrange.com>
> Subject: Re: Posting Lag?
> 
> Folks:
> 
> The list processor was experiencing problems starting thursday and was 
> repaired on Sunday afternoon.  I was on vacation and the person who was 
> supposed to keep an eye on my system didn't.
> 
> As for the actual posting lag, please keep in mind that mail sent to 
> MIDRANGE.COM does not come directly to the computer.  It is held in a queue 
> at my ISP (mcs.net) until I pick it up.  It then gets processed and sent 
> out.  Delays of up to an hour or two are not unreasonable.
> 
> david
> 
> 
> At 11:58 PM 03/05/2000 , Norm Dennis wrote:
> >Chis,
> >your post, according to my Outlook Express details, was sent on Friday March
> >3, at 2:20am West Australian Time.
> >I have received it on Monday March 6, at 12:40pm West Australian Time.
> >I receipted a number of e-mails during the course of the weekend and this
> >morning.
> >Nothing from midrange.com until this morning.
> >It appears the part of the 'net (or midrange.com) closes down over the
> >weekend, how else can it be explained.
> >BTW I sent a reply to a post a 50 minutes ago at 13:06 and have not received
> >from the list yet.
> >???
> >Norm
> >
> >
> >
> >----- Original Message -----
> >From: "Chris Beck" <CBeck@good-sam.com>
> >To: <RPG400-L@midrange.com>
> >Sent: Friday, 3 March 2000 2:20
> >Subject: Posting Lag?
> >
> >
> > > Is anyone else experiencing a sever lag when posting a message to any of
> >the list groups on midrange.com?
> > >
> > > lately it has been taking up to two hours for a message to go from me to
> >the group and back to my in box.
> > >
> > > Other list groups I am in only take between 5 to 10 minutes max.
> > >
> > >
> > > Chris
> > >
> > > +---
> > > | 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
> >+---
> 
> - --
> | Internet: david@midrange.com
> | WWW:      http://www.midrange.com/david
> |
> | This message was written and delivered using 100%
> | post-consumer (recycled) data bits.
> 
> ------------------------------
> 
> Date: Tue, 07 Mar 2000 02:18:00 GMT
> From: boothm@earth.Goddard.edu
> Subject: RE: EVAL(?)
> 
> But who would want that?  If I am changing '1234567890' to 'ABC'  I really 
> should expect '        ABC', not 'ABC       ' shouldn't I?  Something has 
> always seemed broken about that part of the Eval opcode.
> _______________________
> Booth Martin
> boothm@earth.goddard.edu
> http://www.spy.net/~booth
> _______________________
> 
> 
> 
> 
> "Bale, Dan" <DBale@TFSA.Textron.com>
> Sent by: owner-rpg400-l@midrange.com
> 03/06/2000 01:13 PM
> Please respond to RPG400-L
> 
>  
>         To:     "'RPG400-L@midrange.com'" <RPG400-L@midrange.com>
>         cc: 
>         Subject:        RE: EVAL(?)
> 
> 
> You don't need to.  If your 10-character field ABC contains '1234567890' 
> and
> you perform a:
>      C                     EVAL     ABC = 'XYZ'
> then ABC contains 'ABC       '.  EVAL automatically clears the result 
> field
> for you.
> 
> - - Dan Bale
> 
> - -----Original Message-----
> From: Curt Penland [mailto:Curt.Penland@diverseylever.com]
> Sent: Monday, March 06, 2000 10:02 AM
> To: rpg400-l@midrange.com
> Subject: EVAL(?)
> 
> 
> I'm trying to pad a field with blanks while I put the value of one field
> into
> another using the EVAL opcode.
> 
> What extensions within the () can I use in the "EVAL()" ?
> 
> I was hoping to be able to use a "P" like the MOVEL(P) opcode.
> 
> Any suggestions?
> 
> Curt Penland
> Information Systems
> DiverseyLever Institutional
> Phone            (248) 304-3555
> Fax              (248) 304-3577
> curt.penland@diverseylever.com
> 
> 
> 
> ------------------------------
> 
> Date: Tue, 07 Mar 2000 02:30:23 GMT
> From: boothm@earth.Goddard.edu
> Subject: Re: Is there an OP-Code to determine if a Numeric Field is Negative?
> 
> I'm watching all of the bashing of COMP and of indicators.  These are good 
> tools.  Old, understood, and true;  much like a hammer or a shovel.  The 
> hammer and the shovel don't change much, a better shovel or a better 
> hammer really hasn't been invented.  So sure, there's newer fads and 
> fancier solutions, but indicators are not evil creatures for pete's sake.
> _______________________
> Booth Martin
> boothm@earth.goddard.edu
> http://www.spy.net/~booth
> _______________________
> 
> 
> 
> 
> "Norm Dennis" <wmss@iinet.net.au>
> Sent by: owner-rpg400-l@midrange.com
> 03/06/2000 12:06 AM
> Please respond to RPG400-L
> 
>  
>         To:     <RPG400-L@midrange.com>
>         cc: 
>         Subject:        Re: Is there an OP-Code to determine if a Numeric 
>Field
> is Negative?
> 
> 
> Are you refering to a situation at input time in RPG?
> If so, in the days of the dinosaur, yes.
> On the input spec there was an indicator on byte 65-66 for zero,
> byte 67-68 for negative and byte 69-70 for positive.
> 
> Norm
> 
> 
> 
> - ----- Original Message -----
> From: "Bale, Dan" <DBale@TFSA.Textron.com>
> To: <RPG400-L@midrange.com>
> Sent: Friday, 3 March 2000 4:36
> Subject: RE: Is there an OP-Code to determine if a Numeric Field is
> Negative?
> 
> 
> > The short answer is: NO.
> >
> > The long answer:  You can't get much clearer than "If ABC < 0".  What is
> it
> > about that form that makes you ask the question?
> >
> > Just remember how far we've come.  Remember?:
> >      C           ABC       COMP 0                      88
> >
> > <Shudder, heave, quiver...>
> >
> > - Dan Bale
> >
> > -----Original Message-----
> > From: Brian Stapleton [mailto:Brian.Stapleton@diverseylever.com]
> > Sent: Thursday, March 02, 2000 8:37 AM
> > To: rpg400-l@midrange.com
> > Subject: Is there an OP-Code to determine if a Numeric Field is
> > Negative?
> >
> >
> > Greetings All;
> >
> > Is there an Op code that I can use to determine if a numeric field is
> > Negative?
> >  Just looking for a different way than doing this...
> >
> > IF Number_Field    <   0
> > Do Something...
> > EndIf
> >
> >
> >
> >
> > Brian Stapleton
> > Information Services
> > DiverseyLever Institutional
> > A Div of DiverseyLever
> > Brian.Stapleton@diverseylever.com
> > (248) 304-3553
> >
> >
> >
> >
> > +---
> > | 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: Tue, 07 Mar 2000 03:36:13 GMT
> From: boothm@earth.Goddard.edu
> Subject: Re: How to Trap the cursor position ?????
> 
> at 03/06/2000
>   10:43:05 PM,
>       Serialize complete at 03/06/2000 10:43:05 PM
> MIME-Version: 1.0
> Content-Type: text/plain; charset="us-ascii"
> Sender: owner-rpg400-l@midrange.com
> Precedence: bulk
> Reply-To: RPG400-L@midrange.com
> X-List-Name: RPG/400 Discussion Mailing List (RPG400-L@midrange.com)
> 
> The scroll bar operates by itself.
> 
> But, there is this code:
> 
>        A                           MOUBTN(*ULD ENTER)
> 
> which means Mouse button (UnshiftedLeftDoubleclick is ENTER). This will do
> what you ask, but play around with it because results are not always what
> you will expect.
> 
> _______________________
> Booth Martin
> boothm@earth.goddard.edu
> http://www.spy.net/~booth
> _______________________
> 
> 
> 
> 
> jsingh@cgsinc.com
> Sent by: owner-rpg400-l@midrange.com
> 03/06/2000 10:45 AM
> Please respond to RPG400-L
> 
> 
>          To:     RPG400-L@midrange.com
>          cc:
>          Subject:        Re: How to Trap the cursor position ?????
> 
> 
> 
> 
> Hi
> 
> Thanks for responding me. But i think i could not explain my question
> clearly.
> 
> My question is . In subfile when I am using Scroll Bar , In the scroll bar
> ( Up
> Arrow & Down Arrow) , when i do single click over these Arrow keys it
> recognise.
> It works as a pageup & page down.
> 
> So if some where else i position my cursor using mouse single click, i
> want to
> trap that position , without pressing the Enter key or any double click.
> 
> Thanks with Regards
> jaydeep
> 
> 
> +---
> | 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: Tue, 07 Mar 2000 18:38:51 +1100
> From: fkolmann@revlon.com.au
> Subject: Re: Is there an OP-Code to determine if a Numeric Field is Negative?
> 
> Ah indicators, are they numbers with meaning no no no they
> they are numbers without meaning but they do mean
> something  or do they mean anything
> but but stick an N in front and you reverse
> the meaning and  and and you can string them
> together or or or or with and and and or or and and stick N's
> in the lot of them now we haff twisted their tiny little minds ve
> vill Take OVER THE WORLD ah hah ha ha hah hah ha ha
> !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
> 
> Frank Kolmann (enstein)
> 
> boothm@earth.Goddard.edu wrote:
> 
> > I'm watching all of the bashing of COMP and of indicators.  These are good
> > tools.  Old, understood, and true;  much like a hammer or a shovel.  The
> > hammer and the shovel don't change much, a better shovel or a better
> > hammer really hasn't been invented.  So sure, there's newer fads and
> > fancier solutions, but indicators are not evil creatures for pete's sake.
> > _______________________
> > Booth Martin
> > boothm@earth.goddard.edu
> > http://www.spy.net/~booth
> > _______________________
> 
> ------------------------------
> 
> Date: Tue, 07 Mar 2000 18:37:56 +1100
> From: fkolmann@revlon.com.au
> Subject: Re: EVAL(?)
> 
> Looks like you want to do MOVE-RIGHT and PAD LEFT.
> as opposed to a MOVE-LEFT PAD RIGHT.
> Someone mentioned using EVALR  or is it EVAL(R) .
> I cant find much in the RPG manual re. EVAL(R) except as related
> to 'Result precision rules'.
> but anyway whats wrong with using MOVE(P). to do a MoveRight Pad Left.
> ( you need to use a 'variable length' fields).
> 
> 
> boothm@earth.Goddard.edu wrote:
> 
> > But who would want that?  If I am changing '1234567890' to 'ABC'  I really
> > should expect '        ABC', not 'ABC       ' shouldn't I?  Something has
> > always seemed broken about that part of the Eval opcode.
> > _______________________
> > Booth Martin
> > boothm@earth.goddard.edu
> > http://www.spy.net/~booth
> > _______________________
> >
> > "Bale, Dan" <DBale@TFSA.Textron.com>
> > Sent by: owner-rpg400-l@midrange.com
> > 03/06/2000 01:13 PM
> > Please respond to RPG400-L
> >
> >
> >         To:     "'RPG400-L@midrange.com'" <RPG400-L@midrange.com>
> >         cc:
> >         Subject:        RE: EVAL(?)
> >
> > You don't need to.  If your 10-character field ABC contains '1234567890'
> > and
> > you perform a:
> >      C                     EVAL     ABC = 'XYZ'
> > then ABC contains 'ABC       '.  EVAL automatically clears the result
> > field
> > for you.
> >
> > - Dan Bale
> >
> > -----Original Message-----
> > From: Curt Penland [mailto:Curt.Penland@diverseylever.com]
> > Sent: Monday, March 06, 2000 10:02 AM
> > To: rpg400-l@midrange.com
> > Subject: EVAL(?)
> >
> > I'm trying to pad a field with blanks while I put the value of one field
> > into
> > another using the EVAL opcode.
> >
> > What extensions within the () can I use in the "EVAL()" ?
> >
> > I was hoping to be able to use a "P" like the MOVEL(P) opcode.
> >
> > Any suggestions?
> >
> > Curt Penland
> > Information Systems
> > DiverseyLever Institutional
> > Phone            (248) 304-3555
> > Fax              (248) 304-3577
> > curt.penland@diverseylever.com
> >
> 
> ------------------------------
> 
> Date: Tue, 7 Mar 2000 03:03:03 -0600 (CST)
> From: Scott Klement <klemscot@klements.com>
> Subject: Re: Brakets have wrong Hex code [] <--- these
> 
> Hi Brad,
> 
>     Probably the best solution (as someone else has already posted) is to
> simply use a more appropriate table to do your translation.
> 
> Another approach (one that I've used, largely because I'm too lazy to
> figure out what the right table should be) is to make a new table based
> on the contents of QASCII, and simply change the translation.
> 
> this command should work:
> 
> CRTTBL TBL(MYASCII) SRCFILE(*PROMPT) BASETBL(QASCII)
> 
> HTH
> 
> 
> On Mon, 6 Mar 2000, Stone, Brad V (TC) wrote:
> 
> > Working on a program that uses brackets.  [ and ].  They show up as x'BA'
> > and x'BB' in EBCDIC.  When I copy the file with them to a stream file, they
> > are converted to x'E2' and x'E3' for ASCII which actually is garbage and not
> > what I want.
> > 
> > They should be x'5B' and x'5D' in ASCII.  Looking at the QASCII table, the
> > values need to be x'4A' and x'5A' in EBCDIC do convert correctly.
> > 
> > Anyone have any ideas without having to specifically specify the hex values
> > that will convert??  
> > 
> > Brad
> 
> ------------------------------
> 
> Date: Tue, 7 Mar 2000 19:04:27 +0800
> From: "Norm Dennis" <wmss@iinet.net.au>
> Subject: Re: Is there an OP-Code to determine if a Numeric Field is Negative?
> 
> Booth,
> I do happen to agree with your view.
> My comments were directed at me being the dinosaur who actually has used
> indicators.
> 
> Norm
> 
> 
> 
> - ----- Original Message -----
> From: <boothm@earth.Goddard.edu>
> To: <RPG400-L@midrange.com>
> Sent: Tuesday, 7 March 2000 10:30
> Subject: Re: Is there an OP-Code to determine if a Numeric Field is
> Negative?
> 
> 
> > I'm watching all of the bashing of COMP and of indicators.  These are good
> > tools.  Old, understood, and true;  much like a hammer or a shovel.  The
> > hammer and the shovel don't change much, a better shovel or a better
> > hammer really hasn't been invented.  So sure, there's newer fads and
> > fancier solutions, but indicators are not evil creatures for pete's sake.
> > _______________________
> > Booth Martin
> > boothm@earth.goddard.edu
> > http://www.spy.net/~booth
> > _______________________
> >
> >
> >
> >
> > "Norm Dennis" <wmss@iinet.net.au>
> > Sent by: owner-rpg400-l@midrange.com
> > 03/06/2000 12:06 AM
> > Please respond to RPG400-L
> >
> >
> >         To:     <RPG400-L@midrange.com>
> >         cc:
> >         Subject:        Re: Is there an OP-Code to determine if a Numeric
> Field is Negative?
> >
> >
> > Are you refering to a situation at input time in RPG?
> > If so, in the days of the dinosaur, yes.
> > On the input spec there was an indicator on byte 65-66 for zero,
> > byte 67-68 for negative and byte 69-70 for positive.
> >
> > Norm
> >
> >
> >
> > ----- Original Message -----
> > From: "Bale, Dan" <DBale@TFSA.Textron.com>
> > To: <RPG400-L@midrange.com>
> > Sent: Friday, 3 March 2000 4:36
> > Subject: RE: Is there an OP-Code to determine if a Numeric Field is
> > Negative?
> >
> >
> > > The short answer is: NO.
> > >
> > > The long answer:  You can't get much clearer than "If ABC < 0".  What is
> > it
> > > about that form that makes you ask the question?
> > >
> > > Just remember how far we've come.  Remember?:
> > >      C           ABC       COMP 0                      88
> > >
> > > <Shudder, heave, quiver...>
> > >
> > > - Dan Bale
> > >
> > > -----Original Message-----
> > > From: Brian Stapleton [mailto:Brian.Stapleton@diverseylever.com]
> > > Sent: Thursday, March 02, 2000 8:37 AM
> > > To: rpg400-l@midrange.com
> > > Subject: Is there an OP-Code to determine if a Numeric Field is
> > > Negative?
> > >
> > >
> > > Greetings All;
> > >
> > > Is there an Op code that I can use to determine if a numeric field is
> > > Negative?
> > >  Just looking for a different way than doing this...
> > >
> > > IF Number_Field    <   0
> > > Do Something...
> > > EndIf
> > >
> > >
> > >
> > >
> > > Brian Stapleton
> > > Information Services
> > > DiverseyLever Institutional
> > > A Div of DiverseyLever
> > > Brian.Stapleton@diverseylever.com
> > > (248) 304-3553
> > >
> > >
> > >
> > >
> > > +---
> > > | 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
> > +---
> >
> >
> >
> >
> > +---
> > | 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: Tue, 7 Mar 2000 07:22:34 -0500 
> From: "Chandler, Jeff" <ChandleJ@treeoflife.com>
> Subject: RE: Hex Colors
> 
> This message is in MIME format. Since your mail reader does not understand
> this format, some or all of this message may not be legible.
> 
> - ------_=_NextPart_001_01BF882F.D6591FCE
> Content-Type: text/plain;
>       charset="ISO-8859-1"
> 
>               Thanks Brian... Dan Bale has sent me some macros that work
> great... I'll also check that article.
> 
>               Regards,
> 
>               Jeff Chandler
>               800-447-4812 ext. 2850
> 
> 
>                               -----Original Message-----
>                               From:   Brian Stapleton
> [mailto:brianstapleton@yahoo.com]
>                               Sent:   Monday, March 06, 2000 4:13 PM
>                               To:     RPG400-L@midrange.com
>                               Subject:        Re: Hex Colors
> 
> 
>                               Jeff;
> 
>                               Get the April 2000 Edition of News/400.  In
> there will be a utility that
>                               colors source members....  
> 
> 
> 
>                               >Can someone tell me how to change the color
> of a commented line in SEU?
>                               >?
>                               >Regards,
>                               >
>                               > Jeff Chandler
> 
> 
> 
> 
> 
> 
>                               =====
>                               Brian Stapleton
>                               BrianStapleton@yahoo.com
> 
>       
> __________________________________________________
>                               Do You Yahoo!?
>                               Talk to your friends online with Yahoo!
> Messenger.
>                               http://im.yahoo.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
>                               +---
> 
> - ------_=_NextPart_001_01BF882F.D6591FCE
> Content-Type: text/html;
>       charset="ISO-8859-1"
> Content-Transfer-Encoding: quoted-printable
> 
> <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 3.2//EN">
> <HTML>
> <HEAD>
> <META HTTP-EQUIV=3D"Content-Type" CONTENT=3D"text/html; =
> charset=3DISO-8859-1">
> <META NAME=3D"Generator" CONTENT=3D"MS Exchange Server version =
> 5.5.2650.12">
> <TITLE>RE: Hex Colors</TITLE>
> </HEAD>
> <BODY>
> <UL><UL>
> <P><FONT COLOR=3D"#000080" FACE=3D"Tahoma">Thanks Brian... Dan Bale has =
> sent me some macros that work great... I'll also check that =
> article.</FONT>
> </P>
> 
> <P><FONT COLOR=3D"#000080" FACE=3D"Bookman Old Style">Regards,</FONT>
> </P>
> 
> <P><B><FONT COLOR=3D"#000080" FACE=3D"Bookman Old Style">Jeff =
> Chandler</FONT></B>
> <BR><FONT COLOR=3D"#000080" FACE=3D"Bookman Old Style">800-447-4812 =
> ext. 2850</FONT>
> </P>
> <BR>
> <UL><UL><UL><UL>
> <P><A NAME=3D"_MailData"><FONT COLOR=3D"#000080" =
> FACE=3D"Tahoma">-----Original Message-----</FONT></A>
> <BR><B><FONT COLOR=3D"#000080" FACE=3D"Tahoma">From:&nbsp;&nbsp; Brian =
> Stapleton [<A =
> HREF=3D"mailto:brianstapleton@yahoo.com">mailto:brianstapleton@yahoo.com=
> </A>]</FONT></B>
> <BR><B><FONT COLOR=3D"#000080" =
> FACE=3D"Tahoma">Sent:&nbsp;&nbsp;</FONT></B> <FONT COLOR=3D"#000080" =
> FACE=3D"Tahoma">Monday, March 06, 2000 4:13 PM</FONT>
> <BR><B><FONT COLOR=3D"#000080" =
> FACE=3D"Tahoma">To:&nbsp;&nbsp;&nbsp;&nbsp;</FONT></B> <FONT =
> COLOR=3D"#000080" FACE=3D"Tahoma">RPG400-L@midrange.com</FONT>
> <BR><B><FONT COLOR=3D"#000080" =
> FACE=3D"Tahoma">Subject:&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</FONT=
> ></B> <FONT COLOR=3D"#000080" FACE=3D"Tahoma">Re: Hex Colors</FONT>
> </P>
> <BR>
> 
> <P><FONT COLOR=3D"#000080" FACE=3D"Tahoma">Jeff;</FONT>
> </P>
> 
> <P><FONT COLOR=3D"#000080" FACE=3D"Tahoma">Get the April 2000 Edition =
> of News/400.&nbsp; In there will be a utility that</FONT>
> <BR><FONT COLOR=3D"#000080" FACE=3D"Tahoma">colors source =
> members....&nbsp; </FONT>
> </P>
> <BR>
> <BR>
> 
> <P><FONT COLOR=3D"#000080" FACE=3D"Tahoma">&gt;Can someone tell me how =
> to change the color of a commented line in SEU?</FONT>
> <BR><FONT COLOR=3D"#000080" FACE=3D"Tahoma">&gt;?</FONT>
> <BR><FONT COLOR=3D"#000080" FACE=3D"Tahoma">&gt;Regards,</FONT>
> <BR><FONT COLOR=3D"#000080" FACE=3D"Tahoma">&gt;</FONT>
> <BR><FONT COLOR=3D"#000080" FACE=3D"Tahoma">&gt; Jeff Chandler</FONT>
> </P>
> <BR>
> <BR>
> <BR>
> <BR>
> <BR>
> 
> <P><FONT COLOR=3D"#000080" FACE=3D"Tahoma">=3D=3D=3D=3D=3D</FONT>
> <BR><FONT COLOR=3D"#000080" FACE=3D"Tahoma">Brian Stapleton</FONT>
> <BR><FONT COLOR=3D"#000080" =
> FACE=3D"Tahoma">BrianStapleton@yahoo.com</FONT>
> </P>
> 
> <P><FONT COLOR=3D"#000080" =
> FACE=3D"Tahoma">__________________________________________________</FONT=
> >
> <BR><FONT COLOR=3D"#000080" FACE=3D"Tahoma">Do You Yahoo!?</FONT>
> <BR><FONT COLOR=3D"#000080" FACE=3D"Tahoma">Talk to your friends online =
> with Yahoo! Messenger.</FONT>
> <BR><FONT COLOR=3D"#000080" FACE=3D"Tahoma"><A =
> HREF=3D"http://im.yahoo.com" =
> TARGET=3D"_blank">http://im.yahoo.com</A></FONT>
> <BR><FONT COLOR=3D"#000080" FACE=3D"Tahoma">+---</FONT>
> <BR><FONT COLOR=3D"#000080" FACE=3D"Tahoma">| This is the RPG/400 =
> Mailing List!</FONT>
> <BR><FONT COLOR=3D"#000080" FACE=3D"Tahoma">| To submit a new message, =
> send your mail to RPG400-L@midrange.com.</FONT>
> <BR><FONT COLOR=3D"#000080" FACE=3D"Tahoma">| To subscribe to this list =
> send email to RPG400-L-SUB@midrange.com.</FONT>
> <BR><FONT COLOR=3D"#000080" FACE=3D"Tahoma">| To unsubscribe from this =
> list send email to RPG400-L-UNSUB@midrange.com.</FONT>
> <BR><FONT COLOR=3D"#000080" FACE=3D"Tahoma">| Questions should be =
> directed to the list owner/operator: david@midrange.com</FONT>
> <BR><FONT COLOR=3D"#000080" FACE=3D"Tahoma">+---</FONT>
> </P>
> </UL></UL></UL></UL></UL></UL>
> </BODY>
> </HTML>
> - ------_=_NextPart_001_01BF882F.D6591FCE--
> 
> ------------------------------
> 
> Date: Tue, 7 Mar 2000 13:43:13 +0100
> From: =?iso-8859-1?Q?Anton_Gombk=F6t=F6?= <Gombkoetoe@ASsoft.com>
> Subject: Did anybody else on this list receive spam from INPRO International?
> 
> I'm of course not sure, but do assume that my e-mail address was retreived
> from this list.
> 
> And if this is so, i'd really like to watch the person responsible for this
> doing "major modifications to a 10 year old, matching records, RPG II
> program that uses every available indicator", update of a webcam image every
> minute, so that we can witness the punishment...
> 
> Details of the mail header:
> 
> From: "INPRO International, Inc. " <ausinp1@attglobal.net>
> To: <gombkoetoe@assoft.com>
> Sent: Saturday, March 04, 2000 12:43 PM
> Subject: INPRO International, Inc. Important News
>  Then followed a HTML attachment advertising some performance tool.
> 
> Although they include a link to get removed from their list and do think
> that their mail is no spam, according to austrian law it definitely is spam.
> 
> (I used the remove-mail-link already.)
> 
> Just for your info and my curiousity,
> best regards
> - --
> Anton Gombkötö
> 
> ------------------------------
> 
> End of rpg400-l-digest V2 #60
> *****************************
> 
> +---
> | 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
> +---
> 
> +---
> | 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
+---


As an Amazon Associate we earn from qualifying purchases.

This thread ...

Replies:

Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

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.