Speaking of ooRexx on z/Linux.....Has anyone managed to implement a mainframe compatible (z/VM) version of EXECIO?
George Shedlock Jr AEGON Information Technology AEGON USA 502-560-3541 -----Original Message----- From: Linux on 390 Port [mailto:[email protected]] On Behalf Of Lionel Dyck Sent: Tuesday, August 18, 2009 2:01 PM To: [email protected] Subject: Sample REXX with cmsfs usage 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 ---------------------------------------------------------------------- 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
