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    WebFOCUS/FOCUS Forum on Focal Point     [SHARING]please review my code...

Read-Only Topic
 Go Search Notify Tools
 [SHARING]please review my code...
Master
 posted December 18, 2015 08:57 AM
```-SET &X = -1;
-REPEAT X 20 TIMES
-SET &X = &X + 1;
-SET &X2 = 12 - INT( 0.5 * &X );
-SET &X3 = 15 - &X/2;
-SET &Y = DECODE &X(9 '|' 12 'S' 5 'R' 4 'R' 11 'A' 8 'X' 6 'Y' 2 'M' 10 'M' 3 'E' ELSE '·') | '·';
-REPEAT Y1 &X2 TIMES
-SET &Y = &Y | '·';
-Y1
-SET &Y = &Y | '/';
-REPEAT Y2 &X TIMES
-SET &R = 100.00 * RDUNIF('D5.2');
-SET &Y = IF &R LE 20 THEN &Y | 'O' ELSE IF &R LE 40 THEN &Y | '*' ELSE IF &R LE 70 THEN &Y | '/' ELSE &Y | '\';
-Y2
-SET &Y = &Y | '\';
-REPEAT Y4 &X3 TIMES
-SET &Y = &Y | '·';
-Y4
-TYPE &Y
-X
-REPEAT Y3 3 TIMES
-TYPE ·············|---|·············
-Y3
-TYPE ···········#########···········
```

This message has been edited. Last edited by: <Emily McAllister>,

_____________________
WF: 8.0.0.9 > going 8.2.0.5

 Posts: 668 | Location: Veghel, The Netherlands | Registered: February 16, 2010 IP
Master
 posted December 18, 2015 09:06 AM Hide Post
Nice one!

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

App Studio
WebFOCUS 8.1.05M
Windows, All Outputs

 Posts: 594 | Location: Michigan | Registered: September 04, 2015 IP
Master
 posted December 18, 2015 09:54 AM Hide Post
Oh, don't ruin the surpise !

_____________________
WF: 8.0.0.9 > going 8.2.0.5

 Posts: 668 | Location: Veghel, The Netherlands | Registered: February 16, 2010 IP
Virtuoso
 posted December 18, 2015 10:28 AM Hide Post
Sweet! Pretty cool!

8.2.02M (production), 8.2.02M (test), Windows 10, all outputs.

 Posts: 1113 | Location: USA | Registered: January 27, 2015 IP
Guru
 posted December 18, 2015 10:58 AM Hide Post
Cool.

Congrats!

WebFOCUS 8.1.05 / APP Studio

 Posts: 272 | Location: Brazil | Registered: October 31, 2006 IP
Expert
 posted December 18, 2015 02:34 PM Hide Post
Like !!!

Glad someone else also does these sort of things

T

 In FOCUSsince 1986 WebFOCUS Server 8.2.01M, thru 8.2.07 on Windows Svr 2008 R2 WebFOCUS App Studio 8.2.06 standalone on Windows 10

 Posts: 5694 | Location: United Kingdom | Registered: April 08, 2004 IP
Virtuoso
 posted December 20, 2015 08:01 AM Hide Post
And the random is great!

Daniel
In Focus since 1982
wf 8.202M/Win10/IIS/SSA - WrapApp Front End for WF

 Posts: 1980 | Location: Tel Aviv, Israel | Registered: March 23, 2006 IP
Expert
 posted December 20, 2015 03:59 PM Hide Post

Put a smile on my face, need more of these.

Waz...

 Prod: WebFOCUS 7.6.10/8.1.04 Upgrade: WebFOCUS 8.2.07 OS: Linux Outputs: HTML, PDF, Excel, PPT In Focus since 1984 Pity the lost knowledge of an old programmer!

 Posts: 6347 | Location: 33°49'23.0"S, 151°11'41.0"E | Registered: October 31, 2006 IP
Platinum Member
 posted December 21, 2015 08:12 AM Hide Post
Good One

Thanks!
@vi

WebFOCUS 8105, Dev Studio 8105, Windows 7, ALL Outputs

 Posts: 103 | Registered: July 08, 2013 IP
Silver Member
 posted December 21, 2015 08:20 AM Hide Post
Very nice!

8009
Windows, HTML, AHTML, Excel
In FOCUS since 1983

 Posts: 41 | Location: Charlotte, NC | Registered: January 06, 2012 IP
Member
 posted December 21, 2015 08:46 AM Hide Post
Very nice!

Same to you ;-)

WebFOCUS 8
Windows, All Outputs

 Posts: 4 | Registered: December 14, 2015 IP
Platinum Member
 posted December 21, 2015 08:58 AM Hide Post
Way Cool!!
Thanks!!

WebFOCUS 8.1.05
Windows, All Outputs

 Posts: 116 | Location: Birmingham, Al | Registered: July 23, 2015 IP
Platinum Member
 posted December 21, 2015 11:06 AM Hide Post
Good to see you branching out Dave !

_______________________
*** WebFOCUS 8.1.05M ***

 Posts: 196 | Location: London, UK | Registered: December 06, 2005 IP
 Powered by Social Strata

Read-Only Topic

Focal Point    Focal Point Forums    WebFOCUS/FOCUS Forum on Focal Point     [SHARING]please review my code...

Copyright © 1996-2020 Information Builders