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 >> >> ---------------------------------------------------------------------- >> For IBM-MAIN subscribe / signoff / archive access instructions, >> send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN >> > > ---------------------------------------------------------------------- > For IBM-MAIN subscribe / signoff / archive access instructions, > send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN > > ---------------------------------------------------------------------- > For IBM-MAIN subscribe / signoff / archive access instructions, > send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN