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

how to display APL characters?


IBM Mainframe Forums -> TSO/ISPF
Post new topic   Reply to topic
View previous topic :: View next topic  
Author Message
Pedro

Global Moderator


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

PostPosted: Wed Mar 14, 2018 5:07 am
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: 1314
Location: Vilnius, Lithuania

PostPosted: Wed Mar 14, 2018 4:50 pm
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

Global Moderator


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

PostPosted: Wed Mar 14, 2018 9:34 pm
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: 8700
Location: Dubuque, Iowa, USA

PostPosted: Wed Mar 14, 2018 9:50 pm
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

Global Moderator


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

PostPosted: Wed Mar 14, 2018 11:26 pm
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

Superior Member


Joined: 14 Mar 2007
Posts: 10886
Location: italy

PostPosted: Thu Mar 15, 2018 12:09 am
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: 1314
Location: Vilnius, Lithuania

PostPosted: Thu Mar 15, 2018 12:36 am
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: 89
Location: Stockholm, Sweden

PostPosted: Sat Apr 28, 2018 5:24 pm
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 View Bookmarks
All times are GMT + 6 Hours
Forum Index -> TSO/ISPF

 


Similar Topics
Topic Forum Replies
No new posts Substring number between 2 characters... DFSORT/ICETOOL 2
No new posts Reading dataset in Python - New Line ... All Other Mainframe Topics 22
No new posts Count the number of characters in a f... CA Products 1
No new posts How to display the leading zeros of a... DB2 7
No new posts SDSF display Max-RC in different colors TSO/ISPF 4
Search our Forums:

Back to Top