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 <IBM-MAIN@LISTSERV.UA.EDU> on behalf of 
Lars Höglund <lars.hogl...@alecta.se>
Sent: Thursday, November 9, 2023 3:31 AM
To: IBM-MAIN@LISTSERV.UA.EDU
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 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

Reply via email to