View previous topic :: View next topic
|
Author |
Message |
Pedro
Global Moderator
Joined: 01 Sep 2006 Posts: 2593 Location: Silicon Valley
|
|
|
|
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 |
|
|
prino
Senior Member
Joined: 07 Feb 2009 Posts: 1314 Location: Vilnius, Lithuania
|
|
|
|
Use the Graphics escape attribute, and hope your emulator supports the APL character set. |
|
Back to top |
|
|
Pedro
Global Moderator
Joined: 01 Sep 2006 Posts: 2593 Location: Silicon Valley
|
|
|
|
Quote: |
Use the Graphics escape attribute |
I do not have a good example of how to do so. Can you explain? |
|
Back to top |
|
|
Robert Sample
Global Moderator
Joined: 06 Jun 2008 Posts: 8700 Location: Dubuque, Iowa, USA
|
|
|
|
You might want to look into x3270, which says it has APL support. |
|
Back to top |
|
|
Pedro
Global Moderator
Joined: 01 Sep 2006 Posts: 2593 Location: Silicon Valley
|
|
|
|
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 |
|
|
enrico-sorichetti
Superior Member
Joined: 14 Mar 2007 Posts: 10886 Location: italy
|
|
|
|
IIRC You might have also to use a different translate table inside ISPF |
|
Back to top |
|
|
prino
Senior Member
Joined: 07 Feb 2009 Posts: 1314 Location: Vilnius, Lithuania
|
|
|
|
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 |
|
|
Steve Coalbran
New User
Joined: 01 Feb 2007 Posts: 89 Location: Stockholm, Sweden
|
|
|
|
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 |
|
|
|