RE: Is this the Free-Format that we asked for?

["Richard Jackson" <richardjackson@xxxxxxxxxxxxxxxxxx>]

I'll write C or Java instead.

Richard Jackson
Richard Jackson and Associates Ltd.
IBM Business Partner
mailto:richardjackson@richardjackson.net
http://www.richardjacksonltd.com
Telephone: 1 (303) 808-8058


-|-----Original Message-----
-|From: owner-rpg400-l@midrange.com [mailto:owner-rpg400-l@midrange.com]On
-|Behalf Of Contractor1@parkdalemills.com
-|Sent: Friday, November 03, 2000 11:49 AM
-|To: RPG400-L@midrange.com
-|Subject: RE: Is this the Free-Format that we asked for?
-|
-|
-|
-|The spacing of the following statements may get garbled by the time you
-|receive this, but I hope you can still see my point.
-|
-|I like the idea of putting a 'C' at the beginning of each free-format line
-|instead of putting a ';' at the end. The exception being if the line
-|continues.
-|
-|RPG V like this:
-|
-|C  Item_00001 = %trim(OEDescrS) + ' ' +
-|
-|%trim(GetPrdId(Spin:Clean:Fiber1:Fiber2:Fiber3:Fiber4:Blend1:Blend
-|2:Blend3:Blend4:0)) +
-|     '_' +  %trim(%editc(Count:'3')) + '/' + %trim(%editc(Ply:'3'))
-|
-|C <next statement>
-|
-|Instead of:
-|C                     Eval      Item_00001 = %trim(OEDescrS) + ' ' +
-|C
-|%trim(GetPrdId(Spin:Clean:Fiber1:Fiber2:
-|C
-|Fiber3:Fiber4:Blend1:Blend2:Blend3:Blend4:
-|C                                   0)) + '_' + %trim(%editc(Count:'3')) +
-|'/' +
-|C                                  %trim(%editc(Ply:'3'))
-|
-|
-|The GOTOs still need to be eliminated from RPG V (along with any other
-|obsolete opcodes).
-|
-|Patrick Conner
-|www.ConnecTown.com
-|(828) 244-0822
-|
-|
-|+---
-|| 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
+---