Re: Quote Question -- RPG400-L

Chandran,

In our shop, when someone claims "Hey, but it works", the answer is always
"That's no excuse!'.

Two points:

1. Your three D-specs and two C-specs (and you need one more D-spec for
defining WKPOST) can be replaced by one D-spec:
D WKPOST           C                 X'7F'

2. Using this technique might give you an apostrophe in your code page, but
might be something different in another.

Joep Beckeringh


----- Original Message -----
From: "chandran balaji" <cbalajivk@hotmail.com>
To: <RPG400-L@midrange.com>
Sent: Friday, February 25, 2000 10:02 PM
Subject: RE: Quote Question


> This is a reply to Ben and has no technical discussion. So please
apologise
> for the trouble. I plan to continue this discussion private, with Ben with
> his acknowledgement.
>
> Ben,
> U've chosen me today to spend ur pull R U :-), well what do u fell about
> this code. Is it understandable and maintainable?.
>
> If u ask my opinion, for a decent RPG programmer this code should be both
> and more over it is explicit. Today u may want to have an Aphostrophe but
in
> future there might be a need for something else. If u happen to know just
> the binary equivalent of the code U R looking for, U have to jsut change
the
> number.
>
> These R my personal opinion if u, have other suggestions please feel free
to
> send an email to cbalajivk@hotmail.com,
>
> Cheers
>
> From: "Bale, Dan" <DBale@TFSA.Textron.com>
> Reply-To: RPG400-L@midrange.com
> To: "'RPG400-L@midrange.com'" <RPG400-L@midrange.com>
> Subject: RE: Quote Question
> Date: Fri, 25 Feb 2000 15:10:00 -0500
>
> Um, "it works" and "it's easily maintainable and understandable" are two
> completely different animals.  ;-)
>
> Just out of curiosity, why wouldn't you just use the double single quote?
> Not just you, chandran, but the rest who use a constant or assigned
variable
> like SingleQuote.  Surely you can figure out:  Eval  HeSaid = 'I don''t
care
> what it looks like.'
>
> In the end, I'm sure, this is a case of "whatever works for you".  I will
> never begrudge anyone of that.
>
> Anybody remember the old DataNetwork (? precursor to Midrange Computing ?)
> magazine and their "shortest possible code" contests to complete a given
> task?  Those worked, too, and some of the solutions were good teaching
> lessons on the "advanced" state of RPG.  They ended the contests when it
was
> decided that a technical magazine like that should be promoting good
> programming style and not "I can write that code in 'n' lines".
>
> - Dan Bale
>
> -----Original Message-----
> From: chandran balaji [mailto:cbalajivk@hotmail.com]
> Sent: Friday, February 25, 2000 2:34 PM
> To: RPG400-L@midrange.com
> Subject: RE: Quote Question
>
>
> hey it works in all my programs and has in the past years, so i dont see a
> problem.
>
> Cheers
>
>
> From: "Bale, Dan" <DBale@TFSA.Textron.com>
> Reply-To: RPG400-L@midrange.com
> To: "'RPG400-L@midrange.com'" <RPG400-L@midrange.com>
> Subject: RE: Quote Question
> Date: Fri, 25 Feb 2000 13:31:02 -0500
>
> chandran,
>
> With tongue FIRMLY in cheek, please assure me that I will never have to
> maintain your code!
>
> (You had no emoticons in your post, so I'm presuming you were serious.)
>
> - Dan Bale
>
> -----Original Message-----
> From: chandran balaji [mailto:cbalajivk@hotmail.com]
> Sent: Friday, February 25, 2000 12:36 PM
> To: RPG400-L@midrange.com
> Subject: Re: Quote Question
>
>
> Here is the data struct required
>
> * Create Aphostrophe Char
> D BINARYCVT        DS
> D BINNBR                  1      2B 0
> D BINCHR                  2      2A
>
> Here is the C spec
>
> EVAL      BINNBR = 125
> EVAL      WKPOST = BINCHR
>
> WKPOST will have the Aphostrphy (') then u can use a loop to add it to the
> begginig of the string and to the wnd of the string
>
>
> Good luck
>
> From: "Brian Stapleton" <Brian.Stapleton@diverseylever.com>
> Reply-To: RPG400-L@midrange.com
> To: "rpg400-l@midrange.com" <rpg400-l@midrange.com>
> Subject: Quote Question
> Date: Fri, 25 Feb 2000 11:10:00 -0500
>
> Greetings All;
>
> I need to create a text sting that includes a single quote.  Any Idea on
how
>
> to
> do this?
>
> I tried using specifying this on the INZ of a D-Spec and no luck.  I tried
> doing this also with an EVAL and still no luck.  Any help would be
> appreciated.
>
>
>
> 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
> +---
>
> ______________________________________________________
> Get Your Private, Free Email at http://www.hotmail.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
> +---
>
> ______________________________________________________
> Get Your Private, Free Email at http://www.hotmail.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
+---