Yes, Dan, Brad is saying that the on line manual says that the result of FLD2 would be 'ABCXYZ' and not 'ABCbbXYZb' with the b's being blanks as your data shows it should be. Regards, Jim Langston Dan wrote: > Brad, > > Your results are not my results. Maybe you need a PTF. Directly copy/pasted > your posted code into SEU, included a DUMP, compiled and ran it, and DUMP > shows: > > NAME ATTRIBUTES VALUE > FIRST CHAR(6) ' SMITH' '40E2D4C9E3C8'X > FLD1 CHAR(3) 'XYZ' 'E7E8E9'X > FLD2 CHAR(9) 'ABC XYZ ' 'C1C2C34040E7E8E940'X > NAME CHAR(3) 'MR.' 'D4D94B'X > RESULT CHAR(9) 'MR. SMITH' 'D4D94B40E2D4C9E3C8'X > * * * * * E N D O F R P G D U M P * * * * * > > > "Stone, Brad V (TC OASIS)" <email@example.com> wrote: > > Well, I was looking into something, and this struck me. I had to verify my > > thoughts with someone else on this My co-worker agreed these looked wrong. > > The examples for the CAT operation in the RPG reference are wrong. Either > > that or I'm SO fried right now that I can't see it. Here are the examples: > > > > The following example shows leading blanks in factor 2. After > > | * the CAT, the RESULT contains 'MR.SMITH'. > > | * > > | C MOVE 'MR.' NAME 3 > > | C MOVE ' SMITH' FIRST 6 > > | C NAME CAT FIRST RESULT 9 > > | * > > | * The following example shows the use of CAT without factor 1. > > | * FLD2 is a 9 character string. Prior to the concatenation, it > > | * contains 'ABC'; FLD1 contains 'XYZ > > | * After the concatenation, FLD2 contains 'ABCXYZ'. > > | * > > | C MOVEL(P) 'ABC' FLD2 9 > > | C MOVE 'XYZ' FLD1 3 > > | C CAT FLD1:2 FLD2 > > | > > Figure 198. CAT Operation > > > > Shouldn't the first example be 'MR.^SMITH' and the second be 'ABC^^XYZ'? > > (^=space) > > > > The others are wrong as well. If I am correct and not out of my mind, then > > I can only come to the assumption that when translating the manuals to > HTML, > > if they aren't using <PRE> then they forgot for each space to put in a > > character. That's besides the point, though. I am looking at this > > correctly, right? > > > > Hans, what's up with this? > > > > Bradley V. Stone > > BVS/Tools > > http://www.bvstools.com > > ____________________________________________________________________ > Get your own FREE, personal Netscape WebMail account today at >http://webmail.netscape.com. > +--- > | This is the Midrange System Mailing List! > | To submit a new message, send your mail to MIDRANGE-L@midrange.com. > | To subscribe to this list send email to MIDRANGE-L-SUB@midrange.com. > | To unsubscribe from this list send email to MIDRANGE-L-UNSUB@midrange.com. > | Questions should be directed to the list owner/operator: firstname.lastname@example.org > +--- +--- | This is the Midrange System Mailing List! | To submit a new message, send your mail to MIDRANGE-L@midrange.com. | To subscribe to this list send email to MIDRANGE-L-SUB@midrange.com. | To unsubscribe from this list send email to MIDRANGE-L-UNSUB@midrange.com. | Questions should be directed to the list owner/operator: email@example.com +---
As an Amazon Associate we earn from qualifying purchases.
Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.