On 3/22/2012 6:28 PM, Scott Ford wrote:
Jose,
Sam is correct, COBOL doesn't ave the facilities that I know of unless you call
assembler or C .
You could try looking through the LE books on COBOL, maybe there is something
there...
Sent from my iPad
Scott Ford
Senior Systems Engineer
www.identityforge.com
On Mar 22, 2012, at 7:56 PM, Jose ADAUTO Ribeiro<jada...@uol.com.br> 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.
José ADAUTO Ribeiro
Em 22/03/2012 19:17, Sam Siegel< s...@pscsi.net> escreveu:
On Thu, Mar 22, 2012 at 3:10 PM, Jose ADAUTO Ribeiro wrote:
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
One problem is COBOL uses an intermediate control block,
an FCB that points to the ACB structure.
I suppose you could generate the sequence you want in an
Assembler program, then hack your way to that using COBOL's
pointer and address of facilities. Unless the control blocks
reside in storage you don't have access to. And, of course,
it would be totally unsupported if anything went wrong
went wrong
went wrong
:-)
--
Kind regards,
-Steve Comstock
The Trainer's Friend, Inc.
303-355-2752
http://www.trainersfriend.com
* To get a good Return on your Investment, first make an investment!
+ Training your people is an excellent investment
* Try our tool for calculating your Return On Investment
for training dollars at
http://www.trainersfriend.com/ROI/roi.html
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN
