Problem with Backslash Character String \ in REXX and CLIST

James Jones · New User Joined: 10 Aug 2007 Posts: 2 Location: Oakland

Hello,

I am attempting a file transfer using the ISPF Worstation Connection. I have already successfully made the connection.

The problem is that the MS-DOS directory path is not being recognised within either a CLIST nor in REXX. The backslash character \ seems to be interpreted as an escape character. I have even tried the double backslash \\ to no avail. in both cases the script converts the backslash '\' to an asterisk '*'.

The result is the message "Workstation file does not exist" because an invalid filename is being presented.

I have my code examples below: a REXX script and a CLIST

Thanks!

===============================================

/*----- REXX ----------------*/
/* TRACE all */
/*-----------------------------*/

arg TSOCMD
/*address ISPEXEC "CONTROL ERRORS RETURN" */
address TSO

file = "C:\Documents and Settings\T881373\My Documents\Status Reports"
say file
dsn = sysvar('sysuid')||.ISPFCS.||'T'||random(1,99999)
address ISPEXEC "FILESTAT FILE(FILE) LRECL(MAXREC)"
maxrec = maxrec + 4
maxblk = maxrec * 100

"ALLOC DS('"dsn"') UNIT(VIO) NEW RECFM(V B)",
" LRECL("MAXREC") BLKSIZE("MAXBLK") TRACKS SPACE(5,5)"

address ISPEXEC "FILEXFER HOST(DSN) WS(FILE) TO(HOST) TEXT"
address ISPEXEC "BROWSE DATASET('"dsn"')"

"DELETE '"dsn"'"

===============================================

PROC 0
CONTROL MAIN ASIS FLUSH NOCAPS NOCONLIST NOLIST NOPROMPT NOSYMLIST
/*CONTROL MAIN ASIS CONLIST FLUSH LIST MSG NOCAPS PROMPT SYMLIST
/***********************************************************************

CLRSCRN
SET FILE = +
&STR(C:\Documents and Settings\T881373\My Documents\Status Reports)
SET DSN = '&SYSUID..ISPFCS.TEMP'
ISPEXEC VPUT (DSN FILE) SHARED

ISPEXEC CONTROL ERRORS RETURN
ISPEXEC FILESTAT FILE(FILE) LRECL(MAXREC)
SET &RETCODE = &LASTCC
SELECT (&RETCODE)
WHEN (0) WRITE Workstation file exists.
WHEN (4) WRITE Workstation file does not exist.
WHEN (8) WRITE Error in variable specification.
WHEN (10) WRITE No workstation connection exists.
WHEN (12) WRITE Workstation device is not ready.
WHEN (20) WRITE Severe error in FILESTAT service.
OTHERWISE
END
SET &MAXREC = &MAXREC + 8
SET &MAXBLK = &MAXREC * 100

ALLOCATE DATASET(&DSN) NEW UNIT(VIO) RECFM(V B) +
LRECL(&MAXREC) BLKSIZE(&MAXBLK) TRACKS SPACE(5,5)

ISPEXEC FILEXFER HOST(DSN) WS(FILE) TO(HOST) TEXT
SET &RETCD = &LASTCC
SELECT (&RETCODE)
WHEN (2) WRITE &STR( Source file and target file) +
&STR(have the same date and time.)
WHEN (4) WRITE LMSTAT failed.
WHEN (6) WRITE LMINIT failed.
WHEN (7) WRITE Error in variable specification.
WHEN (8) WRITE &STR("TO" direction not valid.)
WHEN (9) WRITE Host name is too long.
WHEN (10) WRITE No workstation connection exists.
WHEN (11) WRITE &STR(Return code 1 from DTTRANSFER.) +
&STR(Host data set had null object handle.)
WHEN (12) WRITE &STR(Return code 2 from DTTRANSFER.) +
&STR(Workstation file had null object handle.)
WHEN (13) WRITE &STR(Return code 3 from DTTRANSFER.) +
&STR(Host data set could not be opened.)
WHEN (14) WRITE &STR(Return code 4 from DTTRANSFER.) +
&STR(Workstation file could not be opened.)
WHEN (15) WRITE &STR(Return code 5 from DTTRANSFER.) +
&STR(Error reading host data set.)
WHEN (16) WRITE &STR(Return code 6 from DTTRANSFER.) +
&STR(Error reading workstation file.)
WHEN (17) WRITE &STR(Return code 7 from DTTRANSFER.) +
&STR(Error writing host data set.)
WHEN (18) WRITE &STR(Return code 8 from DTTRANSFER.) +
&STR(Error writing workstation file.)
WHEN (19) WRITE &STR(Return code 9 from DTTRANSFER.) +
&STR(Error closing host data set.)
WHEN (20) WRITE Severe error in transfer service.
WHEN (21) WRITE &STR(Return code 10 from DTTRANSFER.) +
&STR(Error closing workstation file.)
WHEN (22) WRITE &STR(Return code 11 from DTTRANSFER.) +
&STR(User refused file access.)
WHEN (23) WRITE Data set or member in use.
OTHERWISE
END

ISPEXEC BROWSE DATASET(&DSN)
SET &RETCODE = &LASTCC
SELECT (&RETCODE)
WHEN (0)
WHEN (12) WRITE Empty data set.
WHEN (14) WRITE Specified member not found.
WHEN (16) WRITE No members matched or found.
WHEN (18) WRITE VSAM processing not supported under ISPF.
WHEN (20) WRITE Severe error.
OTHERWISE
END

IF &SYSDSN(&DSN) = OK THEN DELETE &DSN

EXIT CODE(&MAXCC)

==============> CLIST EXECUTION RESULTS:

SET FILE = &STR(C::Documents and Settings:T881373:My Documents:Status Reports)
SET FILE = C::Documents and Settings:T881373:My Documents:Status Reports
SET DSN = '&SYSUID..ISPFCS.TEMP'
SET DSN = 'T881373.ISPFCS.TEMP'
ISPEXEC VPUT (DSN FILE) SHARED
ISPEXEC VPUT (DSN FILE) SHARED
ISPEXEC CONTROL ERRORS RETURN
ISPEXEC CONTROL ERRORS RETURN
ISPEXEC FILESTAT FILE(FILE) LRECL(MAXREC)
ISPEXEC FILESTAT FILE(FILE) LRECL(MAXREC)
SET &RETCODE = &LASTCC
SET &RETCODE = 4
SELECT (&RETCODE)
SELECT (4)
WHEN (0)
WHEN (0)
WHEN (4)
WHEN (4)
WRITE Workstation file does not exist.
***

dbzTHEdinosauer · Posted: Sat Aug 11, 2007 12:41 pm

even though this example from the book is from host to ws, it saves the filenames in the variable pool, which you do not in your rexx script:

dbzTHEdinosauer · Posted: Sat Aug 11, 2007 2:24 pm

please use [code] and [/code] tags,it makes your posts easier to read. For info use this link for BBCode.

James Jones · New User Joined: 10 Aug 2007 Posts: 2 Location: Oakland

Thanks, dbzTHEdinosauer for the quick reply.

Yes I meant to say that the backslash is being replaced with a colon rather than an asterisk.

I tried putting the values in the variable pool in the REXX script (as in the CLIST) and I'm getting the same results:

dbzTHEdinosauer · Posted: Tue Aug 14, 2007 12:55 am

James,

I hesitate to say that you have an old/odd codeset on your MF. It could be your keyboard mapping from your emulator.

If I were you, I would write a quick rexx that saved to a variable pool every bit combination asc(00) to asc(255) and determine what hex value you have to use to generate a backslash.