> -----Original Message----- > From: IBM Mainframe Discussion List [mailto:ibm-m...@bama.ua.edu] On > Behalf Of Michael Knigge > Sent: Tuesday, July 07, 2009 6:13 AM > To: IBM-MAIN@bama.ua.edu > Subject: Question about REUS=NONE <Snipped> > Now we are just about 13 years later and I have to convert this > application. We want to use Enterprise COBOL and dynamic CALLs. > > Now..... I guess all the COBOL-Stuff will work pretty well (I guess that > the WOKING-STORAGE gets getmained for every new copy of the COBOL-Prog > within each subtask).
AFAIK, WORKING-STORAGE still only gets created once per COBOL program, on first call of the COBOL program. I think that what you need to use is called LOCAL-STORAGE, which is re-allocated on every call. However, that is not your only problem. COBOL (even Enterprise-level) is still NOT guaranteed or warranted by IBM to work in a real multi-tasking environment. In particular, the output message file, normally SYSOUT, cannot be shared among subtasks and you still may need an assembler stub to keep each subtasks's messages displayable somewhere. > But I wonder how to migrate the ASM-Subs nearly painless.... I could > rewrite all this ASM-Subs and use dynamic Saveareas but I wonder if just > using REUS=NONE would do the same job... You do not need GETMAIN/FREEMAIN subroutines any more (LE has them), and you may or may not need the STIMERM subroutine either, depending on what your application needs to do (LE has a DELAY function, but only for integer seconds). There are LE callable subroutines to do at least some of functions that we used to write our own ASM routines to do. Check out the LE Programmer's Reference manual for your level of z/OS, it has a lot of interesting information you can use. It may be possible you that don't need *any* of your in-house ASM routines any more, so you would not have to migrate them at all. HTH Peter P.S. - Feel free to contact me off-list if you want to discuss these things in more detail. This message and any attachments are intended only for the use of the addressee and may contain information that is privileged and confidential. If the reader of the message is not the intended recipient or an authorized representative of the intended recipient, you are hereby notified that any dissemination of this communication is strictly prohibited. If you have received this communication in error, please notify us immediately by e-mail and delete the message and any attachments from your system. ---------------------------------------------------------------------- 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