Group,
I took out all the x'70' stuff. It looks like it works if you have the
right terminal settings. I had to adjust the width to get it to format
correctly.
/* REXX */
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 "VPUT (A B X Y)"
address ISPEXEC "CONTROL DISPLAY REFRESH"
address ISPEXEC "DISPLAY PANEL(GRAPHESC)"
exit
)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(OFF)
G TYPE(CHAR) INTENS(HIGH) COLOR(GREEN) GE(ON)
)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+|? ?+| 4
+ 4+|$ $+| 4+|? ?+| 5
+ 5+|$ $+| 5+|? ?+| 6
+ 6+|$ $+| 6+|? ?+| 7
+ 7+|$ $+| 7+|? ?+| 8
+ 8+|$ $+| 8+|? ?+| 9
+ 9+|$ $+| 9+|? ?+| 0
+ A+|$ $+| A+|? ?+| A
+ B+|$ $+| B+|? ?+| B
+ C+|$ $+| C+|? ?+| C
+ D+|$ $+| D+|? ?+| D
+ E+|$ $+| E+|? ?+| E
+ F+|$ $+| F+|? ?+| F
+ +-----------------------------------+ +-----------------------------------+
+
+
)END
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 | - - | 0 | . . . . . . . . . . . . . . . | 0
1 | | 1 |. . . . . . . . . . . . . . . . | 1
2 | | 2 |. . . . . . . . . . . . . . . . | 2
3 | | 3 |. . . . . . . . . . . . . . . . | 4
4 | a b c d e f g h i - - - - - - | 4 | . . . . . . . . . ¢ . < ( + | | 5
5 |- j k l m n o p q r - - - - - - | 5 |& . . . . . . . . . ! $ * ) ; ¬ | 6
6 |- - s t u v w x y z - - - - - - | 6 |- / . . . . . . . . ¦ , % _ > ? | 7
7 |Ø § þ Õ Ð Ñ € ë - - - - - - - | 7 |. . . . . . . . . ` : # @ ' = " | 8
8 |~ † ƒ ‚ … ³ - - - - Æ Ç ó © ¾ ¸ | 8 |. a b c d e f g h i . . . . . . | 9
9 | Ý Þ ß Ü Û - - - - ã â ‡ ê ˆ ½ | 9 |. j k l m n o p q r . . . . . . | 0
A |ý ‰ Ä Š ‹ - - - - - ï ¬ Ž ò ø | A |. ~ s t u v w x y z . . . . . . | A
B |à î ì æ ù - õ \ ö - · ¶ ˜ ô | | B |. . . . . . . . . . . . . . . . | B
C |{ ¨ ± ¦ À Ú Ã Á “ - å ç Ó è Ô í | C |{ A B C D E F G H I . . . . . . | C
D |} ° ² Å Ù ¿ ´ Â ” - Ÿ ! ü û ‘ ä | D |} J K L M N O P Q R . . . . . . | D
E |Ï • – — - - - - - - ð ñ Ò é ’ ® | E |\ . S T U V W X Y Z . . . . . . | E
F |™ š ž ¡ ¢ £ ¤ ¥ « - ú ÷ µ ¯ | F |0 1 2 3 4 5 6 7 8 9 . . . . . . | F
----------------------------------- -----------------------------------
Later, Dave
-----Original Message-----
From: Hansen, Dave L - Eagan, MN
Sent: Monday, August 05, 2013 1:20 PM
To: [email protected]
Subject: RE: Panel Graphics - Dynamic Area Question
Dear Group,
I tried to get this to work but I haven't used a Dynamic Area before. I
looked at: z/OS V1R13.0 ISPF Dialog Developer's Guide and Reference. I didn't
find too much on Dynamic Area examples. I searched SISPSAMP for
"AREA(DYNAMIC)" and didn't get a hit.
Q). Does the AREA(DYNAMIC) need to be specified twice on the same line with
different attrchars?
When I change my attrchars "$" and "?" to "TYPE(TEXT) COLOR(RED)" I do not
get an error. Otherwise I get an RC 20 (Severe error.). By trial and error I
removed enough to get my panel to display without a sever error.
Q). Is there an easy way to identify what is causing the RC 20 without
removing code until it works?
The REXX part worked well. Here is my Panel:
)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)
/* $ TYPE(TEXT) COLOR(RED) */
? AREA(DYNAMIC) SCROLL(OFF) EXTEND(OFF)
/* ? TYPE(TEXT) COLOR(RED) */
/* 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
+ www.schlabb.de
)END
My REXX:
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)
trace i
address ISPEXEC "DISPLAY PANEL(GRAPHESC)"
exit
Many thanks in advance, Dave
-----Original Message-----
From: ISPF discussion list [mailto:[email protected]] On Behalf Of Mosley,
George
Sent: Friday, July 12, 2013 4:46 PM
To: [email protected]
Subject: Re: Panel Graphics
Thanks, Robert. Beautiful tool!
George Mosley
-----Original Message-----
From: ISPF discussion list [mailto:[email protected]] On Behalf Of Robert
Prins
Sent: Friday, July 12, 2013 10:31 AM
To: [email protected]
Subject: Re: Panel Graphics
On 12 July 2013 17:09, Mosley, George <[email protected]> wrote:
> I'd like to put some text inside a true graphic box on a panel, as opposed to
> fashioning a primitive one with the +, - and | characters.
>
> Is there, by chance, a guide somewhere as to what special characters are
> available? Or, even better - does anyone have a technique for creating a box?
Fixed pitch font needed:
Panel: GRAPHESC
=== CUT ===)PANEL
/* --- PANELS ------------------------------------------------------ */
/* */
/* Module : TEMPLATE */
/* */
/* Language : ISPF Panel */
/* */
/* Function : Show displayable chars in graphical escape mode */
/* */
/* Author : www.schlabb.de */
/* */
/* 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
+ www.schlabb.de
)END
=== CUT ===
Exec: GRAPHESC
=== CUT ===
/* --- REXX -------------------------------------------------------- */
/* */
/* Module : GRAPHESC */
/* */
/* Language : REXX/MVS */
/* */
/* Function : Show displayable chars in graphical escape mode */
/* */
/* Parameters : - none - */
/* */
/* Author : www.schlabb.de */
/* */
/* 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
=== CUT ===
Not mine!
Robert
--
Robert AH Prins
[email protected]
------------------------------------------------------------
This email and any attachments are intended only for the named recipient and
may contain confidential and/or privileged material.
Any unauthorized copying, dissemination or other use by a person other than the
named recipient of this communication is prohibited.
If you received this in error or are not named as a recipient, please notify
the sender and destroy all copies of this email immediately.
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN
