Hi Peter,
I believe I've done this sort of thing before (although not at my current job, so I don't have source to reference).
Essentially I would do something like substring to the length of the print field, then step backwards character by character looking for a space. If I found one, I'd break everything up to the space off and place it in the PrintField and print. Then I'd continue again this time starting after the section that got printed and repeat what I just did. If a space isn't found, you'd simply have to break at the 20th character.
Hopefully this isn't too vague.
-Kurt
-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Vidal, Peter
Sent: Wednesday, May 01, 2013 9:18 AM
To: Midrange - RPG (rpg400-l@xxxxxxxxxxxx)
Subject: Print a long field into smaller fields
Hello Team!
I would like to have your feedback on this thought / challenge:
I have a description field (let's call it "LongField") which is 64 characters long. I need to print this field but I have only a limited space of 20 characters. I would like to split the field in such a way that I can have it printed in this pre-printed form / column. For example:
/=========================/
LongField = "MAN BASIC W/ BUILT IN OSTOMY SUPPORT/BARRIER, MODULAR SYSTEM"
Required Printed Output:
MAN BASIC W/ BUILT
IN OSTOMY
SUPPORT/BARRIER,
MODULAR SYSTEM
/=========================/
I would probably need four fields (20/A) to allow the entire description to print the way I am suggesting here. Oh well, I believe I have seen this code being suggested before but I can't find it. As you can see, the portion of the string "SUPPORT/BARRIER," was not splitted because there are no spaces in between the words and the slash so I know the routine I saw before has logic to determine the most appropriate place to "cut" the string based on the fact if there is enough room space to fit or not. In this case, cannot be greater than 20 characters, as I stated before.
Any suggestions / advices are really appreciated.
Best regards,
Peter Vidal
________________________________
This communication is intended only for the use of the individual or entity named as the addressee. It may contain information which is privileged and/or confidential under applicable law. If you are not the intended recipient or such recipient's employee or agent, you are hereby notified that any dissemination, copy or disclosure of this communication is strictly prohibited. If you have received this communication in error, please immediately notify CareCentrix Compliance Hot Line at (877) 848-8229 and notify the sender by electronic mail. Please expunge this communication without making any copies. Thank you for your cooperation.
--
This is the RPG programming on the IBM i (AS/400 and iSeries) (RPG400-L) mailing list To post a message email: RPG400-L@xxxxxxxxxxxx To subscribe, unsubscribe, or change list options,
visit:
http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives at
http://archive.midrange.com/rpg400-l.
midrange.com
