Hi Tom
I think the way that I have used it should work for you
In the dds I have the following
A ADDMSGALL 600 B 7 15CNTFLD(50)
A WRDWRAP
Then in my program I have this
D DS
D Addmsgall 600
D Addmsg01 50 overlay(Addmsgall)
D Addmsg02 50 overlay(Addmsgall:*next)
D Addmsg03 50 overlay(Addmsgall:*next)
D Addmsg04 50 overlay(Addmsgall:*next)
D Addmsg05 50 overlay(Addmsgall:*next)
D Addmsg06 50 overlay(Addmsgall:*next)
D Addmsg07 50 overlay(Addmsgall:*next)
D Addmsg08 50 overlay(Addmsgall:*next)
D Addmsg09 50 overlay(Addmsgall:*next)
D Addmsg10 50 overlay(Addmsgall:*next)
D Addmsg11 50 overlay(Addmsgall:*next)
D Addmsg12 50 overlay(Addmsgall:*next)
D Addmsgind 50 overlay(Addmsgall) Dim(12)
I can capture and save the individual lines to a file, and brought back in to the DDS when required with no extra coding
Alan Shore
Programmer/Analyst, Direct Response
E:AShore@xxxxxxxx
P:(631) 200-5019
C:(631) 880-8640
"If you're going through Hell, keep going" - Winston Churchill
-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Tom Deskevich
Sent: Thursday, May 03, 2012 1:45 PM
To: IBM System
Subject: wrdwrap question
I am attempting to assemble text to print on a letter in an RPG program. I have to insert a variable number of names in 2 different places.
I created a format with a large input field to input the names.
I then assemble all the constant text with the variable text and bring it into a field with WRDWRAP, which keeps the fields from being truncated at the end of the line. It all looks good on the screen, with blanks inserted at the end.
For some reason, I have to put some type of input in my WRDWRAP field, or it will suppress all the blanks put in by WRDWRAP when I attempt to parse out the large WRDWRAP field to print fields. It appears that the blanks that WRDWRAP puts in are more like nulls, and not a true blank.
I know what you may be thinking, why don’t you use BLKFOLD on your print file?
I tried using that. There is zero examples out there on this keyword that I could find. I made a field the length of the WRDWRAP field that I attempted to use above in the print file. I have FOLD(*YES) in my OVRPRTF. The print is *AFPDS, but I did not get any warnings or anything when I ran it. It prints one line of information only.
Thanks.
Tom Deskevich
INFOCON
814-472-6066
Fax 814-472-5019
--
This is the RPG programming on the IBM i / System i (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.
Disclaimer: This message contains confidential information and is intended only for the individual named. If you are not the named addressee you should not disseminate, distribute or copy this e-mail. Please notify the sender immediately by e-mail if you have received this e-mail by mistake and delete this e-mail from your system. E-mail transmission cannot be guaranteed to be secure or error-free as information could be intercepted, corrupted, lost, destroyed, arrive late or incomplete, or contain viruses. The sender therefore does not accept liability for any errors or omissions in the contents of this message, which arise as a result of e-mail transmission. If verification is required please request a hard-copy version. Any views or opinions presented are solely those of the author and do not necessarily represent those of the company.
midrange.com
