Re: Cobal on Linux Again
Talk to Accucorp. They are very friendly and work to make sure it is the right product. We thought about implementing it, but our programmers aren't . . . . progressive. > -Original Message- > From: Gerard Graham [mailto:[EMAIL PROTECTED] > Sent: Friday, August 06, 2004 3:35 PM > To: [EMAIL PROTECTED] > Subject: Cobal on Linux Again > > > Does anyone out there have any stories about Acucobol-GT, > this is a tool > that someone in my organization is sugesting we use as a way > to move Cobal > off the expensive z/OS LPAR and unto Linux for z/series, > runing on an IFL. > I am all for it if it works but I would rather not end up > with egg on my > face if I can help it. > > > - > 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 > -- 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
Cobal on Linux Again
Does anyone out there have any stories about Acucobol-GT, this is a tool that someone in my organization is sugesting we use as a way to move Cobal off the expensive z/OS LPAR and unto Linux for z/series, runing on an IFL. I am all for it if it works but I would rather not end up with egg on my face if I can help it. - 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
Patch 3 of 3 to the UTS Global Cisco CLAW driver
This patch fixes 64-bit bugs in c7000.c so the driver will work for both 31-bit and 64-bit kernels. This is the third of three patches. Marcelo, please apply this patch. diff -urN NEWERlinux-2.4.26/drivers/s390/net/c7000.c NEWESTlinux-2.4.26/drivers/s390/net/c7000.c --- NEWERlinux-2.4.26/drivers/s390/net/c7000.c 2004-08-03 14:43:54.0 -0700 +++ NEWESTlinux-2.4.26/drivers/s390/net/c7000.c 2004-08-03 14:30:20.0 -0700 @@ -527,7 +527,7 @@ ccw1_t ccws[5];/* control ccws */ int devno; /* device number */ int irq;/* subchannel number */ - int IO_active; /* IO activity flag */ + unsigned long IO_active; /* IO activity flag */ int state; /* fsm state */ int retries;/* retry counter */ unsigned long flag_a; /* bh activity flag */ @@ -562,7 +562,7 @@ unsigned char version;/* version = 2 */ unsigned char linkid; /* link id */ struct c7000_unit cunits[NUNITS]; /* embedded units */ - int tbusy; + unsigned long tbusy; }; /* @@ -714,9 +714,9 @@ static int c7000_haltio(struct c7000_unit *cup) { - __u32 parm; + unsigned long parm; __u8flags = 0x00; - __u32 saveflags; + unsigned long saveflags; DECLARE_WAITQUEUE(wait, current); int rc; @@ -747,9 +747,9 @@ static int c7000_doio(struct c7000_unit *cup) { - __u32 parm; + unsigned long parm; __u8flags = 0x00; - __u32 saveflags; + unsigned long saveflags; DECLARE_WAITQUEUE(wait, current); int rc; @@ -985,9 +985,10 @@ bufptr = kmalloc(sizeof(struct c7000_buffer), GFP_KERNEL); data = kmalloc(C7000_BUFSIZE, GFP_KERNEL); - if (bufptr == NULL) - { - if(data) + if (bufptr == NULL || data == NULL) { + if (bufptr) + kfree(bufptr); + if (data) kfree(data); return(-1); } @@ -1286,9 +1287,9 @@ struct net_device *dev; int rc; __u16 data_length; - __u32 parm; + unsigned long parm; __u8flags = 0x00; - __u32 saveflags; + unsigned long saveflags; ccp = cup->cntlp; dev = ccp->dev; @@ -1340,6 +1341,7 @@ skb->ip_summed = CHECKSUM_UNNECESSARY; netif_rx(skb); ccp->stats.rx_packets++; + ccp->stats.rx_bytes += skb->len; } else { CPrintk(0, "c7000: c7000_irq_bh: can not allocate a skb for unit 0x%x\n", cup->devno); ccp->stats.rx_dropped++; @@ -1378,7 +1380,7 @@ return; } - parm = (__u32)cup; + parm = (unsigned long)cup; cup->state = C7000_READ; if ((rc = do_IO(cup->irq, &cup->proc_head->ccws[0], parm, 0xff, flags)) != 0) { @@ -1953,7 +1955,7 @@ struct c7000_controller*ccp = (struct c7000_controller *)dev->priv; struct c7000_unit *cup; int rc; - __u32 parm; + unsigned long parm; __u8flags = 0x00; c7000_set_busy(dev); @@ -2105,7 +2107,7 @@ */ cup->state = C7000_READ; - parm = (__u32) cup; + parm = (unsigned long)cup; set_bit(0, (void *)&cup->IO_active); if ((rc = do_IO(cup->irq, &cup->proc_head->ccws[0], parm, 0xff, flags)) != 0) { @@ -2193,8 +2195,8 @@ { struct c7000_controller*ccp = (struct c7000_controller *)dev->priv; struct c7000_unit *cup; - __u32 saveflags; - __u32 parm; + unsigned long saveflags; + unsigned long parm; __u8flags = 0x00; struct c7000_buffer*bu
Patch 2 of 3 to the UTS Global Cisco CLAW driver
This patch to c7000.c removes old kernel-version ifdefs and adds standard GPL license text. This is patch 2 of 3 for c7000.c. Marcelo, please apply this patch. diff -urN NEWlinux-2.4.26/drivers/s390/net/c7000.c NEWERlinux-2.4.26/drivers/s390/net/c7000.c --- NEWlinux-2.4.26/drivers/s390/net/c7000.c2004-08-03 14:43:27.0 -0700 +++ NEWERlinux-2.4.26/drivers/s390/net/c7000.c 2004-08-03 14:43:54.0 -0700 @@ -3,6 +3,20 @@ Author: Bob Scardapane (UTS Global LLC). Version: 3. + This program is free software; you can redistribute it and/or + modify it under the terms of the GNU General Public License as + published by the Free Software Foundation; either version 2, or + (at your option) any later version. + + This program is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + GNU General Public License for more details. + + You should have received a copy of the GNU General Public License + along with this program; if not, write to the Free Software + Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. + To use this driver, run the LINUX command: insmod c7000 base0=0x lhost0=s1 uhost0=s2 lappl0=s3 uappl0=s4 dbg=x @@ -409,16 +423,7 @@ One device structure per controller. */ -/* RBH Try out the new code for 2.4.0 */ -#define NEWSTUFF - -#ifdef NEWSTUFF -#define STRUCT_NET_DEVICE struct net_device -#else -#define STRUCT_NET_DEVICE struct device -#endif - -STRUCT_NET_DEVICE c7000_devices[MAX_C7000]; +struct net_device c7000_devices[MAX_C7000]; /* Scratch variable filled in with controller name. @@ -432,6 +437,7 @@ MODULE_AUTHOR("Robert Scardapane (UTS Global)"); MODULE_DESCRIPTION("Network module for Cisco 7000 box."); +MODULE_LICENSE("GPL"); MODULE_PARM(base0, "1i"); MODULE_PARM_DESC(base0, "Base unit address for 1st C7000 box."); @@ -526,11 +532,7 @@ int retries;/* retry counter */ unsigned long flag_a; /* bh activity flag */ devstat_t devstat;/* device status */ -#ifdef NEWSTUFF wait_queue_head_t wait; /* sleep q head */ -#else - struct wait_queue *wait; /* sleep q pointer */ -#endif struct c7000_controller *cntlp; /* controller pointer */ struct c7000_buffer *free; /* free buffer anchor */ struct c7000_buffer *proc_head; /* proc head */ @@ -551,7 +553,7 @@ struct c7000_controller { struct net_device_statsstats; /* statistics */ - STRUCT_NET_DEVICE *dev; /* -> device struct */ + struct net_device *dev; /* -> device struct */ unsigned intbase_addr; /* base address */ charlappl[NAMLEN]; /* local appl */ charlhost[NAMLEN]; /* local host */ @@ -560,9 +562,7 @@ unsigned char version;/* version = 2 */ unsigned char linkid; /* link id */ struct c7000_unit cunits[NUNITS]; /* embedded units */ -#ifdef NEWSTUFF int tbusy; -#endif }; /* @@ -579,62 +579,29 @@ Set the device structure transmission busy flag. */ -#ifdef NEWSTUFF #define c7000_set_busy(dev) netif_stop_queue(dev) -#else -static __inline__ void -c7000_set_busy(STRUCT_NET_DEVICE *dev) -{ - dev->tbusy = 1; - eieio(); - return; -} -#endif /* Clear the device structure transmission busy flag. */ -#ifdef NEWSTUFF #define c7000_clear_busy(dev) netif_wake_queue(dev) -#else -static __inline__ void -c7000_clear_busy(STRUCT_NET_DEVICE *dev) -{ - dev->tbusy = 0; - eieio(); - return; -} -#endif /* Extract the device structure transmission busy flag. */ -#ifdef NEWSTUFF #define c7000_check_busy(dev) netif_queue_stopped(dev) -#else -static __inline__ int -c7000_check_busy(STRUCT_NET_DEVICE *dev) -{ - eieio(); - return(dev->tbusy); -} -#endif /* Set a bit in the device structure transmission busy flag. */ static __inline__ void -c7000_setbit_busy(int nr, STRUCT_NET_DEVICE *dev) +c7000_setbit_busy(int nr, struct net_device *dev) { -#ifdef NEWSTUFF netif_stop_queue(dev); test_and_set_bit(nr, &((struct c7000_controller *)dev->priv)->tbusy); -#else - set_bit(nr, (void *)&dev->tbusy); -#endif return; } @@ -643,14 +610,10 @@ */ static __inline__ void -c7000_clearbit_busy(int nr, STRUCT_NET_DEVICE *dev) +c7000_clearbit_busy(int nr, struct net_device *dev) { -#ifdef NEWSTUFF clear_bit(nr, &((
Patch 1 of 3 to the UTS Global Cisco CLAW driver
This patch fixes a c7000.c bug where packets can be lost under heavy workload. Two more c7000.c patches are to come; this is patch 1 of 3. Marcelo, please apply this patch. diff -urN linux-2.4.26/drivers/s390/net/c7000.c NEWlinux-2.4.26/drivers/s390/net/c7000.c --- linux-2.4.26/drivers/s390/net/c7000.c 2003-08-25 04:44:42.0 -0700 +++ NEWlinux-2.4.26/drivers/s390/net/c7000.c2004-08-03 14:43:27.0 -0700 @@ -1403,6 +1403,7 @@ Rechain the buffer on the running channel program. */ + buf->ccws[3].cda = buf->ccws[5].cda = (__u32)virt_to_phys(&buf->ccws[6]); if (pbuf != NULL) pbuf->ccws[3].cda = pbuf->ccws[5].cda = (__u32)virt_to_phys(&buf->ccws[0]); @@ -2970,7 +2971,7 @@ dev->addr_len = 0; dev->type = ARPHRD_SLIP; dev->tx_queue_len = C7000_TXQUEUE_LEN; - dev->flags = IFF_NOARP; + dev->flags = IFF_BROADCAST|IFF_MULTICAST|IFF_NOARP; dev->open = c7000_open; dev->stop = c7000_stop; dev->set_config = c7000_config; -- 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
Three patches to the UTS Global Cisco CLAW driver
Here are three patches to drivers/s390/net/c7000.c, the UTS Global Cisco CLAW driver, in three separate subsequent emails. The first patch fixes a bug where packets can be lost under heavy workload. The second patch removes old kernel-version ifdefs and adds standard GPL license text. The third patch fixes 64-bit bugs so the driver will work for both 31-bit and 64-bit kernels. The patches should apply cleanly to any kernel 2.4.22 or more recent. Marcelo, please apply the patches. Thanks. Dick Hitt [EMAIL PROTECTED] -- 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
Patches for 64-bit 3270 fullscreen operation
Here are two patches that allow operation of ned, the (31-bit) UTS Global full-screen 3270 editor, on 64-bit zSeries machines. Each patch changes arch/s390x/kernel/ioctl32.c to enable processing of the 3270 ioctl commands. The first patch was developed on the Red Hat 2.4.21-15.EL kernel but should work with offsets on all other recent 2.4 kernels. RedHat, please apply this patch. The second patch was developed on Marcelo's 2.4.27-rc5 kernel. Marcelo, please apply this patch. For other 2.4 kernen versions, one or the other patch will probably apply with only offsets; in any case, interpolation should be easy. Start of patch for Red Hat 2.4.21-15.EL diff -urN linux-2.4.21-15.EL/arch/s390x/kernel/ioctl32.c linux-2.4.21-15.ELcustom/arch/s390x/kernel/ioctl32.c --- linux-2.4.21-15.EL/arch/s390x/kernel/ioctl32.c 2004-04-21 21:08:47.0 -0700 +++ linux-2.4.21-15.ELcustom/arch/s390x/kernel/ioctl32.c2004-08-04 16:06:29.0 -0700 @@ -35,6 +35,7 @@ #include #include #include +#include "../../../drivers/s390/char/tubio.h" #include #include @@ -861,6 +862,12 @@ IOCTL32_HANDLER(HDIO_GETGEO, hd_geometry_ioctl), + IOCTL32_DEFAULT(TUBICMD), + IOCTL32_DEFAULT(TUBOCMD), + IOCTL32_DEFAULT(TUBGETI), + IOCTL32_DEFAULT(TUBGETO), + IOCTL32_DEFAULT(TUBSETMOD), + IOCTL32_DEFAULT(TUBGETMOD), IOCTL32_DEFAULT(TCGETA), IOCTL32_DEFAULT(TCSETA), IOCTL32_DEFAULT(TCSETAW), End of patch for Red Hat 2.4.21-15.EL Start of patch for 2.4.27-rc5 diff -urN linux-2.4.26/arch/s390x/kernel/ioctl32.c NEWlinux-2.4.26/arch/s390x/kernel/ioctl32.c --- linux-2.4.26/arch/s390x/kernel/ioctl32.c2003-08-25 04:44:40.0 -0700 +++ NEWlinux-2.4.26/arch/s390x/kernel/ioctl32.c 2004-08-05 18:14:56.0 -0700 @@ -34,6 +34,7 @@ #include #include #include +#include "../../../drivers/s390/char/tubio.h" #include "linux32.h" @@ -535,6 +536,12 @@ IOCTL32_HANDLER(HDIO_GETGEO, hd_geometry_ioctl), + IOCTL32_DEFAULT(TUBICMD), + IOCTL32_DEFAULT(TUBOCMD), + IOCTL32_DEFAULT(TUBGETI), + IOCTL32_DEFAULT(TUBGETO), + IOCTL32_DEFAULT(TUBSETMOD), + IOCTL32_DEFAULT(TUBGETMOD), IOCTL32_DEFAULT(TCGETA), IOCTL32_DEFAULT(TCSETA), IOCTL32_DEFAULT(TCSETAW), End of patch for 2.4.27-rc5 Dick Hitt [EMAIL PROTECTED] -- 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
Re: [PATCH] cputime (3/6): move jiffies stuff to jiffies.h
On Freitag, 6. August 2004 12:45, Martin Schwidefsky wrote: > The times man pages says that the struct tms is defined in sys/times.h. > This doesn't make it necessary to have a linux/times.h header file. > These are kernel headers and not user space headers. Does anybody think > it's important to keep the user/kernel header files names similar ? I suppose the main point is that stuff like klibc it is better to keep the existing obvious implementation of sys/times.h instead of changing it to a less obvious one. Right now, all non linux specific klibc/include/sys/foo.h files start with #include , which just makes sense. Arnd <>< -- 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 pgp8eV8pmpRiW.pgp Description: signature
Re: [PATCH] cputime (3/6): move jiffies stuff to jiffies.h
> > --- linux-2.6.8-rc3/include/linux/times.h Wed Jun 16 07:18:57 2004 > > +++ linux-2.6.8-s390/include/linux/times.h Thu Jan 1 01:00:00 1970 > > @@ -1,65 +0,0 @@ > ... > > - > > -struct tms { > > - clock_t tms_utime; > > - clock_t tms_stime; > > - clock_t tms_cutime; > > - clock_t tms_cstime; > > -}; > > - > > This should probably stay in linux/times.h, in order to be moved > to abi/times.h one day. glibc has its own sys/times.h, but struct > tms simply belongs into times.h, not time.h, according to the > times man page. The times man pages says that the struct tms is defined in sys/times.h. This doesn't make it necessary to have a linux/times.h header file. These are kernel headers and not user space headers. Does anybody think it's important to keep the user/kernel header files names similar ? blue skies, Martin Linux/390 Design & Development, IBM Deutschland Entwicklung GmbH Schönaicherstr. 220, D-71032 Böblingen, Telefon: 49 - (0)7031 - 16-2247 E-Mail: [EMAIL PROTECTED] -- 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
Re: Backup from MVS (aka: OS/390, z/OS)
I have three flavors of Linux/390 (Debian, Tao, and Gentoo) on 3390 DASD using the CDL format. With the Linux partition (no z/VM) down I used FDR full volume dumps to backup the disks. Below is the JCL that I used, //DUMP1 EXEC PGM=FDR //SYSPRINT DD SYSOUT=* //SYSPRIN1 DD SYSOUT=* //SYSUDUMP DD SYSOUT=* //SYSMAP DD SYSOUT=* //DISK1 DD UNIT=SYSDA,DISP=OLD,VOL=SER=DEBROT //TAPE1 DD DSN=BHSRP.DEBROT.DT070604,DISP=(,CATLG,DELETE), // UNIT=TAPE,VOL=(,,,255),LABEL=RETPD=30 //SYSIN DD * DUMP TYPE=FDR,COMPRESS=ALL Here is a screen shot of ISPF option 3.4 of volume DEBROT (Debian/390 Root) ISRUDSL0 Data Sets on volume DEBROT Row 1 of 1 Command ===> Scroll ===> CSR Command - Enter "/" to select action Tracks %Used XT Device --- LINUX.VLX3E09.PART0001.NATIVE 50083? 1 3390 >>> [EMAIL PROTECTED] 08/06/04 12:11AM >>> Hi all... For those of you with your penguins in LPARs Are you able to back up your Linux volumes (with Linux down) from MVS? If so, is anyone using FDR, and is it working? And if so (again), could you share the JCL and control statements you're using? Or from the flip side, has anyone else tried an FDR backup and had it abend (on a CDL formatted volume) saying it's a bad VTOC? Thanks, Lee Lee Stewart, Senior SE Sirius Enterprise Systems Group (719) 566-0188 , Fax (309) 410-5363 [EMAIL PROTECTED] www.siriuscom.com -- 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
Re: VM Pricing
> All the pricing information is in there. Jim: Unfortunately for users in EMEA (and AP) pricing information is NOT specified. The EMEA announcement also omits an explanation of engine-based value unit pricing. Geoff McKee Emirates Group Dubai, UAE -- 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
2004-08-06 Linux for zSeries code drop to developerWorks
Please see the "What's New" page at: http://www10.software.ibm.com/developerworks/opensource/linux390/whatsnew.shtml OCOs for Red Hat: - tape_3590 for RHEL AS v.3, kernel version 2.4.21-15.0.4.EL dated 2004-08-06 Happy downloading! * end of message Mit freundlichen Grüßen / Best regards, Axel Wirbser IBM Germany Development Lab, Dept. 4357 BPL Software Management Phone: ..49-7031-16-2088 Internet: [EMAIL PROTECTED] IBM Deutschland GmbH, Schönaicher Str. 220, 71032 Böblingen -- 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
Re: [PATCH] cputime (1/6): move call to update_process_times.
> > Wouldn't it be possible to move the #ifndef into sched.h? > > You can't simply define it to a nop in case of SMP, because > there it is called from a different place, but we could > have a separate version for UP and SMP in sched.h: > > void update_process_times(int user_tick); > static inline void update_process_times_nonsmp(int user_tick) > { > #ifndef CONFIG_SMP > update_process_times(user_tick); > #endif > } Well, the #ifndef can just be removed for most of the architectures because they are non-smp architectures anyway. But to avoid breaking anything I decided to play safe and move the whole #ifndef block. It's up to the arch maintainer to remove the #ifndef if the arch doesn't need it. The reason for moving the #ifndef is twofold. 1) it's just confusing that a common code function depends on CONFIG_SMP in the way do_timer does. do_timer should do just one thing, and not two but only if this is a non-smp kernel. 2) do_timer and update_process_times needs to get separated to make it possible to account cputime independent of the xtime updates. blue skies, Martin Linux/390 Design & Development, IBM Deutschland Entwicklung GmbH Schönaicherstr. 220, D-71032 Böblingen, Telefon: 49 - (0)7031 - 16-2247 E-Mail: [EMAIL PROTECTED] -- 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
Didn't see this mentioned here
Was I asleep at the keyboard again? 304127 Linux Scholar Challenge 2004 http://www.ibm.com/isource/cgi-bin/goto?it=usa_annred&on=304-127 -- Phil Payne http://www.isham-research.com +44 7785 302 803 -- 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