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
