There is a variable. I found this old panel of mine:
****** ***************************** Top of Data *****
000001 )BODY
000002 %CCSID is &ztermcid
000003 )END
****** **************************** Bottom of Data ***
But years ago I remember a bit of free code that displayed many more
terminal characteristics. I'm not talking ISPF terminal types (I'd
recommend using type 3 with PCOMM, some others tell ISPF to sends
graphic characters to the screen). I'm talking about things like screen
x/y size, color options, whether it can do underlining, character sets,
etc.
Somebody wrote such a thing and I just forgot who/where/what. And that
code may have worked outside of ISPF, since any program doing TPUT/TGET
can ask the terminal for its characteristics and dump them out to the
screen or whatever.
On 5/28/2021 11:57 AM, Seymour J Metz wrote:
There's probably a dialog variable for it, but I don't recall. Meanwhile, what
happens with teminal type 4 and 6?
If you manually start ISPF from the READY prompt, you can specify a codepage on
ISPSTART.
--
Shmuel (Seymour J.) Metz
http://mason.gmu.edu/~smetz3
________________________________________
From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of
David Spiegel [dspiegel...@hotmail.com]
Sent: Friday, May 28, 2021 2:01 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: ISPF Edit Macro Regular Expression
Hi R'Shmuel AMV"SH,
I am using PCOMM.
How do I display the Code Page?
ISPF Option 0:
Log/List Function keys Colors Environ Workstation Identifier Help
ssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssss
ISPF Settings
Command ===>
Options Print Graphics
Enter "/" to select option Family printer type 2
Command line at bottom Device name . . . .
/ Panel display CUA mode Aspect ratio . . . 0
/ Long message in pop-up
/ Tab to action bar choices
Tab to point-and-shoot fields General
/ Restore TEST/TRACE options Input field pad . . B
Session Manager mode Command delimiter . ;
/ Jump from leader dots
Edit PRINTDS Command
/ Always show split line
Enable EURO sign
Member list options
Enter "/" to select option
/ Scroll member list
Allow empty member list
Allow empty member list (nomatch)
/ Empty member list for edit only
Terminal Characteristics
Screen format 3 1. Data 2. Std 3. Max 4. Part
Terminal Type 3 1. 3277 2. 3277A 3. 3278 4. 3278A
5. 3290A 6. 3278T 7. 3278CF 8. 3277KN
9. 3278KN 10. 3278AR 11. 3278CY 12. 3278HN
13. 3278HO 14. 3278IS 15. 3278L2 16. BE163
17. BE190 18. 3278TH 19. 3278CU 20. DEU78
21. DEU78A 22. DEU78T 23. DEU90A 24. SW116
25. SW131 26. SW500 27. 3278GR 28. 3278L1
29. OTHER
Regards,
David
On 2021-05-28 13:49, Seymour J Metz wrote:
What code pages are you using and what does ISPF show under option 0?
https://na01.safelinks.protection.outlook.com/?url=https%3A%2F%2Fwww.ibm.com%2Fsupport%2Fknowledgecenter%2Fen%2FSSZJDU_6.2.0%2Fcom.ibm.itnetviewforzos.doc_6.2%2Fdqd_custocbe_codepage.htm&data=04%7C01%7C%7C2e49d42adc9d43b5f8de08d922010990%7C84df9e7fe9f640afb435aaaaaaaaaaaa%7C1%7C0%7C637578210126552575%7CUnknown%7CTWFpbGZsb3d8eyJWIjoiMC4wLjAwMDAiLCJQIjoiV2luMzIiLCJBTiI6Ik1haWwiLCJXVCI6Mn0%3D%7C1000&sdata=XMqut0VkUqEx3ZZ%2BZv0x6JhS66IclZN1N7uwhaLo928%3D&reserved=0
"In codepage 037, the left bracket character [ is X'BA', the right bracket character
] is X'BB'. However, in code pages 1047 and 939, the left bracket character [ is X'AD',
the right bracket character ] is X'BD'."
--
Shmuel (Seymour J.) Metz
https://na01.safelinks.protection.outlook.com/?url=http:%2F%2Fmason.gmu.edu%2F~smetz3&data=04%7C01%7C%7C2e49d42adc9d43b5f8de08d922010990%7C84df9e7fe9f640afb435aaaaaaaaaaaa%7C1%7C0%7C637578210126552575%7CUnknown%7CTWFpbGZsb3d8eyJWIjoiMC4wLjAwMDAiLCJQIjoiV2luMzIiLCJBTiI6Ik1haWwiLCJXVCI6Mn0%3D%7C1000&sdata=3qlObBaE0LnaMhGs57%2BI3aqdvUv5Qdo0SkdZIXw8qtI%3D&reserved=0
________________________________________
From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of
David Spiegel [dspiegel...@hotmail.com]
Sent: Friday, May 28, 2021 1:27 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: ISPF Edit Macro Regular Expression
Hi,
I'm trying to write a Rexx ISPF Edit Macro which contains a FIND Regular
Expression.
I'm getting a ISRE997 on this line:
"ISREDIT FIND R'ÝABCDEFGHIJKLMNOPQRSTUVWXYZ@#$¨'" 3
7CEDCCCE4CCDC4D7ACCCCCCCCCDDDDDDDDDEEEEEEEE775B774F444
F92954930695409DD12345678912345678923456789CBBDDF03000
I turned HEX ON so that my square brackets can be displayed. (I used
x'AD' and x'BD').
I am trying to find the next JCL Statement with a valid label (i.e. an
Alphabetic or National Character in Column 3).
Ideally I would like to start my search at column 1 and FIND //
followed Alphabetic/National in Column 3),
Please help.
Thanks and regards,
David
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
.
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
