What I did was replaace all READ , OPEN WRITE CLOSE with ASSWMBLE
CALL... In the PL/I the OPEN becomes BPXOPEN(FD,lenth,PATH_NAME,LRECL)
return FD
and READ becomes
BPXREAD(FD,length,PATHNAME,record_number,Number_of_records,lrecl) .
David Boyes
<[EMAIL PROTECTED]
e.net> To
Sent by: Linux on [email protected]
390 Port cc
<[EMAIL PROTECTED]
ist.edu> Subject
Re: NFS mount from z/OS
08/13/2006 09:27
PM
Please respond to
Linux on 390 Port
<[EMAIL PROTECTED]
ist.edu>
> Currently I have a CMS program written in PL/I and APL2 that reads
and
> writes to LINUX filesystem using BPXOPEN... READ, WRITE.. etc... The
> READ
> and WRITE has LSEEK in it.
> This allow direct access to a record in a file.
PL/I *and* APL? You *are* a glutton for punishment, aren't you? 8-)
> I am thinking of moving the PLI programs and the assemble subroutes
to
> z/OS, and if you know there are any issues or suggestions on it.
Thanks
NFS presents a file system and the access method support to do regular
file i/o to that filesystem as a series of network transactions under
the covers. It's not clear from your note whether you're doing direct
modifications to the blocks on disk; if so, that code will need to
change as NFS servers don't give that level of access to remote clients
-- it's a file-oriented service. You may have to remove all that fooling
around with BPXOPEN and just use regular file I/O, or worst case, call
the C library functions that do higher-level file I/O in place of doing
raw block I/O directly.
If you can get away with using regular file I/O, there are some
limitations on what file access methods are supported via the NFS
client, so not all the z/OS access methods work. Beyond that, we'd need
to know more about what the application is currently doing.
----------------------------------------------------------------------
For LINUX-390 subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: INFO LINUX-390 or
visit
http://www.marist.edu/htbin/wlvindex?LINUX-390
-----------------------------------------
This message and its attachments may contain privileged and
confidential information. If you are not the intended recipient(s),
you are prohibited from printing, forwarding, saving or copying this
email. If you have received this e-mail in error, please immediately
notify the sender and delete this e-mail and its attachments from your
computer.
----------------------------------------------------------------------
For LINUX-390 subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: INFO LINUX-390 or visit
http://www.marist.edu/htbin/wlvindex?LINUX-390
