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
