Portal | Manuals | References | Downloads | Info | Programs | JCLs | Master the Mainframes
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Usergroups Profile Log in to check your private messages Log in
 

 

How to generate fancy text

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> All Other Mainframe Topics
View previous topic :: :: View next topic  
Author Message
vasanthz

Global Moderator


Joined: 28 Aug 2007
Posts: 1458
Location: Azeroth

PostPosted: Thu May 06, 2010 3:12 pm    Post subject: How to generate fancy text
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: 2150
Location: At my coffee table

PostPosted: Thu May 06, 2010 3:15 pm    Post subject:
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: 2422
Location: Netherlands, Amstelveen

PostPosted: Thu May 06, 2010 4:05 pm    Post subject:
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

Global Moderator


Joined: 14 Mar 2007
Posts: 10211
Location: italy

PostPosted: Thu May 06, 2010 5:10 pm    Post subject: Reply to: How to generate fancy text
Reply with quote

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

the CBT tape at www.cbttape.org 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: 2422
Location: Netherlands, Amstelveen

PostPosted: Thu May 06, 2010 5:38 pm    Post subject:
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: 1458
Location: Azeroth

PostPosted: Thu May 06, 2010 6:15 pm    Post subject:
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: 2422
Location: Netherlands, Amstelveen

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

For rexx see :

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

Global Moderator


Joined: 14 Mar 2007
Posts: 10211
Location: italy

PostPosted: Thu May 06, 2010 6:26 pm    Post subject: Reply to: How to generate fancy text
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: 1458
Location: Azeroth

PostPosted: Thu May 06, 2010 8:22 pm    Post subject:
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    IBMMAINFRAMES.com Support Forums -> All Other Mainframe Topics All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts How to update a portion of text in a ... Bill Woodger DFSORT/ICETOOL 25 Wed Nov 09, 2016 9:41 pm
This topic is locked: you cannot edit posts or make replies. Sort card to replace text using cross... Susanta SYNCSORT 32 Tue Sep 13, 2016 4:17 pm
No new posts Generate Cohort report using SORT Indrajit_57 SYNCSORT 6 Wed Jun 01, 2016 9:41 am
No new posts Only text from varchar Seppe DB2 8 Thu Apr 21, 2016 10:42 pm
No new posts How to map virtual printer in JCL, to... user_22 JCL & VSAM 6 Fri Apr 15, 2016 10:04 pm


Facebook
Back to Top
 
Mainframe Wiki | Forum Rules | Bookmarks | Subscriptions | FAQ | Tutorials | Contact Us