IBM Mainframe Forum

by **fuuss** » Thu Jan 21, 2010 4:27 pm

Hey
Still working on some problems
I am working on a Rexx which is executed in the OMVS so the USS

I tried to open a dataset from the MVS system of our Mainframe

Select all

address TSO "ALLOC F(IN) DA('ci.sys.ftp.script(FTPFRACC)'),
SHR REU"
if RC>0 then exit
/* Read all the records in to array Lines. */
address TSO "EXECIO * DISKR IN (STEM record1. finis"
/**********************************************/
address TSO "say substr(record1.1,1,20)"

this doesn't work at all , how could I manage this

second question is how can I open a Linux file ( path /user/test/ps.out ) which has several lignes ( for exemple 3)

Select all

/user/cisyscl/test/Timestamp.55554ah.log
/user/cisyscl/test/Timestamp.bl2003abhlah.log
/user/cisyscl/test/Timestamp.blabhlah.log

and working with every ligne .

It's not that easy going from MVS to USS

I hope you may help me ,

thanks in advance

by **Robert Sample** » Thu Jan 21, 2010 6:32 pm

Allocating to DA is allocating to a z?OS dataset. You must use PATH to allocate to a z/OS Unix System Services file.

by **fuuss** » Thu Jan 21, 2010 6:33 pm

Ok here we have already a solution for the second Question

Select all

/* rexx */
call syscalls 'ON'
address syscall
'readfile /user/cisyscl/test/test.out list.'

I was too simple I didn't get it hehe sorry but still posting it here ,

by **enrico-sorichetti** » Fri Jan 22, 2010 1:07 pm

this doesn't work at all , how could I manage this

usual comment about it does not work attitude
too bad... we all hope that You can fix it soon!

a few cocerns
after the alloc why not display the return code before exiting?
after the execio why not test and display the return code
usually the return codes will give an insight on the why something does not work

IBM Mainframe Forum

USS Z/OS REXX

USS Z/OS REXX

Re: USS Z/OS REXX

Re: USS Z/OS REXX

Re: USS Z/OS REXX