IBM Mainframe Forum Index
 
Log In
 
IBM Mainframe Forum Index Mainframe: Search IBM Mainframe Forum: FAQ Register
 

How to generate fancy text


IBM Mainframe Forums -> All Other Mainframe Topics
Post new topic   Reply to topic
View previous topic :: View next topic  
Author Message
vasanthz

Global Moderator


Joined: 28 Aug 2007
Posts: 1742
Location: Tirupur, India

PostPosted: Thu May 06, 2010 3:12 pm
Reply with quote

Hi,

How to generate fancy text like the "S" below in mainframe? Often these kind of art comes on software logs.
Is there software or a REXX Exec that can generates this?

I am aware of 'SAY' in REXX, but that approach is messy, since every line has to be chiseled.
Just a curiosity, no business need attached icon_biggrin.gif

Code:
       .SSSSSSS.       
    .SSSSSSSSSSSSS.     
  .SSSSSSSSSSSSSSSSS.   
 .SSSSSSSSSSSSSSSSSSS. 
 SSSSSSSSSSSSSSSSSSSSS.
.SSSSSSSSSSSSSSSSSSSSSS
SSSSSSSSSS'   'SSSSSSSS.
'SSSSSSSSS.      'SSSSS'
 SSSSSSSSSSS.       'SS
 'SSSSSSSSSSSS.         
  SSSSSSSSSSSSSSS.     
   'SSSSSSSSSSSSSSSS.   
     'SSSSSSSSSSSSSSSS 
        'SSSSSSSSSSSSSS
 SS.       'SSSSSSSSSSS.
.SSSSS.      'SSSSSSSSSS
'SSSSSSSS.   .SSSSSSSSSS
 SSSSSSSSSSSSSSSSSSSSSS'
 'SSSSSSSSSSSSSSSSSSSSS
  'SSSSSSSSSSSSSSSSSS' 
   'SSSSSSSSSSSSSSSS'   
     'SSSSSSSSSSSS'     
        'SSSSSS'


Thanks,
Back to top
View user's profile Send private message
CICS Guy

Senior Member


Joined: 18 Jul 2007
Posts: 2146
Location: At my coffee table

PostPosted: Thu May 06, 2010 3:15 pm
Reply with quote

Maybe Google "banner" programs?
Back to top
View user's profile Send private message
PeterHolland

Global Moderator


Joined: 27 Oct 2009
Posts: 2481
Location: Netherlands, Amstelveen

PostPosted: Thu May 06, 2010 4:05 pm
Reply with quote

That fancy text is used for separator pages (like JES job output).
We had (my company) a program called SEPARATE supplied with
an EXEC text parm to do that kind of things.
I vaguely remember that that program used an IBM supplied
routine for this trick.
I once did see the coding but forgot to put it in my own libraries
(is that stealing?)
Back to top
View user's profile Send private message
enrico-sorichetti

Superior Member


Joined: 14 Mar 2007
Posts: 10873
Location: italy

PostPosted: Thu May 06, 2010 5:10 pm
Reply with quote

IIRC the <thing> used to build the block letters for jes separator pages is IEFSD095

the CBT tape at Use [URL] BBCode for External Links has some sources dealing with the issue
( mostlly modified things to add more chars )
Back to top
View user's profile Send private message
PeterHolland

Global Moderator


Joined: 27 Oct 2009
Posts: 2481
Location: Netherlands, Amstelveen

PostPosted: Thu May 06, 2010 5:38 pm
Reply with quote

Quote:

IIRC the <thing> used to build the block letters for jes separator pages is IEFSD095


Enrico, thats the one.
Very good.

Cheers
Back to top
View user's profile Send private message
vasanthz

Global Moderator


Joined: 28 Aug 2007
Posts: 1742
Location: Tirupur, India

PostPosted: Thu May 06, 2010 6:15 pm
Reply with quote

Hi,

Thanks for the response. I downloaded CBT # 136. (The only one that had IEFSD095 which was less than 1MB).

But the program was in Assembler icon_eek.gif .

Drew Barrymoore is allergic to coffee,
& im allergic to Assembler icon_biggrin.gif

Let me try my luck with other CBTs.

Regards,
Back to top
View user's profile Send private message
PeterHolland

Global Moderator


Joined: 27 Oct 2009
Posts: 2481
Location: Netherlands, Amstelveen

PostPosted: Thu May 06, 2010 6:22 pm
Reply with quote

For rexx see :

home.roadrunner.com/~mvsrexx/REXX/blox.txt
Back to top
View user's profile Send private message
enrico-sorichetti

Superior Member


Joined: 14 Mar 2007
Posts: 10873
Location: italy

PostPosted: Thu May 06, 2010 6:26 pm
Reply with quote

You will find only assembler stuff there icon_biggrin.gif
Back to top
View user's profile Send private message
vasanthz

Global Moderator


Joined: 28 Aug 2007
Posts: 1742
Location: Tirupur, India

PostPosted: Thu May 06, 2010 8:22 pm
Reply with quote

Code:
TTTTTTT  H     H     A     N     N  K     K   SSSSS              ) 
   T     H     H    A A    NN    N  K    K   S     S    ::        )
   T     H     H   A   A   N N   N  K   K    S          ::         )
   T     HHHHHHH  A     A  N  N  N  KKKK      SSSSS                )
   T     H     H  AAAAAAA  N   N N  K   K          S    ::         )
   T     H     H  A     A  N    NN  K    K   S     S    ::        )
   T     H     H  A     A  N     N  K     K   SSSSS              ) 



REXX Solution worked out icon_smile.gif
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic View Bookmarks
All times are GMT + 6 Hours
Forum Index -> All Other Mainframe Topics

 


Similar Topics
Topic Forum Replies
No new posts Generate random number from range of ... COBOL Programming 3
No new posts TEXT-TO-PDF Compuware & Other Tools 1
No new posts Generate output lines (SYSIN card for... DFSORT/ICETOOL 4
No new posts REXX to send an email in Mainframe wi... CLIST & REXX 3
No new posts interactive cics program using CICS s... CICS 5
Search our Forums:

Back to Top