Re: COBOL x ACB EXLST WITH JRNAD
In 985915eee6984740ae93f8495c624c6c21e0792...@jscpcwexmaa1.bsg.ad.adp.com, on 03/23/2012 at 06:20 PM, Farley, Peter x23353 peter.far...@broadridge.com said: Not to my knowledge. AFAIK the COBOL FCB has been OCO for a long time. The PL/1 Optimizing Compiler Execution Logic manual had good documentation on the equivalent PL/1 structure, What about the Enterprise PL/I equivalent? -- Shmuel (Seymour J.) Metz, SysProg and JOAT ISO position; see http://patriot.net/~shmuel/resume/brief.html We don't care. We don't have to care, we're Congress. (S877: The Shut up and Eat Your spam act of 2003) -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN
Re: COBOL x ACB EXLST WITH JRNAD
Hi, I'm very grateful for the suggestions and statements. I'll go a little more research on the Internet, in particular CBT Tape. Thanks for you all. José ADAUTO Ribeiro Em 22/03/2012 22:08, Scott Ford scott_j_f...@yahoo.com escreveu: 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 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: ACB01ACB AM=VSAM,DDNAME=VSAM01,MACRF=(KEY,SEQ,DIR,OUT), EXLST=EXLST01 EXLST01 EXLST AM=VSAM,JRNAD=(JRNEXIT,A,L) JRNEXIT DCCL8'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 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
Re: COBOL x ACB EXLST WITH JRNAD
In 4f6bc594.5070...@trainersfriend.com, on 03/22/2012 at 06:36 PM, Steve Comstock st...@trainersfriend.com said: One problem is COBOL uses an intermediate control block, an FCB that points to the ACB structure. Is there a mapping macro for the FCB? -- Shmuel (Seymour J.) Metz, SysProg and JOAT ISO position; see http://patriot.net/~shmuel/resume/brief.html We don't care. We don't have to care, we're Congress. (S877: The Shut up and Eat Your spam act of 2003) -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN
Re: COBOL x ACB EXLST WITH JRNAD
Not to my knowledge. AFAIK the COBOL FCB has been OCO for a long time. The PL/1 Optimizing Compiler Execution Logic manual had good documentation on the equivalent PL/1 structure, but I don't ever remember seeing the COBOL FCB documented. OTOH, lots of programmers have reverse engineered it (or parts of it) anyway. I think that COBANALZ on CBT has some definitions, but FCB has changed over time as well, so it's also compiler-version dependant. Peter -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@bama.ua.edu] On Behalf Of Shmuel Metz (Seymour J.) Sent: Friday, March 23, 2012 5:15 PM To: IBM-MAIN@bama.ua.edu Subject: Re: COBOL x ACB EXLST WITH JRNAD In 4f6bc594.5070...@trainersfriend.com, on 03/22/2012 at 06:36 PM, Steve Comstock st...@trainersfriend.com said: One problem is COBOL uses an intermediate control block, an FCB that points to the ACB structure. Is there a mapping macro for the FCB? -- 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: INFO IBM-MAIN
COBOL x ACB EXLST WITH JRNAD
Hi, Is there a way, in Cobol, to specify JRNAD module exit to access a VSAM file ? In Assembler we can specify: ACB01ACB AM=VSAM,DDNAME=VSAM01,MACRF=(KEY,SEQ,DIR,OUT), EXLST=EXLST01 EXLST01 EXLST AM=VSAM,JRNAD=(JRNEXIT,A,L) JRNEXIT DCCL8'EXITJRN' 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
Re: COBOL x ACB EXLST WITH JRNAD
On Thu, Mar 22, 2012 at 3:10 PM, Jose ADAUTO Ribeiro jada...@uol.com.brwrote: Hi, Is there a way, in Cobol, to specify JRNAD module exit to access a VSAM file ? In Assembler we can specify: ACB01ACB AM=VSAM,DDNAME=VSAM01,MACRF=(KEY,SEQ,DIR,OUT), EXLST=EXLST01 EXLST01 EXLST AM=VSAM,JRNAD=(JRNEXIT,A,L) JRNEXIT DCCL8'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
Re: COBOL x ACB EXLST WITH JRNAD
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: ACB01ACB AM=VSAM,DDNAME=VSAM01,MACRF=(KEY,SEQ,DIR,OUT), EXLST=EXLST01 EXLST01 EXLST AM=VSAM,JRNAD=(JRNEXIT,A,L) JRNEXIT DCCL8'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
Re: COBOL x ACB EXLST WITH JRNAD
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: ACB01ACB AM=VSAM,DDNAME=VSAM01,MACRF=(KEY,SEQ,DIR,OUT), EXLST=EXLST01 EXLST01 EXLST AM=VSAM,JRNAD=(JRNEXIT,A,L) JRNEXIT DCCL8'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
Re: COBOL x ACB EXLST WITH JRNAD
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 Ribeirojada...@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: ACB01ACB AM=VSAM,DDNAME=VSAM01,MACRF=(KEY,SEQ,DIR,OUT), EXLST=EXLST01 EXLST01 EXLST AM=VSAM,JRNAD=(JRNEXIT,A,L) JRNEXIT DCCL8'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
Re: COBOL x ACB EXLST WITH JRNAD
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: ACB01ACB AM=VSAM,DDNAME=VSAM01,MACRF=(KEY,SEQ,DIR,OUT), EXLST=EXLST01 EXLST01 EXLST AM=VSAM,JRNAD=(JRNEXIT,A,L) JRNEXIT DCCL8'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 lists...@bama.ua.edu with the message: INFO IBM-MAIN
Re: COBOL x ACB EXLST WITH JRNAD
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 m...@lerctr.org 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: ACB01ACB AM=VSAM,DDNAME=VSAM01,MACRF=(KEY,SEQ,DIR,OUT), EXLST=EXLST01 EXLST01 EXLST AM=VSAM,JRNAD=(JRNEXIT,A,L) JRNEXIT DCCL8'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 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