Ray,
That was a good suggestion...the cbttapes Sent from my iPad Scott Ford Senior Systems Engineer www.identityforge.com On Mar 22, 2012, at 9:06 PM, Ray Mullins <[email protected]> wrote: > On 2012-03-22 16:56, Jose ADAUTO Ribeiro wrote: >> Hi, >> >> Please, not diminishing the quick response from Sam Siegel, but someone has >> any other information (if that is possible)? >> >> I would like to use this facility to spend the minimum effort to alter a >> legacy of programs. >> This is part of a project I'm evaluating. >> > > Unfortunately, Sam is correct, and Steve's response (write a routine to be > called by the COBOL program) is probably the least intrusive method of > getting a journal exit to run in a COBOL environment. This, of course, > requires that every program needs to be changed. > > The other solutions I can think of which do not require changing and > recompiling every COBOL involve some pretty deep systems-level stuff to > intercept the OPEN (several ways of doing it). > > However, I don't think your request is that unique; I wonder if something has > been done already on the CBT tape, for example. I suggest some deeper > Internet searching. > > Cheers, > Ray > >> >>> Hi, >>> >>> Is there a way, in Cobol, to specify JRNAD module exit to access a VSAM >>> file ? >>> >>> In Assembler we can specify: >>> ACB01 ACB AM=VSAM,DDNAME=VSAM01,MACRF=(KEY,SEQ,DIR,OUT), >>> EXLST=EXLST01 >>> EXLST01 EXLST AM=VSAM,JRNAD=(JRNEXIT,A,L) >>> JRNEXIT DC CL8'EXITJRN' >>> >> >> I don't think that can be done w/out dropping down to an assembler module >> to handle the I/O. >> >> >>> Thanks in advance, >>> >>> Jose Adauto Ribeiro >>> > > > -- > M. Ray Mullins > Roseville, CA, USA > http://www.catherdersoftware.com/ > > German is essentially a form of assembly language consisting entirely of far > calls heavily accented with throaty guttural sounds. ---ilvi > French is essentially German with messed-up pronunciation and spelling. > --Robert B Wilson > English is essentially French converted to 7-bit ASCII. ---Christophe > Pierret [for Alain LaBonté] > > ---------------------------------------------------------------------- > For IBM-MAIN subscribe / signoff / archive access instructions, > send email to [email protected] with the message: INFO IBM-MAIN ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN
