I have a REXX EXEC that copies a MVS file to zFS file. The zFS file is used as
input to create a chart under Windows.
When the REXX EXEC runs, the file is copied without any text conversion. Here
are REXX statements:
infile = 'CP.EN.X20.TRNCOUNT.VB'
outfile = path || '/TRNCOUNT.CSV'
chmod_command = "chmod " || outfile " 777"
say outfile
say chmod_command
"allocate ddname(fileout) pathopts(ordwr,ocreat) pathdisp(keep,keep) ,
path('" || outfile || "')"
"allocate ddname(filein) DA('CP.EN.X20.TRNCOUNT.VB') shr"
"ocopy indd(filein) outdd(fileout) text convert(yes) pathopts(use)"
if rc ¬= 0
then say "ocopy failed for CP.EN.X20.TRNCOUNT.VB ,
(RC=" || rc || ")"
address syscall chmod_command
"free ddname(fileout)"
"free ddname(filein)"
And this is the results from the SYSTSPRT:
. 50 *-* infile = 'CP.EN.X20.TRNCOUNT.VB'
. >>> "CP.EN.X20.TRNCOUNT.VB"
. 51 *-* outfile = path || '/TRNCOUNT.CSV'
. >>> "/etc/u/dept976/Departmental/CICS_Graphs/CSV/TRNCOUNT.CSV"
. 52 *-* chmod_command = "chmod " || outfile " 777"
. >>> "chmod /etc/u/dept976/Departmental/CICS_Graphs/CSV/TRNCOUNT.CSV
777"
. 53 *-* say outfile
. >>> "/etc/u/dept976/Departmental/CICS_Graphs/CSV/TRNCOUNT.CSV"
./etc/u/dept976/Departmental/CICS_Graphs/CSV/TRNCOUNT.CSV
. 54 *-* say chmod_command
. >>> "chmod /etc/u/dept976/Departmental/CICS_Graphs/CSV/TRNCOUNT.CSV
777"
.chmod /etc/u/dept976/Departmental/CICS_Graphs/CSV/TRNCOUNT.CSV 777
. 55 *-* "allocate ddname(fileout) pathopts(ordwr,ocreat)
pathdisp(keep,keep) , path('" || outfile || "')"
. >>> "allocate ddname(fileout) pathopts(ordwr,ocreat)
pathdisp(keep,keep) , path('/etc/u/dept976/Departmental/CICS
._Graphs/CSV/TRNCOUNT.CSV')"
. 57 *-* "allocate ddname(filein) DA('CP.EN.X20.TRNCOUNT.VB') shr"
. >>> "allocate ddname(filein) DA('CP.EN.X20.TRNCOUNT.VB') shr"
. 58 *-* "ocopy indd(filein) outdd(fileout) text convert(yes) pathopts(use)"
. >>> "ocopy indd(filein) outdd(fileout) text convert(yes)
pathopts(use)"
. 59 *-* if rc ¬= 0
. >>> "0"
. 62 *-* address syscall chmod_command
. >>> "chmod /etc/u/dept976/Departmental/CICS_Graphs/CSV/TRNCOUNT.CSV
777"
The resulant zFS file is a copy of the MVS file - no text conversion.
I don't know why this is happening. I have a more complex REXX EXEC that
transfers
approximatedly 120 files in the same manner. I have no problems with the second
REXX EXEC.
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
