Focal Point Banner


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.

Join the TIBCO Community
TIBCO Community is a collaborative space for users to share knowledge and support one another in making the best use of TIBCO products and services. There are several TIBCO WebFOCUS resources in the community.

  • From the Home page, select Predict: WebFOCUS to view articles, questions, and trending articles.
  • Select Products from the top navigation bar, scroll, and then select the TIBCO WebFOCUS product page to view product overview, articles, and discussions.
  • Request access to the private WebFOCUS User Group (login required) to network with fellow members.

Former myibi community members should have received an email on 8/3/22 to activate their user accounts to join the community. Check your Spam folder for the email. Please get in touch with us at community@tibco.com for further assistance. Reference the community FAQ to learn more about the community.


Focal Point    Focal Point Forums  Hop To Forum Categories  WebFOCUS/FOCUS Forum on Focal Point     [SOLVED] Add n number of spaces to a field

Read-Only Read-Only Topic
Go
Search
Notify
Tools
[SOLVED] Add n number of spaces to a field
 Login/Join
 
Platinum Member
posted
I have data as follows,

DEPTH........NAME
1...........DAVE
2...........KIM
3...........RODNEY
1...........MARGARET
2...........ROJA


I need to add spaces to the NAME field depending on the value of DEPTH. For example I need to add 1 space to DAVE and two spaces to KIM and so on. I put dots and brackets to illustrate here but are not needed.

DEPTH........NAME
1...........(.)DAVE
2...........(..)KIM
3...........(...)RODNEY
1...........(.)MARGARET
2...........(..)ROJA

Thanks.

This message has been edited. Last edited by: Kerry,


App Studio Version 8202
windows Platform
SQL Server 2008/2012
 
Posts: 183 | Location: TX | Registered: January 22, 2007Report This Post
<JG>
posted
TABLE FILE CAR
SUM MAX.SEATS
ON TABLE SAVE
END
-RUN
-READ SAVE &FORMAT1.A3.
-SET &FORMAT2= 24 + &FORMAT1;
TABLE FILE CAR
PRINT SEATS
COMPUTE DOTS/A&FORMAT1.EVAL = DECODE SEATS(1 '.' 2 '..' 3 '...' 4 '....' 5 '.....' ELSE ''); NOPRINT
COMPUTE NEWCOL1/A&FORMAT2.EVAL = DOTS || MODEL; NOPRINT
COMPUTE NEWCOL2/A&FORMAT2.EVAL = CTRAN(&FORMAT2.EVAL, NEWCOL1, 46, 32, NEWCOL2);
ON TABLE SET SHOWBLANKS ON
END
 
Report This Post
Virtuoso
posted Hide Post
John

If you use STRREP, you would have to worry less about the DECODE I believe.

TABLE FILE CAR
SUM MAX.SEATS
ON TABLE SAVE
END
-RUN
-READ SAVE &FORMAT1.A3.
-SET &FORMAT2= 24 + &FORMAT1;
TABLE FILE CAR
PRINT SEATS
COMPUTE MODEL1/A&FORMAT2 = '#' | MODEL; NOPRINT
COMPUTE MODEL2/A&FORMAT2 = STRREP (&FORMAT2,MODEL1,1,'#',SEATS-1,'          ',&FORMAT2,'A&FORMAT2');
ON TABLE SET SHOWBLANKS ON
END


Alan.
WF 7.705/8.007
 
Posts: 1451 | Location: Portugal | Registered: February 07, 2007Report This Post
<JG>
posted
Alan quite right however my concern with doing that is that you have to use a replacement string greater than the declared replacement string length.

Knowing the way the developers in New York seem to have a passion for making subtle changes
to subroutines there is always the possibility that it might not work in the future.
 
Report This Post
Platinum Member
posted Hide Post
Thank you both for your suggestions..that will work for me..
I am trying to understand the logic here.
Why are you both adding 24 here to the max value??


App Studio Version 8202
windows Platform
SQL Server 2008/2012
 
Posts: 183 | Location: TX | Registered: January 22, 2007Report This Post
<JG>
posted
The reason for the 24 is quite simple, It's the original length of the field MODEL from the car file.
 
Report This Post
  Powered by Social Strata  

Read-Only Read-Only Topic

Focal Point    Focal Point Forums  Hop To Forum Categories  WebFOCUS/FOCUS Forum on Focal Point     [SOLVED] Add n number of spaces to a field

Copyright © 1996-2020 Information Builders