Re: assembler to cobol conversion question
Sorry al the cee3abd worked like a champ thanks to all Mace On Fri, Jan 29, 2010 at 11:23 AM, Lizette Koehler stars...@mindspring.comwrote: I am not sure but I think the LE might be getting into your way if you are trying to create a different return code if it something like an S0C4 or S0C7. Let me know if I do not understand. Currently your assembler program may get an S0C7 but it will produce a different return code? Is that correct? If so, in COBOL you may need to use the LE USER HANDLE conditions. This function in LE allows the user to get in behind LE (LE is still going to capture the abend), but let you do other actions. This may be what you need to look at. You may even be able to correct the fields and then go on with the program without having to quit. I have not tried this, but I was told that it could work that way. It would help to know the z/OS you are running (z/OS V1.9??) and what version of COBOL. Lizette larry macioce wrote: We are trying to move aways from assembler to cobol in batch. One of the programmers has a question. He asked me if there is a cobol equivalent to assemblers 'abend' He has done some reading and tried what was given but is having no luck getting the return code he wants into it He can get it to abend but the s0c7 overrides the value he wants to put in the field. I've looked around but havent been able to help him Can and how is this done?? TiA -- 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 -- 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
assembler to cobol conversion question
We are trying to move aways from assembler to cobol in batch. One of the programmers has a question. He asked me if there is a cobol equivalent to assemblers 'abend' He has done some reading and tried what was given but is having no luck getting the return code he wants into it He can get it to abend but the s0c7 overrides the value he wants to put in the field. I've looked around but havent been able to help him Can and how is this done?? TiA Mace -- 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: assembler to cobol conversion question
-Original Message- From: IBM Mainframe Discussion List On Behalf Of larry macioce We are trying to move aways from assembler to cobol in batch. One of the programmers has a question. He asked me if there is a cobol equivalent to assemblers 'abend' He has done some reading and tried what was given but is having no luck getting the return code he wants into it He can get it to abend but the s0c7 overrides the value he wants to put in the field. I've looked around but havent been able to help him Can and how is this done?? Perhaps look into coding an LE condition handler. I've never done one, but the LE doc should be helpful. -jc- -- 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: assembler to cobol conversion question
Many people have written a subroutine in assembler to issue the abend and just call it from the main program. Eg CALL 'ABEND' USING ABEND-CODE. HTH, snip We are trying to move aways from assembler to cobol in batch. One of the programmers has a question. He asked me if there is a cobol equivalent to assemblers 'abend' He has done some reading and tried what was given but is having no luck getting the return code he wants into it He can get it to abend but the s0c7 overrides the value he wants to put in the field. I've looked around but havent been able to help him Can and how is this done?? /snip -- 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: assembler to cobol conversion question
There's an LE370 program/service that can be invoked to cause an abend. I've pasted in a small example of a callable COBOL program which in turn calls the LE370 program. LINKAGE SECTION. 01 ABEND-CODE PIC S9(05) COMP. 01 DUMP-INDPIC S9(05) COMP. PROCEDURE DIVISION USING ABEND-CODE DUMP-IND. CALL 'CEE3ABD' USING ABEND-CODE DUMP-IND. GOBACK. -Original Message- From: larry macioce [mailto:mace1...@gmail.com] Sent: Friday, January 29, 2010 9:00 AM To: IBM-MAIN@bama.ua.edu Subject: assembler to cobol conversion question We are trying to move aways from assembler to cobol in batch. One of the programmers has a question. He asked me if there is a cobol equivalent to assemblers 'abend' He has done some reading and tried what was given but is having no luck getting the return code he wants into it He can get it to abend but the s0c7 overrides the value he wants to put in the field. I've looked around but havent been able to help him Can and how is this done?? TiA Mace -- 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 -- 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: assembler to cobol conversion question
larry macioce wrote: We are trying to move aways from assembler to cobol in batch. One of the programmers has a question. He asked me if there is a cobol equivalent to assemblers 'abend' He has done some reading and tried what was given but is having no luck getting the return code he wants into it He can get it to abend but the s0c7 overrides the value he wants to put in the field. I've looked around but havent been able to help him Can and how is this done?? TiA Mace Best way is to use LE callable service CEE3ABD. In fact, there are a lot of LE services that might prove useful in this project. We offer a three day course that covers LE pretty thoroughly for application programmers and the labs can be done in Assembler, COBOL, PL/I, or C (each student works with their language of choice). IBM brought us in to teach the course to LE developers and Level 3 folks (once in Poughkeepsie, one in Santa Teresa (now Silicon Valley) lab). Check out: http://www.trainersfriend.com/Language_Environment_courses/m512descr.htm -- Kind regards, -Steve Comstock The Trainer's Friend, Inc. 303-393-8716 http://www.trainersfriend.com z/OS Application development made easier * Our classes include + How things work + Programming examples with realistic applications + Starter / skeleton code + Complete working programs + Useful utilities and subroutines + Tips and techniques Ask me about our new, reduced rates for purchasing our course materials for use by your own trainers or Subject Matter Experts (SMEs). -- 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: assembler to cobol conversion question
On Fri, 2010-01-29 at 09:00 -0500, larry macioce wrote: We are trying to move aways from assembler to cobol in batch. One of the programmers has a question. He asked me if there is a cobol equivalent to assemblers 'abend' Yes, here's a sample taken from one of our programs. (Ignore the comments about what the individual abend codes mean!) Parameters used when we call CEE3ABD, (ABEND). - U0100 indicates that heap allocation failed, - U0200 says that storage deallocation failed. - U0300 says that bit manipulation subroutine failed. A cleanup code of 0 means to terminate immediately, a value of 1 means to do normal enclave termination processing first. I'm using the latter. 01 CEE3ABD-PARAMETERS. 05 U0100 COMPPIC S9(8) VALUE +0100. 05 U0200 COMPPIC S9(8) VALUE +0200. 05 U0300 COMPPIC S9(8) VALUE +0300. 05 CLEANUP-CODECOMPPIC S9(8) VALUE +1. CALL CEE3ABD USING U0100, CLEANUP-CODE -- David Andrews A. Duda and Sons, Inc. david.andr...@duda.com -- 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: assembler to cobol conversion question
05 abend-codepic 9(4) comp. CALL 'ILBOABN0' USING ABEND-CODE Enterprise COBOL for z/OS V3R4 Migration Guide 3.2.7Using ILBOABN0 to force an abend IBM Mainframe Discussion List IBM-MAIN@bama.ua.edu wrote on 01/29/2010 09:10:20 AM: Many people have written a subroutine in assembler to issue the abend and just call it from the main program. Eg CALL 'ABEND' USING ABEND-CODE. HTH, snip We are trying to move aways from assembler to cobol in batch. One of the programmers has a question. He asked me if there is a cobol equivalent to assemblers 'abend' He has done some reading and tried what was given but is having no luck getting the return code he wants into it He can get it to abend but the s0c7 overrides the value he wants to put in the field. I've looked around but havent been able to help him Can and how is this done?? /snip -- 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 - The information contained in this communication (including any attachments hereto) is confidential and is intended solely for the personal and confidential use of the individual or entity to whom it is addressed. If the reader of this message is not the intended recipient or an agent responsible for delivering it to the intended recipient, you are hereby notified that you have received this communication in error and that any review, dissemination, copying, or unauthorized use of this information, or the taking of any action in reliance on the contents of this information is strictly prohibited. If you have received this communication in error, please notify us immediately by e-mail, and delete the original message. Thank you -- 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: assembler to cobol conversion question
Better than my previously posted solution! snip There's an LE370 program/service that can be invoked to cause an abend. I've pasted in a small example of a callable COBOL program which in turn calls the LE370 program. LINKAGE SECTION. 01 ABEND-CODE PIC S9(05) COMP. 01 DUMP-INDPIC S9(05) COMP. PROCEDURE DIVISION USING ABEND-CODE DUMP-IND. CALL 'CEE3ABD' USING ABEND-CODE DUMP-IND. GOBACK. /snip -- 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: assembler to cobol conversion question
I am not sure but I think the LE might be getting into your way if you are trying to create a different return code if it something like an S0C4 or S0C7. Let me know if I do not understand. Currently your assembler program may get an S0C7 but it will produce a different return code? Is that correct? If so, in COBOL you may need to use the LE USER HANDLE conditions. This function in LE allows the user to get in behind LE (LE is still going to capture the abend), but let you do other actions. This may be what you need to look at. You may even be able to correct the fields and then go on with the program without having to quit. I have not tried this, but I was told that it could work that way. It would help to know the z/OS you are running (z/OS V1.9??) and what version of COBOL. Lizette larry macioce wrote: We are trying to move aways from assembler to cobol in batch. One of the programmers has a question. He asked me if there is a cobol equivalent to assemblers 'abend' He has done some reading and tried what was given but is having no luck getting the return code he wants into it He can get it to abend but the s0c7 overrides the value he wants to put in the field. I've looked around but havent been able to help him Can and how is this done?? TiA -- 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
