I've been playing with rexx on z/linux along with trying to learn how to
use the cmsfs toolset. Here is my first attempt that may be useful for
others.
#!/usr/bin/rexx
/* REXX routine to read a cms file from the Linux Guest 191 Disk */
arg filename
/* check the filename */
if length(filename) = 0 then do
say "Error: No filename specified"
exit 8
end
/* Mount the users 191 disk */
'chccwdev -e 191'
/* sleep 2 seconds to wait for the mount */
call syssleep(2)
file = '/proc/dasd/devices'
do forever
line = strip(linein(file))
if length(line) = 0 then leave
parse value line with '0.0.'addr'(' x ' is 'disk .
if addr = '0191' then leave
end
say 'disk: *'disk'* file:' filename
'cmsfscat -d /dev/'disk '-a' filename
'chccwdev -d 191'
Lionel B. Dyck, z/Linux Virtualization Specialist
IBM Global Services - Kaiser Permanente Team
Linux on System z Service Delivery Team
925-926-5332 (8-473-5332) | E-Mail: [email protected]
AIM: lbdyck | Yahoo IM: lbdyck
I never guess. It is a capital mistake to theorize before one has data.
Insensibly one
begins to twist facts to suit theories, instead of theories to suit facts.
- Sir Arthur Conan Doyle
----------------------------------------------------------------------
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
