I think that I found it
ZSCREENI is just a "photo" of the screen, so '00'x is presented as "blank"
(nondisplay) in Edit and View, but '.' when in Browse.
So the '.' will be treated as a '.' ('4B'x) and not what is really is ('00'x)
So VCURSOR will not work in that situation
//Lasse
-----Ursprungligt meddelande-----
Från: IBM Mainframe Discussion List <[email protected]> För Seymour J
Metz
Skickat: den 9 november 2023 12:59
Till: [email protected]
Ämne: Re: Rexx TRANSLATE command
The translate function is part of REXX, not part of ISPF. You are having an
ISPF issue.
I've never tried modifying ZSCREEN, but I suspect that translating the whole
thing is messing up the format that ISPF expects. Is ISPF-L still a thing?
--
Shmuel (Seymour J.) Metz
http://mason.gmu.edu/~smetz3
עַם יִשְׂרָאֵל חַי
________________________________________
From: IBM Mainframe Discussion List <[email protected]> on behalf of
Lars Höglund <[email protected]>
Sent: Thursday, November 9, 2023 3:31 AM
To: [email protected]
Subject: Rexx TRANSLATE command
Hi
Looking at Doug Nadel VCURSOR and having a problem understanding the TRANSLATE
he Is doing
trtable='abcdefghijklmnopqrstuvwxyz' /* Setup valid dsname chars */
trtable=trtable!!translate(trtable)!!'ÅÄÖ0123456789.''-ä()'
trtable=translate(xrange('00'x,'FF'x),,trtable,' ')
zscreeni=translate(zscreeni,,trtable,' ') /* Remove non-Dsn chars */
It works most of the times (in Edit, View, Browse, SDSF...)
But when I'm using it on datasetnames with '00'x surrounding it, it works in
Edit and View, NOT in Browse mode
Doesn't TRANSLATE work the same way regardless of mode?
Sample:
.K39828.ISP.EXEC.. HEX BEFORE AND AFTER
40DFFFFF4CED4CECC0044444CCE4CCCDDC4CDC4CCECD4
00239828B927B57530100000857025669501540163590
--------------------------------------------
K39828.ISP.EXEC NO HEX
44DFFFFF4CED4CECC4444444DD4CCE444444444444444
00239828B927B57530000000560857000000000000000
The result:
Menu Utilities Compilers Help
sssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssss
BROWSE K39828.A.CNTL(VCUR) - 01.01 Li Data set not cataloged
Command ===> Scroll ===> CSR
********************************* Top of Data **********************************
.K39828.ISP.EXEC.. HEX BEFORE AND AFTER
K39828.ISP.EXEC NO HEX
******************************** Bottom of Data ********************************
_________________________________________________________
e 'K39828..K39828.ISP.EXEC..' was not found in catalog. e
_________________________________________________________
//Lasse
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN
