Re: COBOL x ACB EXLST WITH JRNAD

2012-03-25 Thread Shmuel Metz (Seymour J.) 
In
<985915eee6984740ae93f8495c624c6c21e0792...@jscpcwexmaa1.bsg.ad.adp.com>,
on 03/23/2012
   at 06:20 PM, "Farley, Peter x23353" 
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  
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

2012-03-23 Thread Farley, Peter x23353 
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  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

Re: COBOL x ACB EXLST WITH JRNAD

2012-03-23 Thread Shmuel Metz (Seymour J.) 
In <4f6bc594.5070...@trainersfriend.com>, on 03/22/2012
   at 06:36 PM, Steve Comstock  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  
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

2012-03-23 Thread Jose ADAUTO Ribeiro 
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

2012-03-22 Thread Scott Ford 
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

Re: COBOL x ACB EXLST WITH JRNAD

2012-03-22 Thread Ray Mullins 

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

2012-03-22 Thread Steve Comstock 

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  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

2012-03-22 Thread Scott Ford 
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  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

2012-03-22 Thread Jose ADAUTO Ribeiro 
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

2012-03-22 Thread Sam Siegel 
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

COBOL x ACB EXLST WITH JRNAD

2012-03-22 Thread Jose ADAUTO Ribeiro 
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