Re: COBDFSYM With COBOL 410 - ((attn Frank Yeager??))
Andy Robertson wrote on 09/20/2009 05:05:39 AM: Thanks, Frank, Martin; the problem was my cut-and-pasting from PDF. In fact the standard version of COBDFSYM works well with 410. Apologies for timewasting. Good to hear. Thanks for letting us know. Frank Yaeger - DFSORT Development Team (IBM) - yae...@us.ibm.com Specialties: FINDREP, WHEN=GROUP, DATASORT, ICETOOL, Symbols, Migration = DFSORT/MVS is on the Web at http://www.ibm.com/storage/dfsort/ -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: COBDFSYM With COBOL 410 - ((attn Frank Yeager??))
Thanks, Frank, Martin; the problem was my cut-and-pasting from PDF. In fact the standard version of COBDFSYM works well with 410. Apologies for timewasting. Andy Robertson ** This email is confidential and may contain copyright material of the John Lewis Partnership. If you are not the intended recipient, please notify us immediately and delete all copies of this message. (Please note that it is your responsibility to scan this message for viruses). Email to and from the John Lewis Partnership is automatically monitored for operational and lawful business reasons. ** John Lewis plc Registered in England 233462 Registered office 171 Victoria Street London SW1E 5NN Websites: http://www.johnlewis.com http://www.waitrose.com http://www.greenbee.com http://www.johnlewispartnership.co.uk ** -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: COBDFSYM With COBOL 410 - ((attn Frank Yeager??))
I'm wondering if COBDFSYM shouldn't become open source or similar. Given the (apparent) loose ownership of the code. But I'm just wondering, not proposing. The advantage would be that interested parties could work on it. Martin Martin Packer Performance Consultant IBM United Kingdom Ltd +44-20-8832-5167 +44-7802-245-584 email: martin_pac...@uk.ibm.com Twitter ID: MartinPacker They're figuring out that collaboration isn't a productivity hit, it makes them smarter. Sam Palmisano on BlogCentral, 26 November 2008 Frank Yaeger wrote: ... Andy Robertson wrote on 09/18/2009 03:30:01 PM: Could you maybe send me a copy offlist (as a .txt file will do?) I suspect I've copied the exec from the pdf wrong somehow . . . though I can not see how. You can download cobdfsym.txt from the DFSORT FTP site at: ftp://ftp.software.ibm.com/storage/dfsort/mvs/ Frank Yaeger - DFSORT Development Team (IBM) - yae...@us.ibm.com Specialties: FINDREP, WHEN=GROUP, DATASORT, ICETOOL, Symbols, Migration DFSORT/MVS is on the Web at http://www.ibm.com/storage/dfsort/ Unless stated otherwise above: IBM United Kingdom Limited - Registered in England and Wales with number 741598. Registered office: PO Box 41, North Harbour, Portsmouth, Hampshire PO6 3AU -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: COBDFSYM With COBOL 410 - ((attn Frank Yeager??))
It is a REXX exec and contains the following comment line: *** Freeware courtesy of SEB IT Partner and IBM *** So, if you're interested, work away! Greg Shirey Ben E. Keith Company -Original Message- From: IBM Mainframe Discussion List On Behalf Of Martin Packer Sent: Saturday, September 19, 2009 2:50 AM I'm wondering if COBDFSYM shouldn't become open source or similar. Given the (apparent) loose ownership of the code. But I'm just wondering, not proposing. The advantage would be that interested parties could work on it. Martin -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
COBDFSYM With COBOL 410 - ((attn Frank Yeager??))
We are trying to use COBDFSYM to convert COBOL copybooks to SYMPARMS input for ICETOOL COBDFSYM is in the dfsort tricks pdf at http://www-01.ibm.com/support/docview.wss?uid=isg3T794 The copybook is compiled and the output analysed by COBDFSYM to create SYMPARMS input With COBOL 410 input we seem to be getting fields in the listing which have new offsets the current COBDFSYM cannot handle eg: 89 *-* parse pull line LineID PL SL +-*A-1-B--+2+3+4+- ference 90 *-* end 88 *-* do until substr(line,2,16) = ' LineID PL SL ' V LineID PL SL +-*A-1-B--+2+3+4+-- erence L2 L16 F LineID PL SL L LineID PL SL O0 89 *-* parse pull line 0 01 IDENTIFICATION DIVISION. 90 *-* end 88 *-* do until substr(line,2,16) = ' LineID PL SL ' V0 01 IDENTIFICATION DIVISION. L2 L16 F 01 L LineID PL SL O0 89 *-* parse pull line I'm quite happy to plunge in and start debugging, but Id like to ask first if there is a version adapted for 410 available already Andy Robertson ** This email is confidential and may contain copyright material of the John Lewis Partnership. If you are not the intended recipient, please notify us immediately and delete all copies of this message. (Please note that it is your responsibility to scan this message for viruses). Email to and from the John Lewis Partnership is automatically monitored for operational and lawful business reasons. ** John Lewis plc Registered in England 233462 Registered office 171 Victoria Street London SW1E 5NN Websites: http://www.johnlewis.com http://www.waitrose.com http://www.greenbee.com http://www.johnlewispartnership.co.uk ** -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: COBDFSYM With COBOL 410 - ((attn Frank Yeager??))
Andy, We have COBOL 4.1 here and have used the same COBDFSYM REXX since December 2005, and it works for us. There is a restriction that the copybook member must have an 01 level to work properly, but I don't recall what error that causes. Greg Shirey Ben E. Keith Company -Original Message- From: IBM Mainframe Discussion List On Behalf Of Andy Robertson Sent: Friday, September 18, 2009 10:51 AM We are trying to use COBDFSYM to convert COBOL copybooks to SYMPARMS input for ICETOOL COBDFSYM is in the dfsort tricks pdf at http://www-01.ibm.com/support/docview.wss?uid=isg3T794 The copybook is compiled and the output analysed by COBDFSYM to create SYMPARMS input snip I'm quite happy to plunge in and start debugging, but Id like to ask first if there is a version adapted for 410 available already -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: COBDFSYM With COBOL 410 - ((attn Frank Yeager??))
Andy Robertson wrote on 09/18/2009 08:50:56 AM: We are trying to use COBDFSYM to convert COBOL copybooks to SYMNAMES input for ICETOOL COBDFSYM is in the dfsort tricks pdf at http://www.ibm.com/support/docview.wss?rs=114uid=isg3T794 The copybook is compiled and the output analysed by COBDFSYM to create SYMNAMES input With COBOL 410 input we seem to be getting fields in the listing which have new offsets the current COBDFSYM cannot handle ... I'm quite happy to plunge in and start debugging, but Id like to ask first if there is a version adapted for 410 available already Andy, I didn't write the original COBDFSYM tool. I obtained it from somebody else who was no longer maintaining it, and I spruced it up a bit. I don't actually have access to COBOL 410 and I'm not a COBOL programmer. So please do plunge in. If you do create a new version that handles COBOL 410, please send it to me and I'll add it to the tricks with an acknowledgement of your contribution. Thanks. Frank Yaeger - DFSORT Development Team (IBM) - yae...@us.ibm.com Specialties: FINDREP, WHEN=GROUP, DATASORT, ICETOOL, Symbols, Migration = DFSORT/MVS is on the Web at http://www.ibm.com/storage/dfsort/ -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: COBDFSYM With COBOL 410 - ((attn Frank Yeager??))
An interesting discussion about COBDFSYM, particularly as I plug it in the Batch Modernization Redbook that's currently in review. Martin Martin Packer Performance Consultant IBM United Kingdom Ltd +44-20-8832-5167 +44-7802-245-584 email: martin_pac...@uk.ibm.com Twitter ID: MartinPacker They're figuring out that collaboration isn't a productivity hit, it makes them smarter. Sam Palmisano on BlogCentral, 26 November 2008 Unless stated otherwise above: IBM United Kingdom Limited - Registered in England and Wales with number 741598. Registered office: PO Box 41, North Harbour, Portsmouth, Hampshire PO6 3AU -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
COBDFSYM With COBOL 410 - ((attn Frank Yeager??))
USER BEWARE I have NOT tried it, but the thing that I expect WILL impact COBDFSYM is the fact that Enterprise COBOL V4R2 (not V4R1) *DOES* allow for underscores in user-defined words - even as the last character of the user-defined word. Consider (in particular) a (valid in Enterprise COBOL V4R2) 01-level of 01 Group1. 05 A-B Pic X. 05 A_B Pic 9. 05 XYZ_ Pic 99 Comp-5 I have NOT tried it, but I do think that COBDFSYM may well have problems with such a record layout. NOTE: I have already sent in an RCF that the Enterprise COBOL V4R2 Migration Guide (and/or programming guide) needs more (ANY!!!) information on use of the underscore and its inter-action with other software. Andy Robertson andy_robert...@johnlewis.co.uk wrote in message news:ofec1d40c0.48c86a44-on80257635.00570fcb-80257635.00570...@johnlewis.co .uk... We are trying to use COBDFSYM to convert COBOL copybooks to SYMPARMS input for ICETOOL COBDFSYM is in the dfsort tricks pdf at http://www-01.ibm.com/support/docview.wss?uid=isg3T794 The copybook is compiled and the output analysed by COBDFSYM to create SYMPARMS input With COBOL 410 input we seem to be getting fields in the listing which have new offsets the current COBDFSYM cannot handle eg: 89 *-* parse pull line LineID PL SL +-*A-1-B--+2+3+4+- ference 90 *-* end 88 *-* do until substr(line,2,16) = ' LineID PL SL ' V LineID PL SL +-*A-1-B--+2+3+4+-- erence L2 L16 F LineID PL SL L LineID PL SL O0 89 *-* parse pull line 0 01 IDENTIFICATION DIVISION. 90 *-* end 88 *-* do until substr(line,2,16) = ' LineID PL SL ' V0 01 IDENTIFICATION DIVISION. L2 L16 F 01 L LineID PL SL O0 89 *-* parse pull line I'm quite happy to plunge in and start debugging, but Id like to ask first if there is a version adapted for 410 available already Andy Robertson ** This email is confidential and may contain copyright material of the John Lewis Partnership. If you are not the intended recipient, please notify us immediately and delete all copies of this message. (Please note that it is your responsibility to scan this message for viruses). Email to and from the John Lewis Partnership is automatically monitored for operational and lawful business reasons. ** John Lewis plc Registered in England 233462 Registered office 171 Victoria Street London SW1E 5NN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: COBDFSYM With COBOL 410 - ((attn Frank Yeager??))
Andy Robertson wrote on 09/18/2009 03:30:01 PM: Could you maybe send me a copy offlist (as a .txt file will do?) I suspect I've copied the exec from the pdf wrong somehow . . . though I can not see how. You can download cobdfsym.txt from the DFSORT FTP site at: ftp://ftp.software.ibm.com/storage/dfsort/mvs/ Frank Yaeger - DFSORT Development Team (IBM) - yae...@us.ibm.com Specialties: FINDREP, WHEN=GROUP, DATASORT, ICETOOL, Symbols, Migration = DFSORT/MVS is on the Web at http://www.ibm.com/storage/dfsort/ -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: COBDFSYM With COBOL 410 - ((attn Frank Yeager??))
On Fri, 18 Sep 2009 11:32:12 -0500, Greg Shirey wgshi...@benekeith.com wrote: Andy, We have COBOL 4.1 here and have used the same COBDFSYM REXX since December 2005, and it works for us. There is a restriction that the copybook member must have an 01 level to work properly, but I don't recall what error that causes. Greg Shirey Ben E. Keith Company Could you maybe send me a copy offlist (as a .txt file will do?) I suspect I've copied the exec from the pdf wrong somehow . . . though I can not see how. TIA (I will be n/a for weekend) -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
