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

[Contractor1@xxxxxxxxxxxxxxxxx]

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:Blend2: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
+---