As of December 1, 2020, Focal Point is retired and repurposed as a reference repository. We value the wealth of knowledge that's been shared here over the years. You'll continue to have access to this treasure trove of knowledge, for search purposes only. Moving forward, myibi is our community platform to learn, share, and collaborate. We have the same Focal Point forum categories in myibi, so you can continue to have all new conversations there. If you have any questions or need access: Contact myibi@ibi.com Connect to myibi

 Go Search Notify Tools
 Column Formatting
Platinum Member
 posted May 18, 2005 07:46 PM
I have 1 column that I am outputting to a report and it is quite a few rows long to where it is stretching for 3 pages. Is it possible to wrap a column if it gets to the bottom of a page to create a second column right next to it starting at the top?

Does that make sense?

Thanks!!

 Posts: 178 | Registered: May 11, 2005 IP
Platinum Member
 posted May 18, 2005 10:29 PM Hide Post
Can't think of a way to do precisely what you ask, but you could turn one column into 4 (or 40, I suppose). Something like this (where ORIG_COL is the column in question. I assumed a format of A20):

DEFINE FILE TEST
COUNTER/I2 = IF COUNTER EQ 4 THEN 1 ELSE COUNTER + 1;
COUNTER2/I7 = IF COUNTER EQ 1 THEN COUNTER2 + 1 ELSE COUNTER2;
COL1/A20 = IF COUNTER EQ 1 THEN ORIG_COL ELSE ' ';
COL2/A20 = IF COUNTER EQ 2 THEN ORIG_COL ELSE ' ';
COL3/A20 = IF COUNTER EQ 3 THEN ORIG_COL ELSE ' ';
COL4/A20 = IF COUNTER EQ 4 THEN ORIG_COL ELSE ' ';
END

TABLE FILE TEST
SUM COL1 COL2 COL3 COL4
BY COUNTER2 NOPRINT
END

Use of the IMOD function might be a bit more clever, but I can't see that it would work any better.

 Posts: 135 | Location: Portland, OR | Registered: March 23, 2005 IP
Platinum Member
 posted May 19, 2005 07:42 PM Hide Post
Thanks that helps a lot!!

 Posts: 178 | Registered: May 11, 2005 IP