In addition to what you can get from TSO and ISPF, you can use TPG to write a WSF datastream. Read Partition - Query will give you the basics. Of course, that's overkill if all you want is the screen geometry.
-- Shmuel (Seymour J.) Metz http://mason.gmu.edu/~smetz3 ________________________________________ From: IBM Mainframe Discussion List <IBM-MAIN@LISTSERV.UA.EDU> on behalf of Tom Brennan <t...@tombrennansoftware.com> Sent: Friday, May 28, 2021 5:30 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: ISPF Edit Macro Regular Expression 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 ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN