Portal | Manuals | References | Downloads | Info | Programs | JCLs | Mainframe wiki | Quick Ref
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Profile Log in to check your private messages Log in
 
how to display APL characters?

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> TSO/ISPF
View previous topic :: :: View next topic  
Author Message
Pedro

Senior Member


Joined: 01 Sep 2006
Posts: 2112
Location: Silicon Valley

PostPosted: Wed Mar 14, 2018 5:07 am    Post subject: how to display APL characters?
Reply with quote

The APL language uses some 'greek'ish characters. I wish to use up-arrow and down-arrow on an ISPF panel. Is there a way to display APL characters in an ISPF panel? Whilst mainly using my normal EBCDIC characters.
Back to top
View user's profile Send private message

prino

Senior Member


Joined: 07 Feb 2009
Posts: 1113
Location: Oostende, Belgium

PostPosted: Wed Mar 14, 2018 4:50 pm    Post subject:
Reply with quote

Use the Graphics escape attribute, and hope your emulator supports the APL character set.
Back to top
View user's profile Send private message
Pedro

Senior Member


Joined: 01 Sep 2006
Posts: 2112
Location: Silicon Valley

PostPosted: Wed Mar 14, 2018 9:34 pm    Post subject: Reply to: how to display APL characters?
Reply with quote

Quote:
Use the Graphics escape attribute

I do not have a good example of how to do so. Can you explain?
Back to top
View user's profile Send private message
Robert Sample

Global Moderator


Joined: 06 Jun 2008
Posts: 8355
Location: Dubuque, Iowa, USA

PostPosted: Wed Mar 14, 2018 9:50 pm    Post subject:
Reply with quote

You might want to look into x3270, which says it has APL support.
Back to top
View user's profile Send private message
Pedro

Senior Member


Joined: 01 Sep 2006
Posts: 2112
Location: Silicon Valley

PostPosted: Wed Mar 14, 2018 11:26 pm    Post subject: Reply to: how to display APL characters?
Reply with quote

My emulator has APL character support. I can turn it on and type to see what characters are produced.

My question of how to do is about how to write a panel that shows these characters. The dialog developers reference is not clear in this area. I am looking for an example.
Back to top
View user's profile Send private message
enrico-sorichetti

Senior Member


Joined: 14 Mar 2007
Posts: 10487
Location: italy

PostPosted: Thu Mar 15, 2018 12:09 am    Post subject: Reply to: how to display APL characters?
Reply with quote

IIRC You might have also to use a different translate table inside ISPF
Back to top
View user's profile Send private message
prino

Senior Member


Joined: 07 Feb 2009
Posts: 1113
Location: Oostende, Belgium

PostPosted: Thu Mar 15, 2018 12:36 am    Post subject:
Reply with quote

A bit of REXX

Code:
/* --- REXX -------------------------------------------------------- */
/*                                                                   */
/* Module        : GRAPHESC                                          */
/*                                                                   */
/* Language      : REXX/MVS                                          */
/*                                                                   */
/* Function      : Show displayable chars in graphical escape mode   */
/*                                                                   */
/* Parameters    : - none -                                          */
/*                                                                   */
/* Author        : https://sites.google.com/site/schlabb/home        */
/*                                                                   */
/* Date created  : April 21st 2009                                   */
/*                                                                   */
/* Structure ------------------------------------------------------- */
/*                                                                   */
/*  -/-                                                              */
/*                                                                   */
/* Links ----------------------------------------------------------- */
/*                                                                   */
/*  Link         Type      Name                                      */
/*                                                                   */
/*  DISPLAY      Panel     GRAPHESC                                  */
/*                                                                   */
/* ----------------------------------------------------------------- */

  address ISPEXEC "CONTROL ERRORS RETURN"

  s = '0123456789ABCDEF'
  h = ''
  do i1 = 1 by 1 to 16
     do i2 = 1 by 1 to 16
        n = SUBSTR(s,i1,1) || SUBSTR(s,i2,1)
        h = h || x2c(n) || ' '
     end
  end
  a = h
  x = h
  b = COPIES('G',512)
  y = COPIES('g',512)

  address ISPEXEC "DISPLAY PANEL(GRAPHESC)"

  exit

and a panel
Code:

)PANEL
/* --- PANELS ------------------------------------------------------ */
/*                                                                   */
/* Module        : TEMPLATE                                          */
/*                                                                   */
/* Language      : ISPF Panel                                        */
/*                                                                   */
/* Function      : Show displayable chars in graphical escape mode   */
/*                                                                   */
/* Author        : https://sites.google.com/site/schlabb/home        */
/*                                                                   */
/* Date created  : April 21st 2009                                   */
/*                                                                   */
/* ----------------------------------------------------------------- */
)ATTR
%  TYPE(TEXT)    COLOR(WHITE)
*  TYPE(TEXT)    COLOR(TURQ)
+  TYPE(TEXT)    COLOR(BLUE)
#  TYPE(TEXT)    COLOR(TURQ)  HILITE(REVERSE)
$  AREA(DYNAMIC) SCROLL(OFF)  EXTEND(OFF)
§  AREA(DYNAMIC) SCROLL(OFF)  EXTEND(OFF)
g  TYPE(CHAR)    INTENS(HIGH) COLOR(GREEN) GE(ON)
G  TYPE(CHAR)    INTENS(HIGH) COLOR(GREEN) GE(OFF)
)BODY
+
+              # Displayable Characters In Graphical Escape Mode +
+
+          *Graphical Escape%OFF+              *Graphical Escape%ON+
+     0 1 2 3 4 5 6 7 8 9 A B C D E F     0 1 2 3 4 5 6 7 8 9 A B C D E F
+  0  $A,B                           $+0  §X,Y                           §+0
+  1  $                              $+1  §                              §+1
+  2  $                              $+2  §                              §+2
+  3  $                              $+3  §                              §+3
+  4  $                              $+4  §                              §+4
+  5  $                              $+5  §                              §+5
+  6  $                              $+6  §                              §+6
+  7  $                              $+7  §                              §+7
+  8  $                              $+8  §                              §+8
+  9  $                              $+9  §                              §+9
+  A  $                              $+A  §                              §+A
+  B  $                              $+B  §                              §+B
+  C  $                              $+C  §                              §+C
+  D  $                              $+D  §                              §+D
+  E  $                              $+E  §                              §+E
+  F  $                              $+F  §                              §+F
+     0 1 2 3 4 5 6 7 8 9 A B C D E F     0 1 2 3 4 5 6 7 8 9 A B C D E F
+
+                    *© 4/2009 by https://sites.google.com/site/schlabb/home
)END
Back to top
View user's profile Send private message
Steve Coalbran

New User


Joined: 01 Feb 2007
Posts: 88
Location: Stockholm, Sweden

PostPosted: Sat Apr 28, 2018 5:24 pm    Post subject:
Reply with quote

prino wrote:
A bit of REXX...
Hej Robert,
I recently wrote something remarkably similar.
The displays (attached) toggle using the GE command or one can specifically issue GE OFF, GE ON, TEXT ON, TEXT OFF.
Petty much written for educational purposes but I use it a lot nowadays.
It took me a while to get used to Graphic Escape chars. I have to admit I had help from Marvin Knight in Raleigh to start with and it was only recently I was given the requirement to use them!
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 -> TSO/ISPF 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 display offset thru cobol prog... tvinodkumar7 CICS 2 Sun Apr 22, 2018 8:42 pm
No new posts line 52: Name or string > 250 char... Ashishpanpaliya CLIST & REXX 5 Sat Oct 14, 2017 2:29 am
No new posts display the sign only if the value is... useit DFSORT/ICETOOL 3 Wed Oct 04, 2017 5:53 pm
No new posts Binary to display characters Roy Ware SYNCSORT 3 Tue Sep 19, 2017 8:46 pm
No new posts DB2 NULL Values display V S Amarendra Reddy DB2 3 Thu Sep 07, 2017 6:59 pm

Facebook
Back to Top
 
Job Vacancies | Forum Rules | Bookmarks | Subscriptions | FAQ | Polls | Contact Us